[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.46,1.47

[Paul POULAIN]

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

Modified Files:
        addbiblio.pl 
Log Message:
when repeating a repeatable field, the new field is now :
* empty
* created AFTER the existing field(s)

This is more logic when adding subjects, from most to less important (or 
author, or anything else).

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.46
retrieving revision 1.47
diff -C2 -r1.46 -r1.47
*** addbiblio.pl        23 Sep 2004 16:12:06 -0000      1.46
--- addbiblio.pl        30 Sep 2004 15:52:28 -0000      1.47
***************
*** 415,424 ****
        my $end=0;
        my $started;
!       for (my $i=0;$i<=$#tags;$i++) {
                $start=$i if ($start eq 0 && $tags[$i] == $addedfield);
                $end=$i if ($start>0 && $tags[$i] eq $addedfield);
                last if ($start>0 && $tags[$i] ne $addedfield);
        }
! # add an empty line in all arrays. This forces a new field in MARC::Record.
        splice(@tags,$end+1,0,'');
        splice(@subfields,$end+1,0,'');
--- 415,425 ----
        my $end=0;
        my $started;
!       for (my $i=$#tags;$i>0;$i--) {
                $start=$i if ($start eq 0 && $tags[$i] == $addedfield);
                $end=$i if ($start>0 && $tags[$i] eq $addedfield);
                last if ($start>0 && $tags[$i] ne $addedfield);
        }
! #     warn "ST : $addedfield => $start / $end";
!       # add an empty line in all arrays. This forces a new field in 
MARC::Record.
        splice(@tags,$end+1,0,'');
        splice(@subfields,$end+1,0,'');