[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/circ waitingreservestransfers.pl
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/circ waitingreservestransfers.pl |
Date: |
Tue, 17 Apr 2007 08:45:37 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: paul poulain <tipaul> 07/04/17 08:45:37
Modified files:
circ : waitingreservestransfers.pl
Log message:
circulation cleaning continued: bufixing
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/waitingreservestransfers.pl?cvsroot=koha&r1=1.8&r2=1.9
Patches:
Index: waitingreservestransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/waitingreservestransfers.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- waitingreservestransfers.pl 4 Apr 2007 16:46:23 -0000 1.8
+++ waitingreservestransfers.pl 17 Apr 2007 08:45:37 -0000 1.9
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: waitingreservestransfers.pl,v 1.8 2007/04/04 16:46:23 tipaul Exp $
+# $Id: waitingreservestransfers.pl,v 1.9 2007/04/17 08:45:37 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -27,6 +27,8 @@
use C4::Auth;
use C4::Date;
use C4::Circulation;
+use C4::Reserves2;
+use C4::Members;
use Date::Calc qw(
Today
Add_Delta_Days
@@ -37,8 +39,6 @@
my $input = new CGI;
-my $theme = $input->param('theme'); # only used if allowthemeoverride is set
-
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "circ/waitingreservestransfers.tmpl",
@@ -77,25 +77,22 @@
my %branchloop;
$branchloop{'branchname'} = $branches->{$br}->{'branchname'};
$branchloop{'branchcode'} = $branches->{$br}->{'branchcode'};
-
- # warn " branch=>".$branches->{$br}->{'branchcode'};
my @getreserves =
- GetReservesToBranch( $branches->{$br}->{'branchcode'}, $default );
+ GetReservesToBranch( $branches->{$br}->{'branchcode'} );
if (@getreserves) {
foreach my $num (@getreserves) {
my %getreserv;
my %env;
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 =
GetMemberDetails( $num->{'borrowernumber'} );
$getreserv{'reservedate'} =
format_date( $num->{'reservedate'} );
-
-#my
$calcDate=DateCalc($num->{'reservedate'},"+".C4::Context->preference('TransfersMaxDaysWarning')."
days");
-#my $warning=Date_Cmp(ParseDate("today"),$calcDate);
-
my ( $reserve_year, $reserve_month, $reserve_day ) = split /-/,
$num->{'reservedate'};
( $reserve_year, $reserve_month, $reserve_day ) =
@@ -119,12 +116,10 @@
$getreserv{'borrowernum'} =
$getborrower->{'borrowernumber'};
$getreserv{'borrowername'} = $getborrower->{'surname'};
$getreserv{'borrowerfirstname'} = $getborrower->{'firstname'};
-
- if ( $getborrower->{'emailaddress'} ) {
$getreserv{'borrowermail'} =
$getborrower->{'emailaddress'};
- }
$getreserv{'borrowerphone'} = $getborrower->{'phone'};
push( @reservloop, \%getreserv );
+ warn "=".$getreserv{'title'}.">>".$gettitle->{'title'};
}
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/circ waitingreservestransfers.pl,
paul poulain <=