From b03777ffb881b7c93940f70aa33845c5882aed61 Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 15 Mar 2004 15:01:49 +0000 Subject: [PATCH] adding virtual shelves to opac --- koha-tmpl/opac-tmpl/css/en/opac-main.tmpl | 6 + koha-tmpl/opac-tmpl/css/en/opac-shelves.tmpl | 160 ++++++++++++++ opac/opac-main.pl | 1 + opac/opac-shelves.pl | 219 +++++++++++++++++++ 4 files changed, 386 insertions(+) create mode 100644 koha-tmpl/opac-tmpl/css/en/opac-shelves.tmpl create mode 100755 opac/opac-shelves.pl diff --git a/koha-tmpl/opac-tmpl/css/en/opac-main.tmpl b/koha-tmpl/opac-tmpl/css/en/opac-main.tmpl index 225100c1dd..a24810945a 100644 --- a/koha-tmpl/opac-tmpl/css/en/opac-main.tmpl +++ b/koha-tmpl/opac-tmpl/css/en/opac-main.tmpl @@ -32,6 +32,12 @@

+

Virtual shelves

+
+

+ Look +

+

Logged in as

Members Home || Log Out

diff --git a/koha-tmpl/opac-tmpl/css/en/opac-shelves.tmpl b/koha-tmpl/opac-tmpl/css/en/opac-shelves.tmpl new file mode 100644 index 0000000000..fc1c6fcf43 --- /dev/null +++ b/koha-tmpl/opac-tmpl/css/en/opac-shelves.tmpl @@ -0,0 +1,160 @@ + +
+ +
+ + + + + + + + + + + + + + + + + + + +
+ Contents of +
">">">">
+
+ Shelf list + "> + + "> + + + +
+ +
+ "> + + "> + + + + + +
+ Add a book by barcode in : + + + + "> + +
+
+ + + + +

+ + + +

+ + +

+

Bookshelves

+ + + + + + +
+
+

+ Shelf list +

+
+
+
+ + + + + + + + + + + + +
Select Shelves to Delete +
"> + "> + ( books) +
+

+

+

+
+
+ + + + + + + + +
+ Add Shelf +
+

Name :

+

Owner : ">

+

Category : +

+

  • a private bookshelf is managed by you & can be seen only by you.
  • +
  • A public can be seen by everybody, but managed only by you.
  • +
  • A free can be managed by any user.
  • +

    +
    +

    +
    +
    + + +
    + + + + + + + + + + +
    + Shelf List +
    + + + + "> + ( books) + +
    +

    + Add or Remove Book Shelves +

    + + +
    + diff --git a/opac/opac-main.pl b/opac/opac-main.pl index 970fcca507..c6a16cc33c 100755 --- a/opac/opac-main.pl +++ b/opac/opac-main.pl @@ -6,6 +6,7 @@ use HTML::Template; use C4::Auth; # get_template_and_user use C4::Interface::CGI::Output; +use C4::BookShelves; my $input = new CGI; my $dbh = C4::Context->dbh; diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl new file mode 100755 index 0000000000..b36d819f7a --- /dev/null +++ b/opac/opac-shelves.pl @@ -0,0 +1,219 @@ +#!/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 ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "opac-shelves.tmpl", + query => $query, + type => "opac", + 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, + LibraryName => C4::Context->preference("LibraryName"), + }); +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=1; +my @shelvesloop; +foreach my $element (sort keys %$shelflist) { + my %line; + $line{'color'}= 1 if ($color eq 1); + $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=1; + my @shelvesloop; + foreach my $element (sort keys %$shelflist) { + my %line; + $line{'color'}=1 if ($color eq 1); + $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=1; + my @itemsloop; + foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) { + my %line; + $line{'color'}=1 if ($color eq 1); + $color = -$color; + $line{'itemnumber'}=$item->{'itemnumber'}; + $line{'barcode'}=$item->{'barcode'}; + $line{'title'}=$item->{'title'}; + $line{'author'}=$item->{'author'}; + $line{'biblionumber'} = $item->{'biblionumber'}; + 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 2004/03/15 15:02:19 tipaul +# adding virtual shelves to opac +# +# 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