|
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"); |