webif/var/mongoose/html/sched/cancel.jim

#!/mod/bin/jimsh

package require cgi
source /mod/var/mongoose/lib/setup
require rsv.class system.class

puts "Content-Type: text/html"
puts ""

cgi_input
#cgi_dump

set slot [cgi_get slot 0]
set table [cgi_get table TBL_RESERVATION] 

set event [rsv slot $table $slot]

if {$table eq "pending"} {
	$event remove_pending
	exit
}

$event clear_ulslot
$event set_delete
$event insert

system restartpending