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
160 shelfname => $shelflist->{$shelfnumber}->{'shelfname'},
161 shelfnumber => $shelfnumber,
162 viewshelf => $query->param('viewshelf'),
163 manageshelf => &ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' ),
166 } # else {;} # FIXME - some kind of warning *may* be in order
169 if ( $query->param('shelves') ) {
170 if ( my $newshelf = $query->param('addshelf') ) {
171 my $shelfnumber = AddShelf(
173 $query->param('owner'),
174 $query->param('category')
177 if ( $shelfnumber == -1 ) { #shelf already exists.
180 shelfnumber => $shelfnumber,
181 already => $newshelf,
184 print $query->redirect("/cgi-bin/koha/opac-shelves.pl?viewshelf=$shelfnumber");
185 exit; # can't redirect AND expect %line to DO anything!
189 foreach ( $query->param() ) {
190 /^DEL-(\d+)/ or next;
192 ( $line{status}, $line{count} ) = DelShelf($1);
193 (defined $shelflist->{$1}) and delete $shelflist->{$1};
194 # print $query->redirect("/cgi-bin/koha/opac-shelves.pl"); exit;
195 # can't redirect and expect %line to DO anything!
196 push( @paramsloop, \%line );
200 paramsloop => \@paramsloop,
207 # rebuilding shelflist (in case a shelf has been added) is not necessary since add redirects!
209 $showadd and $template->param(showadd => 1);
214 foreach my $element (sort { lc($shelflist->{$a}->{'shelfname'}) cmp lc($shelflist->{$b}->{'shelfname'}) } keys %$shelflist) {
216 $color = ($color) ? 0 : 1;
217 $color and $line{'toggle'} = $color;
218 $line{'shelf'} = $element;
219 $line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
220 $line{'sortfield'} = $shelflist->{$element}->{'sortfield'};
221 $line{"category".$shelflist->{$element}->{'category'}} = 1;
222 $line{'shelfvirtualcount'} = $shelflist->{$element}->{'count'};
223 $line{'canmanage'} = ShelfPossibleAction($loggedinuser,$element,'manage');
224 if ($shelflist->{$element}->{'owner'} eq $loggedinuser) {
227 $line{'firstname'} = $shelflist->{$element}->{'firstname'};
228 $line{ 'surname' } = $shelflist->{$element}->{ 'surname' };
230 if ($shelflist->{$element}->{'category'} eq 2) {
231 push (@shelvesloop, \%line);
232 } elsif ($shelflist->{$element}->{'category'} eq 1) {
233 push (@shelveslooppriv, \%line);
238 shelveslooppriv => \@shelveslooppriv,
239 shelvesloop => \@shelvesloop,
240 "BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1,
243 output_html_with_http_headers $query, $cookie, $template->output;