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