GetSubscription... renamed to CountSubscription...

diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl
index 8b0fb49..6cd9c05 100755 (executable)
--- a/catalogue/MARCdetail.pl
+++ b/catalogue/MARCdetail.pl
@@ -226,7 +226,7 @@ foreach my $subfield_code (keys(%witness)) {
        push(@header_value_loop, \%header_value);
 }
 
-my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
+my $subscriptionsnumber = CountSubscriptionFromBiblionumber($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 7f06929..4c6a2d1 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 = CountSubscriptionFromBiblionumber($biblionumber);
 
 $dat->{'count'}=@items;
 

diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl
index b23b039..2811aa1 100755 (executable)
--- a/opac/opac-ISBDdetail.pl
+++ b/opac/opac-ISBDdetail.pl
@@ -76,7 +76,7 @@ my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
 my $record =MARCgetbiblio($dbh,$bibid);
 
 #coping with subscriptions
-my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
+my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
 my $dat = MARCmarc2koha($dbh,$record);
 my @subscriptions = GetSubscriptions($dat->{title},$dat->{issn},$biblionumber);
 my @subs;

diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index 84f329e..4cf4e9a 100755 (executable)
--- a/opac/opac-detail.pl
+++ b/opac/opac-detail.pl
@@ -51,10 +51,10 @@ 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 = CountSubscriptionFromBiblionumber($biblionumber);
 
 #coping with subscriptions
-my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
+my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
 my @subscriptions       =
   GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
 my @subs;
@@ -144,7 +144,7 @@ my $titlewords   = \@title;
 my $authorwords  = \@author;
 
 #coping with subscriptions
-my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
+my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
 my @subscriptions       =
   GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
 my @subs;