[Koha-cvs] CVS: koha/opac opac-shelves.pl,1.3.2.2,1.3.2.3

[Owen Leonard]

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

Modified Files:
      Tag: rel_2_2
	opac-shelves.pl 
Log Message:
Taking table cell background color information out of the script and moving it into the template (requires update to opac-shelves.tmpl)

Index: opac-shelves.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-shelves.pl,v
retrieving revision 1.3.2.2
retrieving revision 1.3.2.3
diff -C2 -r1.3.2.2 -r1.3.2.3
*** opac-shelves.pl	11 Jan 2005 20:18:29 -0000	1.3.2.2
--- opac-shelves.pl	27 Jan 2005 17:18:28 -0000	1.3.2.3
***************
*** 34,42 ****
  my $env;
  my $query = new CGI;
! my $headerbackgroundcolor='#663266';
! my $circbackgroundcolor='#555555';
! my $circbackgroundcolor='#550000';
! my $linecolor1='#bbbbbb';
! my $linecolor2='#dddddd';
  my ($template, $loggedinuser, $cookie)
      = get_template_and_user({template_name => "opac-shelves.tmpl",
--- 34,38 ----
  my $env;
  my $query = new CGI;
! 
  my ($template, $loggedinuser, $cookie)
      = get_template_and_user({template_name => "opac-shelves.tmpl",
***************
*** 63,68 ****
  
  $template->param({	loggedinuser => $loggedinuser,
! 					headerbackgroundcolor => $headerbackgroundcolor,
! 					circbackgroundcolor => $circbackgroundcolor });
  SWITCH: {
  	if ($query->param('op') eq 'modifsave') {
--- 59,63 ----
  
  $template->param({	loggedinuser => $loggedinuser,
! 				});
  SWITCH: {
  	if ($query->param('op') eq 'modifsave') {
***************
*** 95,99 ****
  foreach my $element (sort keys %$shelflist) {
  		my %line;
! 		($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
  		$line{'color'}= $color;
  		$line{'shelf'}=$element;
--- 90,94 ----
  foreach my $element (sort keys %$shelflist) {
  		my %line;
! 		($color eq 0) ? ($color=1) : ($color=0);
  		$line{'color'}= $color;
  		$line{'shelf'}=$element;
***************
*** 147,151 ****
  	foreach my $element (sort keys %$shelflist) {
  		my %line;
! 		($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
  		$line{'color'}=$color;
  		$line{'shelf'}=$element;
--- 142,146 ----
  	foreach my $element (sort keys %$shelflist) {
  		my %line;
! 		($color eq 0) ? ($color=1) : ($color=0);
  		$line{'color'}=$color;
  		$line{'shelf'}=$element;
***************
*** 169,173 ****
  	foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) {
  		my %line;
! 		($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
  		$line{'color'}=$color;
  		$line{'itemnumber'}=$item->{'itemnumber'};
--- 164,168 ----
  	foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) {
  		my %line;
! 		($color eq 0) ? ($color=1) : ($color=0);
  		$line{'color'}=$color;
  		$line{'itemnumber'}=$item->{'itemnumber'};
***************
*** 190,193 ****
--- 185,191 ----
  #
  # $Log$
+ # Revision 1.3.2.3  2005/01/27 17:18:28  oleonard
+ # Taking table cell background color information out of the script and moving it into the template (requires update to opac-shelves.tmpl)
+ #
  # Revision 1.3.2.2  2005/01/11 20:18:29  oleonard
  # Adding call number and item type to list of returned variables