|
Lines 70-78
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Link Here
|
| 70 |
} |
70 |
} |
| 71 |
); |
71 |
); |
| 72 |
|
72 |
|
| 73 |
my $biblionumber = $query->param('biblionumber') || $query->param('bib'); |
73 |
my $biblionumber = $query->param('biblionumber') || $query->param('bib') || 0; |
| 74 |
$biblionumber = int($biblionumber); |
74 |
$biblionumber = int($biblionumber); |
| 75 |
|
75 |
|
|
|
76 |
my $dbh = C4::Context->dbh; |
| 77 |
my $sth = $dbh->prepare("SELECT * FROM items WHERE biblionumber=?;"); |
| 78 |
$sth->execute($biblionumber); |
| 79 |
|
| 80 |
my @itemsmatchingbiblionumber; |
| 81 |
my $matchingitem = $sth->fetchrow_hashref; |
| 82 |
while ($matchingitem) { |
| 83 |
push @itemsmatchingbiblionumber,$matchingitem; |
| 84 |
$matchingitem = $sth->fetchrow_hashref; |
| 85 |
} |
| 86 |
|
| 87 |
my @items2hide; |
| 88 |
if ($#itemsmatchingbiblionumber >= 0) { |
| 89 |
@items2hide =GetHiddenItemnumbers(@itemsmatchingbiblionumber); |
| 90 |
} |
| 91 |
|
| 92 |
# only hide if there are hidden items. $#items2hide=-1 for no items. |
| 93 |
if ($#items2hide==$#itemsmatchingbiblionumber && $#items2hide>=0) { |
| 94 |
# biblionumber=0 effectively hides the biblio record |
| 95 |
# since there is no such biblionumber. |
| 96 |
$biblionumber = 0; |
| 97 |
} |
| 98 |
|
| 76 |
my $record = GetMarcBiblio($biblionumber); |
99 |
my $record = GetMarcBiblio($biblionumber); |
| 77 |
if ( ! $record ) { |
100 |
if ( ! $record ) { |
| 78 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early |
101 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early |
|
Lines 628-634
if (scalar(@itemloop) >= 50 && !$viewallitems) {
Link Here
|
| 628 |
} |
651 |
} |
| 629 |
|
652 |
|
| 630 |
## get notes and subjects from MARC record |
653 |
## get notes and subjects from MARC record |
| 631 |
my $dbh = C4::Context->dbh; |
|
|
| 632 |
my $marcnotesarray = GetMarcNotes ($record,$marcflavour); |
654 |
my $marcnotesarray = GetMarcNotes ($record,$marcflavour); |
| 633 |
my $marcisbnsarray = GetMarcISBN ($record,$marcflavour); |
655 |
my $marcisbnsarray = GetMarcISBN ($record,$marcflavour); |
| 634 |
my $marcauthorsarray = GetMarcAuthors ($record,$marcflavour); |
656 |
my $marcauthorsarray = GetMarcAuthors ($record,$marcflavour); |
| 635 |
- |
|
|