|
Lines 69-74
use C4::Dates qw/format_date format_date_in_iso/;
Link Here
|
| 69 |
use C4::Suggestions; |
69 |
use C4::Suggestions; |
| 70 |
use JSON; |
70 |
use JSON; |
| 71 |
|
71 |
|
|
|
72 |
use C4::Reserves; |
| 73 |
|
| 72 |
my $input=new CGI; |
74 |
my $input=new CGI; |
| 73 |
|
75 |
|
| 74 |
sub get_value_with_gst_params { |
76 |
sub get_value_with_gst_params { |
|
Lines 130-135
unless( $invoiceid and $invoice->{invoiceid} ) {
Link Here
|
| 130 |
exit; |
132 |
exit; |
| 131 |
} |
133 |
} |
| 132 |
|
134 |
|
|
|
135 |
my $received_biblionumber = $input->param('resbiblionumber'); |
| 136 |
my $received_ordernumber = $input->param('resordernumber'); |
| 137 |
if ($received_biblionumber && $received_ordernumber) { |
| 138 |
my ($reserve_count, $title_reserves) = GetReservesFromBiblionumber($received_biblionumber); |
| 139 |
if ($reserve_count > 0) { |
| 140 |
|
| 141 |
my $bib_level_hold = 0; |
| 142 |
my @matches; |
| 143 |
|
| 144 |
my $received_biblio_data = GetBiblioData($received_biblionumber); |
| 145 |
my @received_items = GetItemnumbersFromOrder($received_ordernumber); |
| 146 |
|
| 147 |
foreach my $reserved_title (@$title_reserves) { |
| 148 |
my $reserve_itemnumber = $reserved_title->{itemnumber}; |
| 149 |
if (defined $reserve_itemnumber) { |
| 150 |
push(@matches, grep( $_ == $reserve_itemnumber, @received_items )); |
| 151 |
} |
| 152 |
else { |
| 153 |
$bib_level_hold++; |
| 154 |
} |
| 155 |
} |
| 156 |
|
| 157 |
if ($bib_level_hold > 0) { |
| 158 |
$template->param('bib_level_holds' => $bib_level_hold); |
| 159 |
} |
| 160 |
if (@matches) { |
| 161 |
my @reserve_barcodes; |
| 162 |
foreach my $itemnumber_match (@matches) { |
| 163 |
my $result_barcode = GetBarcodeFromItemnumber($itemnumber_match); |
| 164 |
push(@reserve_barcodes,$result_barcode); |
| 165 |
} |
| 166 |
if(@reserve_barcodes){ |
| 167 |
$template->param('item_level_holds' => \@reserve_barcodes); |
| 168 |
} |
| 169 |
} |
| 170 |
|
| 171 |
$template->param( |
| 172 |
bib_has_reserves => 1, |
| 173 |
bib_title => $received_biblio_data->{title}, |
| 174 |
); |
| 175 |
} |
| 176 |
} |
| 177 |
|
| 133 |
my $op = $input->param('op') // ''; |
178 |
my $op = $input->param('op') // ''; |
| 134 |
|
179 |
|
| 135 |
if ($op eq 'cancelreceipt') { |
180 |
if ($op eq 'cancelreceipt') { |