Changeset 709 for trunk/cgi-bin

Timestamp:

03/20/15 15:14:06 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Add a "delete" button for the admin tools SWIP customer editor. This
hack has finally hung around long enough to need one...

File:

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

trunk/cgi-bin/admin.cgi

@@ -236 +236 @@
 } elsif ($webvar{action} eq 'listcust') {
 
-  $sth = $ip_dbh->prepare("select custid,name,tech_handle from customers order by custid");
-  $sth->execute;
-  my @custlist;
-  while (my @data = $sth->fetchrow_array) {
-    my %row = (
-        custid => $data[0],
-        custname => $data[1],
-        tech => $data[2]
-        );
-    push @custlist, \%row;
-  }
-  $page->param(custlist => \@custlist);
+  my $clist = $ip_dbh->selectall_arrayref("SELECT custid,name AS custname,tech_handle AS tech ".
+        "FROM customers ORDER BY custid", { Slice => {} } );
+  $page->param(custlist => $clist);
 
 } elsif ($webvar{action} eq 'edcust') {
@@ -279 +270 @@
 } elsif ($webvar{action} eq 'updcust') {
 
-  $sth = $ip_dbh->prepare("UPDATE customers SET".
-        " name=?, street=?, city=?, province=?, country=?, pocode=?,".
-        " phone=?, tech_handle=?, abuse_handle=?, admin_handle=?, special=?".
-        " WHERE custid=?");
-  $sth->execute($webvar{name}, $webvar{street}, $webvar{city}, $webvar{province}, 
-        $webvar{country}, $webvar{pocode}, $webvar{phone}, $webvar{tech_handle}, 
-        $webvar{abuse_handle}, $webvar{admin_handle}, $webvar{special}, $webvar{custid});
+  if ($webvar{abutton} eq 'Update') {
+    $ip_dbh->do(q(
+        UPDATE customers
+        SET name = ?, street = ?, city = ?, province=?, country=?, pocode=?,
+        phone = ?, tech_handle = ?, abuse_handle = ?, admin_handle = ?, special = ?
+        WHERE custid = ?
+        ), undef,
+        ($webvar{name}, $webvar{street}, $webvar{city}, $webvar{province}, $webvar{country}, $webvar{pocode},
+        $webvar{phone}, $webvar{tech_handle}, $webvar{abuse_handle}, $webvar{admin_handle}, $webvar{special},
+        $webvar{custid})
+        );
+    $page->param(whatact => "Updated");
+  } elsif ($webvar{abutton} eq 'Delete (immediate)') {
+    $ip_dbh->do("DELETE FROM customers WHERE custid = ?", undef, $webvar{custid});
+    $page->param(whatact => "Deleted");
+  } else {
+    # Your llama is on fire
+  }
+  # Show what we've just either updated or deleted.
+  # Deleted, so that in case of "OOOPS!!", the "special" data can be recovered.
   $page->param(
         custid => $webvar{custid},