[Koha-cvs] CVS: koha/circ circulation.pl,1.86,1.87

[Waylon Robertson]

Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5493

Modified Files:
        circulation.pl 
Log Message:
modified script to enable circulation system to show picture of borrower for 
verification purposes.

Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.86
retrieving revision 1.87
diff -C2 -r1.86 -r1.87
*** circulation.pl      19 Jul 2005 18:52:37 -0000      1.86
--- circulation.pl      22 Aug 2005 12:53:48 -0000      1.87
***************
*** 121,124 ****
--- 121,127 ----
  # get the borrower information.....
  my $borrower;
+ my $picture;
+ 
+ 
  if ($borrowernumber) {
        $borrower = getpatroninformation(\%env,$borrowernumber,0);
***************
*** 127,130 ****
--- 130,139 ----
                                                        issuecount => $issue,
                                                        finetotal => $fines);
+                                                       my $htdocs = 
C4::Context->config('intrahtdocs');
+                                                       $picture = 
"/borrowerimages/".$borrowernumber.".jpg";
+                                                       if (-e 
$htdocs."$picture")
+                                                       { 
+                                                               
$template->param(picture => $picture)
+                                                       };
  }