Lines 57-66
my $query = new CGI;
Link Here
|
57 |
|
57 |
|
58 |
my $dbh = C4::Context->dbh; |
58 |
my $dbh = C4::Context->dbh; |
59 |
|
59 |
|
60 |
my $biblionumber = $query->param('biblionumber'); |
60 |
my $biblionumber = $query->param('biblionumber') || $query->param('bib'); |
61 |
my $itemtype = &GetFrameworkCode($biblionumber); |
61 |
my $itemtype = &GetFrameworkCode($biblionumber); |
62 |
my $tagslib = &GetMarcStructure( 0, $itemtype ); |
62 |
my $tagslib = &GetMarcStructure( 0, $itemtype ); |
63 |
my $biblio = GetBiblioData($biblionumber); |
63 |
my $biblio = GetBiblioData($biblionumber); |
|
|
64 |
$biblionumber = $biblio->{biblionumber}; |
64 |
my $record = GetMarcBiblio($biblionumber, 1); |
65 |
my $record = GetMarcBiblio($biblionumber, 1); |
65 |
if ( ! $record ) { |
66 |
if ( ! $record ) { |
66 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); |
67 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); |