[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.30,1.31

[Paul POULAIN]

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

Modified Files:
	addbiblio.pl 
Log Message:
fixing bug in char decoding

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -r1.30 -r1.31
*** addbiblio.pl	26 Jun 2003 14:11:09 -0000	1.30
--- addbiblio.pl	6 Aug 2003 12:37:32 -0000	1.31
***************
*** 213,217 ****
  						my $value=$field->data();
  						my $subfield="@";
! 						push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth))
  								unless ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  						$i++;
--- 213,217 ----
  						my $value=$field->data();
  						my $subfield="@";
! 						push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth))
  								unless ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  						$i++;
***************
*** 223,227 ****
  							next if subfield_is_koha_internal_p($subfield);
  							next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
! 							push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth));
  							$i++;
  						}
--- 223,227 ----
  							next if subfield_is_koha_internal_p($subfield);
  							next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
! 							push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth));
  							$i++;
  						}