Attachment #36199 for bug #6874

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





=head2 CountBiblioInOrders

=over

=item $count = &CountBiblioInOrders( $biblionumber);

=back



=head2 GetSubscriptionsId

=over

=item $subscriptions = &GetSubscriptionsId($biblionumber);

=back



=head2 GetHolds

=over

=item $holds = &GetHolds($biblionumber);

=back


Lines 180-186 sub UploadFile { Link Here

(-)a/C4/UploadedFiles.pm (-1 / +1 lines)
180	return $id;	180	return $id;
181	}	181	}
182		182
183	return undef;	183	return;
184	}	184	}
185		185
186	=head2 DelUploadedFile	186	=head2 DelUploadedFile

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($_);

Lines 4-10 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/upload.tt (-1 / +1 lines)
4	<head>	4	<head>
5	<title>Upload plugin</title>	5	<title>Upload plugin</title>
6	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />	6	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
7	<script type="text/javascript" src="[% themelang %]/lib/jquery/jquery.js"></script>	7	<script type="text/javascript" src="/intranet-tmpl/lib/jquery/jquery.js"></script>
8	<link rel="stylesheet" type="text/css" href="[% themelang %]/css/staff-global.css" />	8	<link rel="stylesheet" type="text/css" href="[% themelang %]/css/staff-global.css" />
9		9
10	</head>	10	</head>




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 3481-3488 sub get_biblio_authorised_values { Link Here

(-)a/C4/Biblio.pm (-6 / +9 lines)
3481		3481
3482	=head2 CountBiblioInOrders	3482	=head2 CountBiblioInOrders
3483		3483
3484	=over 4	3484	=over
3485	$count = &CountBiblioInOrders( $biblionumber);	3485
		3486	=item $count = &CountBiblioInOrders( $biblionumber);
3486		3487
3487	=back	3488	=back
3488		3489
Lines 3504-3511 sub CountBiblioInOrders { Link Here
3504		3505
3505	=head2 GetSubscriptionsId	3506	=head2 GetSubscriptionsId
3506		3507
3507	=over 4	3508	=over
3508	$subscriptions = &GetSubscriptionsId($biblionumber);	3509
		3510	=item $subscriptions = &GetSubscriptionsId($biblionumber);
3509		3511
3510	=back	3512	=back
3511		3513
Lines 3527-3534 sub GetSubscriptionsId { Link Here
3527		3529
3528	=head2 GetHolds	3530	=head2 GetHolds
3529		3531
3530	=over 4	3532	=over
3531	$holds = &GetHolds($biblionumber);	3533
		3534	=item $holds = &GetHolds($biblionumber);
3532		3535
3533	=back	3536	=back
3534		3537

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	-