# from MxScreen in TSA (see also PCB 19.12)
%State_Table = (
Initial => \&show_top,
Execute => \&run_query,
Format => \&get_format,
Login => \&resister_login,
Review => \&review_selections,
Sorting => \&get_sorting,
Wizard => \&wizards_only,
);
foreach my $state (sort keys %State_Table) {
my $function = $State_Table{$state};
my $how = ($action == $function)
? SCREEN_DISPLAY
: SCREEN_HIDDEN;
$function->($how);
}
Forward to Closures
Back to Configuration Files
Up to index
Copyright © 1998, Tom Christiansen
All rights reserved.