Lines 1589-1595
cancelled.
Link Here
|
1589 |
=cut |
1589 |
=cut |
1590 |
|
1590 |
|
1591 |
sub DelOrder { |
1591 |
sub DelOrder { |
1592 |
my ($ordernumber,$bibnum) = @_; |
1592 |
my ($ordernumber,$biblionumber) = @_; |
1593 |
my $dbh = C4::Context->dbh; |
1593 |
my $dbh = C4::Context->dbh; |
1594 |
my $query = " |
1594 |
my $query = " |
1595 |
UPDATE aqorders |
1595 |
UPDATE aqorders |
Lines 1599-1608
sub DelOrder {
Link Here
|
1599 |
my $sth = $dbh->prepare($query); |
1599 |
my $sth = $dbh->prepare($query); |
1600 |
$sth->execute($ordernumber ); |
1600 |
$sth->execute($ordernumber ); |
1601 |
$sth->finish; |
1601 |
$sth->finish; |
1602 |
if ($bibnum) { |
1602 |
if ($biblionumber) { |
1603 |
my @itemnumbers = GetItemnumbersFromOrder( $ordernumber ); |
1603 |
my @itemnumbers = GetItemnumbersFromOrder( $ordernumber ); |
1604 |
foreach my $itemnumber (@itemnumbers){ |
1604 |
foreach my $itemnumber (@itemnumbers){ |
1605 |
C4::Items::DelItem( $dbh, $bibnum, $itemnumber ); |
1605 |
C4::Items::DelItem( $dbh, $biblionumber, $itemnumber ); |
1606 |
} |
1606 |
} |
1607 |
} |
1607 |
} |
1608 |
} |
1608 |
} |
Lines 2023-2030
sub GetHistory {
Link Here
|
2023 |
SELECT |
2023 |
SELECT |
2024 |
biblio.title, |
2024 |
biblio.title, |
2025 |
biblio.author, |
2025 |
biblio.author, |
2026 |
biblioitems.isbn, |
2026 |
biblioitems.isbn, |
2027 |
biblioitems.ean, |
2027 |
biblioitems.ean, |
2028 |
aqorders.basketno, |
2028 |
aqorders.basketno, |
2029 |
aqbasket.basketname, |
2029 |
aqbasket.basketname, |
2030 |
aqbasket.basketgroupid, |
2030 |
aqbasket.basketgroupid, |
Lines 2044-2052
sub GetHistory {
Link Here
|
2044 |
LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno |
2044 |
LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno |
2045 |
LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid=aqbasketgroups.id |
2045 |
LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid=aqbasketgroups.id |
2046 |
LEFT JOIN aqbooksellers ON aqbasket.booksellerid=aqbooksellers.id |
2046 |
LEFT JOIN aqbooksellers ON aqbasket.booksellerid=aqbooksellers.id |
2047 |
LEFT JOIN biblioitems ON biblioitems.biblionumber=aqorders.biblionumber |
2047 |
LEFT JOIN biblioitems ON biblioitems.biblionumber=aqorders.biblionumber |
2048 |
LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber |
2048 |
LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber |
2049 |
LEFT JOIN aqinvoices ON aqorders.invoiceid = aqinvoices.invoiceid"; |
2049 |
LEFT JOIN aqinvoices ON aqorders.invoiceid = aqinvoices.invoiceid"; |
2050 |
|
2050 |
|
2051 |
$query .= " LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber" |
2051 |
$query .= " LEFT JOIN borrowers ON aqbasket.authorisedby=borrowers.borrowernumber" |
2052 |
if ( C4::Context->preference("IndependentBranches") ); |
2052 |
if ( C4::Context->preference("IndependentBranches") ); |
2053 |
- |
|
|