[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 ----