% if ($saveCommand =~ /event/) { &main::checkPermissions("","CUSTOMIZE_EVENT_FIELDS"); } elsif ($saveCommand =~ /user/) { &main::checkPermissions("_global","CUSTOMIZE_USER_DB"); } $screenTitle = "Add/Edit Field"; unless ($record) { $record = {}; } $protected = $record->{'_protected'}; $required = ($record->{required}); if ($required eq "") { $required = 0; } $display = ($record->{display}); if ($display eq "") { $display = 1; } $display_details = ($record->{display_details}); if ($display_details eq "") { $display_details = 1; } $searchable = ($record->{searchable}); if ($searchable eq "") { $searchable = 1; } $defaultchecked = ($record->{defaultchecked}); if ($defaultchecked eq "") { $defaultchecked = 0; } if ($record->{options}) { @options = split(";",$record->{options}); for ($i=0; $i<$#options; $i+=2) { $selected = (($record->{defaultvalue} eq $options[$i+1])?"SELECTED":""); $optionsList .= ""; } } %>