[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++;
                                                }