# script to show a PDF file.
# written 07/04
# by Veleda Matias - matias_veleda@hotmail.com - Physics Library UNLP Argentina and
-# Castañeda Sebastian - seba3c@yahoo.com.ar - Physics Library UNLP Argentina and
+# Castañeda Sebastian - seba3c@yahoo.com.ar - Physics Library UNLP Argentina and
# This file is part of Koha.
#
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-require Exporter;
+
use strict;
+#use warnings; FIXME - Bug 2505
use C4::Context;
use CGI;
print "Content-Disposition: attachment; filename = $filename\n\n";
print $cgi->header(-type => 'application/pdf'),
$cgi->start_html(-title=>"Codify to PDF");
-open fh, "<$tmpFileName";
-while (<fh>) {
- print;
+open FH, "<$tmpFileName";
+while (<FH>) {
+ print;
}
+close FH;
print $cgi->end_html();