webif/var/mongoose/html/sched/folder.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 sid 0]
set table [cgi_get table TBL_RESERVATION] 
set folder [cgi_get name -]
if {$folder eq "-"} {
	puts "Error - no folder."
	exit
}

set event [rsv slot $table $slot]

$event clear_ulslot
$event set_folder $folder
$event insert

system restartpending