[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.29,1.30
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.29,1.30 |
Date: |
Thu, 26 Jun 2003 07:11:11 -0700 |
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 {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.29,1.30,
Paul POULAIN <=