[Koha-cvs] koha/bookshelves shelves.pl [dev_week]
Owen Leonard
oleonard at athenscounty.lib.oh.us
Mon Sep 25 21:56:18 CEST 2006
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
More information about the Koha-cvs
mailing list