opac/opac-shelves.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2000-2002 Katipo Communications
   4 #
   5 # This file is part of Koha.
   6 #
   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
  10 # version.
  11 #
  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.
  15 #
  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
  19
  20 # $Id$
  21
  22 =head1 NAME
  23
  24     opac-shelves.pl
  25
  26 =head1 DESCRIPTION
  27
  28     this script is used to script to provide virtualshelf management
  29
  30 =head1 CGI PARAMETERS
  31
  32 =over 4
  33
  34 =item C<modifyshelfcontents>
  35
  36     if this script has to modify the shelve content.
  37
  38 =item C<shelfnumber>
  39
  40     to know on which shelve this script has to work.
  41
  42 =item C<addbarcode>
  43
  44 =item C<op>
  45
  46     op can be equals to:
  47         * modifsave to save change on the shelves
  48         * modif to change the template to allow to modify the shelves.
  49
  50 =item C<viewshelf>
  51
  52     to load the template with 'viewshelves param' which allow to read the shelves information.
  53
  54 =item C<shelves>
  55
  56     if equals to 1. then call the function shelves which add
  57     or delete a shelf.
  58
  59 =item C<addshelf>
  60
  61     if the param shelves = 1 then addshelf must be equals to the name of the shelf to add.
  62
  63 =back
  64
  65 =cut
  66
  67 use strict;
  68 use CGI;
  69 use C4::Output;
  70 use C4::VirtualShelves;
  71 use C4::Circulation;
  72 use C4::Auth;
  73 use C4::Output;
  74 use C4::Biblio;
  75
  76 my $query = new CGI;
  77
  78 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
  79     {
  80         template_name   => "opac-shelves.tmpl",
  81         query           => $query,
  82         type            => "opac",
  83         authnotrequired => 1,
  84     }
  85 );
  86
  87 if ( $query->param('modifyshelfcontents') ) {
  88     my $shelfnumber = $query->param('viewshelf');
  89     my $barcode     = $query->param('addbarcode');
  90     my ($item) = GetItemnumberFromBarcode($barcode);
  91         my ($biblio) = GetBiblioFromItemNumber($item->{'itemnumber'});
  92     if ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' ) ) {
  93         AddToShelf( $biblio->{'biblionumber'}, $shelfnumber );
  94         foreach ( $query->param ) {
  95             if (/MOD-(\d*)/) {
  96                 my $biblionumber = $1;
  97                 if ( $query->param('remove') eq "on" ) {
  98                     DelFromShelf( $biblionumber, $shelfnumber );
  99                 }
 100             }
 101         }
 102     }
 103 }
 104
 105 # getting the Shelves list
 106 my $shelflist = GetShelves( $loggedinuser, 2 );
 107 $template->param( { loggedinuser => $loggedinuser } );
 108 my $op = $query->param('op');
 109
 110 SWITCH: {
 111     if ( $op && ( $op eq 'modifsave' ) ) {
 112         ModShelf(
 113             $query->param('shelfnumber'), $query->param('shelfname'),
 114             $loggedinuser,                $query->param('category')
 115         );
 116         last SWITCH;
 117     }
 118     if ( $op && ( $op eq 'modif' ) ) {
 119         my ( $shelfnumber, $shelfname, $owner, $category ) =
 120           GetShelf( $query->param('shelf') );
 121         $template->param(
 122             edit                => 1,
 123             shelfnumber         => $shelfnumber,
 124             shelfname           => $shelfname,
 125             "category$category" => 1
 126         );
 127
 128         #         editshelf($query->param('shelf'));
 129         last SWITCH;
 130     }
 131     if ( $query->param('viewshelf') ) {
 132         #check that the user can view the shelf
 133         my $shelfnumber = $query->param('viewshelf');
 134         if ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'view' ) ) {
 135             my $items = GetShelfContents($shelfnumber);
 136             $template->param(
 137                 shelfname   => $shelflist->{$shelfnumber}->{'shelfname'},
 138                 shelfnumber => $shelfnumber,
 139                 viewshelf   => $query->param('viewshelf'),
 140                 manageshelf => &ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' ),
 141                 itemsloop   => $items,
 142             );
 143         }
 144         last SWITCH;
 145     }
 146     if ( $query->param('shelves') ) {
 147         if ( my $newshelf = $query->param('addshelf') ) {
 148             my $shelfnumber = AddShelf(
 149                 $newshelf,
 150                 $query->param('owner'),
 151                 $query->param('category')
 152             );
 153
 154             if ( $shelfnumber == -1 ) {    #shelf already exists.
 155                 $template->param(
 156                     {
 157                         shelfnumber => $shelfnumber,
 158                         already     => 1
 159                     }
 160                 );
 161             }
 162     }
 163     my @paramsloop;
 164     foreach ( $query->param() ) {
 165         my %line;
 166         if (/DEL-(\d+)/) {
 167             my $delshelf = $1;
 168             my ( $status, $count ) = DelShelf($delshelf);
 169             if ($status) {
 170                 $line{'status'} = $status;
 171                 $line{'count'}  = $count;
 172             }
 173         }
 174
 175         #if the shelf is not deleted, %line points on null
 176         push( @paramsloop, \%line );
 177     }
 178     $template->param( paramsloop => \@paramsloop );
 179     my ($shelflist) = GetShelves( $loggedinuser, 2 );
 180     my $color = '';
 181     my @shelvesloop;
 182     foreach my $element ( sort keys %$shelflist ) {
 183         my %line;
 184         ( $color eq 1 ) ? ( $color = 0 ) : ( $color = 1 );
 185         $line{'toggle'}         = $color;
 186         $line{'shelf'}          = $element;
 187         $line{'shelfname'}      = $shelflist->{$element}->{'shelfname'};
 188         $line{'shelfvirtualcount'} = $shelflist->{$element}->{'count'};
 189         push( @shelvesloop, \%line );
 190     }
 191     $template->param(
 192         shelvesloop => \@shelvesloop,
 193         shelves     => 1,
 194     );
 195         last SWITCH;
 196     }
 197 }
 198
 199 ($shelflist) =
 200   GetShelves( $loggedinuser, 2 )
 201   ;    # rebuild shelflist in case a shelf has been added
 202
 203 my $color = '';
 204 my @shelvesloop;
 205 foreach my $element ( sort keys %$shelflist ) {
 206     my %line;
 207     ( $color eq 1 ) ? ( $color = 0 ) : ( $color = 1 );
 208     $line{'toggle'}    = $color;
 209         $line{'shelf'}     = $element;
 210         $line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
 211         $line{ "category" . $shelflist->{$element}->{'category'} } = 1;
 212         $line{'mine'} = 1 if $shelflist->{$element}->{'owner'} eq $loggedinuser;
 213         $line{'shelfvirtualcount'} = $shelflist->{$element}->{'count'};
 214         $line{'canmanage'}      =
 215           ShelfPossibleAction( $loggedinuser, $element, 'manage' );
 216         $line{'firstname'} = $shelflist->{$element}->{'firstname'}
 217           unless $shelflist->{$element}->{'owner'} eq $loggedinuser;
 218         $line{'surname'} = $shelflist->{$element}->{'surname'}
 219           unless $shelflist->{$element}->{'owner'} eq $loggedinuser;
 220         push( @shelvesloop, \%line );
 221     }
 222
 223 $template->param(
 224     shelvesloop             => \@shelvesloop,
 225     "BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1,
 226 );
 227
 228 output_html_with_http_headers $query, $cookie, $template->output;
 229
 230
 231
 232 #
 233 # $Log$
 234 # Revision 1.12  2007/04/24 13:54:29  hdl
 235 # functions that were in C4::Interface::CGI::Output are now in C4::Output.
 236 # So this implies quite a change for files.
 237 # Sorry about conflicts which will be caused.
 238 # directory Interface::CGI should now be dropped.
 239 # I noticed that many scripts (reports ones, but also some circ/stats.pl or opac-topissues) still use Date::Manip.
 240 #
 241 # Revision 1.11  2007/04/17 08:52:19  tipaul
 242 # circulation cleaning continued: bufixing
 243 #
 244 # Revision 1.10  2007/04/04 16:46:23  tipaul
 245 # HUGE COMMIT : code cleaning circulation.
 246 #
 247 # some stuff to do, i'll write a mail on koha-devel NOW !
 248 #
 249 # Revision 1.9  2007/03/09 15:12:54  tipaul
 250 # rel_3_0 moved to HEAD
 251 #
 252 # Revision 1.8.2.12  2007/01/15 17:19:30  toins
 253 # enable to add checked items to a shelf.
 254 # Some display enhancements.
 255 #
 256 # Revision 1.8.2.11  2007/01/10 10:52:58  toins
 257 # adding syspref directly to Auth.pm instead of to the template.
 258 #
 259 # Revision 1.8.2.10  2007/01/10 10:12:48  toins
 260 # Adding OpacTopissue, OpacCloud, OpacAuthorithies to the template->param.
 261 # + Some cleanup.
 262 #
 263 # Revision 1.8.2.9  2006/12/15 17:43:24  toins
 264 # sync with intranet.
 265 #
 266 # Revision 1.8.2.8  2006/12/14 17:59:17  toins
 267 # add the link to "BiblioDefaultView systempref" and not to opac-detail.pl
 268 #
 269 # Revision 1.8.2.7  2006/12/14 17:22:55  toins
 270 # virtualshelves work perfectly with mod_perl and are cleaned.
 271 #
 272 # Revision 1.8.2.6  2006/12/14 16:04:25  toins
 273 # sync with intranet.
 274 #
 275 # Revision 1.8.2.5  2006/12/11 17:10:06  toins
 276 # fixing some bugs on virtualshelves.
 277 #
 278 # Revision 1.8.2.4  2006/12/07 15:42:15  toins
 279 # synching opac & intranet.
 280 # fix some broken link & bugs.
 281 # removing warn compilation.
 282 #
 283 # Revision 1.8.2.3  2006/11/30 18:23:51  toins
 284 # theses scripts don't need to use C4::Search.
 285 #