View | Details | Raw Unified | Return to bug 6874
Collapse All | Expand All

(-)a/cataloguing/value_builder/upload.pl (-1 / +1 lines)
Lines 140-146 sub finddirs { Link Here
140
    my $base = shift || $upload_path;
140
    my $base = shift || $upload_path;
141
    my $found = 0;
141
    my $found = 0;
142
    my @dirs;
142
    my @dirs;
143
    my @files = <$base/*>;
143
    my @files = glob("$base/*");
144
    foreach (@files) {
144
    foreach (@files) {
145
        if (-d $_ and -w $_) {
145
        if (-d $_ and -w $_) {
146
            my $lastdirname = basename($_);
146
            my $lastdirname = basename($_);
(-)a/opac/opac-retrieve-file.pl (-3 / +2 lines)
Lines 32-43 exit 1 if not $file; Link Here
32
my $file_path = $file->{filepath};
32
my $file_path = $file->{filepath};
33
33
34
if( -f $file_path ) {
34
if( -f $file_path ) {
35
    open FH, '<', $file_path or die "Can't open file: $!";
35
    open my $fh, '<', $file_path or die "Can't open file: $!";
36
    print $input->header(
36
    print $input->header(
37
        -type => "application/octet-stream",
37
        -type => "application/octet-stream",
38
        -attachment => $file->{filename}
38
        -attachment => $file->{filename}
39
    );
39
    );
40
    while(<FH>) {
40
    while(<$fh>) {
41
        print $_;
41
        print $_;
42
    }
42
    }
43
} else {
43
} else {
44
- 

Return to bug 6874