[Koha-cvs] CVS: koha/opac opac-shelves.pl,1.4,1.5

[Owen Leonard]

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

Modified Files:
        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.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** opac-shelves.pl     13 Jan 2005 20:41:07 -0000      1.4
--- opac-shelves.pl     27 Jan 2005 17:27:11 -0000      1.5
***************
*** 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,37 ----
***************
*** 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.5  2005/01/27 17:27:11  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.4  2005/01/13 20:41:07  oleonard
  # Adding call number and item type to list of returned variables