From ef66fec140bf1d0380db4c03c9b0af3e5c7e20d6 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 2 Dec 2002 15:13:04 +0000
Subject: [PATCH] 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)

---
 acqui.simple/addbiblio.pl                                    | 5 +----
 .../intranet-tmpl/default/en/acqui.simple/addbooks.tmpl      | 4 +++-
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index a672c32769..66c9d9b460 100755
--- 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 2651784cab..001c387437 100644
--- 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 />
-- 
2.39.5