|
Lines 251-314
if ( $op eq "add" ) {
Link Here
|
| 251 |
# the template will know if basketgroup must be displayed or edited, depending on the value of closed key |
251 |
# the template will know if basketgroup must be displayed or edited, depending on the value of closed key |
| 252 |
# |
252 |
# |
| 253 |
my $bookseller = &GetBookSellerFromId($booksellerid); |
253 |
my $bookseller = &GetBookSellerFromId($booksellerid); |
| 254 |
if(! $booksellerid){ |
254 |
my $basketgroupid = $input->param('basketgroupid'); |
| 255 |
# Unknown bookseller |
255 |
my $billingplace; |
| 256 |
# FIXME : ungroupedlist does not seem to be used in this file nor in template |
256 |
my $deliveryplace; |
| 257 |
$template->param( ungroupedlist => 1); |
257 |
my $freedeliveryplace; |
| 258 |
my @booksellers = GetBookSeller(''); |
258 |
if ( $basketgroupid ) { |
| 259 |
for (my $i=0; $i < scalar @booksellers; $i++) { |
259 |
# Get the selected baskets in the basketgroup to display them |
| 260 |
my $baskets = &GetBasketsByBookseller($booksellers[$i]->{id}); |
260 |
my $selecteds = GetBasketsByBasketgroup($basketgroupid); |
| 261 |
for (my $j=0; $j < scalar @$baskets; $j++) { |
261 |
foreach my $basket(@{$selecteds}){ |
| 262 |
if(! @$baskets[$i]->{closedate} || @$baskets[$i]->{basketgroupid}) { |
262 |
$basket->{total} = BasketTotal($basket->{basketno}, $bookseller); |
| 263 |
splice(@$baskets, $j, 1); |
|
|
| 264 |
$j--; |
| 265 |
} |
| 266 |
} |
| 267 |
if (scalar @$baskets == 0){ |
| 268 |
splice(@booksellers, $i, 1); |
| 269 |
$i--; |
| 270 |
} |
| 271 |
} |
263 |
} |
|
|
264 |
$template->param(basketgroupid => $basketgroupid, |
| 265 |
selectedbaskets => $selecteds); |
| 266 |
|
| 267 |
# Get general informations about the basket group to prefill the form |
| 268 |
my $basketgroup = GetBasketgroup($basketgroupid); |
| 269 |
$template->param( |
| 270 |
name => $basketgroup->{name}, |
| 271 |
deliverycomment => $basketgroup->{deliverycomment}, |
| 272 |
freedeliveryplace => $basketgroup->{freedeliveryplace}, |
| 273 |
); |
| 274 |
$billingplace = $basketgroup->{billingplace}; |
| 275 |
$deliveryplace = $basketgroup->{deliveryplace}; |
| 276 |
$freedeliveryplace = $basketgroup->{freedeliveryplace}; |
| 277 |
$template->param( closedbg => ($basketgroup ->{'closed'}) ? 1 : 0); |
| 272 |
} else { |
278 |
} else { |
| 273 |
# Known bookseller |
279 |
$template->param( closedbg => 0); |
| 274 |
my $basketgroupid = $input->param('basketgroupid'); |
|
|
| 275 |
my $billingplace; |
| 276 |
my $deliveryplace; |
| 277 |
my $freedeliveryplace; |
| 278 |
if ( $basketgroupid ) { |
| 279 |
# Get the selected baskets in the basketgroup to display them |
| 280 |
my $selecteds = GetBasketsByBasketgroup($basketgroupid); |
| 281 |
foreach my $basket(@{$selecteds}){ |
| 282 |
$basket->{total} = BasketTotal($basket->{basketno}, $bookseller); |
| 283 |
} |
| 284 |
$template->param(basketgroupid => $basketgroupid, |
| 285 |
selectedbaskets => $selecteds); |
| 286 |
|
| 287 |
# Get general informations about the basket group to prefill the form |
| 288 |
my $basketgroup = GetBasketgroup($basketgroupid); |
| 289 |
$template->param( |
| 290 |
name => $basketgroup->{name}, |
| 291 |
deliverycomment => $basketgroup->{deliverycomment}, |
| 292 |
freedeliveryplace => $basketgroup->{freedeliveryplace}, |
| 293 |
); |
| 294 |
$billingplace = $basketgroup->{billingplace}; |
| 295 |
$deliveryplace = $basketgroup->{deliveryplace}; |
| 296 |
$freedeliveryplace = $basketgroup->{freedeliveryplace}; |
| 297 |
$template->param( closedbg => ($basketgroup ->{'closed'}) ? 1 : 0); |
| 298 |
} else { |
| 299 |
$template->param( closedbg => 0); |
| 300 |
} |
| 301 |
# determine default billing and delivery places depending on librarian homebranch and existing basketgroup data |
| 302 |
my $borrower = GetMember( ( 'borrowernumber' => $loggedinuser ) ); |
| 303 |
$billingplace = $billingplace || $borrower->{'branchcode'}; |
| 304 |
$deliveryplace = $deliveryplace || $borrower->{'branchcode'}; |
| 305 |
|
| 306 |
my $branches = C4::Branch::GetBranchesLoop( $billingplace ); |
| 307 |
$template->param( billingplaceloop => $branches ); |
| 308 |
$branches = C4::Branch::GetBranchesLoop( $deliveryplace ); |
| 309 |
$template->param( deliveryplaceloop => $branches ); |
| 310 |
$template->param( booksellerid => $booksellerid ); |
| 311 |
} |
280 |
} |
|
|
281 |
# determine default billing and delivery places depending on librarian homebranch and existing basketgroup data |
| 282 |
my $borrower = GetMember( ( 'borrowernumber' => $loggedinuser ) ); |
| 283 |
$billingplace = $billingplace || $borrower->{'branchcode'}; |
| 284 |
$deliveryplace = $deliveryplace || $borrower->{'branchcode'}; |
| 285 |
|
| 286 |
my $branches = C4::Branch::GetBranchesLoop( $billingplace ); |
| 287 |
$template->param( billingplaceloop => $branches ); |
| 288 |
$branches = C4::Branch::GetBranchesLoop( $deliveryplace ); |
| 289 |
$template->param( deliveryplaceloop => $branches ); |
| 290 |
$template->param( booksellerid => $booksellerid ); |
| 291 |
|
| 312 |
# the template will display a unique basketgroup |
292 |
# the template will display a unique basketgroup |
| 313 |
$template->param(grouping => 1); |
293 |
$template->param(grouping => 1); |
| 314 |
my $basketgroups = &GetBasketgroups($booksellerid); |
294 |
my $basketgroups = &GetBasketgroups($booksellerid); |
| 315 |
- |
|
|