Attachment #19336 for bug #5349

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

Lines 939-949 sub GetOrders { Link Here

(-)a/C4/Acquisition.pm (-27 / +24 lines)
939	SELECT biblio.,biblioitems.,	939	SELECT biblio.,biblioitems.,
940	aqorders.*,	940	aqorders.*,
941	aqbudgets.*,	941	aqbudgets.*,
942	biblio.title	942	biblio.title,
		943	aqorders_transfers.ordernumber_from AS transferred_from,
		944	aqorders_transfers.timestamp AS transferred_from_timestamp
943	FROM aqorders	945	FROM aqorders
944	LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id	946	LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
945	LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber	947	LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
946	LEFT JOIN biblioitems ON biblioitems.biblionumber =biblio.biblionumber	948	LEFT JOIN biblioitems ON biblioitems.biblionumber =biblio.biblionumber
		949	LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber
947	WHERE basketno=?	950	WHERE basketno=?
948	AND (datecancellationprinted IS NULL OR datecancellationprinted='0000-00-00')	951	AND (datecancellationprinted IS NULL OR datecancellationprinted='0000-00-00')
949	";	952	";
Lines 1352-1362 sub GetCancelledOrders { Link Here
1352		1355
1353	my $dbh = C4::Context->dbh;	1356	my $dbh = C4::Context->dbh;
1354	my $query = "	1357	my $query = "
1355	SELECT biblio., biblioitems., aqorders., aqbudgets.	1358	SELECT
		1359	biblio.*,
		1360	biblioitems.*,
		1361	aqorders.*,
		1362	aqbudgets.*,
		1363	aqorders_transfers.ordernumber_to AS transferred_to,
		1364	aqorders_transfers.timestamp AS transferred_to_timestamp
1356	FROM aqorders	1365	FROM aqorders
1357	LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id	1366	LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id
1358	LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber	1367	LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber
1359	LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber	1368	LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber
		1369	LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_from = aqorders.ordernumber
1360	WHERE basketno = ?	1370	WHERE basketno = ?
1361	AND (datecancellationprinted IS NOT NULL	1371	AND (datecancellationprinted IS NOT NULL
1362	AND datecancellationprinted <> '0000-00-00')	1372	AND datecancellationprinted <> '0000-00-00')
Lines 1704-1745 sub TransferOrder { Link Here
1704		1714
1705	my $order = GetOrder( $ordernumber );	1715	my $order = GetOrder( $ordernumber );
1706	return if $order->{datereceived};	1716	return if $order->{datereceived};
		1717	my $basket = GetBasket($basketno);
		1718	return unless $basket;
1707		1719
1708	my $today = C4::Dates->new()->output("iso");
1709	my $query = qq{
1710	SELECT aqbooksellers.name
1711	FROM aqorders
1712	LEFT JOIN aqbasket ON aqorders.basketno = aqbasket.basketno
1713	LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
1714	WHERE aqorders.ordernumber = ?
1715	};
1716	my $dbh = C4::Context->dbh;	1720	my $dbh = C4::Context->dbh;
1717	my $sth = $dbh->prepare($query);	1721	my ($query, $sth, $rv);
1718	$sth->execute($ordernumber);
1719	my ($booksellerfromname) = $sth->fetchrow_array;
1720
1721	$query = qq{
1722	SELECT aqbooksellers.name
1723	FROM aqbasket
1724	LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
1725	WHERE aqbasket.basketno = ?
1726	};
1727	$sth = $dbh->prepare($query);
1728	$sth->execute($basketno);
1729	my ($booksellertoname) = $sth->fetchrow_array;
1730		1722
1731	$query = qq{	1723	$query = qq{
1732	UPDATE aqorders	1724	UPDATE aqorders
1733	SET datecancellationprinted = CAST(NOW() AS date),	1725	SET datecancellationprinted = CAST(NOW() AS date)
1734	internalnotes = ?
1735	WHERE ordernumber = ?	1726	WHERE ordernumber = ?
1736	};	1727	};
1737	$sth = $dbh->prepare($query);	1728	$sth = $dbh->prepare($query);
1738	$sth->execute("Cancelled and transfered to $booksellertoname on $today", $ordernumber);	1729	$rv = $sth->execute($ordernumber);
1739		1730
1740	delete $order->{'ordernumber'};	1731	delete $order->{'ordernumber'};
1741	$order->{'basketno'} = $basketno;	1732	$order->{'basketno'} = $basketno;
1742	$order->{'internalnotes'} = "Transfered from $booksellerfromname on $today";
1743	my $newordernumber;	1733	my $newordernumber;
1744	(undef, $newordernumber) = NewOrder($order);	1734	(undef, $newordernumber) = NewOrder($order);
1745		1735
Lines 1751-1756 sub TransferOrder { Link Here
1751	$sth = $dbh->prepare($query);	1741	$sth = $dbh->prepare($query);
1752	$sth->execute($newordernumber, $ordernumber);	1742	$sth->execute($newordernumber, $ordernumber);
1753		1743
		1744	$query = q{
		1745	INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to)
		1746	VALUES (?, ?)
		1747	};
		1748	$sth = $dbh->prepare($query);
		1749	$sth->execute($ordernumber, $newordernumber);
		1750
1754	return $newordernumber;	1751	return $newordernumber;
1755	}	1752	}
1756		1753




        last;
    }

    my @cancelledorders = GetCancelledOrders($basketno);
    foreach (@cancelledorders) {
        $_->{'line_total'} = sprintf("%.2f", $_->{'ecost'} * $_->{'quantity'});
    }

    $template->param(
        basketno             => $basketno,
        basketname           => $basket->{'basketname'},

        name                 => $bookseller->{'name'},
        books_loop           => \@books_loop,
        book_foot_loop       => \@book_foot_loop,
        cancelledorders_loop => \@cancelledorders_loop,
        total_quantity       => $total_quantity,
        total_gste           => sprintf( "%.2f", $total_gste ),
        total_gsti           => sprintf( "%.2f", $total_gsti ),

    $line{surnamesuggestedby}   = $$suggestion{surnamesuggestedby};
    $line{firstnamesuggestedby} = $$suggestion{firstnamesuggestedby};

    foreach my $key (qw(transferred_from transferred_to)) {
        if ($line{$key}) {
            my $order = GetOrder($line{$key});
            my $basket = GetBasket($order->{basketno});
            my $bookseller = GetBookSellerFromId($basket->{booksellerid});
            $line{$key} = {
                order => $order,
                basket => $basket,
                bookseller => $bookseller,
                timestamp => $line{$key . '_timestamp'},
            };
        }
    }

    return \%line;
}





  `cancelledby` varchar(10) default NULL, -- not used? always NULL
  `datecancellationprinted` date default NULL, -- the date the line item was deleted
  `notes` mediumtext, -- notes related to this order line
  internalnotes mediumtext DEFAULT NULL, -- used by Koha to store some informations, not editable by librarians
  `supplierreference` mediumtext, -- not used? always NULL
  `purchaseordernumber` mediumtext, -- not used? always NULL
  `basketno` int(11) default NULL, -- links this order line to a specific basket (aqbasket.basketno)



--
-- Table structure for table aqorders_transfers
--

DROP TABLE IF EXISTS aqorders_transfers;
CREATE TABLE aqorders_transfers (
  ordernumber_from int(11) NULL,
  ordernumber_to int(11) NULL,
  timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
  UNIQUE KEY ordernumber_from (ordernumber_from),
  UNIQUE KEY ordernumber_to (ordernumber_to),
  CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
  CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

--
-- Table structure for table aqinvoices
--






$DBversion = "XXX";
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
    $dbh->do(qq{DROP TABLE IF EXISTS aqorders_transfers;});
    $dbh->do(qq{
        CREATE TABLE aqorders_transfers (
          ordernumber_from int(11) NULL,
          ordernumber_to int(11) NULL,
          timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
          UNIQUE KEY ordernumber_from (ordernumber_from),
          UNIQUE KEY ordernumber_to (ordernumber_to),
          CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
          CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
    });
    print "Upgrade to $DBversion done (Add aqorders_transfers table)\n";
    SetVersion($DBversion);
}


Lines 343-349 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/basket.tt (-3 / +24 lines)
343	[% ELSE %]	343	[% ELSE %]
344	<p>[<a href="/cgi-bin/koha/acqui/modordernotes.pl?ordernumber=[% books_loo.ordernumber %]">Add note</a>]</p>	344	<p>[<a href="/cgi-bin/koha/acqui/modordernotes.pl?ordernumber=[% books_loo.ordernumber %]">Add note</a>]</p>
345	[% END %]	345	[% END %]
346	<p>[% books_loo.internalnotes %]</p>	346	[% IF (books_loo.transferred_from) %]
		347	[% basket = books_loo.transferred_from.basket %]
		348	[% bookseller = books_loo.transferred_from.bookseller %]
		349	[% timestamp = books_loo.transferred_from.timestamp %]
		350	<p>Transferred from
		351	<a href="/cgi-bin/koha/acqui/basket.pl?basketno=[% basket.basketno %]">basket: [% basket.basketname %]</a>
		352	(<a href="/cgi-bin/koha/acqui/supplier.pl?booksellerid=[% bookseller.id %]">[% bookseller.name %]</a>)
		353	on <span title="[% timestamp \| $KohaDates with_hours = 1 %]">
		354	[% timestamp \| $KohaDates %]
		355	</span>
		356	</p>
		357	[% END %]
347	</td>	358	</td>
348	<td class="number gste [% IF books_loo.rrpgste.search('^0') %]error[% END %]">[% books_loo.rrpgste %]</td>	359	<td class="number gste [% IF books_loo.rrpgste.search('^0') %]error[% END %]">[% books_loo.rrpgste %]</td>
349	<td class="number gste [% IF books_loo.ecostgste.search('^0') %]error[% END %]">[% books_loo.ecostgste %]</td>	360	<td class="number gste [% IF books_loo.ecostgste.search('^0') %]error[% END %]">[% books_loo.ecostgste %]</td>
Lines 435-441 Link Here
435	[% IF ( order.publicationyear ) %], [% order.publicationyear %][% END %]	446	[% IF ( order.publicationyear ) %], [% order.publicationyear %][% END %]
436	[% IF ( books_loo.editionstatement ) %], [% books_loo.editionstatement %][% END %]	447	[% IF ( books_loo.editionstatement ) %], [% books_loo.editionstatement %][% END %]
437	</p>	448	</p>
438	<p>[% order.internalnotes %]</p>	449	[% IF order.transferred_to %]
		450	[% basket = order.transferred_to.basket %]
		451	[% bookseller = order.transferred_to.bookseller %]
		452	[% timestamp = order.transferred_to.timestamp %]
		453	<p>Transferred to
		454	<a href="/cgi-bin/koha/acqui/basket.pl?basketno=[% basket.basketno %]">basket: [% basket.basketname %]</a>
		455	(<a href="/cgi-bin/koha/acqui/supplier.pl?booksellerid=[% bookseller.id %]">[% bookseller.name %]</a>)
		456	on <span title="[% timestamp \| $KohaDates with_hours = 1%]">
		457	[% timestamp \| $KohaDates %]
		458	</span>
		459	</p>
		460	[% END %]
439	</td>	461	</td>
440	<td class="number gste">[% order.rrpgste %]</td>	462	<td class="number gste">[% order.rrpgste %]</td>
441	<td class="number gste">[% order.ecostgste %]</td>	463	<td class="number gste">[% order.ecostgste %]</td>
442	-

Return to bug 5349

Lines 308-318 if ( $op eq 'delete_confirm' ) { Link Here

(-)a/acqui/basket.pl (-6 / +15 lines)
308	last;	308	last;
309	}	309	}
310		310
311	my @cancelledorders = GetCancelledOrders($basketno);
312	foreach (@cancelledorders) {
313	$_->{'line_total'} = sprintf("%.2f", $_->{'ecost'} * $_->{'quantity'});
314	}
315
316	$template->param(	311	$template->param(
317	basketno => $basketno,	312	basketno => $basketno,
318	basketname => $basket->{'basketname'},	313	basketname => $basket->{'basketname'},
Lines 332-338 if ( $op eq 'delete_confirm' ) { Link Here
332	name => $bookseller->{'name'},	327	name => $bookseller->{'name'},
333	books_loop => \@books_loop,	328	books_loop => \@books_loop,
334	book_foot_loop => \@book_foot_loop,	329	book_foot_loop => \@book_foot_loop,
335	cancelledorders_loop => \@cancelledorders,	330	cancelledorders_loop => \@cancelledorders_loop,
336	total_quantity => $total_quantity,	331	total_quantity => $total_quantity,
337	total_gste => sprintf( "%.2f", $total_gste ),	332	total_gste => sprintf( "%.2f", $total_gste ),
338	total_gsti => sprintf( "%.2f", $total_gsti ),	333	total_gsti => sprintf( "%.2f", $total_gsti ),
Lines 428-433 sub get_order_infos { Link Here
428	$line{surnamesuggestedby} = $$suggestion{surnamesuggestedby};	423	$line{surnamesuggestedby} = $$suggestion{surnamesuggestedby};
429	$line{firstnamesuggestedby} = $$suggestion{firstnamesuggestedby};	424	$line{firstnamesuggestedby} = $$suggestion{firstnamesuggestedby};
430		425
		426	foreach my $key (qw(transferred_from transferred_to)) {
		427	if ($line{$key}) {
		428	my $order = GetOrder($line{$key});
		429	my $basket = GetBasket($order->{basketno});
		430	my $bookseller = GetBookSellerFromId($basket->{booksellerid});
		431	$line{$key} = {
		432	order => $order,
		433	basket => $basket,
		434	bookseller => $bookseller,
		435	timestamp => $line{$key . '_timestamp'},
		436	};
		437	}
		438	}
		439
431	return \%line;	440	return \%line;
432	}	441	}
433		442

Lines 2911-2917 CREATE TABLE `aqorders` ( -- information related to the basket line items Link Here

(-)a/installer/data/mysql/kohastructure.sql (-1 / +15 lines)
2911	`cancelledby` varchar(10) default NULL, -- not used? always NULL	2911	`cancelledby` varchar(10) default NULL, -- not used? always NULL
2912	`datecancellationprinted` date default NULL, -- the date the line item was deleted	2912	`datecancellationprinted` date default NULL, -- the date the line item was deleted
2913	`notes` mediumtext, -- notes related to this order line	2913	`notes` mediumtext, -- notes related to this order line
2914	internalnotes mediumtext DEFAULT NULL, -- used by Koha to store some informations, not editable by librarians
2915	`supplierreference` mediumtext, -- not used? always NULL	2914	`supplierreference` mediumtext, -- not used? always NULL
2916	`purchaseordernumber` mediumtext, -- not used? always NULL	2915	`purchaseordernumber` mediumtext, -- not used? always NULL
2917	`basketno` int(11) default NULL, -- links this order line to a specific basket (aqbasket.basketno)	2916	`basketno` int(11) default NULL, -- links this order line to a specific basket (aqbasket.basketno)
Lines 2960-2965 CREATE TABLE `aqorders_items` ( -- information on items entered in the acquisiti Link Here
2960		2959
2961		2960
2962	--	2961	--
		2962	-- Table structure for table aqorders_transfers
		2963	--
		2964
		2965	DROP TABLE IF EXISTS aqorders_transfers;
		2966	CREATE TABLE aqorders_transfers (
		2967	ordernumber_from int(11) NULL,
		2968	ordernumber_to int(11) NULL,
		2969	timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		2970	UNIQUE KEY ordernumber_from (ordernumber_from),
		2971	UNIQUE KEY ordernumber_to (ordernumber_to),
		2972	CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
		2973	CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
		2974	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
		2975
		2976	--
2963	-- Table structure for table aqinvoices	2977	-- Table structure for table aqinvoices
2964	--	2978	--
2965		2979

Lines 7012-7022 CREATE TABLE IF NOT EXISTS borrower_files ( Link Here

(-)a/installer/data/mysql/updatedatabase.pl (-3 / +11 lines)
7012		7012
7013	$DBversion = "XXX";	7013	$DBversion = "XXX";
7014	if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {	7014	if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
		7015	$dbh->do(qq{DROP TABLE IF EXISTS aqorders_transfers;});
7015	$dbh->do(qq{	7016	$dbh->do(qq{
7016	ALTER TABLE aqorders	7017	CREATE TABLE aqorders_transfers (
7017	ADD COLUMN internalnotes MEDIUMTEXT DEFAULT NULL AFTER notes	7018	ordernumber_from int(11) NULL,
		7019	ordernumber_to int(11) NULL,
		7020	timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
		7021	UNIQUE KEY ordernumber_from (ordernumber_from),
		7022	UNIQUE KEY ordernumber_to (ordernumber_to),
		7023	CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
		7024	CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
		7025	) ENGINE=InnoDB DEFAULT CHARSET=utf8;
7018	});	7026	});
7019	print "Upgrade to $DBversion done (Add internalnotes field in aqorders table)\n";	7027	print "Upgrade to $DBversion done (Add aqorders_transfers table)\n";
7020	SetVersion($DBversion);	7028	SetVersion($DBversion);
7021	}	7029	}
7022		7030