Changeset 436 for trunk

Timestamp:

07/20/10 11:15:11 (14 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix up slight brokenness in admin.cgi:

• dangling, never-implemented "new allocation" link
• Retrieve and show "special" field for rWHOIS listings, don't use a textarea to display the submitted update info

File:

• trunk/cgi-bin/admin.cgi (modified) (4 diffs)

trunk/cgi-bin/admin.cgi

@@ -93 +93 @@
   print qq(WARNING:  There are FAR fewer controls on what you can do here.  Use the
 main interface if at all possible.
-<hr>
-<a href="admin.cgi?action=newalloc">Add allocation</a>
 <hr>
 <form action="admin.cgi" method="POST">
@@ -333 +331 @@
   }
   $sth = $ip_dbh->prepare("select custid,name,street,city,province,".
-        "country,pocode,phone,tech_handle,abuse_handle,admin_handle ".
+        "country,pocode,phone,tech_handle,abuse_handle,admin_handle,special ".
         "from customers where custid='$webvar{custid}'");
   $sth->execute;
-  my ($custid, $name, $street, $city, $prov, $country, $pocode, $phone, $tech, $abuse, $admin) =
+  my ($custid, $name, $street, $city, $prov, $country, $pocode, $phone, $tech, $abuse, $admin, $special) =
         $sth->fetchrow_array;
   print qq(<form action=admin.cgi method=POST>
@@ -358 +356 @@
 Note:  Only tech is required at the moment.
 </td>
-<td>"Special":</td><td><textarea name=special rows=4 cols=40></textarea></td>
+<td>"Special":</td><td><textarea name=special rows=4 cols=50>$special</textarea></td>
 </tr>
 <tr><td colspan=4 align=center><input type=submit value="Update"></td></tr>
@@ -403 +401 @@
  Admin: $webvar{admin_handle}<br>
 </td></tr>
-<tr><td>"Special":</td><td><textarea name=special rows=4 cols=40>$webvar{special}</textarea></td></tr>
+<tr><td>"Special":</td><td><pre>$webvar{special}</pre></td></tr>
 </table>
 <a href="admin.cgi?action=listcust">Back</a> to rWHOIS customer list<br>\n);