Koha/virtualshelves/shelves.pl

#!/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 virtualshelf 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::VirtualShelves;
use C4::Biblio;
use C4::Auth;
use C4::Output;

my $query = new CGI;

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
    {
        template_name   => "virtualshelves/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 );
	my ($biblio) = GetBiblioFromItemNumber($item->{'itemnumber'});
    if ( ShelfPossibleAction( $loggedinuser, $shelfnumber, 'manage' ) ) {
        AddToShelf( $biblio->{'biblionumber'}, $shelfnumber );
        foreach ( $query->param ) {
            if (/REM-(\d*)/) {
                my $biblionumber = $1;
                DelFromShelf( $biblionumber, $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
                    }
                );
            }
            print $query->redirect("/cgi-bin/koha/virtualshelves/shelves.pl?viewshelf=$shelfnumber");
            exit;
        }
        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;
                }
                print $query->redirect("/cgi-bin/koha/virtualshelves/shelves.pl");
                exit;
            }

            #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{'shelfvirtualcount'} = $shelflist->{$element}->{'count'};
            push( @shelvesloop, \%line );
        }
        $template->param(
            shelvesloop => \@shelvesloop,
            shelves     => 1,
        );
        last SWITCH;
    }
}

$shelflist = GetShelves( $loggedinuser, 2 );
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{"viewcategory$shelflist->{$element}->{'category'}"} = 1;
    $line{'mine'} = 1 if $shelflist->{$element}->{'owner'} eq $loggedinuser;
    $line{'shelfvirtualcount'} = $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{'shelfvirtualcount'} = $shelflist->{$element}->{'count'};
        push( @shelvesloop, \%line );
    }
    $innertemplate->param(
        shelvesloop => \@shelvesloop,
        shelves     => 1,
    );
}

#
# 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
# virtualshelves 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 virtualshelves.
#
# 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.
#