koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/C4 Acquisition.pm


From: Mason James
Subject: [Koha-cvs] koha/C4 Acquisition.pm
Date: Wed, 12 Jul 2006 14:30:08 +0000

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Mason James <sushi>     06/07/12 14:30:07

Modified files:
        C4             : Acquisition.pm 

Log message:
        adding aqorders.ordernumber to histsearch(), so so user can click url 
to ordernuber record via .tmpl.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Acquisition.pm?cvsroot=koha&r1=1.38&r2=1.39

Patches:
Index: Acquisition.pm
===================================================================
RCS file: /sources/koha/koha/C4/Acquisition.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- Acquisition.pm      12 Jul 2006 14:26:13 -0000      1.38
+++ Acquisition.pm      12 Jul 2006 14:30:07 -0000      1.39
@@ -30,7 +30,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.38 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.39 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 # used in reciveorder subroutine
 # to provide library specific handling
@@ -1013,7 +1013,7 @@
     if ( $title || $author || $name || $from_placed_on || $to_placed_on ) {
         my $dbh   = C4::Context->dbh;
         my $query =
-"select 
biblio.title,biblio.author,aqorders.basketno,name,aqbasket.creationdate,aqorders.datereceived,
 aqorders.quantity, aqorders.quantityreceived, aqorders.ecost from 
aqorders,aqbasket,aqbooksellers,biblio";
+"select 
biblio.title,biblio.author,aqorders.basketno,name,aqbasket.creationdate,aqorders.datereceived,
 aqorders.quantity, aqorders.quantityreceived, aqorders.ecost, 
aqorders.ordernumber from aqorders,aqbasket,aqbooksellers,biblio";
         $query .= ",borrowers "
           if ( C4::Context->preference("IndependantBranches") );
         $query .=




reply via email to

[Prev in Thread] Current Thread [Next in Thread]