[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/circ circulation.pl transferstodo.pl trans...
From: |
LAURIN arnaud |
Subject: |
[Koha-cvs] koha/circ circulation.pl transferstodo.pl trans... |
Date: |
Fri, 04 May 2007 10:18:00 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: LAURIN arnaud <alaurin> 07/05/04 10:18:00
Modified files:
circ : circulation.pl transferstodo.pl
transferstoreceive.pl waitingreserves.pl
Log message:
bugfixing for circulation.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&r1=1.112&r2=1.113
http://cvs.savannah.gnu.org/viewcvs/koha/circ/transferstodo.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/circ/transferstoreceive.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/circ/waitingreserves.pl?cvsroot=koha&r1=1.3&r2=1.4
Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -b -r1.112 -r1.113
--- circulation.pl 25 Apr 2007 14:07:34 -0000 1.112
+++ circulation.pl 4 May 2007 10:18:00 -0000 1.113
@@ -266,7 +266,7 @@
# new op dev
# now we show the status of the borrower's reservations
- my @borrowerreserv = GetReservesFromBorrowernumber$borrowernumber );
+ my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
my @reservloop;
my @WaitingReserveLoop;
Index: transferstodo.pl
===================================================================
RCS file: /sources/koha/koha/circ/transferstodo.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- transferstodo.pl 24 Apr 2007 09:07:53 -0000 1.2
+++ transferstodo.pl 4 May 2007 10:18:00 -0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: transferstodo.pl,v 1.2 2007/04/24 09:07:53 tipaul Exp $
+# $Id: transferstodo.pl,v 1.3 2007/05/04 10:18:00 alaurin Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -85,7 +85,6 @@
my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} );
# use Data::Dumper;
# warn Dumper($gettitle);
- warn "ITEM : ".$gettitle->{'title'};
my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} );
if ( $gettitle->{'holdingbranch'} eq $default ) {
my $getborrower =
@@ -118,7 +117,6 @@
$getreserv{'borrowermail'} = $getborrower->{'emailaddress'};
$getreserv{'borrowerphone'} = $getborrower->{'phone'};
push( @reservloop, \%getreserv );
- warn "=".$getreserv{'title'}.">>".$gettitle->{'title'};
}
}
Index: transferstoreceive.pl
===================================================================
RCS file: /sources/koha/koha/circ/transferstoreceive.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- transferstoreceive.pl 24 Apr 2007 16:10:36 -0000 1.2
+++ transferstoreceive.pl 4 May 2007 10:18:00 -0000 1.3
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: transferstoreceive.pl,v 1.2 2007/04/24 16:10:36 tipaul Exp $
+# $Id: transferstoreceive.pl,v 1.3 2007/05/04 10:18:00 alaurin Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -29,7 +29,7 @@
use C4::Biblio;
use C4::Circulation;
use C4::Members;
-use C4::Interface::CGI::Output;
+#use C4::Interface::CGI::Output;
use Date::Calc qw(
Today
Add_Delta_Days
Index: waitingreserves.pl
===================================================================
RCS file: /sources/koha/koha/circ/waitingreserves.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- waitingreserves.pl 24 Apr 2007 16:10:36 -0000 1.3
+++ waitingreserves.pl 4 May 2007 10:18:00 -0000 1.4
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: waitingreserves.pl,v 1.3 2007/04/24 16:10:36 tipaul Exp $
+# $Id: waitingreserves.pl,v 1.4 2007/05/04 10:18:00 alaurin Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -20,9 +20,9 @@
# Suite 330, Boston, MA 02111-1307 USA
use strict;
+use CGI;
use C4::Context;
use C4::Output;
-use CGI;
use C4::Branch; # GetBranchName
use C4::Auth;
use C4::Date;
@@ -37,7 +37,7 @@
);
use C4::Reserves;
use C4::Koha;
-use C4::Interface::CGI::Output;
+# use C4::Interface::CGI::Output;
my $input = new CGI;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/circ circulation.pl transferstodo.pl trans...,
LAURIN arnaud <=