Does anyone see anything wrong with the following:
-labels=> {map ({$$_[0]=>$$[1]>0?"$$_[0] *":"$$_[0] _"} @$servers)},
I can not get the map to return the _true_ value... $$_[1] is either 1
or 0...
The following works...
-labels=> {map ({$$_[0]=>&imap($$_[0],$$_[1])} @$servers)},
sub imap{
my ($server, $selected) = @_;
return $selected>0?"$server *":"$server _";
}
TIA...
John W Moon
Systems Project Analyst
Enterprise Information Technology Services (EITS)
Department of Management Services
4050 Esplanade Way, Cube 235.3Z
Tallahassee, Fl 32399-0950
Office: (850)922-7511
Email: [EMAIL PROTECTED]
We Serve those who Serve Florida
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
