From 3c2fde2e8ccf69c97bde1e957d46153f758545b8 Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 3 Jan 2005 11:09:59 +0000 Subject: [PATCH] *** empty log message *** --- opac/opac-addbookbybiblionumber.pl | 89 ++++++++++++++++++++++++++++++ 1 file changed, 89 insertions(+) create mode 100755 opac/opac-addbookbybiblionumber.pl diff --git a/opac/opac-addbookbybiblionumber.pl b/opac/opac-addbookbybiblionumber.pl new file mode 100755 index 0000000000..f51a0a1964 --- /dev/null +++ b/opac/opac-addbookbybiblionumber.pl @@ -0,0 +1,89 @@ +#!/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 C4::Biblio; +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 $biblionumber = $query->param('biblionumber'); +my $shelfnumber = $query->param('shelfnumber'); +my $newbookshelf = $query->param('newbookshelf'); +my $category = $query->param('category'); + +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "opac-addbookbybiblionumber.tmpl", + query => $query, + type => "opac", + authnotrequired => 0, + }); + +my $x; # for trash +($x,$x,$shelfnumber) = AddShelf('',$newbookshelf,$loggedinuser,$category) if $newbookshelf; + +if ($shelfnumber) { + &AddToShelfFromBiblio($env, $biblionumber, $shelfnumber); + print "Content-Type: text/html\n\n"; + exit; +} else { + + my ( $bibliocount, @biblios ) = getbiblio($biblionumber); + + my ($shelflist) = GetShelfList($loggedinuser,3); + my @shelvesloop; + my %shelvesloop; + foreach my $element (sort keys %$shelflist) { + push (@shelvesloop, $element); + $shelvesloop{$element} = $shelflist->{$element}->{'shelfname'}; + } + + my $CGIbookshelves=CGI::scrolling_list( -name => 'shelfnumber', + -values => \@shelvesloop, + -labels => \%shelvesloop, + -size => 1, + -multiple => 0 ); + + $template->param(biblionumber => $biblionumber, + title => $biblios[0]->{'title'}, + author => $biblios[0]->{'author'}, + CGIbookshelves => $CGIbookshelves, + ); + + output_html_with_http_headers $query, $cookie, $template->output; +} +# $Log$ +# Revision 1.1 2005/01/03 11:09:59 tipaul +# *** empty log message *** +# + +# Local Variables: +# tab-width: 4 +# End: -- 2.39.5