# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
=head1 NAME
- addvirtualbybiblionumber.pl
+ addbybiblionumber.pl
=head1 DESCRIPTION
use C4::Biblio;
use CGI;
use C4::Output;
-use C4::BookShelves;
+use C4::VirtualShelves;
use C4::Circulation;
use C4::Auth;
-
#use it only to debug !
use CGI::Carp qw/fatalsToBrowser/;
use warnings;
-my $query = new CGI;
-my $biblionumber = $query->param('biblionumber');
-my $shelfnumber = $query->param('shelfnumber');
+my $query = new CGI;
+my $biblionumber = $query->param('biblionumber');
+my $shelfnumber = $query->param('shelfnumber');
my $newvirtualshelf = $query->param('newvirtualshelf');
-my $category = $query->param('category');
-
-my ($template, $loggedinuser, $cookie)
-= get_template_and_user({template_name => "virtualshelves/addvirtualbybiblionumber.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- });
-
-$shelfnumber = AddShelf($newvirtualshelf,$loggedinuser,$category) if $newvirtualshelf;
-
-if ($shelfnumber || ($shelfnumber == -1)) { # the shelf already exist.
- &AddToShelfFromBiblio($biblionumber, $shelfnumber);
- print "Content-Type: text/html\n\n<html><body onload=\"window.close()\"></body></html>";
+my $category = $query->param('category');
+
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ {
+ template_name => "virtualshelves/addbybiblionumber.tmpl",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { catalogue => 1 },
+ }
+);
+
+$shelfnumber = AddShelf( $newvirtualshelf, $loggedinuser, $category )
+ if $newvirtualshelf;
+if ( $shelfnumber || ( $shelfnumber == -1 ) ) { # the shelf already exist.
+ &AddToShelfFromBiblio( $biblionumber, $shelfnumber );
+ print
+"Content-Type: text/html\n\n<html><body onload=\"window.close()\"></body></html>";
exit;
-} else { # this shelf doesn't already exist.
- my ( $bibliocount, @biblios ) = GetBiblio($biblionumber);
+}
+else { # this shelf doesn't already exist.
+ my ( $bibliocount, @biblios ) = GetBiblio($biblionumber);
- my ($shelflist) = GetShelves($loggedinuser,3);
+ my ($shelflist) = GetShelves( $loggedinuser, 3 );
my @shelvesloop;
my %shelvesloop;
- foreach my $element (sort keys %$shelflist) {
- push (@shelvesloop, $element);
+ foreach my $element ( sort keys %$shelflist ) {
+ push( @shelvesloop, $element );
$shelvesloop{$element} = $shelflist->{$element}->{'shelfname'};
}
-
- my $CGIvirtualshelves=CGI::scrolling_list(
- -name => 'shelfnumber',
- -values => \@shelvesloop,
- -labels => \%shelvesloop,
- -size => 1,
- -tabindex=>'',
- -multiple => 0 );
+ if(@shelvesloop gt 0){
+ my $CGIvirtualshelves = CGI::scrolling_list(
+ -name => 'shelfnumber',
+ -values => \@shelvesloop,
+ -labels => \%shelvesloop,
+ -size => 1,
+ -tabindex => '',
+ -multiple => 0
+ );
+ $template->param(
+ CGIvirtualshelves => $CGIvirtualshelves,
+ );
+ }
$template->param(
- biblionumber => $biblionumber,
- title => $biblios[0]->{'title'},
- author => $biblios[0]->{'author'},
- CGIvirtualshelves => $CGIvirtualshelves,
- intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
- );
+ biblionumber => $biblionumber,
+ title => $biblios[0]->{'title'},
+ author => $biblios[0]->{'author'},
+ );
output_html_with_http_headers $query, $cookie, $template->output;
}
-# $Log$
# Revision 1.8 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.