setclass_del.cgi

非常优秀的一套办公系统

$pagetitle="删除班级";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub setclass_del {
if (!$fields{'mon'}) {
&redirect("$indexurl?job=setclass$userinfo","指定班级不存在！");
} else {
	$getdel=0;
	open (DAT, "+<${datahead}Class.DB");
	flock(DAT,2) if ($OS);
	my @dbinfo=<DAT>;
	seek(DAT,0,0);
	foreach (@dbinfo){
($classmon,$classname,$classt1,$classt2,$classt3,$cmust1,$cmust2,$cmust3,$cmust4,$cmust5,$cmust6,$cmust7,$cmust8,$cmust9,$cmust10,$cmust11,$cmust12,$cmust13,$cmust14,$cmust15,$cmust16,$cmust17,$cmust18,$cmust19,$cmust20,$cmust21,$last) = split(/\‖/,$_);
		if ($classmon eq $fields{'mon'}) {$getdel=1;
		} else {print DAT $_;}
	}
	truncate (DAT,tell(DAT));
	flock(DAT,8) if ($OS);
	close(DAT);
	if ($getdel) {&redirect("$indexurl?job=setclass$userinfo","删除班级完成！");}
	else {&redirect("$indexurl?job=setclass$userinfo","指定班级不存在！");}
}
}