|
Lines 23-29
use CGI;
Link Here
|
| 23 |
use JSON qw(to_json); |
23 |
use JSON qw(to_json); |
| 24 |
|
24 |
|
| 25 |
use C4::Auth qw(check_cookie_auth); |
25 |
use C4::Auth qw(check_cookie_auth); |
| 26 |
use C4::Biblio qw(GetMarcBiblio GetFrameworkCode GetRecordValue ); |
26 |
use C4::Biblio qw(SplitSubtitle); |
| 27 |
use C4::Charset; |
27 |
use C4::Charset; |
| 28 |
use C4::Circulation qw(GetTransfers); |
28 |
use C4::Circulation qw(GetTransfers); |
| 29 |
use C4::Context; |
29 |
use C4::Context; |
|
Lines 84-94
while ( my $h = $holds_rs->next() ) {
Link Here
|
| 84 |
for my $library ( @$libraries ) { |
84 |
for my $library ( @$libraries ) { |
| 85 |
$library->{selected} = 1 if $library->{branchcode} eq $h->branchcode(); |
85 |
$library->{selected} = 1 if $library->{branchcode} eq $h->branchcode(); |
| 86 |
} |
86 |
} |
|
|
87 |
|
| 88 |
my $biblio = $h->biblio(); |
| 87 |
my $hold = { |
89 |
my $hold = { |
| 88 |
DT_RowId => $h->reserve_id(), |
90 |
DT_RowId => $h->reserve_id(), |
| 89 |
biblionumber => $biblionumber, |
91 |
biblionumber => $biblionumber, |
| 90 |
title => $h->biblio()->title(), |
92 |
title => $biblio->title(), |
| 91 |
author => $h->biblio()->author(), |
93 |
subtitle => $biblio->subtitle() // '', |
|
|
94 |
medium => $biblio->medium() // '', |
| 95 |
part_number => $biblio->part_number() // '', |
| 96 |
part_name => $biblio->part_name() // '', |
| 97 |
author => $biblio->author(), |
| 92 |
reserve_id => $h->reserve_id(), |
98 |
reserve_id => $h->reserve_id(), |
| 93 |
branchcode => $h->branch()->branchname(), |
99 |
branchcode => $h->branch()->branchname(), |
| 94 |
branches => $libraries, |
100 |
branches => $libraries, |
|
Lines 102-112
while ( my $h = $holds_rs->next() ) {
Link Here
|
| 102 |
waiting_here => $h->branch()->branchcode() eq $branch, |
108 |
waiting_here => $h->branch()->branchcode() eq $branch, |
| 103 |
priority => $h->priority(), |
109 |
priority => $h->priority(), |
| 104 |
itemtype_limit => $itemtype_limit, |
110 |
itemtype_limit => $itemtype_limit, |
| 105 |
subtitle => GetRecordValue( |
|
|
| 106 |
'subtitle', |
| 107 |
GetMarcBiblio({ biblionumber => $biblionumber }), |
| 108 |
GetFrameworkCode($biblionumber) |
| 109 |
), |
| 110 |
reservedate_formatted => $h->reservedate() ? output_pref( |
111 |
reservedate_formatted => $h->reservedate() ? output_pref( |
| 111 |
{ dt => dt_from_string( $h->reservedate() ), dateonly => 1 } |
112 |
{ dt => dt_from_string( $h->reservedate() ), dateonly => 1 } |
| 112 |
) |
113 |
) |