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

(-)a/C4/Biblio.pm (-7 / +11 lines)
Lines 1446-1458 sub GetCOinSBiblio { Link Here
1446
=head2 GetMarcPrice
1446
=head2 GetMarcPrice
1447
1447
1448
return the prices in accordance with the Marc format.
1448
return the prices in accordance with the Marc format.
1449
1449
=cut
1450
=cut
1450
1451
1451
sub GetMarcPrice {
1452
sub GetMarcPrice {
1452
    my ( $record, $marcflavour ) = @_;
1453
    my ( $record, $marcflavour ) = @_;
1453
    my @listtags;
1454
    my @listtags;
1454
    my $subfield;
1455
    my $subfield;
1455
    
1456
1456
    if ( $marcflavour eq "MARC21" ) {
1457
    if ( $marcflavour eq "MARC21" ) {
1457
        @listtags = ('345', '020');
1458
        @listtags = ('345', '020');
1458
        $subfield="c";
1459
        $subfield="c";
Lines 3393-3400 sub get_biblio_authorised_values { Link Here
3393
3394
3394
=head2 CountBiblioInOrders
3395
=head2 CountBiblioInOrders
3395
3396
3396
=over 4
3397
=over
3397
$count = &CountBiblioInOrders( $biblionumber);
3398
3399
=item $count = &CountBiblioInOrders( $biblionumber);
3398
3400
3399
=back
3401
=back
3400
3402
Lines 3416-3423 sub CountBiblioInOrders { Link Here
3416
3418
3417
=head2 GetSubscriptionsId
3419
=head2 GetSubscriptionsId
3418
3420
3419
=over 4
3421
=over
3420
$subscriptions = &GetSubscriptionsId($biblionumber);
3422
3423
=item $subscriptions = &GetSubscriptionsId($biblionumber);
3421
3424
3422
=back
3425
=back
3423
3426
Lines 3439-3446 sub GetSubscriptionsId { Link Here
3439
3442
3440
=head2 GetHolds
3443
=head2 GetHolds
3441
3444
3442
=over 4
3445
=over
3443
$holds = &GetHolds($biblionumber);
3446
3447
=item $holds = &GetHolds($biblionumber);
3444
3448
3445
=back
3449
=back
3446
3450
(-)a/C4/UploadedFiles.pm (-1 / +1 lines)
Lines 180-186 sub UploadFile { Link Here
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
(-)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/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/upload.tt (-1 / +1 lines)
Lines 4-10 Link Here
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>
(-)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