function TampilkanHeaderKoreksiKelas($jdwl)
{
CheckFormScript('Ke_Kelas');
echo "<form action='?' name='Korek' method=POST onSubmit=\"return CheckForm(this)\">\r\n <input type=hidden name='mnux' value='koreksikelas'>\r\n <input type=hidden name='gos' value='KoreksiKelasSav'>\r\n <input type=hidden name='jid' value='{$jdwl['JadwalID']}'>";
//GetOption2($_table, $_field, $_order='', $_default='', $_where='', $_value='', $not=0) {
$optjdwl = GetOption2("jadwal j \r\n left outer join dosen d on j.DosenID=d.Login\r\n left outer join hari h on j.HariID=h.HariID", "concat(j.JadwalID, '. ', h.Nama, ' ', j.MKKode, ' - ', j.Nama, ' ', j.NamaKelas, ' (', j.JenisJadwalID, ') - ', d.Nama)", "j.HariID, j.JamMulai", '', "INSTR(j.ProgramID, '.{$_SESSION['prid']}.')>0 and j.TahunID = '{$_SESSION['tahun']}' and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.')>0 and MKKode='{$jdwl['MKKode']}' and JadwalID<>{$jdwl['JadwalID']} and JenisJadwalID = '{$jdwl['JenisJadwalID']}'", "JadwalID", 1);
TuliskanCentangSemua();
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><td class=ul colspan=4><font size=+1>Jadwal Matakuliah Asal</td></tr>\r\n <tr><td class=inp>Jadwal</td><td class=ul>{$jdwl['JadwalID']}</td>\r\n <td class=inp>Ruang</td><td class=ul>{$jdwl['RuangID']} </td></tr>\r\n <tr><td class=inp>Waktu</td><td class=ul>{$jdwl['HR']}, {$jdwl['JM']}-{$jdwl['JS']}</td>\r\n <td class=inp>Kelas</td><td class=ul>{$jdwl['NamaKelas']}, SKS: {$jdwl['SKS']}</td></tr>\r\n <tr><td class=inp>Matakuliah</td><td class=ul>{$jdwl['MKKode']} - {$jdwl['Nama']} ({$jdwl['JenisJadwalID']})</td>\r\n <td class=inp>Dosen Utama</td><td class=ul>{$jdwl['DSN']}</td></tr>\r\n \r\n <tr><td class=ul colspan=4><font size=+1>Pindahkan ke Kelas:</td></tr>\r\n <tr><td class=inp>Kelas</td><td class=ul colspan=3><select name='Ke_Kelas' style='font-family: courier new'>{$optjdwl}</select></td></tr>\r\n <tr><td class=ul colspan=4><input type=submit name='Pindah' value='Pindahkan Mhsw'> \r\n Centang Mhsw yg akan dipindahkan kelas-nya \r\n <input type=button name='CentangAll' value='Centang Semua' onClick=\"CentangSemua(Korek, true);\">\r\n <input type=button name='UnCentangAll' value='Kosongkan Semua' onClick=\"CentangSemua(Korek, false);\">\r\n </td></tr>\r\n </table></p>";
}
function UbahPASav()
{
TuliskanCentangSemua();
$Tahun = $_REQUEST['thnsms'];
$DariDosen = $_REQUEST['DariDosen'];
$MenjadiDosen = $_REQUEST['MenjadiDosen'];
$jmlawal = GetaField('mhsw', "PenasehatAkademik", $DariDosen, "count(PenasehatAkademik)") + 0;
$btl = "<hr size=1 color=silver>Pilihan: <input type=button name='Kembali' value='Kembali' onClick=\"location='?mnux=dosen.pembimbing'\">";
if ($jmlawal == 0) {
echo ErrorMsg("Gagal Proses", "Tidak ada mahasiswa di bawah bimbingan dosen dengan kode: <font size=+1>{$DariDosen}</font><br />\r\n Proses pengubahan pembimbing akademik dibatalkan.{$btl}");
} else {
$drdsn = GetFields('dosen', 'Login', $DariDosen, "Nama, Gelar");
$kedsn = GetFields('dosen', 'Login', $MenjadiDosen, "Nama, Gelar");
if (empty($kedsn)) {
echo ErrorMsg("Dosen Tidak Ditemukan", "Dosen dengan kode <font size=+1>{$MenjadiDosen}</font> tidak ditemukan.<br />\r\n Anda tidak dapat mengubah PA dari <font size=+1>{$drdsn['Nama']}, {$drdsn['Gelar']}</font> ({$DariDosen}) ke\r\n dosen yang tidak terdaftar dalam database.<br />\r\n Hubungi MIS/IT untuk informasi lebih lanjut.{$btl}");
} else {
$s = "select m.MhswID, m.Nama, prd.Nama as PRD, prg.Nama as PRG\r\n from mhsw m\r\n left outer join khs k on k.MhswID = m.MhswID\r\n left outer join prodi prd on m.ProdiID=prd.ProdiID\r\n left outer join program prg on m.ProgramID=prg.ProgramID\r\n where \r\n m.StatusMhswID not in ('L', 'D', 'K')\r\n and m.NA='N' \r\n and PenasehatAkademik='{$DariDosen}'\r\n and k.TahunID = '{$Tahun}'\r\n order by m.MhswID";
$r = _query($s);
$n = 0;
$_npm = '';
//echo "<pre>$s</pre>";
$jmlawal = _num_rows($r);
$fb = "<form action='?' method=post name=PAG>\r\n <input type=hidden name=mnux value=dosen.pembimbing>\r\n <input type=hidden name=gos value=UbahPASav1>\r\n <input type=hidden name=DariDosen value='{$DariDosen}'>\r\n <input type=hidden name=MenjadiDosen value='{$MenjadiDosen}'>\r\n <input type=hidden name=jmlawal value='{$jmlawal}'>";
$a = "<p><table class=box cellspacing=1><tr><td class=ul colspan=6>Centang Mhsw yg akan diganti PA-nya \r\n <input type=button name='CentangAll' value='Centang Semua' onClick=\"CentangSemua(PAG, true);\">\r\n <input type=button name='UnCentangAll' value='Kosongkan Semua' onClick=\"CentangSemua(PAG, false);\"></td></tr>";
$a .= "\r\n \r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>NPM</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Program</th>\r\n <th class=ttl>Program Studi</th>\r\n <th class=ttl>Centang</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
//$_npm .= "&_NPM[]=$w[MhswID]";
$a .= "<tr><td class=inp>{$n}</td>\r\n <td class=ul>{$w['MhswID']}</td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul>{$w['PRG']}</td>\r\n <td class=ul>{$w['PRD']}</td>\r\n <td class=ul align=center><input type=checkbox id='MhswID_{$n}' name='MhswID_{$n}' value='{$w['MhswID']}' checked></td>\r\n </tr>";
}
$a .= "</table></p></form>";
echo $fb;
echo Konfirmasi("Konfirmasi Pengubahan PA", "Anda akan mengubah Pembimbing Akademik mahasiswa dari <font size=+1>{$drdsn['Nama']}, {$drdsn['Gelar']}</font><br />\r\n menjadi <font size=+1>{$kedsn['Nama']}, {$kedsn['Gelar']}</font>?<br />\r\n Anda akan mengubah PA dari sebanyak: <font size=+1>{$jmlawal}</font> mahasiswa.<br />\r\n Di bawah adalah daftar mahasiswa yang akan diganti PA-nya.\r\n <hr size=1 color=silver>\r\n Pilihan: <input type=submit name='GantiPA' value='Ganti Penasehat Akademik'>\r\n <input type=button name='Batal' value='Batalkan Penggantian PA' onClick=\"location='?mnux=dosen.pembimbing'\">");
echo $a;
}
}
}
