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

[Paul POULAIN]

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

Modified Files:
        addbiblio.pl 
Log Message:
small fix for biblio modif : when modifying a biblio, fields that were left 
100% empty during add were no more in the editor. Thus, it was impossible to 
add them forever. This 1 line fix restore correct behaviour.

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -r1.29 -r1.30
*** addbiblio.pl        20 Jun 2003 14:32:08 -0000      1.29
--- addbiblio.pl        26 Jun 2003 14:11:09 -0000      1.30
***************
*** 206,210 ****
        # if MARC::Record is not empty => use it as master loop, then add 
missing subfields that should be in the tab.
        # if MARC::Record is empty => use tab as master loop.
!                       if ($record ne -1) {
                                my @fields = $record->field($tag);
                                foreach my $field (@fields)  {
--- 206,210 ----
        # if MARC::Record is not empty => use it as master loop, then add 
missing subfields that should be in the tab.
        # if MARC::Record is empty => use tab as master loop.
!                       if ($record ne -1 && $record->field($tag)) {
                                my @fields = $record->field($tag);
                                foreach my $field (@fields)  {
***************
*** 213,217 ****
                                                my $value=$field->data();
                                                my $subfield="@";
!                                               push(@subfields_data, 
&create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth));
                                                $i++;
                                        } else {
--- 213,218 ----
                                                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++;
                                        } else {