[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.23,1.24

[Paul POULAIN]

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

Modified Files:
        addbiblio.pl 
Log Message:
Fix some bugs :
* worked in 1.9.0, but not in 1.9.1 :
- modif of a biblio didn't work
- empty fields where not shown when modifying a biblio. empty fields managed by 
the library (ie in tab 0->9 in MARC parameter table) MUST be entered, even if 
not presented.

* did not work before :
- repeatable subfields now works correctly. Enter 2 subfields separated by | 
and they will be splitted during saving.
- dropped the last subfield of the MARC form :-(

Internal changes :
- MARCmodbiblio now works by deleting and recreating the biblio. It's not perf 
optimized, but MARC is a "do_something_impossible_to_trace" standard, so, it's 
the best solution. not a problem for me, as biblio are rarely modified.
Note the MARCdelbiblio has been rewritted to enable deletion of a biblio 
WITHOUT deleting items.

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** addbiblio.pl        4 Apr 2003 08:40:44 -0000       1.23
--- addbiblio.pl        10 Apr 2003 13:56:05 -0000      1.24
***************
*** 182,185 ****
--- 182,186 ----
                        if ($record ne -1) {
                                my ($x,@value) = 
find_value($tag,$subfield,$record);
+                               push (@value,"") if ($#value eq -1);
                                foreach my $value (@value) {
                                        my %subfield_data;
***************
*** 330,334 ****
--- 331,337 ----
                $indicators{$ind_tag[$i]} = $indicator[$i];
        }
+       warn "MARChtml";
        my $record = 
MARChtml2marc($dbh,address@hidden,address@hidden,address@hidden,%indicators);
+       warn "MARChtml2";
  # MARC::Record built => now, record in DB
        my $oldbibnum;