$pagetitle="刪除學生檔案";
&error("您沒有執行此操作的權限！") if ($ulevel ne "master");
sub pupil_del {
&error("指定學生檔案不存在！") if (!$fields{'did'} || !-e "$userhead$fields{'did'}.cgi");
&error("您沒有權限刪除這個檔案！") if ($fields{'did'} eq $MasterID);
unlink "$userhead$fields{'did'}.cgi";
&redirect("$indexurl?job=pupil&page=$fields{'page'}&mon=$fields{'mon'}&next=$setnext$userinfo","刪除用戶檔案完成！");
}
1;