[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.25,1.26

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv26776/acqui.simple

Modified Files:
	addbiblio.pl 
Log Message:


Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** addbiblio.pl	29 Apr 2003 16:48:35 -0000	1.25
--- addbiblio.pl	21 May 2003 14:35:36 -0000	1.26
***************
*** 34,38 ****
  use vars qw( $is_a_modif );
  
- 
  =item find_value
  
--- 34,37 ----
***************
*** 48,52 ****
  sub find_value {
  	my ($tagfield,$insubfield,$record,$encoding) = @_;
- 	warn "FIND_VALUE : $encoding /";
  	my @result;
  	my $indicator;
--- 47,50 ----
***************
*** 62,66 ****
  			foreach my $subfield (@subfields) {
  				if (@$subfield[0] eq $insubfield) {
- 					warn "@$subfield[1]==> ".char_decode(@$subfield[1],$encoding);
  					push @result,char_decode(@$subfield[1],$encoding);
  					$indicator = $field->indicator(1).$field->indicator(2);
--- 60,63 ----