Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

GetSubscription... renamed to CountSubscription...

Browse source
This commit is contained in:
toins 2006-07-12 17:18:10 +00:00
parent c05482a407
commit 77dc2a7f79
4 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
catalogue/MARCdetail.pl
View file

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

2
catalogue/detail.pl
View file

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

2
opac/opac-ISBDdetail.pl
View file

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

6
opac/opac-detail.pl
View file

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