[Koha-cvs] CVS: koha/circ circulation.pl,1.56,1.57
Jerome Vizcaino
plugz at users.sourceforge.net
Tue Jul 1 13:22:50 CEST 2003
Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1:/tmp/cvs-serv22681
Modified Files:
circulation.pl
Log Message:
Added allowborrow to the template parameters to check if a borrower can borrow books or not according to the "borrow" flag.
Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -r1.56 -r1.57
*** circulation.pl 26 Jun 2003 09:31:39 -0000 1.56
--- circulation.pl 1 Jul 2003 11:22:48 -0000 1.57
***************
*** 203,207 ****
--- 203,211 ----
my @realtodayissues;
my @realprevissues;
+ my $allowborrow;
+ my $hash;
if ($borrower) {
+ ($borrower, $flags,$hash) = getpatroninformation(\%env,$borrowernumber,0);
+ $allowborrow= $hash->{'borrow'};
my @todaysissues;
my @previousissues;
***************
*** 230,242 ****
$book->{'tcolor'}=$tcolor;
push @realtodayissues,$book
! }
# FIXME - For small and private libraries, it'd be nice if this
# table included a "Return" link next to each book, so that you
# don't have to remember the book's bar code and type it in on the
# "Returns" page.
!
# This is in the template now, so its possible for a small library to make that link in their
# template
!
foreach my $book (sort {$a->{'date_due'} cmp $b->{'date_due'}} @previousissues){
my $dd = $book->{'date_due'};
--- 234,246 ----
$book->{'tcolor'}=$tcolor;
push @realtodayissues,$book
! }
# FIXME - For small and private libraries, it'd be nice if this
# table included a "Return" link next to each book, so that you
# don't have to remember the book's bar code and type it in on the
# "Returns" page.
!
# This is in the template now, so its possible for a small library to make that link in their
# template
!
foreach my $book (sort {$a->{'date_due'} cmp $b->{'date_due'}} @previousissues){
my $dd = $book->{'date_due'};
***************
*** 296,299 ****
--- 300,304 ----
branchname => $branches->{$branch}->{'branchname'},
printername => $printers->{$printer}->{'printername'},
+ allowborrow =>$allowborrow,
#question form
More information about the Koha-cvs
mailing list