$pagetitle="學生檔案管理";
&error("您沒有執行此操作的權限！") if ($ulevel ne "master");
sub pupil {
$setedit=0;
$page=int($fields{'page'});
$pageurl="$indexurl?job=pupil$userinfo";
do "$cgihead/class.cgi";
$selectmon=$fields{'mon'};
print qq~
<table border='0' width='100%' cellspacing='1' bgcolor='#000000' cellpadding='0'>
  <tr>
    <td width='100%' bgcolor='#800000' height='19' align='center'><font color='#FFFFFF'><strong>::: 
    [檔案管理]所有學生檔案 :::</strong></font></td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align='center'><table border='0' width='99%'>
~;
@classinfo=readdatafile("Class.DB");
$outfilename="";
if ($fields{'mjob'} eq "out") {
  if (!$fields{'mon'}) {
	print "<script>alert('請先選擇一個班級！');</script>";
  } else {

for(@classinfo) {
($classmon,$classname,$last) = split(/\‖/,$_);
  last if ($classmon eq $fields{'mon'});
}
	$outfilename="$classname 學生檔案報表.csv";
	&put_fvar(">$outfilename","學號,姓名,性別,選修\n");
  }
}
@dblist=&getuser("$fields{'mon'}");
$list=$#dblist+1;
$page=int($list/$PageMaxInfo);
$page++ if ($list%$PageMaxInfo!=0 || $list==0);
$setpage=$page if ($setpage>$page);
$setpage=1 if ($setpage<1);

$e=$setpage*$PageMaxInfo;
$s=($setpage-1)*$PageMaxInfo;

for($i=$s;$i<$e;$i++) {
&getoinfo($dblist[$i]);
  if ($oname) {
    if ($outfilename) {
		$outoxx="";
	for($iii=22;$iii<=27;$iii++) {
		$oxxname="oxx$iii";
		$outoxx.="${$oxxname}," if (${$oxxname});
	}
	chop($outoxx);
	$outsex="女"; $outsex="男" if ($osex eq "Boy");
	&put_fvar(">>$outfilename","$oid,$oname,$outsex,$outoxx\n");
    }
    if ($osex eq "Gril") {$sexcolor="ff0000";} else {$sexcolor="0000ff";}
    if ($bgcolor ne "ffffff") {$bgcolor="ffffff";} else {$bgcolor="f5f5f5";}
    print "<tr bgcolor=$bgcolor><td><img
    src='images/88.gif' align='absmiddle' border='0'><a href='$indexurl?job=pupil&user=$oid&mon=$fields{'mon'}&page=$fields{'page'}$userinfo&temp=#useradd'><font face=Verdana color=006000>[$oid]</font><font color=$sexcolor>$oname</font></a><\/td><td>班級：<font face=Verdana>$oclass</font><\/td><td>權限：<font face=Verdana>$olevel</font><\/td><\/tr>\n";
  }
  if ($fields{'user'} && $oid eq $fields{'user'}) {
	$setedit=1; $adduid=$oid; $adduname=$oname; $selectmon=$oclass;
	if ($osex eq "Boy") {$addusex="<option value='Boy' selected>男</option>";}
	else {$addusex="<option value='Girl' selected>女</option>";}
	if ($olevel eq "master") {$addulevel="<option value='$olevel' selected>系統管理員</option>";}
	elsif ($olevel eq "poweruser") {$addulevel="<option value='$olevel' selected>可查看該年級段所有學生成績</option>";}
	elsif ($olevel eq "classuser") {$addulevel="<option value='$olevel' selected>可查看本班所有同學成績</option>";}
	else {$addulevel="<option value='user' selected>僅可查看自己的成績</option>";}
	$setreadonly="Readonly";
$addux1=$oxx22; $addux2=$oxx23; $addux3=$oxx24; $addux4=$oxx25; $addux5=$oxx26; $addux6=$oxx27;
  }
}
if ($outfilename && -e "$outfilename") {
  $tar = Archive::Tar->new();
  $tar->add_files($outfilename);
  $tar->write("$outfilename.tar");
  unlink "$outfilename";
  print "<script LANGUAGE='JavaScript'>window.open ('$indexurl?job=out&filename=$outfilename.tar$userinfo', 'Outfile')</script>";
}
$npage=$ppage=$setpage;
$npage++;
$ppage--;
print qq~
    </table>
    </td>
  </tr>
  <tr>
    <td width='100%' bgcolor='#FFFFFF' align=center height=21>
<form method='POST' action='$indexurl?job=pupil&mon=$fields{'mon'}$userinfo'>
~;
print "<font color='adadad'>共有 $list 條用戶記錄</font> ";
if ($setpage!=1) {print "<a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=1$userinfo'>第一頁<\/a> <a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=$ppage$userinfo'>上一頁<\/a>";}
else {print "<font color=dd2222>第一頁<\/font> <font color=888888>上一頁<\/font>";}
if ($setpage<$page) {print " <a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=$npage$userinfo'>下一頁<\/a> <a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=$page$userinfo'>最后頁<\/a>";}
else {print " <font color=888888>下一頁<\/font> <font color=dd2222>最后頁<\/font>";}
$adduid="$fields{'next'}" if ($fields{'next'});
print qq~
 $setpage頁 \/ 共$page頁 到
<input type=text name=page size=4 class=input maxlength=4> <input type='submit' value=頁 class=input>
</td></form>
  </tr>
</table>
<form method="POST" action="$indexurl?job=pupil_add&page=$fields{'page'}&mon=$fields{'mon'}$userinfo">
<input type=hidden name=edit value='$setedit'>
<script language=javascript>
function deluser(uid,uname){
		if (window.confirm('\~\~ $uname 您好，您真準備刪除學生“'+uname+'”！\\n\\n此操作是不可恢復的，\\n\\n如果您真的決定刪除，請按“確定”，否則按“取消”返回，謝謝！')) {
		location.href = '$indexurl?job=pupil_del&page=$fields{'page'}&mon=$fields{'mon'}&did='+uid+'$userinfo';
		}
}
</script>
<a name=useradd></a>
<table border='0' width='100%' cellspacing='1'>
  <tr>
    <td nowrap>學號：<input type='text' name='adduid' size='16' class='input' value='$adduid' $setreadonly></td>
    <td>姓名：<input type='text' name='adduname' size='16' class='input' value='$adduname'></td>
  </tr>
  <tr>
    <td nowrap>密碼：<input type='password' name='addupass' size='10' class='input'></td>
    <td>性別：<select name='addusex' size='1' class='input'>$addusex
      <option value='Boy'>男</option>
      <option value='Girl'>女</option>
    </select> <input type='checkbox' name='setnext' value='1' checked>自動增加學號</td>
  </tr>
    <td nowrap>班級：<select name='addumon' size='1' class='input'>
~;
for(@classinfo) {
($classmon,$classname,$last) = split(/\‖/,$_);
  if ($selectmon && $classmon eq $selectmon) {
    print "<option selected value='$classmon'>$classname</option>";
  }
  else {print "<option value='$classmon'>$classname</option>";}
}
print qq~
    </select></td>
    <td nowrap>權限：<select name='addulevel' size='1' class='input'>$addulevel
      <option value='user'>僅可查看自己的成績</option>
      <option value='classuser'>可查看本班所有同學成績</option>
      <option value='poweruser'>可查看該年級段所有學生成績</option>
      <option value='master'>系統管理員</option>
    </select></td>
  </tr>
  <tr>
    <td colspan='2'>選修課：01<input type='text' name='addux1' size='20' class='input' value='$addux1'> 02<input type='text' name='addux2' size='20' class='input' value='$addux2'> 03<input type='text' name='addux3' size='20' class='input' value='$addux3'>
    </td>
  </tr>
  <tr>
    <td colspan='2'>選修課：04<input type='text' name='addux4' size='20' class='input' value='$addux4'> 05<input type='text' name='addux5' size='20' class='input' value='$addux5'> 06<input type='text' name='addux6' size='20' class='input' value='$addux6'>
    </td>
  </tr>
  <tr>
    <td colspan='2'><font color=ff4400>*注意：</font>~;
if (!$setedit) {print "如果權限為系統管理員則學號欄可輸入用戶ID，用戶ID可以是任何字符。如果不輸入密碼，則密碼與學號相同！";}
else {print "學號(用戶ID)不可修改。如果不輸入密碼，則保留原密碼！";}
print qq~</td></tr>
  <tr>
    <td></td><td align=center>~;
if (!$setedit) {print "<input type=image src='images/button_add.gif' border=0 alt='增加檔案'>";}
else {print " <img src='images/button_del.gif' border=0 alt='刪除檔案' onclick=\"deluser('$adduid','$adduname');\"> <input type=image src='images/button_edit.gif' border=0 alt='修改檔案'> <img src='images/button_add.gif' border=0 alt='增加檔案' onclick=\"location.href = '$indexurl?job=pupil&page=$fields{'page'}&mon=$fields{'mon'}$userinfo&temp=#useradd';\">";}
print qq~</td>
  </tr></form>
</table>
<center><hr size=1 color=666666><a href='$indexurl?job=setclass$userinfo'><img src='images/button_bj.gif' border=0 alt='班級管理'></a> <a href='$indexurl?job=pupil&mon=$fields{'mon'}&page=$fields{'page'}&mjob=out$userinfo'><img src='images/button_out.gif' border=0 alt='輸出Excel報表[學生檔案]'></a></center>
~;
}
1;