|
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 |
- |
|
|