[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