[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.15, Wed Jun 22 21:30:45 2005 UTC revision 1.16, Fri Jun 24 21:45:45 2005 UTC
# Line 2432  Line 2432 
2432  sub SubsystemsOf {  sub SubsystemsOf {
2433      # Get the parameters.      # Get the parameters.
2434      my ($self, $featureID) = @_;      my ($self, $featureID) = @_;
2435      # Use the SSCell to connect features to subsystems.      # Get the subsystem list.
2436      my @subsystems = $self->GetAll(['ContainsFeature', 'HasSSCell', 'IsRoleOf'],      my @subsystems = $self->GetAll(['ContainsFeature', 'HasSSCell', 'IsRoleOf'],
2437                                      "ContainsFeature(to-link) = ?", [$featureID],                                      "ContainsFeature(to-link) = ?", [$featureID],
2438                                      ['HasSSCell(from-link)', 'IsRoleOf(from-link)']);                                      ['HasSSCell(from-link)', 'IsRoleOf(from-link)']);
# Line 2446  Line 2446 
2446      return %retVal;      return %retVal;
2447  }  }
2448    
2449    =head3 SubsystemList
2450    
2451    C<< my @subsystems = $sprout->SubsystemList($featureID); >>
2452    
2453    Return a list containing the names of the subsystems in which the specified
2454    feature participates. Unlike L</SubsystemsOf>, this method only returns the
2455    subsystem names, not the roles.
2456    
2457    =over 4
2458    
2459    =item featureID
2460    
2461    ID of the feature whose subsystem names are desired.
2462    
2463    =item RETURN
2464    
2465    Returns a list of the names of the subsystems in which the feature participates.
2466    
2467    =back
2468    
2469    =cut
2470    #: Return Type @;
2471    sub SubsystemList {
2472        # Get the parameters.
2473        my ($self, $featureID) = @_;
2474        # Get the list of names.
2475        my @retVal = $self->GetFlat(['ContainsFeature', 'HasSSCell'], "ContainsFeature(to-link) = ?",
2476                                    [$featureID], 'HasSSCell(from-link)');
2477        # Return the result.
2478        return @retVal;
2479    }
2480    
2481  =head3 RelatedFeatures  =head3 RelatedFeatures
2482    
2483  C<< my @relatedList = $sprout->RelatedFeatures($featureID, $function, $userID); >>  C<< my @relatedList = $sprout->RelatedFeatures($featureID, $function, $userID); >>

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3