From 895de92f08204fdacc1d2d3c782665777311cdfd Mon Sep 17 00:00:00 2001 From: tipaul Date: Wed, 10 Mar 2004 15:08:18 +0000 Subject: [PATCH] modifying shelves : introducing category of shelf : private, public, free for all --- bookshelves/addbookbybiblionumber.pl | 5 +- bookshelves/shelves.pl | 220 +++++++++++++++++++++++++++ 2 files changed, 224 insertions(+), 1 deletion(-) create mode 100755 bookshelves/shelves.pl diff --git a/bookshelves/addbookbybiblionumber.pl b/bookshelves/addbookbybiblionumber.pl index 69d8dfd0b3..26219f255b 100755 --- a/bookshelves/addbookbybiblionumber.pl +++ b/bookshelves/addbookbybiblionumber.pl @@ -51,7 +51,7 @@ if ($shelfnumber) { flagsrequired => {catalogue => 1}, }); - my ($shelflist) = GetShelfList(); + my ($shelflist) = GetShelfList($loggedinuser,3); my @shelvesloop; my %shelvesloop; foreach my $element (sort keys %$shelflist) { @@ -74,6 +74,9 @@ if ($shelfnumber) { output_html_with_http_headers $query, $cookie, $template->output; } # $Log$ +# Revision 1.1.2.2 2004/03/10 15:08:18 tipaul +# modifying shelves : introducing category of shelf : private, public, free for all +# # Revision 1.1.2.1 2004/02/19 10:14:36 tipaul # new feature : adding book to bookshelf from biblio detail screen. # diff --git a/bookshelves/shelves.pl b/bookshelves/shelves.pl new file mode 100755 index 0000000000..fc375275ab --- /dev/null +++ b/bookshelves/shelves.pl @@ -0,0 +1,220 @@ +#!/usr/bin/perl +#script to provide bookshelf management +# WARNING: This file uses 4-character tabs! +# +# $Header$ +# +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use strict; +use C4::Search; +use CGI; +use C4::Output; +use C4::BookShelves; +use C4::Circulation::Circ2; +use C4::Auth; +use C4::Interface::CGI::Output; +use HTML::Template; + +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, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + }); + +if ($query->param('modifyshelfcontents')) { + my $shelfnumber=$query->param('shelfnumber'); + my $barcode=$query->param('addbarcode'); + my ($item) = getiteminformation($env, 0, $barcode); + if (ShelfPossibleAction($loggedinuser,$shelfnumber,'manage')) { + AddToShelf($env, $item->{'itemnumber'}, $shelfnumber); + foreach ($query->param) { + if (/REM-(\d*)/) { + my $itemnumber=$1; + RemoveFromShelf($env, $itemnumber, $shelfnumber); + } + } + } +} +my ($shelflist) = GetShelfList($loggedinuser,2); + +$template->param({ loggedinuser => $loggedinuser, + headerbackgroundcolor => $headerbackgroundcolor, + circbackgroundcolor => $circbackgroundcolor }); +SWITCH: { + if ($query->param('viewshelf')) { viewshelf($query->param('viewshelf')); last SWITCH;} + if ($query->param('shelves')) { shelves(); last SWITCH;} +} + +($shelflist) = GetShelfList($loggedinuser,2); # rebuild shelflist in case a shelf has been added + +my $color=''; +my @shelvesloop; +foreach my $element (sort keys %$shelflist) { + my %line; + ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); + $line{'color'}= $color; + $line{'shelf'}=$element; + $line{'shelfname'}=$shelflist->{$element}->{'shelfname'}; + $line{'shelfbookcount'}=$shelflist->{$element}->{'count'}; + $line{'canmanage'} = ShelfPossibleAction($loggedinuser,$element,'manage'); +; + push (@shelvesloop, \%line); +} +$template->param(shelvesloop => \@shelvesloop); + +output_html_with_http_headers $query, $cookie, $template->output; + +sub shelves { + if (my $newshelf=$query->param('addshelf')) { + my ($status, $string) = AddShelf($env,$newshelf,$query->param('owner'),$query->param('category')); + if ($status) { + $template->param(status1 => $status, string1 => $string); + } + } + my @paramsloop; + foreach ($query->param()) { + my %line; + if (/DEL-(\d+)/) { + my $delshelf=$1; + my ($status, $string) = RemoveShelf($env,$delshelf); + if ($status) { + $line{'status'}=$status; + $line{'string'} = $string; + } + } + #if the shelf is not deleted, %line points on null + push(@paramsloop,\%line); + } + $template->param(paramsloop => \@paramsloop); + my ($shelflist) = GetShelfList($loggedinuser,2); + my $color=''; + my @shelvesloop; + foreach my $element (sort keys %$shelflist) { + my %line; + ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); + $line{'color'}=$color; + $line{'shelf'}=$element; + $line{'shelfname'}=$shelflist->{$element}->{'shelfname'} ; + $line{'shelfbookcount'}=$shelflist->{$element}->{'count'} ; + push(@shelvesloop, \%line); + } + $template->param(shelvesloop=>\@shelvesloop, + shelves => 1, + ); +} + +sub viewshelf { + my $shelfnumber=shift; + #check that the user can view the shelf + return unless (ShelfPossibleAction($loggedinuser,$shelfnumber,'view')); + my ($itemlist) = GetShelfContents($env, $shelfnumber); + my $item=''; + my $color=''; + my @itemsloop; + 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'}; + $line{'barcode'}=$item->{'barcode'}; + $line{'title'}=$item->{'title'}; + $line{'author'}=$item->{'author'}; + push(@itemsloop, \%line); + } + $template->param( itemsloop => \@itemsloop, + shelfname => $shelflist->{$shelfnumber}->{'shelfname'}, + shelfnumber => $shelfnumber, + viewshelf => $query->param('viewshelf'), + manageshelf => &ShelfPossibleAction($loggedinuser,$shelfnumber,'manage'), + ); +} + +# +# $Log$ +# Revision 1.1.2.1 2004/03/10 15:08:18 tipaul +# modifying shelves : introducing category of shelf : private, public, free for all +# +# Revision 1.13 2004/02/11 08:35:31 tipaul +# synch'ing 2.0.0 branch and head +# +# Revision 1.12.2.1 2004/02/06 14:22:19 tipaul +# fixing bugs in bookshelves management. +# +# Revision 1.12 2003/02/05 10:04:14 acli +# Worked around weirdness with HTML::Template; without the {}, it complains +# of being passed an odd number of arguments even though we are not +# +# Revision 1.11 2003/02/05 09:23:03 acli +# Fixed a few minor errors to make it run +# Noted correct tab size +# +# Revision 1.10 2003/02/02 07:18:37 acli +# Moved C4/Charset.pm to C4/Interface/CGI/Output.pm +# +# Create output_html_with_http_headers function to contain the "print $query +# ->header(-type => guesstype...),..." call. This is in preparation for +# non-HTML output (e.g., text/xml) and charset conversion before output in +# the future. +# +# Created C4/Interface/CGI/Template.pm to hold convenience functions specific +# to the CGI interface using HTML::Template +# +# Modified moremembers.pl to make the "sex" field localizable for languages +# where M and F doesn't make sense +# +# Revision 1.9 2002/12/19 18:55:40 hdl +# Templating reservereport et shelves. +# +# Revision 1.9 2002/08/14 18:12:51 hdl +# Templating files +# +# Revision 1.8 2002/08/14 18:12:51 tonnesen +# Added copyright statement to all .pl and .pm files +# +# Revision 1.7 2002/07/05 05:03:37 tonnesen +# Minor changes to authentication routines. +# +# Revision 1.5 2002/07/04 19:42:48 tonnesen +# Minor changes +# +# Revision 1.4 2002/07/04 19:21:29 tonnesen +# Beginning of authentication api. Applied to shelves.pl for now as a test case. +# +# 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 +# +# +# + + + + +# Local Variables: +# tab-width: 4 +# End: -- 2.39.5