[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