Changeset 133
- Timestamp:
- 01/25/05 10:42:45 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/cgi-bin/main.cgi
r125 r133 1098 1098 # this has now been Requested, so here goes. 1099 1099 1100 if ($data[2] =~ /^d[nyc]|cn|ee|i i$/) {1100 if ($data[2] =~ /^d[nyc]|cn|ee|in$/) { 1101 1101 # Block that can be changed 1102 1102 my $blockoptions = "<select name=alloctype><option". … … 1106 1106 (($data[2] eq 'cn') ? ' selected' : '') ." value='cn'>Customer netblock</option>\n<option". 1107 1107 (($data[2] eq 'ee') ? ' selected' : '') ." value='ee'>End-use netblock</option>\n<option". 1108 (($data[2] eq 'i i') ? ' selected' : '') ." value='ii'>Internal netblock</option>\n".1108 (($data[2] eq 'in') ? ' selected' : '') ." value='in'>Internal netblock</option>\n". 1109 1109 "</select>\n"; 1110 1110 $html =~ s/\$\$TYPESELECT\$\$/$blockoptions/g;
Note:
See TracChangeset
for help on using the changeset viewer.