in reply to Mason and objects
sub RetriveBuildStatus($) { my $self=shift; my $division=shift; my $StatusRef=shift; my $sth=$self->{'dbh'}->prepare("select * from builds where build_n +ame='ASA150_NB'") || return "Unable to prepare $DBI::errstr"; .... .... } return 1;
|
|---|