[Koha-cvs] koha/bookshelves shelves.pl [dev_week]

[Owen Leonard]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Owen Leonard <oleonard> 06/09/25 19:56:18

Modified files:
        bookshelves    : shelves.pl 

Log message:
        Adding ccode variable, removing some old hard-coded color-related stuff

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/bookshelves/shelves.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.5.2.5&r2=1.5.2.5.2.1

Patches:
Index: shelves.pl
===================================================================
RCS file: /sources/koha/koha/bookshelves/shelves.pl,v
retrieving revision 1.5.2.5
retrieving revision 1.5.2.5.2.1
diff -u -b -r1.5.2.5 -r1.5.2.5.2.1
--- shelves.pl  5 Feb 2006 21:59:21 -0000       1.5.2.5
+++ shelves.pl  25 Sep 2006 19:56:18 -0000      1.5.2.5.2.1
@@ -2,7 +2,7 @@
 #script to provide bookshelf management
 # WARNING: This file uses 4-character tabs!
 #
-# $Header: /sources/koha/koha/bookshelves/shelves.pl,v 1.5.2.5 2006/02/05 
21:59:21 kados Exp $
+# $Header: /sources/koha/koha/bookshelves/shelves.pl,v 1.5.2.5.2.1 2006/09/25 
19:56:18 oleonard Exp $
 #
 # Copyright 2000-2002 Katipo Communications
 #
@@ -33,11 +33,6 @@
 
 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 => "bookshelves/shelves.tmpl",
                                                        query => $query,
@@ -63,8 +58,7 @@
 my ($shelflist) = GetShelfList($loggedinuser,2);
 
 $template->param({     loggedinuser => $loggedinuser,
-                                       headerbackgroundcolor => 
$headerbackgroundcolor,
-                                       circbackgroundcolor => 
$circbackgroundcolor });
+                                       });
 SWITCH: {
        if ($query->param('op') eq 'modifsave') {
                
ModifShelf($query->param('shelfnumber'),$query->param('shelfname'),$loggedinuser,$query->param('category'));
@@ -181,6 +175,7 @@
                $line{'author'}=$item->{'author'};
                $line{'publicationyear'}=$item->{'publicationyear'};
                $line{'itemtype'}=$item->{'itemtype'};
+               $line{'ccode'}=$item->{'ccode'};
                $line{biblionumber} = $item->{biblionumber};
                push(@itemsloop, \%line);
        }
@@ -194,6 +189,9 @@
 
 #
 # $Log: shelves.pl,v $
+# Revision 1.5.2.5.2.1  2006/09/25 19:56:18  oleonard
+# Adding ccode variable, removing some old hard-coded color-related stuff
+#
 # Revision 1.5.2.5  2006/02/05 21:59:21  kados
 # Adds script support for IntranetNav ... see mail to koha-devel for
 # details