[Nh-pm] Record Errors

[Black, Franklin]

foreach my $rec (@farray1)
{
 my @parray=@{$rec->{'parray}};
 if(SearchForm($rec)==0)
 {
    print "$rec->{'rev'}\n";
 }


}


This was working, now it says "Error after rev"

Everytime I use the ->{}, I get an error.