[Koha-cvs] CVS: koha/circ branchtransfers.pl,1.19,1.20 circulation.pl,1.49,1.50 returns.pl,1.28,1.29

[Paul POULAIN]

Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1:/tmp/cvs-serv22223/circ

Modified Files:
	branchtransfers.pl circulation.pl returns.pl 
Log Message:
some fixes, and links to themelang/images

Index: branchtransfers.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/branchtransfers.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** branchtransfers.pl	6 Feb 2003 05:10:54 -0000	1.19
--- branchtransfers.pl	11 Mar 2003 15:13:18 -0000	1.20
***************
*** 31,34 ****
--- 31,35 ----
  use C4::Interface::CGI::Output;
  use HTML::Template;
+ use C4::Koha;
  
  ###############################################
***************
*** 36,45 ****
  
  my %env;
- my $headerbackgroundcolor='#99cc33';
- my $circbackgroundcolor='#ffffcc';
- my $circbackgroundcolor='white';
  my $linecolor1='#ffffcc';
  my $linecolor2='white';
- my $backgroundimage="/images/background-mem.gif";
  
  my $branches = getbranches();
--- 37,42 ----
***************
*** 259,264 ****
  								printer => $printer,
  								found => $found,
- 								hdrbckgdcolor => $headerbackgroundcolor,
- 								bckgdimg => $backgroundimage,
  								reserved => $reserved,
  								waiting => $waiting,
--- 256,259 ----

Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -r1.49 -r1.50
*** circulation.pl	10 Mar 2003 15:16:30 -0000	1.49
--- circulation.pl	11 Mar 2003 15:13:20 -0000	1.50
***************
*** 325,329 ****
  		rejected => $rejected,
  		message => $message,
! 		CGIseleborrower => $CGIselectborrower,
  
  		patrontable => $patrontable,
--- 325,329 ----
  		rejected => $rejected,
  		message => $message,
! 		CGIselectborrower => $CGIselectborrower,
  
  		patrontable => $patrontable,
***************
*** 455,459 ****
  	$issues[$i]=$borrowerissues->{$_};
  	my $dd=$issues[$i]->{'date_due'};
- #	warn $_,$dd;
  	#convert to nz style dates
  	#this should be set with some kinda config variable
--- 455,458 ----
***************
*** 465,469 ****
  	$issues[$i]=$borroweriss2->{$_};
  	my $dd=$issues[$i]->{'date_due'};
- #	warn $_,$dd;
  	#convert to nz style dates
  	#this should be set with some kinda config variable
--- 464,467 ----

Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -r1.28 -r1.29
*** returns.pl	6 Feb 2003 05:10:55 -0000	1.28
--- returns.pl	11 Mar 2003 15:13:24 -0000	1.29
***************
*** 35,39 ****
  use C4::Interface::CGI::Output;
  use HTML::Template;
! 
  
  my $query=new CGI;
--- 35,39 ----
  use C4::Interface::CGI::Output;
  use HTML::Template;
! use C4::Koha;
  
  my $query=new CGI;
***************
*** 51,59 ****
  my %env;
  my $headerbackgroundcolor='#99cc33';
- my $circbackgroundcolor='#ffffcc';
- my $circbackgroundcolor='white';
  my $linecolor1='#ffffcc';
  my $linecolor2='white';
- my $backgroundimage="/images/background-mem.gif";
  
  my $branches = getbranches();
--- 51,56 ----
***************
*** 371,376 ****
  			branch => $branch,
  			printer => $printer,
- 			hdrbckgdcolor => $headerbackgroundcolor,
- 			bckgdimg => $backgroundimage,
  			errmsgloop => \@errmsgloop
  		);
--- 368,371 ----