Sub renamed according to the coding guidelines

diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl
index 4a85735..8b0fb49 100755 (executable)
--- a/catalogue/MARCdetail.pl
+++ b/catalogue/MARCdetail.pl
@@ -56,7 +56,7 @@ use C4::Koha;
 use MARC::Record;
 use C4::Biblio;
 use C4::Acquisition;
-use C4::Bull; #uses getsubscriptionsfrombiblionumber
+use C4::Serials; #uses getsubscriptionsfrombiblionumber
 use HTML::Template;
 use C4::Search;
 
@@ -226,7 +226,7 @@ foreach my $subfield_code (keys(%witness)) {
        push(@header_value_loop, \%header_value);
 }
 
-my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
+my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
 $template->param(item_loop => \@item_value_loop,
                                                item_header_loop => \@header_value_loop,
                                                biblionumber => $biblionumber,

diff --git a/catalogue/detail.pl b/catalogue/detail.pl
index 7e2b6bd..7f06929 100755 (executable)
--- a/catalogue/detail.pl
+++ b/catalogue/detail.pl
@@ -31,7 +31,7 @@ my $dat                                   = &bibdata($biblionumber);
 my ($authorcount, $addauthor)             = &getaddauthor($biblionumber);
 my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
 my ($websitecount, @websites)             = &getwebsites($biblionumber);
-my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
+my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
 
 $dat->{'count'}=@items;