Support for deletion

diff --git a/src/InfoCon/stempel/edit.wml b/src/InfoCon/stempel/edit.wml
index f741d8d..be6a598 100644 (file)
--- a/src/InfoCon/stempel/edit.wml
+++ b/src/InfoCon/stempel/edit.wml
@@ -84,6 +84,7 @@ input.submit {
 
 <p><center>
 <input class=submit type=submit value="Update">
+<input class=submit type=submit name=delete value="Delete">
 </center><p>
 </form>
 

diff --git a/src/InfoCon/stempel/update.wml b/src/InfoCon/stempel/update.wml
index dd71893..46e2cd6 100644 (file)
--- a/src/InfoCon/stempel/update.wml
+++ b/src/InfoCon/stempel/update.wml
@@ -20,15 +20,23 @@
         or die("Unable to connect to SQL server");
 
 
-  $query = sprintf("UPDATE stempel SET time=%d, task='%s' WHERE oid = %s",
-                  hour2min($_POST['time']),
-                  pg_escape_string($dbh, $_POST['task']),
-                  $_POST['oid']);
-
-  $sth = pg_exec ($dbh, $query);
+  if (isset($_POST['delete'])) {
+    $query = sprintf("DELETE FROM stempel WHERE oid = %s",
+                    $_POST['oid']);
+
+    $sth = pg_exec ($dbh, $query);
+    echo('<p><strong>Deleted.</strong></p>');
+  } else {
+    $query = sprintf("UPDATE stempel SET time=%d, task='%s' WHERE oid = %s",
+                    hour2min($_POST['time']),
+                    pg_escape_string($dbh, $_POST['task']),
+                    $_POST['oid']);
+
+    $sth = pg_exec ($dbh, $query);
+    echo('<p><strong>Updated.</strong></p>');
+  }
 
 ?>
-<p><strong>Updated.</strong></p>
 
 <p>Return to <a href="index.php">Index</a></p>