Lines 297-303
my $op = $input->param('op') || 'display';
Link Here
|
297 |
# possible values of $op : |
297 |
# possible values of $op : |
298 |
# - add : adds a new basketgroup, or edit an open basketgroup, or display a closed basketgroup |
298 |
# - add : adds a new basketgroup, or edit an open basketgroup, or display a closed basketgroup |
299 |
# - mod_basket : modify an individual basket of the basketgroup |
299 |
# - mod_basket : modify an individual basket of the basketgroup |
300 |
# - validate : FIXME dead code |
|
|
301 |
# - closeandprint : close and print an closed basketgroup in pdf. called by clicking on "Close and print" button in closed basketgroups list |
300 |
# - closeandprint : close and print an closed basketgroup in pdf. called by clicking on "Close and print" button in closed basketgroups list |
302 |
# - print : print a closed basketgroup. called by clicking on "Print" button in closed basketgroups list |
301 |
# - print : print a closed basketgroup. called by clicking on "Print" button in closed basketgroups list |
303 |
# - export : export in CSV a closed basketgroup. called by clicking on "Export" button in closed basketgroups list |
302 |
# - export : export in CSV a closed basketgroup. called by clicking on "Export" button in closed basketgroups list |
Lines 387-433
if ( $op eq "add" ) {
Link Here
|
387 |
ModBasket( { basketno => $basketno, |
386 |
ModBasket( { basketno => $basketno, |
388 |
basketgroupid => $basketgroupid } ); |
387 |
basketgroupid => $basketgroupid } ); |
389 |
print $input->redirect("basket.pl?basketno=" . $basketno); |
388 |
print $input->redirect("basket.pl?basketno=" . $basketno); |
390 |
} elsif ($op eq 'validate') { |
|
|
391 |
# |
392 |
# FIXME dead code |
393 |
# |
394 |
if(! $booksellerid){ |
395 |
$template->param( booksellererror => 1); |
396 |
} else { |
397 |
$template->param( booksellerid => $booksellerid ); |
398 |
} |
399 |
my $baskets = parseinputbaskets($booksellerid); |
400 |
my ($basketgroups, $newbasketgroups) = parseinputbasketgroups($booksellerid, $baskets); |
401 |
foreach my $nbgid (keys %$newbasketgroups){ |
402 |
#javascript just picks an ID that's higher than anything else, the ID might not be correct..change it and change all the basket's basketgroupid as well |
403 |
my $bgid = NewBasketgroup($newbasketgroups->{$nbgid}); |
404 |
${$newbasketgroups->{$nbgid}}->{'id'} = $bgid; |
405 |
${$newbasketgroups->{$nbgid}}->{'oldid'} = $nbgid; |
406 |
} |
407 |
foreach my $basket (@$baskets){ |
408 |
#if the basket was added to a new basketgroup, first change the groupid to the groupid of the basket in mysql, because it contains the id from javascript otherwise. |
409 |
if ( $basket->{'basketgroupid'} && $newbasketgroups->{$basket->{'basketgroupid'}} ){ |
410 |
$basket->{'basketgroupid'} = ${$newbasketgroups->{$basket->{'basketgroupid'}}}->{'id'}; |
411 |
} |
412 |
ModBasket($basket); |
413 |
} |
414 |
foreach my $basketgroup (@$basketgroups){ |
415 |
if(! $basketgroup->{'id'}){ |
416 |
foreach my $basket (@{$basketgroup->{'baskets'}}){ |
417 |
if($input->param('basket'.$basket->{'basketno'}.'changed')){ |
418 |
ModBasket($basket); |
419 |
} |
420 |
} |
421 |
} elsif ($input->param('basketgroup-'.$basketgroup->{'id'}.'-changed')){ |
422 |
ModBasketgroup($basketgroup); |
423 |
} |
424 |
} |
425 |
$basketgroups = &GetBasketgroups($booksellerid); |
426 |
my $bookseller = &GetBookSellerFromId($booksellerid); |
427 |
$baskets = &GetBasketsByBookseller($booksellerid); |
428 |
# keep ungroupedbaskets |
429 |
|
430 |
displaybasketgroups($basketgroups, $bookseller, $baskets); |
431 |
} elsif ( $op eq 'closeandprint') { |
389 |
} elsif ( $op eq 'closeandprint') { |
432 |
# |
390 |
# |
433 |
# close an open basketgroup and generates a pdf |
391 |
# close an open basketgroup and generates a pdf |
434 |
- |
|
|