Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

last bugfix before releasing 1.3.3. Not trully a bugfix (see release …

…notes)
  • Loading branch information...
commit 95791d11cfc36fce8caa64405f78f4f175e3219b 1 parent 22e89e1
tipaul authored
Showing with 7 additions and 7 deletions.
  1. +7 −7 C4/Output.pm
View
14 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=<FILE>;
close FILE;
Please sign in to comment.
Something went wrong with that request. Please try again.