Attachment #18772 for bug #6874

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

Lines 140-146 sub finddirs { Link Here

(-)a/cataloguing/value_builder/upload.pl (-1 / +1 lines)
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($_);




my $file_path = $file->{filepath};

if( -f $file_path ) {
    open my $fh, '<', $file_path or die "Can't open file: $!";
    print $input->header(
        -type => "application/octet-stream",
        -attachment => $file->{filename}
    );
    while(<$fh>) {
        print $_;
    }
} else {
- 

Return to bug 6874

Lines 32-43 exit 1 if not $file; Link Here

(-)a/opac/opac-retrieve-file.pl (-3 / +2 lines)
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	-