Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Make sure it handles non-latin1 charsets (It seems to display correctly

Browse source 
due to an unknown reason, but just in case)

Noted correct tab size

A few other notes
This commit is contained in:
acli 2003-02-09 09:07:11 +00:00
parent 75164d4c69
commit f711507f05
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
moredetail.pl
View file

@ -1,8 +1,9 @@
#!/usr/bin/perl #!/usr/bin/perl
# NOTE: Use standard 8-space tabs for this file (indents are 4 spaces)
# $Id$ # $Id$
# Copyright 2000-2002 Katipo Communications # Copyright 2000-2003 Katipo Communications
# #
# This file is part of Koha. # This file is part of Koha.
# #
@ -28,13 +29,11 @@ use C4::Search;
use C4::Catalogue; use C4::Catalogue;
use C4::Output; # contains gettemplate use C4::Output; # contains gettemplate
use C4::Auth; use C4::Auth;
use C4::Interface::CGI::Output;
my $query=new CGI; my $query=new CGI;
my $includes = C4::Context->config('includes') || # FIXME subject is not exported to the template?
"/usr/local/www/hdl/htdocs/includes";
my $startfrom=$query->param('startfrom') || 0;
my $subject=$query->param('subject'); my $subject=$query->param('subject');
# if its a subject we need to use the subject.tmpl # if its a subject we need to use the subject.tmpl
@ -55,6 +54,7 @@ my $bi=$query->param('bi');
my $data=bibitemdata($bi); my $data=bibitemdata($bi);
my $dewey = $data->{'dewey'}; my $dewey = $data->{'dewey'};
# FIXME Dewey is a string, not a number, & we should use a function
$dewey =~ s/0+$//; $dewey =~ s/0+$//;
if ($dewey eq "000.") { $dewey = "";}; if ($dewey eq "000.") { $dewey = "";};
if ($dewey < 10){$dewey='00'.$dewey;} if ($dewey < 10){$dewey='00'.$dewey;}
@ -92,6 +92,7 @@ foreach my $item (@items){
$item->{'ordernumber'} = $ordernum; $item->{'ordernumber'} = $ordernum;
$item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'}; $item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'};
# FIXME untranslatable strings
if ($item->{'date_due'} eq 'Available'){ if ($item->{'date_due'} eq 'Available'){
$item->{'issue'}="<b>Available</b><br>"; $item->{'issue'}="<b>Available</b><br>";
} else { } else {
@ -99,9 +100,13 @@ foreach my $item (@items){
} }
} }
$template->param(includesdir => $includes);
$template->param(BIBITEM_DATA => \@results); $template->param(BIBITEM_DATA => \@results);
$template->param(ITEM_DATA => \@items); $template->param(ITEM_DATA => \@items);
$template->param(loggedinuser => $loggedinuser); $template->param(loggedinuser => $loggedinuser);
print "Content-Type: text/html\n\n", $template->output;
output_html_with_http_headers $query, $cookie, $template->output;
# Local Variables:
# tab-width: 8
# End: