140 |
my @reactions = $sprout->GetFlat(['Catalyzes'], 'Catalyzes(from-link) = ?', |
my @reactions = $sprout->GetFlat(['Catalyzes'], 'Catalyzes(from-link) = ?', |
141 |
[$roleID], 'Catalyzes(to-link)'); |
[$roleID], 'Catalyzes(to-link)'); |
142 |
# Put them in the reaction hash. |
# Put them in the reaction hash. |
143 |
|
if (@reactions > 0) { |
144 |
$reactionHash{$roleID} = \@reactions; |
$reactionHash{$roleID} = \@reactions; |
145 |
} |
} |
146 |
|
} |
147 |
# Create the subsystem object. |
# Create the subsystem object. |
148 |
$retVal = { |
$retVal = { |
149 |
# Name of the subsystem. This is needed for any further database |
# Name of the subsystem. This is needed for any further database |