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)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index a672c32..66c9d9b 100755 (executable)
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -52,7 +52,6 @@ sub MARCfindbreeding {
        if ($marc) {
                my $record = MARC::File::USMARC::decode($marc);
                if (ref($record) eq undef) {
-                       warn "not a MARC record : $marc";
                        return -1;
                } else {
                        return $record;
@@ -76,7 +75,7 @@ if ($oldbiblionumber) {
 my $template;
 
 my $tagslib = &MARCgettagslib($dbh,1);
-my $record;
+my $record=-1;
 $record = MARCgetbiblio($dbh,$bibid) if ($bibid);
 $record = MARCfindbreeding($dbh,$isbn) if ($isbn);
 my $is_a_modif=0;
@@ -145,7 +144,6 @@ if ($op eq "addbiblio") {
                                                my @authorised_values;
                                                # 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");
                                                        $sth->execute;
@@ -193,7 +191,6 @@ if ($op eq "addbiblio") {
                                                my @authorised_values;
                                                # 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");
                                                        $sth->execute;

diff --git a/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbooks.tmpl b/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbooks.tmpl
index 2651784..001c387 100644 (file)
--- a/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbooks.tmpl
+++ b/koha-tmpl/intranet-tmpl/default/en/acqui.simple/addbooks.tmpl
@@ -13,7 +13,7 @@
 <p />
 <table bgcolor="#ffcc00" width="80%" cellpadding="3">
        <tr valign="center">
-       <td><font size="4">To add a new biblio/item, scan or type the ISBN number:</font></td>
+       <td><font size="4">To add a new biblio/item, scan or type the ISBN/ISSN number:</font></td>
        </tr>
 </table>
 <table cellpadding="3" border=0 width="100%">
@@ -27,6 +27,8 @@
                                Otherwise, a biblio can be added from scratch.</td>
        </form>
        </tr>
+       <tr><td>&nbsp;</td>
+               <td colspan=2><a href=addbiblio.pl>Add biblio without ISBN/ISSN</a></td></tr>
 </table>
 
 <p />