3 # Copyright 2000-2002 Katipo Communications
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
27 this script is used to script to provide virtualshelf management
33 =item C<modifyshelfcontents>
35 if this script has to modify the shelf content.
39 to know on which shelf this script has to work.
45 op can equal the following values:
46 * 'modifsave' to save changes on the shelves
47 * 'modif' to change the template to allow modification of the shelves.
51 to load the template with 'viewshelves param' which allows reading the shelves information.
55 if == 1, then call the function shelves to add or delete a shelf.
59 if the param shelves == 1, then addshelf must be equals to the name of the shelf to add.
69 use C4::VirtualShelves;
79 $debug = $ENV{DEBUG} || 0;
84 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
86 template_name => "opac-shelves.tmpl",
93 if ( $query->param('modifyshelfcontents') ) {
94 my $shelfnumber = $query->param('viewshelf');
95 my $barcode = $query->param('addbarcode');
96 my ($item) = GetItemnumberFromBarcode($barcode);
97 my ($biblio) = GetBiblioFromItemNumber($item->{'itemnumber'});
98 if ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' ) ) {
99 AddToShelf( $biblio->{'biblionumber'}, $shelfnumber );
100 foreach ( $query->param ) {
102 $debug and warn "SHELVES: user $loggedinuser removing item $1 from shelf $shelfnumber";
103 DelFromShelf( $1, $shelfnumber ); # $1 is biblionumber
109 # set the default tab, etc.
110 my $shelf_type = $query->param('display');
111 if (defined $shelf_type) {
112 if ($shelf_type eq 'privateshelves') {
113 $template->param(showprivateshelves => 1);
114 } elsif ($shelf_type eq 'publicshelves') {
115 $template->param(showpublicshelves => 1);
118 $debug and warn "Invalid 'display' param ($shelf_type)";
121 $template->param(showprivateshelves => 1);
124 # getting the Shelves list
125 my $shelflist = GetShelves( $loggedinuser, 2 );
126 $template->param( { loggedinuser => $loggedinuser } );
127 my $op = $query->param('op');
131 if ( $op eq 'modifsave' ) {
133 $query->param('shelfnumber'), $query->param('shelfname'),
134 $loggedinuser, $query->param('category'), $query->param('sortfield')
136 $shelflist = GetShelves( $loggedinuser, 2 ); # refresh after mods
137 } elsif ( $op eq 'modif' ) {
138 my ( $shelfnumber, $shelfname, $owner, $category, $sortfield ) =GetShelf( $query->param('shelf') );
141 shelfnumber => $shelfnumber,
142 shelfname => $shelfname,
143 "category$category" => 1,
144 "sort_$sortfield" => 1,
149 if ( $query->param('viewshelf') ) {
150 #check that the user can view the shelf
151 my $shelfnumber = $query->param('viewshelf');
152 if ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'view' ) ) {
153 my $items = GetShelfContents($shelfnumber);
156 foreach (grep {$i++ % 2} @$items) { # every other item
159 my $manageshelf = &ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' );
160 ($manageshelf) and $showadd = 1;
162 shelfname => $shelflist->{$shelfnumber}->{'shelfname'},
163 shelfnumber => $shelfnumber,
164 viewshelf => $query->param('viewshelf'),
165 manageshelf => $manageshelf,
168 } # else {;} # FIXME - some kind of warning *may* be in order
171 if ( $query->param('shelves') ) {
172 if ( my $newshelf = $query->param('addshelf') ) {
173 my $shelfnumber = AddShelf(
175 $query->param('owner'),
176 $query->param('category')
179 if ( $shelfnumber == -1 ) { #shelf already exists.
182 shelfnumber => $shelfnumber,
183 already => $newshelf,
186 print $query->redirect("/cgi-bin/koha/opac-shelves.pl?viewshelf=$shelfnumber");
187 exit; # can't redirect AND expect %line to DO anything!
191 foreach ( $query->param() ) {
192 /^DEL-(\d+)/ or next;
195 if (defined $shelflist->{$number}) {
196 my $name = $shelflist->{$number}->{'shelfname'};
197 if (DelShelf($number)) {
198 delete $shelflist->{$number};
199 $line{delete_ok} = $name;
201 $line{delete_fail} = $name;
204 $line{unrecognized} = $number;
206 push(@paramsloop, \%line);
207 # print $query->redirect("/cgi-bin/koha/opac-shelves.pl"); exit;
208 # can't redirect and expect %line to DO anything!
212 paramsloop => \@paramsloop,
219 # rebuilding shelflist (in case a shelf has been added) is not necessary since add redirects!
221 $showadd and $template->param(showadd => 1);
226 foreach my $element (sort { lc($shelflist->{$a}->{'shelfname'}) cmp lc($shelflist->{$b}->{'shelfname'}) } keys %$shelflist) {
228 $color = ($color) ? 0 : 1;
229 $color and $line{'toggle'} = $color;
230 $line{'shelf'} = $element;
231 $line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
232 $line{'sortfield'} = $shelflist->{$element}->{'sortfield'};
233 $line{"category".$shelflist->{$element}->{'category'}} = 1;
234 $line{'shelfvirtualcount'} = $shelflist->{$element}->{'count'};
235 $line{'canmanage'} = ShelfPossibleAction($loggedinuser,$element,'manage');
236 if ($shelflist->{$element}->{'owner'} eq $loggedinuser) {
239 $line{'firstname'} = $shelflist->{$element}->{'firstname'};
240 $line{ 'surname' } = $shelflist->{$element}->{ 'surname' };
242 if ($shelflist->{$element}->{'category'} eq '1') {
243 push (@shelveslooppriv, \%line);
245 push (@shelvesloop, \%line);
250 shelveslooppriv => \@shelveslooppriv,
251 shelvesloop => \@shelvesloop,
252 "BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1,
255 output_html_with_http_headers $query, $cookie, $template->output;