[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