setclass_add.cgi

非常优秀的一套办公系统

$pagetitle="增加班级";
&error("您没有执行此操作的权限！") if ($ulevel ne "master");
sub setclass_add {
if (!$fields{'classname'} || !$fields{'must1'}) {
&redirect("$indexurl?job=setclass$userinfo","班级名称及必修课不能为空！");
} else {
	$getadd=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'} && $fields{'mon'}) {
print DAT "$classmon‖$fields{'classname'}‖‖‖‖$fields{'must1'}‖$fields{'must2'}‖$fields{'must3'}‖$fields{'must4'}‖$fields{'must5'}‖$fields{'must6'}‖$fields{'must7'}‖$fields{'must8'}‖$fields{'must9'}‖$fields{'must10'}‖$fields{'must11'}‖$fields{'must12'}‖$fields{'must13'}‖$fields{'must14'}‖$fields{'must15'}‖$fields{'must16'}‖$fields{'must17'}‖$fields{'must18'}‖$fields{'must19'}‖$fields{'must20'}‖$fields{'must21'}‖end\n"; $getadd=1;
		} else {print DAT $_;}
	}
	if (!$getadd) {
$newclassmon=int($classmon); $newclassmon++; $newclassmon="0".$newclassmon if ($newclassmon<10);
print DAT "$newclassmon‖$fields{'classname'}‖‖‖‖$fields{'must1'}‖$fields{'must2'}‖$fields{'must3'}‖$fields{'must4'}‖$fields{'must5'}‖$fields{'must6'}‖$fields{'must7'}‖$fields{'must8'}‖$fields{'must9'}‖$fields{'must10'}‖$fields{'must11'}‖$fields{'must12'}‖$fields{'must13'}‖$fields{'must14'}‖$fields{'must15'}‖$fields{'must16'}‖$fields{'must17'}‖$fields{'must18'}‖$fields{'must19'}‖$fields{'must20'}‖$fields{'must21'}‖end\n"; $getadd=1;
	}
	truncate (DAT,tell(DAT));
	flock(DAT,8) if ($OS);
	close(DAT);
	&redirect("$indexurl?job=setclass$userinfo","操作完成！");
}

}