X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=virtualshelves%2Fshelves.pl;h=a88ebaa1cc22b8ef1dfa56331567039a259b198b;hb=8ad2c7d7acc3cb0033426bd78928214a22ad9dd1;hp=79c44956e10285b2decdd3b87e1f951b90b0bdec;hpb=85092daa56298659bc33a7568446a7b973b30c4a;p=koha.git diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl index 79c44956e1..a88ebaa1cc 100755 --- a/virtualshelves/shelves.pl +++ b/virtualshelves/shelves.pl @@ -18,57 +18,11 @@ # 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 - - if this script has to modify the shelve content. - -=item C - - to know on which shelve this script has to work. - -=item C - -=item C - - 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 - - to load the template with 'viewshelves param' which allow to read the shelves information. - -=item C - - if equals to 1. then call the function shelves which add - or delete a shelf. - -=item C - - if the param shelves = 1 then addshelf must be equals to the name of the shelf to add. - -=back - -=cut - use strict; +use warnings; use CGI; -use C4::VirtualShelves; -use C4::Biblio; +use C4::VirtualShelves::Page; use C4::Auth; -use C4::Output; my $query = new CGI; @@ -81,199 +35,4 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( 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'), $query->param('sortfield') - ); - last SWITCH; - } - if ( $op && ( $op eq 'modif' ) ) { - my ( $shelfnumber, $shelfname, $owner, $category, $sortfield ) = - GetShelf( $query->param('shelf') ); - $template->param( - edit => 1, - shelfnumber => $shelfnumber, - shelfname => $shelfname, - "category$category" => 1, - "sort_$sortfield" => 1, - ); - 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; - } -} - -# rebuild shelflist in case a shelf has been added -$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{'sortfield'}=$shelflist->{$element}->{'sortfield'}; - $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, - ); -} +shelfpage('intranet', $query, $template, $loggedinuser, $cookie);