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