|
Lines 225-274
unless( defined $invoice->{closedate} ) {
Link Here
|
| 225 |
for (my $i = 0 ; $i < $countpendings ; $i++) { |
225 |
for (my $i = 0 ; $i < $countpendings ; $i++) { |
| 226 |
my $order = $pendingorders->[$i]; |
226 |
my $order = $pendingorders->[$i]; |
| 227 |
|
227 |
|
| 228 |
if ( $bookseller->invoiceincgst ) { |
228 |
unless( !defined $order->{biblionumber} ){ # if this biblio has been deleted and the orderline hasn't been cancelled |
| 229 |
$order->{ecost} = $order->{ecost_tax_included}; |
229 |
if ( $bookseller->invoiceincgst ) { |
| 230 |
} else { |
230 |
$order->{ecost} = $order->{ecost_tax_included}; |
| 231 |
$order->{ecost} = $order->{ecost_tax_excluded}; |
231 |
} else { |
|
|
232 |
$order->{ecost} = $order->{ecost_tax_excluded}; |
| 233 |
} |
| 234 |
$order->{total} = $order->{ecost} * $order->{quantity}; |
| 235 |
|
| 236 |
my %line = %$order; |
| 237 |
|
| 238 |
$line{invoice} = $invoice; |
| 239 |
$line{booksellerid} = $booksellerid; |
| 240 |
|
| 241 |
my $biblionumber = $line{'biblionumber'}; |
| 242 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
| 243 |
my $countbiblio = CountBiblioInOrders($biblionumber); |
| 244 |
my $ordernumber = $line{'ordernumber'}; |
| 245 |
my $cnt_subscriptions = $biblio->subscriptions->count; |
| 246 |
my $itemcount = $biblio->items->count; |
| 247 |
my $holds_count = $biblio->holds->count; |
| 248 |
my @items = GetItemnumbersFromOrder( $ordernumber ); |
| 249 |
my $itemholds = $biblio ? $biblio->holds->search({ itemnumber => { -in => \@items } })->count : 0; |
| 250 |
|
| 251 |
my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber}); |
| 252 |
$line{suggestionid} = $suggestion->{suggestionid}; |
| 253 |
$line{surnamesuggestedby} = $suggestion->{surnamesuggestedby}; |
| 254 |
$line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby}; |
| 255 |
|
| 256 |
# if the biblio is not in other orders and if there is no items elsewhere and no subscriptions and no holds we can then show the link "Delete order and Biblio" see bug 5680 |
| 257 |
$line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !($cnt_subscriptions) && !($holds_count); |
| 258 |
$line{items} = ($itemcount) - (scalar @items); |
| 259 |
$line{left_item} = 1 if $line{items} >= 1; |
| 260 |
$line{left_biblio} = 1 if $countbiblio > 1; |
| 261 |
$line{biblios} = $countbiblio - 1; |
| 262 |
$line{left_subscription} = 1 if $cnt_subscriptions; |
| 263 |
$line{subscriptions} = $cnt_subscriptions; |
| 264 |
$line{left_holds} = ($holds_count >= 1) ? 1 : 0; |
| 265 |
$line{left_holds_on_order} = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds ); |
| 266 |
$line{holds} = $holds_count; |
| 267 |
$line{holds_on_order} = $itemholds?$itemholds:$holds_count if $line{left_holds_on_order}; |
| 268 |
|
| 269 |
my $budget_name = GetBudgetName( $line{budget_id} ); |
| 270 |
$line{budget_name} = $budget_name; |
| 271 |
|
| 272 |
push @loop_orders, \%line; |
| 232 |
} |
273 |
} |
| 233 |
$order->{total} = $order->{ecost} * $order->{quantity}; |
|
|
| 234 |
|
| 235 |
my %line = %$order; |
| 236 |
|
| 237 |
$line{invoice} = $invoice; |
| 238 |
$line{booksellerid} = $booksellerid; |
| 239 |
|
| 240 |
my $biblionumber = $line{'biblionumber'}; |
| 241 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
| 242 |
my $countbiblio = CountBiblioInOrders($biblionumber); |
| 243 |
my $ordernumber = $line{'ordernumber'}; |
| 244 |
my $cnt_subscriptions = $biblio->subscriptions->count; |
| 245 |
my $itemcount = $biblio->items->count; |
| 246 |
my $holds_count = $biblio->holds->count; |
| 247 |
my @items = GetItemnumbersFromOrder( $ordernumber ); |
| 248 |
my $itemholds = $biblio ? $biblio->holds->search({ itemnumber => { -in => \@items } })->count : 0; |
| 249 |
|
| 250 |
my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber}); |
| 251 |
$line{suggestionid} = $suggestion->{suggestionid}; |
| 252 |
$line{surnamesuggestedby} = $suggestion->{surnamesuggestedby}; |
| 253 |
$line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby}; |
| 254 |
|
| 255 |
# if the biblio is not in other orders and if there is no items elsewhere and no subscriptions and no holds we can then show the link "Delete order and Biblio" see bug 5680 |
| 256 |
$line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !($cnt_subscriptions) && !($holds_count); |
| 257 |
$line{items} = ($itemcount) - (scalar @items); |
| 258 |
$line{left_item} = 1 if $line{items} >= 1; |
| 259 |
$line{left_biblio} = 1 if $countbiblio > 1; |
| 260 |
$line{biblios} = $countbiblio - 1; |
| 261 |
$line{left_subscription} = 1 if $cnt_subscriptions; |
| 262 |
$line{subscriptions} = $cnt_subscriptions; |
| 263 |
$line{left_holds} = ($holds_count >= 1) ? 1 : 0; |
| 264 |
$line{left_holds_on_order} = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds ); |
| 265 |
$line{holds} = $holds_count; |
| 266 |
$line{holds_on_order} = $itemholds?$itemholds:$holds_count if $line{left_holds_on_order}; |
| 267 |
|
| 268 |
my $budget_name = GetBudgetName( $line{budget_id} ); |
| 269 |
$line{budget_name} = $budget_name; |
| 270 |
|
| 271 |
push @loop_orders, \%line; |
| 272 |
} |
274 |
} |
| 273 |
|
275 |
|
| 274 |
$template->param( |
276 |
$template->param( |
| 275 |
- |
|
|