Lines 1488-1494
sub GetMarcPrice {
Link Here
|
1488 |
|
1488 |
|
1489 |
my @listtags; |
1489 |
my @listtags; |
1490 |
my $subfield; |
1490 |
my $subfield; |
1491 |
|
1491 |
|
1492 |
if ( $marcflavour eq "MARC21" ) { |
1492 |
if ( $marcflavour eq "MARC21" ) { |
1493 |
@listtags = ('345', '020'); |
1493 |
@listtags = ('345', '020'); |
1494 |
$subfield="c"; |
1494 |
$subfield="c"; |
Lines 3500-3507
sub get_biblio_authorised_values {
Link Here
|
3500 |
|
3500 |
|
3501 |
=head2 CountBiblioInOrders |
3501 |
=head2 CountBiblioInOrders |
3502 |
|
3502 |
|
3503 |
=over 4 |
3503 |
=over |
3504 |
$count = &CountBiblioInOrders( $biblionumber); |
3504 |
|
|
|
3505 |
=item $count = &CountBiblioInOrders( $biblionumber); |
3505 |
|
3506 |
|
3506 |
=back |
3507 |
=back |
3507 |
|
3508 |
|
Lines 3523-3530
sub CountBiblioInOrders {
Link Here
|
3523 |
|
3524 |
|
3524 |
=head2 GetSubscriptionsId |
3525 |
=head2 GetSubscriptionsId |
3525 |
|
3526 |
|
3526 |
=over 4 |
3527 |
=over |
3527 |
$subscriptions = &GetSubscriptionsId($biblionumber); |
3528 |
|
|
|
3529 |
=item $subscriptions = &GetSubscriptionsId($biblionumber); |
3528 |
|
3530 |
|
3529 |
=back |
3531 |
=back |
3530 |
|
3532 |
|
Lines 3546-3553
sub GetSubscriptionsId {
Link Here
|
3546 |
|
3548 |
|
3547 |
=head2 GetHolds |
3549 |
=head2 GetHolds |
3548 |
|
3550 |
|
3549 |
=over 4 |
3551 |
=over |
3550 |
$holds = &GetHolds($biblionumber); |
3552 |
|
|
|
3553 |
=item $holds = &GetHolds($biblionumber); |
3551 |
|
3554 |
|
3552 |
=back |
3555 |
=back |
3553 |
|
3556 |
|