|
Lines 411-417
sub GetPatronInfo {
Link Here
|
| 411 |
# Add additional fields |
411 |
# Add additional fields |
| 412 |
$reserve->{'item'} = $item; |
412 |
$reserve->{'item'} = $item; |
| 413 |
$reserve->{'branchname'} = $branchname; |
413 |
$reserve->{'branchname'} = $branchname; |
| 414 |
$reserve->{'title'} = ( GetBiblio( $reserve->{'biblionumber'} ) )[1]->{'title'}; |
414 |
$reserve->{'title'} = GetBiblio( $reserve->{'biblionumber'} )->{'title'}; |
| 415 |
} |
415 |
} |
| 416 |
$borrower->{'holds'}->{'hold'} = \@reserves; |
416 |
$borrower->{'holds'}->{'hold'} = \@reserves; |
| 417 |
} |
417 |
} |
|
Lines 597-603
sub HoldTitle {
Link Here
|
| 597 |
|
597 |
|
| 598 |
# Get the biblio record, or return an error code |
598 |
# Get the biblio record, or return an error code |
| 599 |
my $biblionumber = $cgi->param('bib_id'); |
599 |
my $biblionumber = $cgi->param('bib_id'); |
| 600 |
my ( $count, $biblio ) = GetBiblio( $biblionumber ); |
600 |
my $biblio = GetBiblio( $biblionumber ); |
| 601 |
return { code => 'RecordNotFound' } unless $$biblio{biblionumber}; |
601 |
return { code => 'RecordNotFound' } unless $$biblio{biblionumber}; |
| 602 |
|
602 |
|
| 603 |
my $title = $$biblio{title}; |
603 |
my $title = $$biblio{title}; |
|
Lines 662-668
sub HoldItem {
Link Here
|
| 662 |
|
662 |
|
| 663 |
# Get the biblio or return an error code |
663 |
# Get the biblio or return an error code |
| 664 |
my $biblionumber = $cgi->param('bib_id'); |
664 |
my $biblionumber = $cgi->param('bib_id'); |
| 665 |
my ( $count, $biblio ) = GetBiblio($biblionumber); |
665 |
my $biblio = GetBiblio($biblionumber); |
| 666 |
return { code => 'RecordNotFound' } unless $$biblio{biblionumber}; |
666 |
return { code => 'RecordNotFound' } unless $$biblio{biblionumber}; |
| 667 |
|
667 |
|
| 668 |
my $title = $$biblio{title}; |
668 |
my $title = $$biblio{title}; |