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. |