Changeset 133 for branches

Timestamp:

01/25/05 10:42:45 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Fix "change allocation type" glitch due to change of "Internal
netblock" typecode from ii to in

File:

• branches/stable/cgi-bin/main.cgi (modified) (2 diffs)

branches/stable/cgi-bin/main.cgi

@@ -1098 +1098 @@
 # this has now been Requested, so here goes.
 
-  if ($data[2] =~ /^d[nyc]|cn|ee|ii$/) {
+  if ($data[2] =~ /^d[nyc]|cn|ee|in$/) {
     # Block that can be changed
     my $blockoptions = "<select name=alloctype><option".
@@ -1106 +1106 @@
         (($data[2] eq 'cn') ? ' selected' : '') ." value='cn'>Customer netblock</option>\n<option".
         (($data[2] eq 'ee') ? ' selected' : '') ." value='ee'>End-use netblock</option>\n<option".
-        (($data[2] eq 'ii') ? ' selected' : '') ." value='ii'>Internal netblock</option>\n".
+        (($data[2] eq 'in') ? ' selected' : '') ." value='in'>Internal netblock</option>\n".
         "</select>\n";
     $html =~ s/\$\$TYPESELECT\$\$/$blockoptions/g;