Wow, I really must be losing it.
OK, one more time:
$u->{'_maunsell'}->{'department'} =
sub {
print "Choose department:\n";
return menu_choice (map { $_ => $_ }
('Admin', 'Civil', 'Mechanical',
[etc.]
));
};
$u->{'_maunsell'}->{'role'} =
sub {
print "Choose role\n";
return menu_choice (map { $_ => $_ }
('Secretary', 'Engineer', 'Draftsman',
[etc.]
));
};
This is my own fault for making menu_choice and multi_choice
inconsistent, so even I cannot remember how to use them...
- Pat
-------------------------------------------------------
This SF.Net email is sponsored by: SourceForge.net Broadband
Sign-up now for SourceForge Broadband and get the fastest
6.0/768 connection for only $19.95/mo for the first 3 months!
http://ads.osdn.com/?ad_id=2562&alloc_id=6184&op=click
_______________________________________________
unattended-info mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unattended-info
