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