Koha-community
/
Koha
13
5
Fork 0
Code Issues Releases Wiki Activity
Browse Source

7310 Indentation followup replacing leading tabs with spaces 

March 5, 2012: Rebased for pushed 4912 patch.

Signed-off-by: Ian Walls <koha.sekjal@gmail.com>
3.8.x
Marcel de Rooy 12 years ago
committed by Paul Poulain
parent
cb9dbbb035
commit
26bee7eee7
4 changed files with 154 additions and 154 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 174
      C4/VirtualShelves.pm
  2. 14
      C4/VirtualShelves/Page.pm
  3. 70
      opac/opac-addbybiblionumber.pl
  4. 50
      virtualshelves/addbybiblionumber.pl

174
C4/VirtualShelves.pm
View File

@ -36,18 +36,18 @@ use constant SHELVES_POPUP_MAX => 40; #addbybiblio popup
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
BEGIN { BEGIN {
# set the version for version checking # set the version for version checking
$VERSION = 3.02; $VERSION = 3.02;
require Exporter; require Exporter;
@ISA = qw(Exporter); @ISA = qw(Exporter);
@EXPORT = qw( @EXPORT = qw(
&GetShelves &GetShelfContents &GetShelf &GetShelves &GetShelfContents &GetShelf
&AddToShelf &AddShelf &AddToShelf &AddShelf
&ModShelf &ModShelf
&ShelfPossibleAction &ShelfPossibleAction
&DelFromShelf &DelShelf &DelFromShelf &DelShelf
&GetBibliosShelves &GetBibliosShelves
); );
@EXPORT_OK = qw( @EXPORT_OK = qw(
&GetAllShelves &ShelvesMax &GetAllShelves &ShelvesMax
); );
@ -116,7 +116,7 @@ sub GetShelves {
$query.= qq{ $query.= qq{
LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber
AND sh.borrowernumber=? AND sh.borrowernumber=?
WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) }; WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) };
@params= ($owner, $owner, $owner, $offset||0, $row_count); @params= ($owner, $owner, $owner, $offset||0, $row_count);
} }
else { else {
@ -164,11 +164,11 @@ sub GetAllShelves {
$query.= qq{ $query.= qq{
LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber
AND sh.borrowernumber=? AND sh.borrowernumber=?
WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) }; WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) };
@params = ($owner, $owner, $owner); @params = ($owner, $owner, $owner);
} }
else { else {
$query.='WHERE category=2 '; $query.='WHERE category=2 ';
@params = (); @params = ();
} }
$query.='AND (allow_add=1 OR owner=?) ' if $adding_allowed; $query.='AND (allow_add=1 OR owner=?) ' if $adding_allowed;
@ -261,41 +261,41 @@ from C4::Circulation.
sub GetShelfContents ($;$$$) { sub GetShelfContents ($;$$$) {
my ($shelfnumber, $row_count, $offset, $sortfield) = @_; my ($shelfnumber, $row_count, $offset, $sortfield) = @_;
my $dbh=C4::Context->dbh(); my $dbh=C4::Context->dbh();
my $sth1 = $dbh->prepare("SELECT count(*) FROM virtualshelfcontents WHERE shelfnumber = ?"); my $sth1 = $dbh->prepare("SELECT count(*) FROM virtualshelfcontents WHERE shelfnumber = ?");
$sth1->execute($shelfnumber); $sth1->execute($shelfnumber);
my $total = $sth1->fetchrow; my $total = $sth1->fetchrow;
if(!$sortfield) { if(!$sortfield) {
my $sth2 = $dbh->prepare('SELECT sortfield FROM virtualshelves WHERE shelfnumber=?'); my $sth2 = $dbh->prepare('SELECT sortfield FROM virtualshelves WHERE shelfnumber=?');
$sth2->execute($shelfnumber); $sth2->execute($shelfnumber);
($sortfield) = $sth2->fetchrow_array; ($sortfield) = $sth2->fetchrow_array;
} }
my $query = my $query =
" SELECT vc.biblionumber, vc.shelfnumber, vc.dateadded, itemtypes.*, " SELECT vc.biblionumber, vc.shelfnumber, vc.dateadded, itemtypes.*,
biblio.*, biblioitems.itemtype, biblioitems.publicationyear as year, biblioitems.publishercode, biblioitems.place, biblioitems.size, biblioitems.pages biblio.*, biblioitems.itemtype, biblioitems.publicationyear as year, biblioitems.publishercode, biblioitems.place, biblioitems.size, biblioitems.pages
FROM virtualshelfcontents vc FROM virtualshelfcontents vc
LEFT JOIN biblio ON vc.biblionumber = biblio.biblionumber LEFT JOIN biblio ON vc.biblionumber = biblio.biblionumber
LEFT JOIN biblioitems ON biblio.biblionumber = biblioitems.biblionumber LEFT JOIN biblioitems ON biblio.biblionumber = biblioitems.biblionumber
LEFT JOIN itemtypes ON biblioitems.itemtype = itemtypes.itemtype LEFT JOIN itemtypes ON biblioitems.itemtype = itemtypes.itemtype
WHERE vc.shelfnumber=? "; WHERE vc.shelfnumber=? ";
my @params = ($shelfnumber); my @params = ($shelfnumber);
if($sortfield) { if($sortfield) {
$query .= " ORDER BY " . $sortfield; $query .= " ORDER BY " . $sortfield;
$query .= " DESC " if ($sortfield eq 'copyrightdate'); $query .= " DESC " if ($sortfield eq 'copyrightdate');
} }
if($row_count){ if($row_count){
$query .= " LIMIT ?, ? "; $query .= " LIMIT ?, ? ";
push (@params, ($offset ? $offset : 0)); push (@params, ($offset ? $offset : 0));
push (@params, $row_count); push (@params, $row_count);
} }
my $sth3 = $dbh->prepare($query); my $sth3 = $dbh->prepare($query);
$sth3->execute(@params); $sth3->execute(@params);
return ($sth3->fetchall_arrayref({}), $total); return ($sth3->fetchall_arrayref({}), $total);
# Like the perldoc says, # Like the perldoc says,
# returns reference-to-array, where each element is reference-to-hash of the row: # returns reference-to-array, where each element is reference-to-hash of the row:
# like [ $sth->fetchrow_hashref(), $sth->fetchrow_hashref() ... ] # like [ $sth->fetchrow_hashref(), $sth->fetchrow_hashref() ... ]
# Suitable for use in TMPL_LOOP. # Suitable for use in TMPL_LOOP.
# See http://search.cpan.org/~timb/DBI-1.601/DBI.pm#fetchall_arrayref # See http://search.cpan.org/~timb/DBI-1.601/DBI.pm#fetchall_arrayref
# or newer, for your version of DBI. # or newer, for your version of DBI.
} }
=head2 AddShelf =head2 AddShelf
@ -326,13 +326,13 @@ sub AddShelf {
my $sth = $dbh->prepare($query); my $sth = $dbh->prepare($query);
$sth->execute( $sth->execute(
$hashref->{shelfname}, $hashref->{shelfname},
$owner, $owner,
$hashref->{category}, $hashref->{category},
$hashref->{sortfield}, $hashref->{sortfield},
$hashref->{allow_add}||0, $hashref->{allow_add}||0,
$hashref->{allow_delete_own}||1, $hashref->{allow_delete_own}||1,
$hashref->{allow_delete_other}||0 ); $hashref->{allow_delete_other}||0 );
my $shelfnumber = $dbh->{'mysql_insertid'}; my $shelfnumber = $dbh->{'mysql_insertid'};
return $shelfnumber; return $shelfnumber;
} }
@ -358,17 +358,17 @@ sub AddToShelf {
$sth->execute( $shelfnumber, $biblionumber ); $sth->execute( $shelfnumber, $biblionumber );
($sth->rows) and return undef; # already on shelf ($sth->rows) and return undef; # already on shelf
$query = qq( $query = qq(
INSERT INTO virtualshelfcontents INSERT INTO virtualshelfcontents
(shelfnumber, biblionumber, flags, borrowernumber) (shelfnumber, biblionumber, flags, borrowernumber)
VALUES (?, ?, 0, ?)); VALUES (?, ?, 0, ?));
$sth = $dbh->prepare($query); $sth = $dbh->prepare($query);
$sth->execute( $shelfnumber, $biblionumber, $borrowernumber); $sth->execute( $shelfnumber, $biblionumber, $borrowernumber);
$query = qq(UPDATE virtualshelves $query = qq(UPDATE virtualshelves
SET lastmodified = CURRENT_TIMESTAMP SET lastmodified = CURRENT_TIMESTAMP
WHERE shelfnumber = ?); WHERE shelfnumber = ?);
$sth = $dbh->prepare($query); $sth = $dbh->prepare($query);
$sth->execute( $shelfnumber ); $sth->execute( $shelfnumber );
} }
=head2 ModShelf =head2 ModShelf
@ -403,10 +403,10 @@ sub ModShelf {
#if name or category changes, the name should be tested #if name or category changes, the name should be tested
if($hashref->{shelfname} || $hashref->{category}) { if($hashref->{shelfname} || $hashref->{category}) {
unless(_CheckShelfName( unless(_CheckShelfName(
$hashref->{shelfname}||$oldrecord->{shelfname}, $hashref->{shelfname}||$oldrecord->{shelfname},
$hashref->{category}||$oldrecord->{category}, $hashref->{category}||$oldrecord->{category},
$oldrecord->{owner}, $shelfnumber )) { $oldrecord->{owner}, $shelfnumber )) {
return 0; #name check failed return 0; #name check failed
} }
} }
@ -414,13 +414,13 @@ sub ModShelf {
$query= "UPDATE virtualshelves SET shelfname=?, category=?, sortfield=?, allow_add=?, allow_delete_own=?, allow_delete_other=? WHERE shelfnumber=?"; $query= "UPDATE virtualshelves SET shelfname=?, category=?, sortfield=?, allow_add=?, allow_delete_own=?, allow_delete_other=? WHERE shelfnumber=?";
$sth = $dbh->prepare($query); $sth = $dbh->prepare($query);
$sth->execute( $sth->execute(
$hashref->{shelfname}||$oldrecord->{shelfname}, $hashref->{shelfname}||$oldrecord->{shelfname},
$hashref->{category}||$oldrecord->{category}, $hashref->{category}||$oldrecord->{category},
$hashref->{sortfield}||$oldrecord->{sortfield}, $hashref->{sortfield}||$oldrecord->{sortfield},
$hashref->{allow_add}||$oldrecord->{allow_add}, $hashref->{allow_add}||$oldrecord->{allow_add},
$hashref->{allow_delete_own}||$oldrecord->{allow_delete_own}, $hashref->{allow_delete_own}||$oldrecord->{allow_delete_own},
$hashref->{allow_delete_other}||$oldrecord->{allow_delete_other}, $hashref->{allow_delete_other}||$oldrecord->{allow_delete_other},
$shelfnumber ); $shelfnumber );
return $@? 0: 1; return $@? 0: 1;
} }
@ -471,23 +471,23 @@ sub ShelfPossibleAction {
return 0 unless $shelf && ($shelf->{category}==2 || $shelf->{owner}==$user || $shelf->{borrowernumber}==$user); return 0 unless $shelf && ($shelf->{category}==2 || $shelf->{owner}==$user || $shelf->{borrowernumber}==$user);
if($action eq 'view') { if($action eq 'view') {
#already handled in the above condition #already handled in the above condition
return 1; return 1;
} }
elsif($action eq 'add') { elsif($action eq 'add') {
return 0 if $user<=0; #should be logged in return 0 if $user<=0; #should be logged in
return 1 if $shelf->{allow_add}==1 || $shelf->{owner}==$user; return 1 if $shelf->{allow_add}==1 || $shelf->{owner}==$user;
#owner may always add #owner may always add
} }
elsif($action eq 'delete') { elsif($action eq 'delete') {
#this answer is just diplomatic: it says that you may be able to delete #this answer is just diplomatic: it says that you may be able to delete
#some items from that shelf #some items from that shelf
#it does not answer the question about a specific biblio #it does not answer the question about a specific biblio
#DelFromShelf checks the situation per biblio #DelFromShelf checks the situation per biblio
return 1 if $user>0 && ($shelf->{allow_delete_own}==1 || $shelf->{allow_delete_other}==1); return 1 if $user>0 && ($shelf->{allow_delete_own}==1 || $shelf->{allow_delete_other}==1);
} }
elsif($action eq 'manage') { elsif($action eq 'manage') {
return 1 if $user && $shelf->{owner}==$user; return 1 if $user && $shelf->{owner}==$user;
} }
return 0; return 0;
} }
@ -515,11 +515,11 @@ sub DelFromShelf {
$query = qq(DELETE FROM virtualshelfcontents $query = qq(DELETE FROM virtualshelfcontents
WHERE shelfnumber=? AND biblionumber=? AND borrowernumber=?); WHERE shelfnumber=? AND biblionumber=? AND borrowernumber=?);
$sth= $dbh->prepare($query); $sth= $dbh->prepare($query);
foreach my $biblionumber (@$bibref) { foreach my $biblionumber (@$bibref) {
$sth->execute($shelfnumber, $biblionumber, $user); $sth->execute($shelfnumber, $biblionumber, $user);
$r= $sth->rows; #Expect -1, 0 or 1 (-1 means Don't know; count as 1) $r= $sth->rows; #Expect -1, 0 or 1 (-1 means Don't know; count as 1)
$t+= ($r==-1)? 1: $r; $t+= ($r==-1)? 1: $r;
} }
} }
if($del_oth) { if($del_oth) {
#includes a check if borrowernumber is null (deleted patron) #includes a check if borrowernumber is null (deleted patron)
@ -527,11 +527,11 @@ sub DelFromShelf {
WHERE shelfnumber=? AND biblionumber=? AND WHERE shelfnumber=? AND biblionumber=? AND
(borrowernumber IS NULL OR borrowernumber<>?)/; (borrowernumber IS NULL OR borrowernumber<>?)/;
$sth= $dbh->prepare($query); $sth= $dbh->prepare($query);
foreach my $biblionumber (@$bibref) { foreach my $biblionumber (@$bibref) {
$sth->execute($shelfnumber, $biblionumber, $user); $sth->execute($shelfnumber, $biblionumber, $user);
$r= $sth->rows; $r= $sth->rows;
$t+= ($r==-1)? 1: $r; $t+= ($r==-1)? 1: $r;
} }
} }
return $t; return $t;
} }
@ -639,11 +639,11 @@ sub _shelf_count {
$query.= qq{ $query.= qq{
LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber LEFT JOIN virtualshelfshares sh ON sh.shelfnumber=vs.shelfnumber
AND sh.borrowernumber=? AND sh.borrowernumber=?
WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) }; WHERE category=1 AND (vs.owner=? OR sh.borrowernumber=?) };
@params= ($owner, $owner, $owner); @params= ($owner, $owner, $owner);
} }
else { else {
$query.='WHERE category=2'; $query.='WHERE category=2';
@params= (); @params= ();
} }
my $sth = $dbh->prepare($query); my $sth = $dbh->prepare($query);
@ -657,9 +657,9 @@ sub _biblionumber_sth { #only used in obsolete sub below
my $query = 'select biblionumber from virtualshelfcontents where shelfnumber = ?'; my $query = 'select biblionumber from virtualshelfcontents where shelfnumber = ?';
my $dbh = C4::Context->dbh; my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare($query) my $sth = $dbh->prepare($query)
or die $dbh->errstr; or die $dbh->errstr;
$sth->execute( $shelf ) $sth->execute( $shelf )
or die $sth->errstr; or die $sth->errstr;
$sth; $sth;
} }
@ -667,8 +667,8 @@ sub each_biblionumbers (&$) { #OBSOLETE
my ($code,$shelf) = @_; my ($code,$shelf) = @_;
my $ref = _biblionumber_sth($shelf)->fetchall_arrayref; my $ref = _biblionumber_sth($shelf)->fetchall_arrayref;
map { map {
$_=$$_[0]; $_=$$_[0];
$code->(); $code->();
} @$ref; } @$ref;
} }
@ -678,7 +678,7 @@ sub _CheckShelfName {
my $query = qq( my $query = qq(
SELECT DISTINCT shelfnumber SELECT DISTINCT shelfnumber
FROM virtualshelves FROM virtualshelves
LEFT JOIN virtualshelfshares sh USING (shelfnumber) LEFT JOIN virtualshelfshares sh USING (shelfnumber)
WHERE shelfname=? AND shelfnumber<>?); WHERE shelfname=? AND shelfnumber<>?);
if($cat==1) { if($cat==1) {
$query.= ' AND (sh.borrowernumber=? OR owner=?) AND category=1'; $query.= ' AND (sh.borrowernumber=? OR owner=?) AND category=1';

14
C4/VirtualShelves/Page.pm
View File

@ -61,8 +61,8 @@ sub shelfpage {
$query or die "No query"; $query or die "No query";
$template or die "No template"; $template or die "No template";
$template->param( $template->param(
loggedinuser => $loggedinuser, loggedinuser => $loggedinuser,
OpacAllowPublicListCreation => C4::Context->preference('OpacAllowPublicListCreation'), OpacAllowPublicListCreation => C4::Context->preference('OpacAllowPublicListCreation'),
); );
my $edit; my $edit;
my $shelves; my $shelves;
@ -178,7 +178,7 @@ sub shelfpage {
SWITCH: { SWITCH: {
if ($op) { if ($op) {
#Saving modified shelf #Saving modified shelf
if ( $op eq 'modifsave' ) { if ( $op eq 'modifsave' ) {
unless ($okmanage) { unless ($okmanage) {
push @paramsloop, { nopermission => $shelfnumber }; push @paramsloop, { nopermission => $shelfnumber };
@ -205,8 +205,8 @@ sub shelfpage {
} }
exit; exit;
} }
#Editing a shelf #Editing a shelf
elsif ( $op eq 'modif' ) { elsif ( $op eq 'modif' ) {
my ( $shelfnumber2, $shelfname, $owner, $category, $sortfield ) = GetShelf($shelfnumber); my ( $shelfnumber2, $shelfname, $owner, $category, $sortfield ) = GetShelf($shelfnumber);
my $member = GetMember( 'borrowernumber' => $owner ); my $member = GetMember( 'borrowernumber' => $owner );
my $ownername = defined($member) ? $member->{firstname} . " " . $member->{surname} : ''; my $ownername = defined($member) ? $member->{firstname} . " " . $member->{surname} : '';
@ -315,7 +315,7 @@ sub shelfpage {
if ( $query->param('shelves') ) { if ( $query->param('shelves') ) {
my $stay = 1; my $stay = 1;
#Add a shelf #Add a shelf
if ( my $newshelf = $query->param('addshelf') ) { if ( my $newshelf = $query->param('addshelf') ) {
# note: a user can always add a new shelf # note: a user can always add a new shelf
@ -335,7 +335,7 @@ sub shelfpage {
} }
} }
#Deleting a shelf (asking for confirmation if it has entries) #Deleting a shelf (asking for confirmation if it has entries)
foreach ( $query->param() ) { foreach ( $query->param() ) {
/DEL-(\d+)/ or next; /DEL-(\d+)/ or next;
$delflag = 1; $delflag = 1;

70
opac/opac-addbybiblionumber.pl
View File

@ -88,27 +88,27 @@ sub AddBibliosToShelf {
sub HandleNewVirtualShelf { sub HandleNewVirtualShelf {
if($authorized= ShelfPossibleAction($loggedinuser, undef, $category==1? 'new_private': 'new_public')) { if($authorized= ShelfPossibleAction($loggedinuser, undef, $category==1? 'new_private': 'new_public')) {
$shelfnumber = AddShelf( { $shelfnumber = AddShelf( {
shelfname => $newvirtualshelf, shelfname => $newvirtualshelf,
category => $category }, $loggedinuser); category => $category }, $loggedinuser);
if($shelfnumber == -1) { if($shelfnumber == -1) {
$authorized=0; $authorized=0;
$errcode=1; $errcode=1;
return; return;
} }
AddBibliosToShelf($shelfnumber, @biblionumber); AddBibliosToShelf($shelfnumber, @biblionumber);
#Reload the page where you came from #Reload the page where you came from
print $query->header; print $query->header;
print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"window.opener.location.reload(true);self.close();\"></body></html>"; print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"window.opener.location.reload(true);self.close();\"></body></html>";
} }
} }
sub HandleShelfNumber { sub HandleShelfNumber {
if($authorized= ShelfPossibleAction($loggedinuser, $shelfnumber, 'add')) { if($authorized= ShelfPossibleAction($loggedinuser, $shelfnumber, 'add')) {
AddBibliosToShelf($shelfnumber,@biblionumber); AddBibliosToShelf($shelfnumber,@biblionumber);
#Close this page and return #Close this page and return
print $query->header; print $query->header;
print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"self.close();\"></body></html>"; print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"self.close();\"></body></html>";
} }
} }
@ -117,10 +117,10 @@ sub HandleSelectedShelf {
#adding to specific shelf #adding to specific shelf
my ($singleshelf, $singleshelfname, $singlecategory)= GetShelf($query->param('selectedshelf')); my ($singleshelf, $singleshelfname, $singlecategory)= GetShelf($query->param('selectedshelf'));
$template->param( $template->param(
singleshelf => 1, singleshelf => 1,
shelfnumber => $singleshelf, shelfnumber => $singleshelf,
shelfname => $singleshelfname, shelfname => $singleshelfname,
"category$singlecategory" => 1 "category$singlecategory" => 1
); );
} }
} }
@ -130,41 +130,41 @@ sub HandleSelect {
my $privateshelves = GetAllShelves(1,$loggedinuser,1); my $privateshelves = GetAllShelves(1,$loggedinuser,1);
if(@{$privateshelves}){ if(@{$privateshelves}){
$template->param ( $template->param (
privatevirtualshelves => $privateshelves, privatevirtualshelves => $privateshelves,
existingshelves => 1 existingshelves => 1
); );
} }
my $publicshelves = GetAllShelves(2,$loggedinuser,1); my $publicshelves = GetAllShelves(2,$loggedinuser,1);
if(@{$publicshelves}){ if(@{$publicshelves}){
$template->param ( $template->param (
publicvirtualshelves => $publicshelves, publicvirtualshelves => $publicshelves,
existingshelves => 1 existingshelves => 1
); );
} }
} }
sub LoadBib { sub LoadBib {
for my $bib (@biblionumber) { for my $bib (@biblionumber) {
my $data = GetBiblioData( $bib ); my $data = GetBiblioData( $bib );
push(@biblios, push(@biblios,
{ biblionumber => $bib, { biblionumber => $bib,
title => $data->{'title'}, title => $data->{'title'},
author => $data->{'author'}, author => $data->{'author'},
} ); } );
} }
$template->param( $template->param(
multiple => (scalar(@biblios) > 1), multiple => (scalar(@biblios) > 1),
total => scalar @biblios, total => scalar @biblios,
biblios => \@biblios, biblios => \@biblios,
); );
} }
sub ShowTemplate { sub ShowTemplate {
$template->param ( $template->param (
newshelf => $newshelf||0, newshelf => $newshelf||0,
authorized => $authorized, authorized => $authorized,
errcode => $errcode, errcode => $errcode,
OpacAllowPublicListCreation => C4::Context->preference('OpacAllowPublicListCreation'), OpacAllowPublicListCreation => C4::Context->preference('OpacAllowPublicListCreation'),
); );
output_html_with_http_headers $query, $cookie, $template->output; output_html_with_http_headers $query, $cookie, $template->output;
} }

50
virtualshelves/addbybiblionumber.pl
View File

@ -136,9 +136,9 @@ sub HandleNewVirtualShelf {
sortfield => $sortfield, sortfield => $sortfield,
category => $category }, $loggedinuser); category => $category }, $loggedinuser);
if($shelfnumber == -1) { if($shelfnumber == -1) {
$authorized=0; $authorized=0;
$errcode=1; #add failed $errcode=1; #add failed
return; return;
} }
AddBibliosToShelf($shelfnumber, @biblionumber); AddBibliosToShelf($shelfnumber, @biblionumber);
#Reload the page where you came from #Reload the page where you came from
@ -148,13 +148,13 @@ sub HandleNewVirtualShelf {
sub HandleShelfNumber { sub HandleShelfNumber {
if($authorized= ShelfPossibleAction($loggedinuser, $shelfnumber, 'add')) { if($authorized= ShelfPossibleAction($loggedinuser, $shelfnumber, 'add')) {
AddBibliosToShelf($shelfnumber, @biblionumber); AddBibliosToShelf($shelfnumber, @biblionumber);
#Close this page and return #Close this page and return
print $query->header; print $query->header;
print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"self.close();\"></body></html>"; print "<html><meta http-equiv=\"refresh\" content=\"0\" /><body onload=\"self.close();\"></body></html>";
} }
else { else {
$errcode=2; #no perm $errcode=2; #no perm
} }
} }
@ -163,14 +163,14 @@ sub HandleSelectedShelf {
#confirm adding to specific shelf #confirm adding to specific shelf
my ($singleshelf, $singleshelfname, $singlecategory)= GetShelf($shelfnumber); my ($singleshelf, $singleshelfname, $singlecategory)= GetShelf($shelfnumber);
$template->param( $template->param(
singleshelf => 1, singleshelf => 1,
shelfnumber => $singleshelf, shelfnumber => $singleshelf,
shelfname => $singleshelfname, shelfname => $singleshelfname,
"category$singlecategory" => 1 "category$singlecategory" => 1
); );
} }
else { else {
$errcode=2; #no perm $errcode=2; #no perm
} }
} }
@ -178,8 +178,8 @@ sub HandleSelect {
my $privateshelves = GetAllShelves(1,$loggedinuser,1); my $privateshelves = GetAllShelves(1,$loggedinuser,1);
my $publicshelves = GetAllShelves(2,$loggedinuser,1); my $publicshelves = GetAllShelves(2,$loggedinuser,1);
$template->param( $template->param(
privatevirtualshelves => $privateshelves, privatevirtualshelves => $privateshelves,
publicvirtualshelves => $publicshelves, publicvirtualshelves => $publicshelves,
); );
} }
@ -187,24 +187,24 @@ sub LoadBib {
my @biblios; my @biblios;
for my $bib (@biblionumber) { for my $bib (@biblionumber) {
my $data = GetBiblioData($bib); my $data = GetBiblioData($bib);
push(@biblios, push(@biblios,
{ biblionumber => $bib, { biblionumber => $bib,
title => $data->{'title'}, title => $data->{'title'},
author => $data->{'author'}, author => $data->{'author'},
} ); } );
} }
$template->param( $template->param(
multiple => (scalar(@biblios) > 1), multiple => (scalar(@biblios) > 1),
total => scalar @biblios, total => scalar @biblios,
biblios => \@biblios, biblios => \@biblios,
); );
} }
sub ShowTemplate { sub ShowTemplate {
$template->param ( $template->param (
newshelf => $newshelf||0, newshelf => $newshelf||0,
authorized => $authorized, authorized => $authorized,
errcode => $errcode, errcode => $errcode,
); );
output_html_with_http_headers $query, $cookie, $template->output; output_html_with_http_headers $query, $cookie, $template->output;
} }

Write Preview
Loading…
Cancel
Save