[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, at 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,\@tags,\@subfields,\@values,%indicators);
+ 	warn "MARChtml2";
  # MARC::Record built => now, record in DB
  	my $oldbibnum;