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