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 466-471 if ( $op eq "add" ) { Link Here
466
            name              => $basketgroupname,
466
            name              => $basketgroupname,
467
            booksellerid      => $booksellerid,
467
            booksellerid      => $booksellerid,
468
            basketlist        => \@baskets,
468
            basketlist        => \@baskets,
469
            billingplace      => $billingplace,
469
            deliveryplace     => $deliveryplace,
470
            deliveryplace     => $deliveryplace,
470
            freedeliveryplace => $freedeliveryplace,
471
            freedeliveryplace => $freedeliveryplace,
471
            deliverycomment   => $deliverycomment,
472
            deliverycomment   => $deliverycomment,
472
- 

Return to bug 7449