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:
parent
39828023cc
commit
ef66fec140
2 changed files with 4 additions and 5 deletions
|
@ -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;
|
||||
|
|
|
@ -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> </td>
|
||||
<td colspan=2><a href=addbiblio.pl>Add biblio without ISBN/ISSN</a></td></tr>
|
||||
</table>
|
||||
|
||||
<p />
|
||||
|
|
Loading…
Reference in a new issue