From 41759e603870893fd51f1dd8e46c10037cf39421 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Thu, 21 Mar 2013 23:47:27 +0100 Subject: [PATCH] bug 6874 follow-up fix POD syntax --- C4/Biblio.pm | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 084f965..c0a0cf3 100644 --- a/C4/Biblio.pm +++ b/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 -- 1.7.9.5