Index: astcc/astcc-admin.cgi
===================================================================
RCS file: /usr/cvsroot/astcc/astcc-admin.cgi,v
retrieving revision 1.8
diff -u -r1.8 astcc-admin.cgi
--- astcc/astcc-admin.cgi	18 Sep 2004 13:59:16 -0000	1.8
+++ astcc/astcc-admin.cgi	18 Sep 2004 21:22:42 -0000
@@ -272,7 +272,15 @@
 		} else {
  			$status = "Unable to Refill card". param('refillnum') . "'.";
 		}
-	} 
+	} elsif (param('action') eq "Reset...") {
+		$number = param('resetnum');
+		$newstatus = 0;
+		if ($dbh->do("UPDATE cards SET inuse= $newstatus WHERE number= $number")) { 
+			$status = "Reset card " . param('resetnum') . "'.";
+		} else {
+ 			$status = "Unable to Reset card ". param('resetnum') . "'.";
+		}
+	}
 	$total = &count_cards();
 	$used = &count_cards("WHERE firstuse > 0");
 	$status = "<i>$status</i><br>" . "<font color=#777777>$total cards outstanding, $used of which have been used</font>";
@@ -291,6 +299,9 @@
 	$body .= "<tr><td>Delete card&nbsp;&nbsp;" . hidden(-name => "mode", -value => "Cards") .
 		textfield(-name => "number", -size => 20)  . "&nbsp;&nbsp;&nbsp;&nbsp;" .
 		submit(-name => "action", -value => "Drop...") . "</td></tr>";	
+	$body .= "<tr><td>Reset in use info on card&nbsp;&nbsp;" . hidden(-name => "mode", -value => "Cards") .
+		textfield(-name => "resetnum", -size => 20)  . "&nbsp;&nbsp;&nbsp;&nbsp;" .
+		submit(-name => "action", -value => "Reset...") . "</td></tr>";	
 	$body .= "<tr><td>List Cards&nbsp;&nbsp;" . hidden(-name => "mode", -value => "Cards") .
 		submit(-name => "action", -value => "List_Cards...") . "</td></tr>";
 	$body .= "</table>";