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)
This commit is contained in:
tipaul 2002-12-02 15:13:04 +00:00
parent 39828023cc
commit ef66fec140
2 changed files with 4 additions and 5 deletions

View file

@ -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;

View file

@ -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 />