From 95791d11cfc36fce8caa64405f78f4f175e3219b Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 6 Jan 2003 13:31:01 +0000 Subject: [PATCH] last bugfix before releasing 1.3.3. Not trully a bugfix (see release notes) --- C4/Output.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/C4/Output.pm b/C4/Output.pm index 0bd05ac530..98c0204a03 100644 --- a/C4/Output.pm +++ b/C4/Output.pm @@ -341,19 +341,19 @@ sub startmenu($) { # edit the paths in here my ($type)=shift; if ($type eq 'issue') { - open (FILE,"$path/issues-top.inc") || die; + open (FILE,"$path/issues-top.inc") || die "could not find : $path/issues-top.inc"; } elsif ($type eq 'opac') { - open (FILE,"$path/opac-top.inc") || die; + open (FILE,"$path/opac-top.inc") || die "could not find : $path/opac-top.inc"; } elsif ($type eq 'member') { - open (FILE,"$path/members-top.inc") || die; + open (FILE,"$path/members-top.inc") || die "could not find : $path/members-top.inc"; } elsif ($type eq 'acquisitions'){ - open (FILE,"$path/acquisitions-top.inc") || die; + open (FILE,"$path/acquisitions-top.inc") || die "could not find : $path/acquisition-top.inc"; } elsif ($type eq 'report'){ - open (FILE,"$path/reports-top.inc") || die; + open (FILE,"$path/reports-top.inc") || die "could not find : $path/reports-top.inc"; } elsif ($type eq 'circulation') { - open (FILE,"$path/circulation-top.inc") || die; + open (FILE,"$path/circulation-top.inc") || die "could not find : $path/circulation-top.inc"; } else { - open (FILE,"$path/cat-top.inc") || die; + open (FILE,"$path/cat-top.inc") || die "could not find : $path/cat-top.inc"; } my @string=; close FILE; -- 2.39.2