%# Information Center, n.:
%# 	A room staffed by professional computer people whose job it is
%# to tell you why you cannot have the information you require.
<option></option>
%     my $UserObj = $session{CurrentUser}->UserObj;
%     my $Table = $UserObj->procedures_cname();
%     foreach my $key (sort { $a <=> $b } keys %$Table) {
%	    my $selected = 'SELECTED' if $Default eq $key;
<option value="<% $key %>" <% $selected %>><% $Table->{$key} %></option>
%     }
<%ARGS>
$Default => ''
</%ARGS>
