3 #script to provide virtual shelf management
6 # Copyright 2000-2002 Katipo Communications
8 # This file is part of Koha.
10 # Koha is free software; you can redistribute it and/or modify it under the
11 # terms of the GNU General Public License as published by the Free Software
12 # Foundation; either version 2 of the License, or (at your option) any later
15 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
17 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License along
20 # with Koha; if not, write to the Free Software Foundation, Inc.,
21 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
30 This script allow to add a virtual in a virtual shelf from a biblionumber.
42 the shelfnumber where to add the virtual.
46 if this parameter exists, then it must be equals to the name of the shelf
51 if this script has to add a shelf, it add one with this category.
55 if this parameter exists, then we create a new shelf
62 #use warnings; FIXME - Bug 2505
66 use C4
::VirtualShelves qw
/:DEFAULT GetRecentShelves/;
70 # splits incoming biblionumber(s) to array and adds each to shelf.
71 sub AddBibliosToShelf
{
72 my ($shelfnumber,@biblionumber)=@_;
74 # multiple bibs might come in as '/' delimited string (from where, i don't see), or as array.
75 # (Note : they come in as '/' when added from the cart)
76 if (scalar(@biblionumber) == 1) {
77 @biblionumber = (split /\//,$biblionumber[0]);
79 for my $bib (@biblionumber){
80 AddToShelf
($bib, $shelfnumber);
86 # If set, then single item case.
87 my $biblionumber = $query->param('biblionumber');
89 # If set, then multiple item case.
90 my @biblionumber = $query->param('biblionumber');
91 my $biblionumbers = $query->param('biblionumbers');
93 my $shelfnumber = $query->param('shelfnumber');
94 my $newvirtualshelf = $query->param('newvirtualshelf');
95 my $newshelf = $query->param('newshelf');
96 my $category = $query->param('category');
97 my $sortfield = $query->param('sortfield');
98 my $confirmed = $query->param('confirmed') || 0;
101 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
103 template_name
=> "virtualshelves/addbybiblionumber.tmpl",
106 authnotrequired
=> 0,
107 flagsrequired
=> { catalogue
=> 1 },
112 if ($biblionumbers) {
113 @biblionumbers = split '/', $biblionumbers;
115 @biblionumbers = (@biblionumber);
117 if (scalar(@biblionumber) == 1) {
118 @biblionumber = (split /\//,$biblionumber[0]);
121 $shelfnumber = AddShelf
( $newvirtualshelf, $loggedinuser, $category, $sortfield ) if $newvirtualshelf;
122 if ( $shelfnumber || ( $shelfnumber == -1 ) ) { # the shelf already exist.
124 if ($confirmed == 1) {
125 AddBibliosToShelf
($shelfnumber,@biblionumber);
127 "Content-Type: text/html\n\n<html><body onload=\"window.opener.location.reload(true);window.close()\"></body></html>";
130 my ( $singleshelf, $singleshelfname, $singlecategory ) = GetShelf
( $query->param('shelfnumber') );
132 for my $bib (@biblionumber) {
133 my $data = GetBiblioData
( $bib );
135 { biblionumber
=> $bib,
136 title
=> $data->{'title'},
137 author
=> $data->{'author'},
143 biblionumber
=> \
@biblionumber,
144 biblios
=> \
@biblios,
145 multiple
=> (scalar(@biblionumber) > 1),
147 shelfname
=> $singleshelfname,
148 shelfnumber
=> $singleshelf,
149 total
=> scalar(@biblionumber),
154 else { # this shelf doesn't already exist.
160 #grab each type of shelf, open (type 3) should not be limited by user.
161 foreach my $shelftype (1,2,3) {
162 my ($shelflist) = GetRecentShelves
($shelftype, undef, $shelftype == 3 ?
undef : $loggedinuser);
163 for my $shelf (@
{ $shelflist }) {
164 push(@shelvesloop, $shelf->{shelfnumber
});
165 $shelvesloop{$shelf->{shelfnumber
}} = $shelf->{shelfname
};
170 my $CGIvirtualshelves = CGI
::scrolling_list
172 -name
=> 'shelfnumber',
173 -values => \
@shelvesloop,
174 -labels
=> \
%shelvesloop,
181 CGIvirtualshelves
=> $CGIvirtualshelves,
185 for my $bib (@biblionumber) {
186 my $data = GetBiblioData
( $bib );
188 { biblionumber
=> $bib,
189 title
=> $data->{'title'},
190 author
=> $data->{'author'},
194 newshelf
=> $newshelf,
196 multiple
=> (scalar(@biblionumber) > 1),
197 total
=> scalar(@biblionumber),
200 unless (@biblionumbers) {
201 my ( $bibliocount, @biblios ) = GetBiblio
($biblionumber);
205 biblionumber
=> $biblionumber,
206 title
=> $biblios[0]->{'title'},
207 author
=> $biblios[0]->{'author'},
211 foreach my $biblionumber (@biblionumbers) {
212 my ( $bibliocount, @biblios ) = GetBiblio
($biblionumber);
214 title
=>$biblios[0]->{'title'},
215 author
=>$biblios[0]->{'author'}
217 push @biblioloop, \
%biblioiter;
221 biblioloop
=> \
@biblioloop,
222 biblionumbers
=> $biblionumbers
227 output_html_with_http_headers
$query, $cookie, $template->output;