635 |
sub get_hope_additional_reactions |
sub get_hope_additional_reactions |
636 |
{ |
{ |
637 |
my($self,$scenario_name) = @_; |
my($self,$scenario_name) = @_; |
638 |
Trace("Hope additional reactions not available in NMPDR.") if T(0); |
Trace("Hope additional reactions not available in NMPDR.") if T(0); ##HACK |
639 |
my @retVal; |
my @retVal; |
640 |
return @retVal; |
return @retVal; |
641 |
} |
} |
658 |
my $retVal = $self->{hopeReactions}; |
my $retVal = $self->{hopeReactions}; |
659 |
if (! defined($retVal)) { |
if (! defined($retVal)) { |
660 |
# They do not exist, so we must create them. |
# They do not exist, so we must create them. |
661 |
$retVal = FIGRules::GetHopeReactions($self, $self->{dir}); |
$retVal = FIGRules::GetHopeReactions($self, $self->{dir}); ##HACK |
662 |
# Insure we have it if we need it again. |
# Insure we have it if we need it again. |
663 |
$self->{hopeReactions} = $retVal; |
$self->{hopeReactions} = $retVal; |
664 |
} |
} |