3 #script to provide virtualshelf management
5 # Copyright 2000-2002 Katipo Communications
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by
11 # the Free Software Foundation; either version 3 of the License, or
12 # (at your option) any later version.
14 # Koha is distributed in the hope that it will be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 # GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License
20 # along with Koha; if not, see <http://www.gnu.org/licenses>.
27 use C4::VirtualShelves qw/:DEFAULT/;
31 use Koha::Virtualshelves;
34 our @biblionumber = $query->param('biblionumber');
35 our $selectedshelf = $query->param('selectedshelf');
36 our $newshelf = $query->param('newshelf');
37 our $shelfnumber = $query->param('shelfnumber');
38 our $newvirtualshelf = $query->param('newvirtualshelf');
39 our $category = $query->param('category');
44 our ( $template, $loggedinuser, $cookie ) = get_template_and_user(
46 template_name => "opac-addbybiblionumber.tt",
53 if( $newvirtualshelf) {
54 HandleNewVirtualShelf();
56 ShowTemplate(); #error message
61 ShowTemplate(); #error message
63 elsif($selectedshelf) {
64 HandleSelectedShelf();
65 LoadBib() if $authorized;
70 LoadBib() if $authorized;
75 sub AddBibliosToShelf {
76 #splits incoming biblionumber(s) to array and adds each to shelf.
77 my ($shelfnumber,@biblionumber)=@_;
79 #multiple bibs might come in as '/' delimited string (from where, i don't see), or as array.
80 if (scalar(@biblionumber) == 1) {
81 @biblionumber = (split /\//,$biblionumber[0]);
83 for my $bib (@biblionumber) {
84 AddToShelf($bib, $shelfnumber, $loggedinuser);
88 sub HandleNewVirtualShelf {
89 if($authorized= ShelfPossibleAction($loggedinuser, undef, $category==1? 'new_private': 'new_public')) {
91 Koha::Virtualshelf->new(
93 shelfname => $newvirtualshelf,
94 category => $category,
95 owner => $loggedinuser,
99 if ( $@ or not $shelf ) {
104 AddBibliosToShelf($shelfnumber, @biblionumber);
105 #Reload the page where you came from
106 print $query->header;
107 print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"window.opener.location.reload(true);self.close();\"></body></html>";
111 sub HandleShelfNumber {
112 if($authorized= ShelfPossibleAction($loggedinuser, $shelfnumber, 'add')) {
113 AddBibliosToShelf($shelfnumber,@biblionumber);
114 #Close this page and return
115 print $query->header;
116 print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"self.close();\"></body></html>";
120 sub HandleSelectedShelf {
121 if($authorized= ShelfPossibleAction( $loggedinuser, $selectedshelf, 'add')){
122 #adding to specific shelf
123 my $shelfnumber = $query->param('selectedshelf');
124 my $shelf = Koha::Virtualshelves->find( $shelfnumber );
127 shelfnumber => $shelf->shelfnumber,
128 shelfname => $shelf->shelfname,
134 return unless $authorized= $loggedinuser>0;
135 my $private_shelves = Koha::Virtualshelves->search(
138 owner => $loggedinuser,
140 { order_by => 'shelfname' }
142 my $shelves_shared_with_me = Koha::Virtualshelves->search(
145 'virtualshelfshares.borrowernumber' => $loggedinuser,
148 owner => $loggedinuser,
152 join => 'virtualshelfshares',
155 my $public_shelves= Koha::Virtualshelves->search(
160 owner => $loggedinuser,
163 { order_by => 'shelfname' }
166 private_shelves => $private_shelves,
167 private_shelves_shared_with_me => $shelves_shared_with_me,
168 public_shelves => $public_shelves,
173 #see comment in AddBibliosToShelf
174 if (scalar(@biblionumber) == 1) {
175 @biblionumber = (split /\//,$biblionumber[0]);
177 for my $bib (@biblionumber) {
178 my $data = GetBiblioData( $bib );
180 { biblionumber => $bib,
181 title => $data->{'title'},
182 author => $data->{'author'},
186 multiple => (scalar(@biblios) > 1),
187 total => scalar @biblios,
188 biblios => \@biblios,
194 newshelf => $newshelf||0,
195 authorized => $authorized,
197 OpacAllowPublicListCreation => C4::Context->preference('OpacAllowPublicListCreation'),
199 output_html_with_http_headers $query, $cookie, $template->output;