Lines 64-70
BEGIN {
Link Here
|
64 |
@EXPORT = qw( |
64 |
@EXPORT = qw( |
65 |
&NewSubscription &ModSubscription &DelSubscription |
65 |
&NewSubscription &ModSubscription &DelSubscription |
66 |
&GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber |
66 |
&GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber |
67 |
&SearchSubscriptions |
67 |
&SearchSubscriptions &GetItemnumberFromSerialId |
68 |
&GetFullSubscriptionsFromBiblionumber &GetFullSubscription &ModSubscriptionHistory |
68 |
&GetFullSubscriptionsFromBiblionumber &GetFullSubscription &ModSubscriptionHistory |
69 |
&HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire |
69 |
&HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire |
70 |
&GetSubscriptionHistoryFromSubscriptionId |
70 |
&GetSubscriptionHistoryFromSubscriptionId |
Lines 182-187
sub GetSerialStatusFromSerialId {
Link Here
|
182 |
return $dbh->prepare($query); |
182 |
return $dbh->prepare($query); |
183 |
} |
183 |
} |
184 |
|
184 |
|
|
|
185 |
=head2 GetItemnumberFromSerialId |
186 |
|
187 |
$itemnumber = GetSerialInformation($serialid); |
188 |
this function returns the itemnumber, given a serialid in parameter |
189 |
return : itemnumber |
190 |
|
191 |
=cut |
192 |
|
193 |
sub GetItemnumberFromSerialId { |
194 |
my ($serialid) = @_; |
195 |
my $dbh = C4::Context->dbh; |
196 |
my $query = qq| |
197 |
SELECT itemnumber |
198 |
FROM serialitems |
199 |
WHERE serialid = ? |
200 |
|; |
201 |
my $sth = $dbh->prepare($query); |
202 |
$sth->execute($serialid); |
203 |
my ($result) = $sth->fetchrow; |
204 |
return ($result); |
205 |
} |
206 |
|
207 |
|
208 |
|
185 |
=head2 GetSerialInformation |
209 |
=head2 GetSerialInformation |
186 |
|
210 |
|
187 |
|
211 |
|