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') { |