Attachment #14920 for bug #9503

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





sub GetInvoiceDetails {
    my ($invoiceid) = @_;
    my $invoice;

    if ( !defined $invoiceid ) {
        carp 'GetInvoiceDetails called without an invoiceid';
        return;
    }

    my $dbh = C4::Context->dbh;
    my $query = qq{

    my $sth = $dbh->prepare($query);
    $sth->execute($invoiceid);

    my $invoice = $sth->fetchrow_hashref;

    $query = qq{
        SELECT aqorders.*, biblio.*

Lines 91-97 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/histsearch.tt (-2 / +1 lines)
91	[% END %]	91	[% END %]
92	</td>	92	</td>
93	<td>[% IF ( suggestions_loo.invoicenumber ) %]	93	<td>[% IF ( suggestions_loo.invoicenumber ) %]
94	<a href="/cgi-bin/koha/acqui/parcel.pl?invoice=[% suggestions_loo.invoicenumber %]&booksellerid=[% suggestions_loo.id %]&datereceived=[% suggestions_loo.datereceived %]">[% suggestions_loo.invoicenumber %]</a>	94	<a href="/cgi-bin/koha/acqui/parcel.pl?invoiceid=[% suggestions_loo.invoicenumber %]&booksellerid=[% suggestions_loo.id %]&datereceived=[% suggestions_loo.datereceived %]">[% suggestions_loo.invoicenumber %]</a>
95	[% ELSE %]	95	[% ELSE %]
96		96
97	[% END %]	97	[% END %]
98	-

Return to bug 9503

Lines 2319-2327 Orders informations are in $invoice->{orders} (array ref) Link Here

(-)a/C4/Acquisition.pm (-3 / +5 lines)
2319		2319
2320	sub GetInvoiceDetails {	2320	sub GetInvoiceDetails {
2321	my ($invoiceid) = @_;	2321	my ($invoiceid) = @_;
2322	my $invoice;
2323		2322
2324	return unless $invoiceid;	2323	if ( !defined $invoiceid ) {
		2324	carp 'GetInvoiceDetails called without an invoiceid';
		2325	return;
		2326	}
2325		2327
2326	my $dbh = C4::Context->dbh;	2328	my $dbh = C4::Context->dbh;
2327	my $query = qq{	2329	my $query = qq{
Lines 2333-2339 sub GetInvoiceDetails { Link Here
2333	my $sth = $dbh->prepare($query);	2335	my $sth = $dbh->prepare($query);
2334	$sth->execute($invoiceid);	2336	$sth->execute($invoiceid);
2335		2337
2336	$invoice = $sth->fetchrow_hashref;	2338	my $invoice = $sth->fetchrow_hashref;
2337		2339
2338	$query = qq{	2340	$query = qq{
2339	SELECT aqorders., biblio.	2341	SELECT aqorders., biblio.