tipaul
20 years ago
2 changed files with 312 additions and 0 deletions
@ -0,0 +1,89 @@ |
|||
#!/usr/bin/perl |
|||
#script to provide bookshelf management |
|||
# WARNING: This file uses 4-character tabs! |
|||
# |
|||
# $Header$ |
|||
# |
|||
# 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 |
|||
|
|||
use strict; |
|||
use C4::Search; |
|||
use C4::Biblio; |
|||
use CGI; |
|||
use C4::Output; |
|||
use C4::BookShelves; |
|||
use C4::Circulation::Circ2; |
|||
use C4::Auth; |
|||
use C4::Interface::CGI::Output; |
|||
use HTML::Template; |
|||
|
|||
my $env; |
|||
my $query = new CGI; |
|||
my $biblionumber = $query->param('biblionumber'); |
|||
my $shelfnumber = $query->param('shelfnumber'); |
|||
if ($shelfnumber) { |
|||
&AddToShelfFromBiblio($env, $biblionumber, $shelfnumber); |
|||
print "Content-Type: text/html\n\n<html><body onload=\"window.close()\"></body></html>"; |
|||
exit; |
|||
} else { |
|||
|
|||
my ( $bibliocount, @biblios ) = getbiblio($biblionumber); |
|||
my ($template, $loggedinuser, $cookie) |
|||
= get_template_and_user({template_name => "bookshelves/addbookbybiblionumber.tmpl", |
|||
query => $query, |
|||
type => "intranet", |
|||
authnotrequired => 0, |
|||
flagsrequired => {catalogue => 1}, |
|||
}); |
|||
|
|||
my ($shelflist) = GetShelfList($loggedinuser,3); |
|||
my @shelvesloop; |
|||
my %shelvesloop; |
|||
foreach my $element (sort keys %$shelflist) { |
|||
push (@shelvesloop, $element); |
|||
$shelvesloop{$element} = $shelflist->{$element}->{'shelfname'}; |
|||
} |
|||
|
|||
my $CGIbookshelves=CGI::scrolling_list( -name => 'shelfnumber', |
|||
-values => \@shelvesloop, |
|||
-labels => \%shelvesloop, |
|||
-size => 1, |
|||
-multiple => 0 ); |
|||
|
|||
$template->param(biblionumber => $biblionumber, |
|||
title => $biblios[0]->{'title'}, |
|||
author => $biblios[0]->{'author'}, |
|||
CGIbookshelves => $CGIbookshelves, |
|||
); |
|||
|
|||
output_html_with_http_headers $query, $cookie, $template->output; |
|||
} |
|||
# $Log$ |
|||
# Revision 1.2 2004/11/19 16:31:30 tipaul |
|||
# bugfix for bookshelves not in official CVS |
|||
# |
|||
# Revision 1.1.2.2 2004/03/10 15:08:18 tipaul |
|||
# modifying shelves : introducing category of shelf : private, public, free for all |
|||
# |
|||
# Revision 1.1.2.1 2004/02/19 10:14:36 tipaul |
|||
# new feature : adding book to bookshelf from biblio detail screen. |
|||
# |
|||
|
|||
# Local Variables: |
|||
# tab-width: 4 |
|||
# End: |
|||
@ -0,0 +1,223 @@ |
|||
#!/usr/bin/perl |
|||
#script to provide bookshelf management |
|||
# WARNING: This file uses 4-character tabs! |
|||
# |
|||
# $Header$ |
|||
# |
|||
# 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 |
|||
|
|||
use strict; |
|||
use C4::Search; |
|||
use CGI; |
|||
use C4::Output; |
|||
use C4::BookShelves; |
|||
use C4::Circulation::Circ2; |
|||
use C4::Auth; |
|||
use C4::Interface::CGI::Output; |
|||
use HTML::Template; |
|||
|
|||
my $env; |
|||
my $query = new CGI; |
|||
my $headerbackgroundcolor='#663266'; |
|||
my $circbackgroundcolor='#555555'; |
|||
my $circbackgroundcolor='#550000'; |
|||
my $linecolor1='#bbbbbb'; |
|||
my $linecolor2='#dddddd'; |
|||
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('shelfnumber'); |
|||
my $barcode=$query->param('addbarcode'); |
|||
my ($item) = getiteminformation($env, 0, $barcode); |
|||
if (ShelfPossibleAction($loggedinuser,$shelfnumber,'manage')) { |
|||
AddToShelf($env, $item->{'itemnumber'}, $shelfnumber); |
|||
foreach ($query->param) { |
|||
if (/REM-(\d*)/) { |
|||
my $itemnumber=$1; |
|||
RemoveFromShelf($env, $itemnumber, $shelfnumber); |
|||
} |
|||
} |
|||
} |
|||
} |
|||
my ($shelflist) = GetShelfList($loggedinuser,2); |
|||
|
|||
$template->param({ loggedinuser => $loggedinuser, |
|||
headerbackgroundcolor => $headerbackgroundcolor, |
|||
circbackgroundcolor => $circbackgroundcolor }); |
|||
SWITCH: { |
|||
if ($query->param('viewshelf')) { viewshelf($query->param('viewshelf')); last SWITCH;} |
|||
if ($query->param('shelves')) { shelves(); last SWITCH;} |
|||
} |
|||
|
|||
($shelflist) = GetShelfList($loggedinuser,2); # rebuild shelflist in case a shelf has been added |
|||
|
|||
my $color=''; |
|||
my @shelvesloop; |
|||
foreach my $element (sort keys %$shelflist) { |
|||
my %line; |
|||
($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); |
|||
$line{'color'}= $color; |
|||
$line{'shelf'}=$element; |
|||
$line{'shelfname'}=$shelflist->{$element}->{'shelfname'}; |
|||
$line{'shelfbookcount'}=$shelflist->{$element}->{'count'}; |
|||
$line{'canmanage'} = ShelfPossibleAction($loggedinuser,$element,'manage'); |
|||
; |
|||
push (@shelvesloop, \%line); |
|||
} |
|||
$template->param(shelvesloop => \@shelvesloop); |
|||
|
|||
output_html_with_http_headers $query, $cookie, $template->output; |
|||
|
|||
sub shelves { |
|||
if (my $newshelf=$query->param('addshelf')) { |
|||
my ($status, $string) = AddShelf($env,$newshelf,$query->param('owner'),$query->param('category')); |
|||
if ($status) { |
|||
$template->param(status1 => $status, string1 => $string); |
|||
} |
|||
} |
|||
my @paramsloop; |
|||
foreach ($query->param()) { |
|||
my %line; |
|||
if (/DEL-(\d+)/) { |
|||
my $delshelf=$1; |
|||
my ($status, $string) = RemoveShelf($env,$delshelf); |
|||
if ($status) { |
|||
$line{'status'}=$status; |
|||
$line{'string'} = $string; |
|||
} |
|||
} |
|||
#if the shelf is not deleted, %line points on null |
|||
push(@paramsloop,\%line); |
|||
} |
|||
$template->param(paramsloop => \@paramsloop); |
|||
my ($shelflist) = GetShelfList($loggedinuser,2); |
|||
my $color=''; |
|||
my @shelvesloop; |
|||
foreach my $element (sort keys %$shelflist) { |
|||
my %line; |
|||
($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); |
|||
$line{'color'}=$color; |
|||
$line{'shelf'}=$element; |
|||
$line{'shelfname'}=$shelflist->{$element}->{'shelfname'} ; |
|||
$line{'shelfbookcount'}=$shelflist->{$element}->{'count'} ; |
|||
push(@shelvesloop, \%line); |
|||
} |
|||
$template->param(shelvesloop=>\@shelvesloop, |
|||
shelves => 1, |
|||
); |
|||
} |
|||
|
|||
sub viewshelf { |
|||
my $shelfnumber=shift; |
|||
#check that the user can view the shelf |
|||
return unless (ShelfPossibleAction($loggedinuser,$shelfnumber,'view')); |
|||
my ($itemlist) = GetShelfContents($env, $shelfnumber); |
|||
my $item=''; |
|||
my $color=''; |
|||
my @itemsloop; |
|||
foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) { |
|||
my %line; |
|||
($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); |
|||
$line{'color'}=$color; |
|||
$line{'itemnumber'}=$item->{'itemnumber'}; |
|||
$line{'barcode'}=$item->{'barcode'}; |
|||
$line{'title'}=$item->{'title'}; |
|||
$line{'author'}=$item->{'author'}; |
|||
push(@itemsloop, \%line); |
|||
} |
|||
$template->param( itemsloop => \@itemsloop, |
|||
shelfname => $shelflist->{$shelfnumber}->{'shelfname'}, |
|||
shelfnumber => $shelfnumber, |
|||
viewshelf => $query->param('viewshelf'), |
|||
manageshelf => &ShelfPossibleAction($loggedinuser,$shelfnumber,'manage'), |
|||
); |
|||
} |
|||
|
|||
# |
|||
# $Log$ |
|||
# Revision 1.2 2004/11/19 16:31:30 tipaul |
|||
# bugfix for bookshelves not in official CVS |
|||
# |
|||
# Revision 1.1.2.1 2004/03/10 15:08:18 tipaul |
|||
# modifying shelves : introducing category of shelf : private, public, free for all |
|||
# |
|||
# Revision 1.13 2004/02/11 08:35:31 tipaul |
|||
# synch'ing 2.0.0 branch and head |
|||
# |
|||
# Revision 1.12.2.1 2004/02/06 14:22:19 tipaul |
|||
# fixing bugs in bookshelves management. |
|||
# |
|||
# Revision 1.12 2003/02/05 10:04:14 acli |
|||
# Worked around weirdness with HTML::Template; without the {}, it complains |
|||
# of being passed an odd number of arguments even though we are not |
|||
# |
|||
# Revision 1.11 2003/02/05 09:23:03 acli |
|||
# Fixed a few minor errors to make it run |
|||
# Noted correct tab size |
|||
# |
|||
# Revision 1.10 2003/02/02 07:18:37 acli |
|||
# Moved C4/Charset.pm to C4/Interface/CGI/Output.pm |
|||
# |
|||
# Create output_html_with_http_headers function to contain the "print $query |
|||
# ->header(-type => guesstype...),..." call. This is in preparation for |
|||
# non-HTML output (e.g., text/xml) and charset conversion before output in |
|||
# the future. |
|||
# |
|||
# Created C4/Interface/CGI/Template.pm to hold convenience functions specific |
|||
# to the CGI interface using HTML::Template |
|||
# |
|||
# Modified moremembers.pl to make the "sex" field localizable for languages |
|||
# where M and F doesn't make sense |
|||
# |
|||
# Revision 1.9 2002/12/19 18:55:40 hdl |
|||
# Templating reservereport et shelves. |
|||
# |
|||
# Revision 1.9 2002/08/14 18:12:51 hdl |
|||
# Templating files |
|||
# |
|||
# Revision 1.8 2002/08/14 18:12:51 tonnesen |
|||
# Added copyright statement to all .pl and .pm files |
|||
# |
|||
# Revision 1.7 2002/07/05 05:03:37 tonnesen |
|||
# Minor changes to authentication routines. |
|||
# |
|||
# Revision 1.5 2002/07/04 19:42:48 tonnesen |
|||
# Minor changes |
|||
# |
|||
# Revision 1.4 2002/07/04 19:21:29 tonnesen |
|||
# Beginning of authentication api. Applied to shelves.pl for now as a test case. |
|||
# |
|||
# Revision 1.2.2.1 2002/06/26 20:28:15 tonnesen |
|||
# Some udpates that I made here locally a while ago. Still won't be useful, but |
|||
# should be functional |
|||
# |
|||
# |
|||
# |
|||
|
|||
|
|||
|
|||
|
|||
# Local Variables: |
|||
# tab-width: 4 |
|||
# End: |
|||
Loading…
Reference in new issue