[Koha-cvs] CVS: koha/html-template moredetail.pl,NONE,1.1
Chris Cormack
rangi at users.sourceforge.net
Wed May 15 06:54:09 CEST 2002
Update of /cvsroot/koha/koha/html-template
In directory usw-pr-cvs1:/tmp/cvs-serv9145
Added Files:
moredetail.pl
Log Message:
First cut of moredetail.pl using html::template
I think this is the last file ill work on templating for while, since this
allows me to achieve my aim which is to make the search results easily
customisable. So ill finish this off, then work on the opac versions. And
then back to bugfixing ill go
--- NEW FILE ---
#!/usr/bin/perl
use HTML::Template;
use strict;
require Exporter;
use C4::Koha;
use CGI;
use C4::Search;
use C4::Acquisitions;
use C4::Output; # contains picktemplate
my $query=new CGI;
my $language='french';
my %configfile;
open (KC, "/etc/koha.conf");
while (<KC>) {
chomp;
(next) if (/^\s*#/);
if (/(.*)\s*=\s*(.*)/) {
my $variable=$1;
my $value=$2;
# Clean up white space at beginning and end
$variable=~s/^\s*//g;
$variable=~s/\s*$//g;
$value=~s/^\s*//g;
$value=~s/\s*$//g;
$configfile{$variable}=$value;
}
}
my $includes=$configfile{'includes'};
($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
my $templatebase="catalogue/moredetail.tmpl";
my $startfrom=$query->param('startfrom');
($startfrom) || ($startfrom=0);
my $theme=picktemplate($includes, $templatebase);
my $subject=$query->param('subject');
# if its a subject we need to use the subject.tmpl
if ($subject){
$templatebase=~ s/searchresults\.tmpl/subject\.tmpl/;
}
my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
# get variables
my $biblionumber=$query->param('bib');
my $title=$query->param('title');
my $bi=$query->param('bi');
my $data=bibitemdata($bi);
my $dewey = $data->{'dewey'};
$dewey =~ s/0+$//;
if ($dewey eq "000.") { $dewey = "";};
if ($dewey < 10){$dewey='00'.$dewey;}
if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
if ($dewey <= 0){
$dewey='';
}
$dewey=~ s/\.$//;
$data->{'dewey'}=$dewey;
my @results;
my (@items)=itemissues($bi);
my $count=@items;
$data->{'count'}=$count;
my ($order,$ordernum)=getorder($bi,$biblionumber);
my $env;
$env->{itemcount}=1;
$results[0]=$data;
$template->param(includesdir => $includes);
$template->param(BIBITEM_DATA => \@results);
$template->param(ITEM_DATA => \@items);
print "Content-Type: text/html\n\n", $template->output;
More information about the Koha-cvs
mailing list