[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.51,1.52
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.51,1.52 |
Date: |
Thu, 23 Dec 2004 00:43:45 -0800 |
Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25106/acqui.simple
Modified Files:
addbiblio.pl
Log Message:
bugfix : when modifying a biblio, on a repeated field with many subfields, the
test to show empty subfields in X>1 was wrong : the missing subfields of the
1st field were repeated.
Example :
606 has $a$x$z
1st is 606$a (so $x$z empty)
2nd is 606$a$x
The marc editor in the 2nd field showed before this fix :
606 $a a_value
$x another_value
$x
$z
(the 2nd $x being useless
Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -r1.51 -r1.52
*** addbiblio.pl 16 Nov 2004 22:40:40 -0000 1.51
--- addbiblio.pl 23 Dec 2004 08:43:43 -0000 1.52
***************
*** 241,245 ****
next if
($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
next if ($tag<10);
! next if
(defined($record->field($tag)->subfield($subfield)));
push(@subfields_data,
&create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
$i++;
--- 241,245 ----
next if
($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
next if ($tag<10);
! next if
(defined($field->subfield($subfield)));
push(@subfields_data,
&create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
$i++;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.51,1.52,
Paul POULAIN <=