Changeset 436 for trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/admin.cgi

    r431 r436  
    9393  print qq(WARNING:  There are FAR fewer controls on what you can do here.  Use the
    9494main interface if at all possible.
    95 <hr>
    96 <a href="admin.cgi?action=newalloc">Add allocation</a>
    9795<hr>
    9896<form action="admin.cgi" method="POST">
     
    333331  }
    334332  $sth = $ip_dbh->prepare("select custid,name,street,city,province,".
    335         "country,pocode,phone,tech_handle,abuse_handle,admin_handle ".
     333        "country,pocode,phone,tech_handle,abuse_handle,admin_handle,special ".
    336334        "from customers where custid='$webvar{custid}'");
    337335  $sth->execute;
    338   my ($custid, $name, $street, $city, $prov, $country, $pocode, $phone, $tech, $abuse, $admin) =
     336  my ($custid, $name, $street, $city, $prov, $country, $pocode, $phone, $tech, $abuse, $admin, $special) =
    339337        $sth->fetchrow_array;
    340338  print qq(<form action=admin.cgi method=POST>
     
    358356Note:  Only tech is required at the moment.
    359357</td>
    360 <td>"Special":</td><td><textarea name=special rows=4 cols=40></textarea></td>
     358<td>"Special":</td><td><textarea name=special rows=4 cols=50>$special</textarea></td>
    361359</tr>
    362360<tr><td colspan=4 align=center><input type=submit value="Update"></td></tr>
     
    403401 Admin: $webvar{admin_handle}<br>
    404402</td></tr>
    405 <tr><td>"Special":</td><td><textarea name=special rows=4 cols=40>$webvar{special}</textarea></td></tr>
     403<tr><td>"Special":</td><td><pre>$webvar{special}</pre></td></tr>
    406404</table>
    407405<a href="admin.cgi?action=listcust">Back</a> to rWHOIS customer list<br>\n);
Note: See TracChangeset for help on using the changeset viewer.