ok figured a way to do it:
...
my ($wpar,$whandicap) = &get_par_handicaps;
my (@par) = split (/:/, $wpar);
my (@whandicap) = split (/:/, $whandicap);
...
sub get_par_handicaps {
# --------------------------------------------------------
# lookup course and get par for each hole
&switch_to_courses;
my (%course) = &get_record2('1'); # always berkeley hills = #1
return($course{'WPar'},$course{'WHandicap'});
}
...
my ($wpar,$whandicap) = &get_par_handicaps;
my (@par) = split (/:/, $wpar);
my (@whandicap) = split (/:/, $whandicap);
...
sub get_par_handicaps {
# --------------------------------------------------------
# lookup course and get par for each hole
&switch_to_courses;
my (%course) = &get_record2('1'); # always berkeley hills = #1
return($course{'WPar'},$course{'WHandicap'});
}