From 6bdd53ded8b91b5f1f92d70b4b07e360697b9d6e Mon Sep 17 00:00:00 2001 From: acli Date: Sun, 19 Jan 2003 06:13:27 +0000 Subject: [PATCH] Added < to the filenames of open() calls --- C4/Output.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/C4/Output.pm b/C4/Output.pm index 98c0204a03..2fa88d1b16 100644 --- a/C4/Output.pm +++ b/C4/Output.pm @@ -382,19 +382,19 @@ sub endmenu { # FIXME - It's bad form to die in a CGI script. It's even worse form # to die without issuing an error message. if ($type eq 'issue') { - open (FILE,"$path/issues-bottom.inc") || die; + open (FILE,"<$path/issues-bottom.inc") || die; } elsif ($type eq 'opac') { - open (FILE,"$path/opac-bottom.inc") || die; + open (FILE,"<$path/opac-bottom.inc") || die; } elsif ($type eq 'member') { - open (FILE,"$path/members-bottom.inc") || die; + open (FILE,"<$path/members-bottom.inc") || die; } elsif ($type eq 'acquisitions') { - open (FILE,"$path/acquisitions-bottom.inc") || die; + open (FILE,"<$path/acquisitions-bottom.inc") || die; } elsif ($type eq 'report') { - open (FILE,"$path/reports-bottom.inc") || die; + open (FILE,"<$path/reports-bottom.inc") || die; } elsif ($type eq 'circulation') { - open (FILE,"$path/circulation-bottom.inc") || die; + open (FILE,"<$path/circulation-bottom.inc") || die; } else { - open (FILE,"$path/cat-bottom.inc") || die; + open (FILE,"<$path/cat-bottom.inc") || die; } my @string=; close FILE; -- 2.39.5