Try this:
sub {
my $DrType = shift;
my $table = $DB->table('Select_Entries');
my $sth = ""; my $key = "";
if ($DrType eq "PTherapy") {
......
}
}
Now, you can use <%global_name($DrType)%>
Hope that helps.
TheStone.
B.
sub {
my $DrType = shift;
my $table = $DB->table('Select_Entries');
my $sth = ""; my $key = "";
if ($DrType eq "PTherapy") {
......
}
}
Now, you can use <%global_name($DrType)%>
Hope that helps.
TheStone.
B.