| 
      
            Lines 1138-1155
          sub ModSerialStatus {
      
      
        Link Here
      
     | 
  
        
          | 1138 | 
                      $sth   = $dbh->prepare($query);  | 
          1138 | 
                      $sth   = $dbh->prepare($query);  | 
        
        
          | 1139 | 
                      $sth->execute($subscriptionid);  | 
          1139 | 
                      $sth->execute($subscriptionid);  | 
        
        
          | 1140 | 
                      my ( $missinglist, $recievedlist ) = $sth->fetchrow;  | 
          1140 | 
                      my ( $missinglist, $recievedlist ) = $sth->fetchrow;  | 
        
          
            
              | 1141 | 
                          if ( $status == 2 ) { | 
              1141 | 
               | 
            
            
               | 
               | 
              1142 | 
                          #Arrived: add to received list, remove from missing  | 
            
            
              | 1143 | 
                          if($status==2) { | 
            
        
          | 1142 | 
                          $recievedlist .= "; $serialseq"  | 
          1144 | 
                          $recievedlist .= "; $serialseq"  | 
        
        
          | 1143 | 
                              if $recievedlist!~/(^|;)\s*$serialseq(?=;|$)/;  | 
          1145 | 
                              if $recievedlist!~/(^|;)\s*$serialseq(?=;|$)/;  | 
        
            
               | 
               | 
              1146 | 
                              $missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g;  | 
            
        
          | 1144 | 
                      }  | 
          1147 | 
                      }  | 
        
          
            
              | 1145 | 
                          # in case serial has been previously marked as missing  | 
              1148 | 
                          #Expected,late,claimed: remove optionally from received+missing  | 
            
            
              | 1146 | 
                          if (grep /$status/, (1,2,3,7)) { | 
              1149 | 
                          if (grep /$status/, (1,3,7)) { | 
            
            
               | 
               | 
              1150 | 
                              $recievedlist=~ s/(^|;)\s*$serialseq(?=;|$)//g;  | 
            
        
          | 1147 | 
                          $missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g;  | 
          1151 | 
                          $missinglist=~ s/(^|;)\s*$serialseq(?=;|$)//g;  | 
        
        
          | 1148 | 
                      }  | 
          1152 | 
                      }  | 
        
          
            
              | 1149 | 
                          $missinglist .= "; $serialseq"  | 
              1153 | 
                          #Missing, not available: add to missing, remove from received  | 
            
            
              | 1150 | 
                              if $status==4 && $missinglist!~/(^|;)\s*$serialseq(?=;|$)/;  | 
              1154 | 
                          #No longer putting additional text into missing field  | 
            
            
              | 1151 | 
                          $missinglist .= "; not issued $serialseq"  | 
              1155 | 
                          if($status==4 || $status==5) { | 
            
            
              | 1152 | 
                              if $status==5 && $missinglist!~/(^|;)\s*$serialseq(?=;|$)/;  | 
              1156 | 
                              $missinglist .= "; $serialseq"  | 
            
            
               | 
               | 
              1157 | 
                                  if $missinglist!~/(^|;)\s*$serialseq(?=;|$)/;  | 
            
            
              | 1158 | 
                              $recievedlist=~ s/(^|;)\s*$serialseq(?=;|$)//g;  | 
            
            
              | 1159 | 
                          }  | 
            
        
          | 1153 | 
           | 
          1160 | 
           | 
        
        
          | 1154 | 
                      $query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE  subscriptionid=?";  | 
          1161 | 
                      $query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE  subscriptionid=?";  | 
        
        
          | 1155 | 
                      $sth   = $dbh->prepare($query);  | 
          1162 | 
                      $sth   = $dbh->prepare($query);  | 
        
            
              | 1156 | 
              -   | 
               | 
               |