Squash of the following commits:
return with explicit undef removed
Follow-up for PBP fixes
follow-up fix POD syntax
follow-up jquery has moved
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
Signed-off-by: Mark Tompsett <mtompset@hotmail.com>
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Amended: removed POD changes in Biblio.pm while rebasing.
Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar>
return $id;
}
- return undef;
+ return;
}
=head2 DelUploadedFile
my $base = shift || $upload_path;
my $found = 0;
my @dirs;
- my @files = <$base/*>;
+ my @files = glob("$base/*");
foreach (@files) {
if (-d $_ and -w $_) {
my $lastdirname = basename($_);
<head>
<title>Upload plugin</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
- <script type="text/javascript" src="[% themelang %]/lib/jquery/jquery.js"></script>
+ <script type="text/javascript" src="/intranet-tmpl/lib/jquery/jquery.js"></script>
<link rel="stylesheet" type="text/css" href="[% themelang %]/css/staff-global.css" />
</head>
my $file_path = $file->{filepath};
if( -f $file_path ) {
- open FH, '<', $file_path or die "Can't open file: $!";
+ open my $fh, '<', $file_path or die "Can't open file: $!";
print $input->header(
-type => "application/octet-stream",
-attachment => $file->{filename}
);
- while(<FH>) {
+ while(<$fh>) {
print $_;
}
} else {
projects / koha.git / commitdiff