|
Lines 643-650
$hashref->{'name'} is the 'name' field of the basketgroup in the aqbasketgroups
Link Here
|
| 643 |
|
643 |
|
| 644 |
$hashref->{'basketlist'} is a list reference of the 'id's of the baskets that belong to this group, |
644 |
$hashref->{'basketlist'} is a list reference of the 'id's of the baskets that belong to this group, |
| 645 |
|
645 |
|
|
|
646 |
$hashref->{'billingplace'} is the 'billingplace' field of the basketgroup in the aqbasketgroups table, |
| 647 |
|
| 646 |
$hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table, |
648 |
$hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table, |
| 647 |
|
649 |
|
|
|
650 |
$hashref->{'freedeliveryplace'} is the 'freedeliveryplace' field of the basketgroup in the aqbasketgroups table, |
| 651 |
|
| 648 |
$hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table, |
652 |
$hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table, |
| 649 |
|
653 |
|
| 650 |
$hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise. |
654 |
$hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise. |
|
Lines 656-663
sub NewBasketgroup {
Link Here
|
| 656 |
die "booksellerid is required to create a basketgroup" unless $basketgroupinfo->{'booksellerid'}; |
660 |
die "booksellerid is required to create a basketgroup" unless $basketgroupinfo->{'booksellerid'}; |
| 657 |
my $query = "INSERT INTO aqbasketgroups ("; |
661 |
my $query = "INSERT INTO aqbasketgroups ("; |
| 658 |
my @params; |
662 |
my @params; |
| 659 |
foreach my $field ('name', 'deliveryplace', 'deliverycomment', 'closed') { |
663 |
foreach my $field (qw(name billingplace deliveryplace freedeliveryplace deliverycomment closed)) { |
| 660 |
if ( $basketgroupinfo->{$field} ) { |
664 |
if ( defined $basketgroupinfo->{$field} ) { |
| 661 |
$query .= "$field, "; |
665 |
$query .= "$field, "; |
| 662 |
push(@params, $basketgroupinfo->{$field}); |
666 |
push(@params, $basketgroupinfo->{$field}); |
| 663 |
} |
667 |
} |
|
Lines 700-705
$hashref->{'billingplace'} is the 'billingplace' field of the basketgroup in the
Link Here
|
| 700 |
|
704 |
|
| 701 |
$hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table, |
705 |
$hashref->{'deliveryplace'} is the 'deliveryplace' field of the basketgroup in the aqbasketgroups table, |
| 702 |
|
706 |
|
|
|
707 |
$hashref->{'freedeliveryplace'} is the 'freedeliveryplace' field of the basketgroup in the aqbasketgroups table, |
| 708 |
|
| 703 |
$hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table, |
709 |
$hashref->{'deliverycomment'} is the 'deliverycomment' field of the basketgroup in the aqbasketgroups table, |
| 704 |
|
710 |
|
| 705 |
$hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise. |
711 |
$hashref->{'closed'} is the 'closed' field of the aqbasketgroups table, it is false if 0, true otherwise. |