[Koha-cvs] CVS: koha moredetail.pl,1.19,1.20

[Ambrose Li]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv19188

Modified Files:
	moredetail.pl 
Log Message:
Make sure it handles non-latin1 charsets (It seems to display correctly
due to an unknown reason, but just in case)

Noted correct tab size

A few other notes


Index: moredetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/moredetail.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** moredetail.pl	9 Feb 2003 09:00:12 -0000	1.19
--- moredetail.pl	9 Feb 2003 09:07:11 -0000	1.20
***************
*** 1,7 ****
  #!/usr/bin/perl
  
  # $Id$
  
! # Copyright 2000-2002 Katipo Communications
  #
  # This file is part of Koha.
--- 1,8 ----
  #!/usr/bin/perl
+ # NOTE: Use standard 8-space tabs for this file (indents are 4 spaces)
  
  # $Id$
  
! # Copyright 2000-2003 Katipo Communications
  #
  # This file is part of Koha.
***************
*** 29,39 ****
  use C4::Output; # contains gettemplate
  use C4::Auth;
    
  my $query=new CGI;
  
! my $includes = C4::Context->config('includes') ||
! 	"/usr/local/www/hdl/htdocs/includes";
! my $startfrom=$query->param('startfrom') || 0;
! 
  my $subject=$query->param('subject');
  
--- 30,38 ----
  use C4::Output; # contains gettemplate
  use C4::Auth;
+ use C4::Interface::CGI::Output;
    
  my $query=new CGI;
  
! # FIXME  subject is not exported to the template?
  my $subject=$query->param('subject');
  
***************
*** 56,59 ****
--- 55,59 ----
  my $data=bibitemdata($bi);
  my $dewey = $data->{'dewey'};
+ # FIXME Dewey is a string, not a number, & we should use a function
  $dewey =~ s/0+$//;
  if ($dewey eq "000.") { $dewey = "";};
***************
*** 93,96 ****
--- 93,97 ----
      $item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'};
  
+     # FIXME untranslatable strings
      if ($item->{'date_due'} eq 'Available'){
  	$item->{'issue'}="<b>Available</b><br>";
***************
*** 100,107 ****
  }
  
- $template->param(includesdir => $includes);
  $template->param(BIBITEM_DATA => \@results);
  $template->param(ITEM_DATA => \@items);
  $template->param(loggedinuser => $loggedinuser);
- print "Content-Type: text/html\n\n", $template->output;
  
--- 101,112 ----
  }
  
  $template->param(BIBITEM_DATA => \@results);
  $template->param(ITEM_DATA => \@items);
  $template->param(loggedinuser => $loggedinuser);
  
+ output_html_with_http_headers $query, $cookie, $template->output;
+ 
+ 
+ # Local Variables:
+ # tab-width: 8
+ # End: