opac/opac-addbybiblionumber.pl

   1 #!/usr/bin/perl
   2
   3 #script to provide virtualshelf management
   4 #
   5 # Copyright 2000-2002 Katipo Communications
   6 #
   7 # This file is part of Koha.
   8 #
   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.
  13 #
  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.
  18 #
  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>.
  21
  22 use strict;
  23 use warnings;
  24
  25 use CGI qw ( -utf8 );
  26 use C4::Biblio;
  27 use C4::VirtualShelves qw/:DEFAULT/;
  28 use C4::Output;
  29 use C4::Auth;
  30
  31 use Koha::Virtualshelves;
  32
  33 our $query              = new CGI;
  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');
  40 our $authorized          = 1;
  41 our $errcode            = 0;
  42 our @biblios;
  43
  44 our ( $template, $loggedinuser, $cookie ) = get_template_and_user(
  45     {
  46         template_name   => "opac-addbybiblionumber.tt",
  47         query           => $query,
  48         type            => "opac",
  49         authnotrequired => 0,
  50     }
  51 );
  52
  53 if( $newvirtualshelf) {
  54     HandleNewVirtualShelf();
  55     exit if $authorized;
  56     ShowTemplate(); #error message
  57 }
  58 elsif($shelfnumber) {
  59     HandleShelfNumber();
  60     exit if $authorized;
  61     ShowTemplate(); #error message
  62 }
  63 elsif($selectedshelf) {
  64     HandleSelectedShelf();
  65     LoadBib() if $authorized;
  66     ShowTemplate();
  67 }
  68 else {
  69     HandleSelect();
  70     LoadBib() if $authorized;
  71     ShowTemplate();
  72 }
  73 #end
  74
  75 sub AddBibliosToShelf {
  76     #splits incoming biblionumber(s) to array and adds each to shelf.
  77     my ($shelfnumber,@biblionumber)=@_;
  78
  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]);
  82     }
  83     for my $bib (@biblionumber) {
  84         my $shelf = Koha::Virtualshelves->find( $shelfnumber );
  85         $shelf->add_biblio( $bib, $loggedinuser );
  86     }
  87 }
  88
  89 sub HandleNewVirtualShelf {
  90     if($authorized= ShelfPossibleAction($loggedinuser, undef, $category==1? 'new_private': 'new_public')) {
  91     my $shelf = eval {
  92         Koha::Virtualshelf->new(
  93             {
  94                 shelfname => $newvirtualshelf,
  95                 category => $category,
  96                 owner => $loggedinuser,
  97             }
  98         );
  99     };
 100     if ( $@ or not $shelf ) {
 101         $authorized=0;
 102         $errcode=1;
 103         return;
 104     }
 105     AddBibliosToShelf($shelfnumber, @biblionumber);
 106     #Reload the page where you came from
 107     print $query->header;
 108     print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"window.opener.location.reload(true);self.close();\"></body></html>";
 109     }
 110 }
 111
 112 sub HandleShelfNumber {
 113     if($authorized= ShelfPossibleAction($loggedinuser, $shelfnumber, 'add')) {
 114     AddBibliosToShelf($shelfnumber,@biblionumber);
 115     #Close this page and return
 116     print $query->header;
 117     print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"self.close();\"></body></html>";
 118     }
 119 }
 120
 121 sub HandleSelectedShelf {
 122     if($authorized= ShelfPossibleAction( $loggedinuser, $selectedshelf, 'add')){
 123         #adding to specific shelf
 124         my $shelfnumber = $query->param('selectedshelf');
 125         my $shelf = Koha::Virtualshelves->find( $shelfnumber );
 126         $template->param(
 127             singleshelf               => 1,
 128             shelfnumber               => $shelf->shelfnumber,
 129             shelfname                 => $shelf->shelfname,
 130         );
 131     }
 132 }
 133
 134 sub HandleSelect {
 135     return unless $authorized= $loggedinuser>0;
 136     my $private_shelves = Koha::Virtualshelves->search(
 137         {
 138             category => 1,
 139             owner => $loggedinuser,
 140         },
 141         { order_by => 'shelfname' }
 142     );
 143     my $shelves_shared_with_me = Koha::Virtualshelves->search(
 144         {
 145             category => 1,
 146             'virtualshelfshares.borrowernumber' => $loggedinuser,
 147             -or => {
 148                 allow_add => 1,
 149                 owner => $loggedinuser,
 150             }
 151         },
 152         {
 153             join => 'virtualshelfshares',
 154         }
 155     );
 156     my $public_shelves= Koha::Virtualshelves->search(
 157         {
 158             category => 2,
 159             -or => {
 160                 allow_add => 1,
 161                 owner => $loggedinuser,
 162             }
 163         },
 164         { order_by => 'shelfname' }
 165     );
 166     $template->param (
 167         private_shelves => $private_shelves,
 168         private_shelves_shared_with_me => $shelves_shared_with_me,
 169         public_shelves  => $public_shelves,
 170     );
 171 }
 172
 173 sub LoadBib {
 174     #see comment in AddBibliosToShelf
 175     if (scalar(@biblionumber) == 1) {
 176         @biblionumber = (split /\//,$biblionumber[0]);
 177     }
 178     for my $bib (@biblionumber) {
 179         my $data = GetBiblioData( $bib );
 180     push(@biblios,
 181         { biblionumber => $bib,
 182           title        => $data->{'title'},
 183           author       => $data->{'author'},
 184     } );
 185     }
 186     $template->param(
 187         multiple => (scalar(@biblios) > 1),
 188     total    => scalar @biblios,
 189     biblios  => \@biblios,
 190     );
 191 }
 192
 193 sub ShowTemplate {
 194     $template->param (
 195     newshelf => $newshelf||0,
 196     authorized  => $authorized,
 197     errcode             => $errcode,
 198     OpacAllowPublicListCreation => C4::Context->preference('OpacAllowPublicListCreation'),
 199     );
 200     output_html_with_http_headers $query, $cookie, $template->output;
 201 }