[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.8,1.9

[Paul POULAIN]

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

Modified Files:
	addbiblio.pl 
Log Message:
bugfixes : enable entering a biblio without isbn
Note that parameter must be modified and changed to "isbn not mandatory" (mandatory on default 1.3.2 install)

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** addbiblio.pl	22 Nov 2002 10:13:20 -0000	1.8
--- addbiblio.pl	2 Dec 2002 15:13:05 -0000	1.9
***************
*** 53,57 ****
  		my $record = MARC::File::USMARC::decode($marc);
  		if (ref($record) eq undef) {
- 			warn "not a MARC record : $marc";
  			return -1;
  		} else {
--- 53,56 ----
***************
*** 77,81 ****
  
  my $tagslib = &MARCgettagslib($dbh,1);
! my $record;
  $record = MARCgetbiblio($dbh,$bibid) if ($bibid);
  $record = MARCfindbreeding($dbh,$isbn) if ($isbn);
--- 76,80 ----
  
  my $tagslib = &MARCgettagslib($dbh,1);
! my $record=-1;
  $record = MARCgetbiblio($dbh,$bibid) if ($bibid);
  $record = MARCfindbreeding($dbh,$isbn) if ($isbn);
***************
*** 146,150 ****
  						# builds list, depending on authorised value...
  						#---- branch
- 						warn "==> $tagslib->{$tag}->{$subfield}->{mandatory} / ".$tagslib->{$tag}->{$subfield}->{'authorised_value'};
  						if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
  							my $sth=$dbh->prepare("select branchcode,branchname from branches");
--- 145,148 ----
***************
*** 194,198 ****
  						# builds list, depending on authorised value...
  						#---- branch
- 						warn "==> $tagslib->{$tag}->{$subfield}->{mandatory} / ".$tagslib->{$tag}->{$subfield}->{'authorised_value'};
  						if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
  							my $sth=$dbh->prepare("select branchcode,branchname from branches");
--- 192,195 ----