[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/circ reserve.pl [rel_3_0]
From: |
Antoine Farnault |
Subject: |
[Koha-cvs] koha/circ reserve.pl [rel_3_0] |
Date: |
Mon, 08 Jan 2007 15:17:59 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: Antoine Farnault <toins> 07/01/08 15:17:59
Modified files:
circ : reserve.pl
Log message:
removing warn.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/reserve.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3.2.6&r2=1.3.2.7
Patches:
Index: reserve.pl
===================================================================
RCS file: /sources/koha/koha/circ/reserve.pl,v
retrieving revision 1.3.2.6
retrieving revision 1.3.2.7
diff -u -b -r1.3.2.6 -r1.3.2.7
--- reserve.pl 8 Jan 2007 15:09:44 -0000 1.3.2.6
+++ reserve.pl 8 Jan 2007 15:17:59 -0000 1.3.2.7
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: reserve.pl,v 1.3.2.6 2007/01/08 15:09:44 toins Exp $
+# $Id: reserve.pl,v 1.3.2.7 2007/01/08 15:17:59 toins Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -32,9 +32,6 @@
my $startdate=$input->param('from');
my $enddate=$input->param('to');
-warn "startdate=>".$startdate;
-warn "enddate=>".$enddate;
-
my $theme = $input->param('theme'); # only used if allowthemeoverride is set
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -73,8 +70,6 @@
$sqldatewhere .= " && reservedate >= " . $dbh->quote($startdate) if
($startdate) ;
$sqldatewhere .= " && reservedate <= " . $dbh->quote($enddate) if ($enddate) ;
-warn "order=>".$order;
-
if ($order eq "borrower") {
$sqlorderby = " order by borrower, reservedate";
} elsif ($order eq "biblio") {
@@ -114,8 +109,6 @@
my $sth = $dbh->prepare($strsth);
-warn $strsth;
-
$sth->execute();
my @reservedata;
- [Koha-cvs] koha/circ reserve.pl [rel_3_0],
Antoine Farnault <=