#!/usr/bin/perl
#script to provide bookshelf management
+# WARNING: This file uses 4-character tabs!
#
# $Header$
#
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 ($loggedinuser, $cookie, $sessionID) = checkauth($query);
#print $query->header(-cookie => $cookie);
my $headerbackgroundcolor='#663266';
my $circbackgroundcolor='#555555';
my $circbackgroundcolor='#550000';
my $linecolor1='#bbbbbb';
my $linecolor2='#dddddd';
-my $template=gettemplate("shelves.tmpl");
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "shelves.tmpl",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {parameters => 1},
+ });
#print startpage();
#print startmenu('catalogue');
#print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
}
SWITCH: {
- $template->param( loggedinuser => $loggedinuser,
- viewshelf => $query->param('viewshelf'),
- shelves => $query->param('shelves'),
- headerbackground => $headerbackground,
- circbackgroundcolor => $circbackgroundcolor);
+ $template->param({ loggedinuser => $loggedinuser,
+ viewshelf => $query->param('viewshelf'),
+ shelves => $query->param('shelves'),
+ headerbackgroundcolor => $headerbackgroundcolor,
+ circbackgroundcolor => $circbackgroundcolor });
if ($query->param('viewshelf')) { viewshelf($query->param('viewshelf')); last SWITCH;}
if ($query->param('shelves')) { shelves(); last SWITCH;}
my $color='';
my @shelvesloop;
- foreach $element (sort keys %$shelflist) {
+ foreach my $element (sort keys %$shelflist) {
my %line;
($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
$line{'color'}= $color;
$template->param(shelvesloop => \@shelvesloop);
}
-print $query->header(-cookie => $cookie), $template->output;
+output_html_with_http_headers $query, $cookie, $template->output;
sub shelves {
my ($shelflist) = GetShelfList();
my $color='';
my @shelvesloop;
- foreach $element (sort keys %$shelflist) {
+ foreach my $element (sort keys %$shelflist) {
my %line;
($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
$line{'color'}=$color;
#
# $Log$
+# 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.
#
+
+# Local Variables:
+# tab-width: 4
+# End: