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

(-)a/C4/Biblio.pm (-8 / +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
3447
- 

Return to bug 6874