@@ -, +, @@ --- C4/Biblio.pm | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -1446,13 +1446,14 @@ sub GetCOinSBiblio { =head2 GetMarcPrice return the prices in accordance with the Marc format. + =cut sub GetMarcPrice { my ( $record, $marcflavour ) = @_; my @listtags; my $subfield; - + if ( $marcflavour eq "MARC21" ) { @listtags = ('345', '020'); $subfield="c"; @@ -3393,8 +3394,9 @@ sub get_biblio_authorised_values { =head2 CountBiblioInOrders -=over 4 -$count = &CountBiblioInOrders( $biblionumber); +=over + +=item $count = &CountBiblioInOrders( $biblionumber); =back @@ -3416,8 +3418,9 @@ sub CountBiblioInOrders { =head2 GetSubscriptionsId -=over 4 -$subscriptions = &GetSubscriptionsId($biblionumber); +=over + +=item $subscriptions = &GetSubscriptionsId($biblionumber); =back @@ -3439,8 +3442,9 @@ sub GetSubscriptionsId { =head2 GetHolds -=over 4 -$holds = &GetHolds($biblionumber); +=over + +=item $holds = &GetHolds($biblionumber); =back --