[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha shelves.pl,1.2,1.3
From: |
Steve Tonnesen |
Subject: |
[Koha-cvs] CVS: koha shelves.pl,1.2,1.3 |
Date: |
Tue, 02 Jul 2002 10:48:08 -0700 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv19606
Modified Files:
shelves.pl
Log Message:
Merged in updates from rel-1-2
Index: shelves.pl
===================================================================
RCS file: /cvsroot/koha/koha/shelves.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** shelves.pl 7 Feb 2001 23:47:43 -0000 1.2
--- shelves.pl 2 Jul 2002 17:48:06 -0000 1.3
***************
*** 4,9 ****
# $Header$
#
- # Change log is at the bottom of the file
- #
use strict;
--- 4,7 ----
***************
*** 46,49 ****
--- 44,48 ----
SWITCH: {
if ($query->param('viewshelf')) { viewshelf($query->param('viewshelf'));
last SWITCH;}
+ if ($query->param('shelves')) { shelves(); last SWITCH;}
print << "EOF";
<center>
***************
*** 63,69 ****
--- 62,119 ----
}
print "</table>\n";
+ print "<P><a href=shelves.pl?shelves=1>Add or Remove Book Shelves</a>\n";
+ }
+
+
+
+ sub shelves {
+ if (my $newshelf=$query->param('addshelf')) {
+ my ($status, $string) = AddShelf($env,$newshelf);
+ if ($status) {
+ print "<font color=red>$string</font><p>\n";
+ }
+ }
+ foreach ($query->param()) {
+ if (/DEL-(\d+)/) {
+ my $delshelf=$1;
+ my ($status, $string) = RemoveShelf($env,$delshelf);
+ if ($status) {
+ print "<font color=red>$string</font><p>\n";
+ }
+ }
+ }
+ my ($shelflist) = GetShelfList();
+ print << "EOF";
+ <center>
+ <a href=shelves.pl>Modify Shelf Contents</a><p>
+ <h1>Bookshelves</h1>
+ <table border=0 cellpadding=7>
+ <tr><td align=center>
+ <form method=post>
+ <input type=hidden name=shelves value=1>
+ <table border=0 cellpadding=0 cellspacing=0>
+ <tr><th bgcolor=$headerbackgroundcolor>
+ <font color=white>Select Shelves to Delete</font>
+ </th></tr>
+ EOF
+ my $color='';
+ my $color='';
+ foreach (sort keys %$shelflist) {
+ ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
+ print "<tr><td bgcolor=$color><input type=checkbox name=DEL-$_>
$shelflist->{$_}->{'shelfname'} ($shelflist->{$_}->{'count'}
books)</td></tr>\n";
+ }
+ print "</table>\n";
+ print '<p><input type=submit value="Delete Shelves"><p>';
+ print "</td><td align=center valign=top>\n";
+ print "<form method=post>\n";
+ print "<input type=hidden name=shelves value=1>\n";
+ print "<p>Add Shelf: <input name=addshelf size=25><p>\n";
+ print '<p><input type=submit value="Add New Shelf"><p>';
+ print "</form>\n";
+ print "</td></tr></table>\n";
}
+
sub viewshelf {
my $shelfnumber=shift;
***************
*** 117,125 ****
#
# $Log$
! # Revision 1.2 2001/02/07 23:47:43 tonnesen
! # Added header and log substition variables
#
! # Revision 1.1 2001/02/07 20:27:16 tonnesen
! # Start of code to implement virtual bookshelves in Koha.
#
#
--- 167,176 ----
#
# $Log$
! # Revision 1.3 2002/07/02 17:48:06 tonnesen
! # Merged in updates from rel-1-2
#
! # Revision 1.2.2.1 2002/06/26 20:28:15 tonnesen
! # Some udpates that I made here locally a while ago. Still won't be useful,
but
! # should be functional
#
#
***************
*** 128,129 ****
--- 179,182 ----
+ print endpage();
+ print endmenu('catalogue');
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha shelves.pl,1.2,1.3,
Steve Tonnesen <=