View | Details | Raw Unified | Return to bug 7449
Collapse All | Expand All

(-)a/C4/Acquisition.pm (-2 / +8 lines)
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.
(-)a/acqui/basketgroup.pl (-1 / +1 lines)
Lines 453-458 if ( $op eq "add" ) { Link Here
453
            name              => $basketgroupname,
453
            name              => $basketgroupname,
454
            booksellerid      => $booksellerid,
454
            booksellerid      => $booksellerid,
455
            basketlist        => \@baskets,
455
            basketlist        => \@baskets,
456
            billingplace      => $billingplace,
456
            deliveryplace     => $deliveryplace,
457
            deliveryplace     => $deliveryplace,
457
            freedeliveryplace => $freedeliveryplace,
458
            freedeliveryplace => $freedeliveryplace,
458
            deliverycomment   => $deliverycomment,
459
            deliverycomment   => $deliverycomment,
459
- 

Return to bug 7449