[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.7,1.8
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.7,1.8 |
Date: |
Tue, 19 Oct 2004 05:24:59 -0700 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15688/C4
Modified Files:
Acquisition.pm
Log Message:
adding search orders history feature
Index: Acquisition.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisition.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** Acquisition.pm 5 Oct 2004 09:22:16 -0000 1.7
--- Acquisition.pm 19 Oct 2004 12:24:57 -0000 1.8
***************
*** 54,58 ****
&getorders &getallorders &getrecorders
&getorder &neworder &delorder
! &ordersearch
&modorder &getsingleorder &invoice &receiveorder
&updaterecorder &newordernum
--- 54,58 ----
&getorders &getallorders &getrecorders
&getorder &neworder &delorder
! &ordersearch &histsearch
&modorder &getsingleorder &invoice &receiveorder
&updaterecorder &newordernum
***************
*** 596,599 ****
--- 596,620 ----
}
+
+ sub histsearch {
+ my ($title,$author,$name)address@hidden;
+ my $dbh= C4::Context->dbh;
+ my $query = "select
biblio.title,aqorders.basketno,name,aqbasket.creationdate,aqorders.datereceived,
aqorders.quantity
+ from
aqorders,aqbasket,aqbooksellers,biblio
+ where
aqorders.basketno=aqbasket.basketno and aqbasket.booksellerid=aqbooksellers.id
and
+
biblio.biblionumber=aqorders.biblionumber";
+ $query .= " and biblio.title like ".$dbh->quote("%".$title."%") if
$title;
+ $query .= " and biblio.author like ".$dbh->quote("%".$author."%") if
$author;
+ $query .= " and name like ".$dbh->quote("%".$name."%") if $name;
+ warn "Q : $query";
+ my $sth = $dbh->prepare($query);
+ $sth->execute;
+ my @order_loop;
+ while (my $line = $sth->fetchrow_hashref) {
+ push @order_loop, $line;
+ }
+ return address@hidden;
+ }
+
#
#
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Acquisition.pm,1.7,1.8,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/acqui histsearch.pl,NONE,1.1
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/acqui histsearch.tmpl,NONE,1.1 acqui-home.tmpl,1.13,1.14
- Previous by thread:
[Koha-cvs] CVS: koha/acqui histsearch.pl,NONE,1.1
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/acqui histsearch.tmpl,NONE,1.1 acqui-home.tmpl,1.13,1.14
- Index(es):