diff --git a/db/Node.pm.in b/db/Node.pm.in index 4e5ba5ae8c8dec137669a033d6bdd66466591ab4..c79f5aba3d5199d810a08cf190c5cfe6f2072d6f 100644 --- a/db/Node.pm.in +++ b/db/Node.pm.in @@ -739,29 +739,6 @@ sub GetEventState($$) return 0; } -# -# We do this cause we always want to go to the DB. -# -sub GetEventState($$) -{ - my ($self, $pstate) = @_; - my $node_id = $self->node_id(); - - my $query_result = - DBQueryWarn("select eventstate from nodes where node_id='$node_id'"); - return -1 - if (!$query_result || !$query_result->numrows); - - my ($state) = $query_result->fetchrow_array(); - $state = TBDB_NODESTATE_UNKNOWN - if (!defined($state)); - - $self->{'DBROW'} = $state - if (defined($self->{'DBROW'})); - $$pstate = $state; - return 0; -} - # # Equality test for two experiments. # Not strictly necessary in perl, but good form.