[Bio] / Sprout / Sprout.pm Repository:
ViewVC logotype

Diff of /Sprout/Sprout.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50, Fri Oct 21 03:29:35 2005 UTC revision 1.52, Mon Dec 12 21:48:57 2005 UTC
# Line 1482  Line 1482 
1482      my $genomeData = $self->GetEntity('Genome', $genomeID);      my $genomeData = $self->GetEntity('Genome', $genomeID);
1483      if ($genomeData) {      if ($genomeData) {
1484          # The genome exists, so get the completeness flag.          # The genome exists, so get the completeness flag.
1485          ($retVal) = $genomeData->Value('complete');          ($retVal) = $genomeData->Value('Genome(complete)');
1486      }      }
1487      # Return the result.      # Return the result.
1488      return $retVal;      return $retVal;
# Line 3237  Line 3237 
3237  the user and the assigning user (from MadeAnnotation) will be the same, but that is  the user and the assigning user (from MadeAnnotation) will be the same, but that is
3238  not always the case.  not always the case.
3239    
3240    In addition, the functional role may contain extra data that is stripped, such as
3241    terminating spaces or a comment separated from the rest of the text by a tab.
3242    
3243  This is a static method.  This is a static method.
3244    
3245  =over 4  =over 4
# Line 3269  Line 3272 
3272          # Here we have an assignment without a user, so we use the incoming user ID.          # Here we have an assignment without a user, so we use the incoming user ID.
3273          @retVal = ($user, $function);          @retVal = ($user, $function);
3274      } elsif ($type =~ m/^set (\S+) function to$/i) {      } elsif ($type =~ m/^set (\S+) function to$/i) {
3275          # Here we have an assignment with a user, that is passed back to the caller.          # Here we have an assignment with a user that is passed back to the caller.
3276          @retVal = ($1, $function);          @retVal = ($1, $function);
3277      }      }
3278        # If we have an assignment, we need to clean the function text. There may be
3279        # extra junk at the end added as a note from the user.
3280        if (@retVal) {
3281            $retVal[1] =~ s/(\t\S)?\s*$//;
3282        }
3283      # Return the result list.      # Return the result list.
3284      return @retVal;      return @retVal;
3285  }  }
# Line 3359  Line 3367 
3367      $self->Insert('HasProperty', { 'from-link' => $featureID, 'to-link' => $propID, evidence => $url });      $self->Insert('HasProperty', { 'from-link' => $featureID, 'to-link' => $propID, evidence => $url });
3368  }  }
3369    
3370    
3371  1;  1;

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.52

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3