From a800aae2f6d791325b7c888e2434e6e61bed4f86 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 15 May 2002 04:54:07 +0000
Subject: [PATCH] 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
---
 html-template/moredetail.pl | 82 +++++++++++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)
 create mode 100755 html-template/moredetail.pl

diff --git a/html-template/moredetail.pl b/html-template/moredetail.pl
new file mode 100755
index 0000000000..eb4832a63b
--- /dev/null
+++ b/html-template/moredetail.pl
@@ -0,0 +1,82 @@
+#!/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;
+
-- 
2.39.5