100e6a9808
So this implies quite a change for files. Sorry about conflicts which will be caused. directory Interface::CGI should now be dropped. I noticed that many scripts (reports ones, but also some circ/stats.pl or opac-topissues) still use Date::Manip.
323 lines
9.6 KiB
Perl
Executable file
323 lines
9.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#
|
|
# Copyright 2000-2002 Katipo Communications
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along with
|
|
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
|
|
# Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
=head1 NAME
|
|
|
|
shelves.pl
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
this script is used to script to provide bookshelf management
|
|
|
|
=head1 CGI PARAMETERS
|
|
|
|
=over 4
|
|
|
|
=item C<modifyshelfcontents>
|
|
|
|
if this script has to modify the shelve content.
|
|
|
|
=item C<shelfnumber>
|
|
|
|
to know on which shelve this script has to work.
|
|
|
|
=item C<addbarcode>
|
|
|
|
=item C<op>
|
|
|
|
op can be equals to:
|
|
* modifsave to save change on the shelves
|
|
* modif to change the template to allow to modify the shelves.
|
|
|
|
=item C<viewshelf>
|
|
|
|
to load the template with 'viewshelves param' which allow to read the shelves information.
|
|
|
|
=item C<shelves>
|
|
|
|
if equals to 1. then call the function shelves which add
|
|
or delete a shelf.
|
|
|
|
=item C<addshelf>
|
|
|
|
if the param shelves = 1 then addshelf must be equals to the name of the shelf to add.
|
|
|
|
=back
|
|
|
|
=cut
|
|
|
|
use strict;
|
|
use CGI;
|
|
use C4::BookShelves;
|
|
use C4::Biblio;
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
|
|
my $query = new CGI;
|
|
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "bookshelves/shelves.tmpl",
|
|
query => $query,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { catalogue => 1 },
|
|
}
|
|
);
|
|
|
|
if ( $query->param('modifyshelfcontents') ) {
|
|
my $shelfnumber = $query->param('viewshelf');
|
|
my $barcode = $query->param('addbarcode');
|
|
my ($item) = GetItem( 0, $barcode );
|
|
if ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' ) ) {
|
|
AddToShelf( $item->{'itemnumber'}, $shelfnumber );
|
|
foreach ( $query->param ) {
|
|
if (/REM-(\d*)/) {
|
|
my $itemnumber = $1;
|
|
DelFromShelf( $itemnumber, $shelfnumber );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# getting the Shelves list
|
|
my $shelflist = GetShelves( $loggedinuser, 2 );
|
|
$template->param( { loggedinuser => $loggedinuser } );
|
|
my $op = $query->param('op');
|
|
|
|
SWITCH: {
|
|
if ( $op && ( $op eq 'modifsave' ) ) {
|
|
ModShelf(
|
|
$query->param('shelfnumber'), $query->param('shelfname'),
|
|
$loggedinuser, $query->param('category')
|
|
);
|
|
last SWITCH;
|
|
}
|
|
if ( $op && ( $op eq 'modif' ) ) {
|
|
my ( $shelfnumber, $shelfname, $owner, $category ) =
|
|
GetShelf( $query->param('shelf') );
|
|
$template->param(
|
|
edit => 1,
|
|
shelfnumber => $shelfnumber,
|
|
shelfname => $shelfname,
|
|
"category$category" => 1
|
|
);
|
|
|
|
# editshelf($query->param('shelf'));
|
|
last SWITCH;
|
|
}
|
|
if ( $query->param('viewshelf') ) {
|
|
#check that the user can view the shelf
|
|
my $shelfnumber = $query->param('viewshelf');
|
|
if ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'view' ) ) {
|
|
my $items = GetShelfContents($shelfnumber);
|
|
$template->param(
|
|
shelfname => $shelflist->{$shelfnumber}->{'shelfname'},
|
|
shelfnumber => $shelfnumber,
|
|
viewshelf => $query->param('viewshelf'),
|
|
manageshelf => &ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' ),
|
|
itemsloop => $items,
|
|
);
|
|
}
|
|
last SWITCH;
|
|
}
|
|
if ( $query->param('shelves') ) {
|
|
if ( my $newshelf = $query->param('addshelf') ) {
|
|
my $shelfnumber = AddShelf(
|
|
$newshelf,
|
|
$query->param('owner'),
|
|
$query->param('category')
|
|
);
|
|
|
|
if ( $shelfnumber == -1 ) { #shelf already exists.
|
|
$template->param(
|
|
{
|
|
shelfnumber => $shelfnumber,
|
|
already => 1
|
|
}
|
|
);
|
|
}
|
|
}
|
|
my @paramsloop;
|
|
foreach ( $query->param() ) {
|
|
my %line;
|
|
if (/DEL-(\d+)/) {
|
|
my $delshelf = $1;
|
|
my ( $status, $count ) = DelShelf($delshelf);
|
|
if ($status) {
|
|
$line{'status'} = $status;
|
|
$line{'count'} = $count;
|
|
}
|
|
}
|
|
|
|
#if the shelf is not deleted, %line points on null
|
|
push( @paramsloop, \%line );
|
|
}
|
|
$template->param( paramsloop => \@paramsloop );
|
|
my ($shelflist) = GetShelves( $loggedinuser, 2 );
|
|
my $color = '';
|
|
my @shelvesloop;
|
|
foreach my $element ( sort keys %$shelflist ) {
|
|
my %line;
|
|
( $color eq 1 ) ? ( $color = 0 ) : ( $color = 1 );
|
|
$line{'toggle'} = $color;
|
|
$line{'shelf'} = $element;
|
|
$line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
|
|
$line{'shelfbookcount'} = $shelflist->{$element}->{'count'};
|
|
push( @shelvesloop, \%line );
|
|
}
|
|
$template->param(
|
|
shelvesloop => \@shelvesloop,
|
|
shelves => 1,
|
|
);
|
|
last SWITCH;
|
|
}
|
|
}
|
|
|
|
($shelflist) =
|
|
GetShelves( $loggedinuser, 2 )
|
|
; # rebuild shelflist in case a shelf has been added
|
|
|
|
my $color = '';
|
|
my @shelvesloop;
|
|
my $numberCanManage = 0;
|
|
|
|
foreach my $element ( sort keys %$shelflist ) {
|
|
my %line;
|
|
( $color eq 1 ) ? ( $color = 0 ) : ( $color = 1 );
|
|
$line{'toggle'} = $color;
|
|
$line{'shelf'} = $element;
|
|
$line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
|
|
$line{ "category" . $shelflist->{$element}->{'category'} } = 1;
|
|
$line{'mine'} = 1 if $shelflist->{$element}->{'owner'} eq $loggedinuser;
|
|
$line{'shelfbookcount'} = $shelflist->{$element}->{'count'};
|
|
$line{'canmanage'} = ShelfPossibleAction( $loggedinuser, $element, 'manage' );
|
|
$line{'firstname'} = $shelflist->{$element}->{'firstname'}
|
|
unless $shelflist->{$element}->{'owner'} eq $loggedinuser;
|
|
$line{'surname'} = $shelflist->{$element}->{'surname'}
|
|
unless $shelflist->{$element}->{'owner'} eq $loggedinuser;
|
|
|
|
$numberCanManage++ if $line{'canmanage'};
|
|
|
|
push( @shelvesloop, \%line );
|
|
}
|
|
|
|
$template->param(
|
|
shelvesloop => \@shelvesloop,
|
|
numberCanManage => $numberCanManage,
|
|
);
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|
|
|
|
sub shelves {
|
|
my $innertemplate = shift;
|
|
if ( my $newshelf = $query->param('addshelf') ) {
|
|
my $shelfnumber = AddShelf(
|
|
$newshelf,
|
|
$query->param('owner'),
|
|
$query->param('category')
|
|
);
|
|
|
|
if ( $shelfnumber == -1 ) { #shelf already exists.
|
|
$template->param(
|
|
{
|
|
shelfnumber => $shelfnumber,
|
|
already => 1
|
|
}
|
|
);
|
|
}
|
|
}
|
|
my @paramsloop;
|
|
foreach ( $query->param() ) {
|
|
my %line;
|
|
if (/DEL-(\d+)/) {
|
|
my $delshelf = $1;
|
|
my ( $status, $count ) = DelShelf($delshelf);
|
|
if ($status) {
|
|
$line{'status'} = $status;
|
|
$line{'count'} = $count;
|
|
}
|
|
}
|
|
|
|
#if the shelf is not deleted, %line points on null
|
|
push( @paramsloop, \%line );
|
|
}
|
|
$innertemplate->param( paramsloop => \@paramsloop );
|
|
my ($shelflist) = GetShelves( $loggedinuser, 2 );
|
|
my $color = '';
|
|
my @shelvesloop;
|
|
foreach my $element ( sort keys %$shelflist ) {
|
|
my %line;
|
|
( $color eq 1 ) ? ( $color = 0 ) : ( $color = 1 );
|
|
$line{'toggle'} = $color;
|
|
$line{'shelf'} = $element;
|
|
$line{'shelfname'} = $shelflist->{$element}->{'shelfname'};
|
|
$line{'shelfbookcount'} = $shelflist->{$element}->{'count'};
|
|
push( @shelvesloop, \%line );
|
|
}
|
|
$innertemplate->param(
|
|
shelvesloop => \@shelvesloop,
|
|
shelves => 1,
|
|
);
|
|
}
|
|
|
|
#
|
|
# $Log$
|
|
# Revision 1.13 2007/04/24 13:54:29 hdl
|
|
# functions that were in C4::Interface::CGI::Output are now in C4::Output.
|
|
# So this implies quite a change for files.
|
|
# Sorry about conflicts which will be caused.
|
|
# directory Interface::CGI should now be dropped.
|
|
# I noticed that many scripts (reports ones, but also some circ/stats.pl or opac-topissues) still use Date::Manip.
|
|
#
|
|
# Revision 1.12 2007/04/04 16:46:22 tipaul
|
|
# HUGE COMMIT : code cleaning circulation.
|
|
#
|
|
# some stuff to do, i'll write a mail on koha-devel NOW !
|
|
#
|
|
# Revision 1.11 2007/03/09 14:32:26 tipaul
|
|
# rel_3_0 moved to HEAD
|
|
#
|
|
# Revision 1.9.2.9 2007/02/05 15:54:30 toins
|
|
# don't display "remove selected shelves" if the user logged has no shelf.
|
|
#
|
|
# Revision 1.9.2.8 2006/12/15 17:36:57 toins
|
|
# - some change on the html param.
|
|
# - Writing directly the code of a sub called only once.
|
|
# - adding syspref: BiblioDefaultView.
|
|
#
|
|
# Revision 1.9.2.7 2006/12/14 17:22:55 toins
|
|
# bookshelves work perfectly with mod_perl and are cleaned.
|
|
#
|
|
# Revision 1.9.2.6 2006/12/13 10:06:05 toins
|
|
# fix a mod_perl specific bug.
|
|
#
|
|
# Revision 1.9.2.5 2006/12/11 17:10:06 toins
|
|
# fixing some bugs on bookshelves.
|
|
#
|
|
# Revision 1.9.2.4 2006/11/30 18:23:51 toins
|
|
# theses scripts don't need to use C4::Search.
|
|
#
|
|
# Revision 1.9.2.3 2006/10/30 09:50:45 tipaul
|
|
# better perl writting
|
|
#
|
|
# Revision 1.9.2.2 2006/10/17 07:59:35 toins
|
|
# ccode added.
|
|
#
|