Attachment #26879 for bug #6874

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





    my @listtags;
    my $subfield;

    if ( $marcflavour eq "MARC21" ) {
        @listtags = ('345', '020');
        $subfield="c";


=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 1485-1491 sub GetMarcPrice { Link Here

(-)a/C4/Biblio.pm (-7 / +10 lines)
1485		1485
1486	my @listtags;	1486	my @listtags;
1487	my $subfield;	1487	my $subfield;
1488		1488
1489	if ( $marcflavour eq "MARC21" ) {	1489	if ( $marcflavour eq "MARC21" ) {
1490	@listtags = ('345', '020');	1490	@listtags = ('345', '020');
1491	$subfield="c";	1491	$subfield="c";
Lines 3487-3494 sub get_biblio_authorised_values { Link Here
3487		3487
3488	=head2 CountBiblioInOrders	3488	=head2 CountBiblioInOrders
3489		3489
3490	=over 4	3490	=over
3491	$count = &CountBiblioInOrders( $biblionumber);	3491
		3492	=item $count = &CountBiblioInOrders( $biblionumber);
3492		3493
3493	=back	3494	=back
3494		3495
Lines 3510-3517 sub CountBiblioInOrders { Link Here
3510		3511
3511	=head2 GetSubscriptionsId	3512	=head2 GetSubscriptionsId
3512		3513
3513	=over 4	3514	=over
3514	$subscriptions = &GetSubscriptionsId($biblionumber);	3515
		3516	=item $subscriptions = &GetSubscriptionsId($biblionumber);
3515		3517
3516	=back	3518	=back
3517		3519
Lines 3533-3540 sub GetSubscriptionsId { Link Here
3533		3535
3534	=head2 GetHolds	3536	=head2 GetHolds
3535		3537
3536	=over 4	3538	=over
3537	$holds = &GetHolds($biblionumber);	3539
		3540	=item $holds = &GetHolds($biblionumber);
3538		3541
3539	=back	3542	=back
3540		3543

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	-