Index: /trunk/cgi-bin/admin.cgi
===================================================================
--- /trunk/cgi-bin/admin.cgi	(revision 423)
+++ /trunk/cgi-bin/admin.cgi	(revision 424)
@@ -537,5 +537,6 @@
 
 # add new entries from this tangle:
-  print "Add new notification:<br>\n";
+  print "<h4>Add new notification:</h4>\n".
+	"Note:  Failure notices on most conditions are not yet supported.\n";
 
   print qq(<table border=1><form action=admin.cgi method="POST">
@@ -547,4 +548,5 @@
 	<input type=radio name=msgaction value=u>Update &nbsp;
 	<input type=radio name=msgaction value=d>Delete
+	<input type=radio name=msgaction value=s:>Special: <input name=special>(requires code changes)
 </td>
 <td>Failure?</td><td><input type=checkbox name=onfail></td></tr>
@@ -579,5 +581,4 @@
 
 } elsif ($webvar{action} eq 'addnotice') {
-##work
   $webvar{reciplist} =~ s/[\r\n]+/,/g;
   print "Adding notice to $webvar{reciplist} for ".dispNoticeCode($webvar{msgaction}.$webvar{alloctype}).":\n";
@@ -586,4 +587,15 @@
   $webvar{msgaction} = "f:$webvar{msgaction}" if $webvar{onfail};
   $sth->execute($webvar{msgaction}.$webvar{alloctype}, $webvar{reciplist});
+  if ($sth->err) {
+    print "Failed:  DB error: ".$sth->errstr."\n";
+  } else {
+    print "OK!<br>\n"
+  }
+  print qq(<a href="admin.cgi?action=emailnotice">Back to email notice list</a>\n);
+
+} elsif ($webvar{action} eq 'delnotice') {
+  print "Deleting notices on ".dispNoticeCode($webvar{code}.$webvar{alloctype}).":\n";
+  $sth = $ip_dbh->prepare("DELETE FROM notify WHERE action=?");
+  $sth->execute($webvar{code});
   if ($sth->err) {
     print "Failed:  DB error: ".$sth->errstr."\n";