Lines 424-430
sub CloseBasketgroup {
Link Here
|
424 |
my $dbh = C4::Context->dbh; |
424 |
my $dbh = C4::Context->dbh; |
425 |
my $sth = $dbh->prepare(" |
425 |
my $sth = $dbh->prepare(" |
426 |
UPDATE aqbasketgroups |
426 |
UPDATE aqbasketgroups |
427 |
SET closed=1 |
427 |
SET closed=1, |
|
|
428 |
closeddate=CAST(NOW() AS DATE) |
428 |
WHERE id=? |
429 |
WHERE id=? |
429 |
"); |
430 |
"); |
430 |
$sth->execute($basketgroupno); |
431 |
$sth->execute($basketgroupno); |
Lines 445-451
sub ReOpenBasketgroup {
Link Here
|
445 |
my $dbh = C4::Context->dbh; |
446 |
my $dbh = C4::Context->dbh; |
446 |
my $sth = $dbh->prepare(" |
447 |
my $sth = $dbh->prepare(" |
447 |
UPDATE aqbasketgroups |
448 |
UPDATE aqbasketgroups |
448 |
SET closed=0 |
449 |
SET closed=0, closeddate=NULL |
449 |
WHERE id=? |
450 |
WHERE id=? |
450 |
"); |
451 |
"); |
451 |
$sth->execute($basketgroupno); |
452 |
$sth->execute($basketgroupno); |
Lines 858-867
sub NewBasketgroup {
Link Here
|
858 |
push(@params, $basketgroupinfo->{$field}); |
859 |
push(@params, $basketgroupinfo->{$field}); |
859 |
} |
860 |
} |
860 |
} |
861 |
} |
|
|
862 |
|
863 |
if ($basketgroupinfo->{closed}) { |
864 |
$query .= "closeddate, "; |
865 |
} |
861 |
$query .= "booksellerid) VALUES ("; |
866 |
$query .= "booksellerid) VALUES ("; |
862 |
foreach (@params) { |
867 |
foreach (@params) { |
863 |
$query .= "?, "; |
868 |
$query .= "?, "; |
864 |
} |
869 |
} |
|
|
870 |
if ($basketgroupinfo->{closed}) { |
871 |
$query .= "CAST(NOW() AS DATE), "; |
872 |
} |
865 |
$query .= "?)"; |
873 |
$query .= "?)"; |
866 |
push(@params, $basketgroupinfo->{'booksellerid'}); |
874 |
push(@params, $basketgroupinfo->{'booksellerid'}); |
867 |
my $dbh = C4::Context->dbh; |
875 |
my $dbh = C4::Context->dbh; |
Lines 910-915
sub ModBasketgroup {
Link Here
|
910 |
my $dbh = C4::Context->dbh; |
918 |
my $dbh = C4::Context->dbh; |
911 |
my $query = "UPDATE aqbasketgroups SET "; |
919 |
my $query = "UPDATE aqbasketgroups SET "; |
912 |
my @params; |
920 |
my @params; |
|
|
921 |
|
922 |
if ($basketgroupinfo->{closed}) { |
923 |
$query .= "closeddate = IF(closed = 0, CAST(NOW() AS DATE), closeddate), "; |
924 |
} elsif (defined $basketgroupinfo->{closed}) { |
925 |
$query .= "closeddate = NULL, "; |
926 |
} |
927 |
|
913 |
foreach my $field (qw(name billingplace deliveryplace freedeliveryplace deliverycomment closed)) { |
928 |
foreach my $field (qw(name billingplace deliveryplace freedeliveryplace deliverycomment closed)) { |
914 |
if ( defined $basketgroupinfo->{$field} ) { |
929 |
if ( defined $basketgroupinfo->{$field} ) { |
915 |
$query .= "$field=?, "; |
930 |
$query .= "$field=?, "; |