function TampilkanJadwal()
{
$hdrjdwl = "<tr><th class=ttl>ID</th>\r\n <th class=ttl>Waktu</th>\r\n <th class=ttl>Ruang</th>\r\n <th class=ttl>Kode MK</th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl>Kelas</th>\r\n <th class=ttl>Jen</th>\r\n <th class=ttl>SKS</th>\r\n <th class=ttl>Dosen</th>\r\n <th class=ttl>Jml<br />Mhsw</th>\r\n <th class=ttl title='Kelas Serial'>Serial</th>\r\n <th class=ttl>Hrg<br />Std?</th>\r\n <th class=ttl title='Presensi'>Pres</th>\r\n <th class=ttl title='Prasyarat'>Pra</th>\r\n <th class=ttl title='Tutup Jadwal'>Tutup</th>\r\n </tr>\r\n ";
$s = "select j.*, r.KampusID,\r\n time_format(j.JamMulai, '%H:%i') as Mulai,\r\n time_format(j.JamSelesai, '%H:%i') as Selesai\r\n from jadwal j\r\n left outer join mk mk on j.MKID=mk.MKID\r\n left outer join ruang r on j.RuangID=r.RuangID\r\n where j.NamaKelas<>'KLINIK'\r\n and j.KodeID='{$_SESSION['KodeID']}' and j.TahunID='{$_SESSION['tahun']}'\r\n and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.')>0\r\n and INSTR(j.ProgramID, '.{$_SESSION['prid']}.')>0\r\n order by j.HariID, j.JamMulai, j.MKKode, j.NamaKelas";
$r = _query($s);
// Tampilkan daftar jadwal
$hari = -1;
$gotohari = DftrHari();
echo "<p><table class=box cellspacing=1 cellpadding=4 width=100%>";
while ($w = _fetch_array($r)) {
if ($hari != $w['HariID']) {
$hari = $w['HariID'];
$NamaHari = GetaField('hari', 'HariID', $hari, 'Nama');
echo "<tr><td class=ul colspan=12><b><a name='{$hari}'></a>{$NamaHari}</b>\r\n <a href='#Atas' title='Kembali ke atas'>^</a> {$gotohari}</td></tr>";
echo $hdrjdwl;
}
$c = $w['NA'] == 'N' ? "class=ul" : "class=nac";
// Kelas Serial
$ser = $w['JadwalSer'] == 0 ? '' : "<abbr title='Serial dgn Jadwal: {$w['JadwalSer']}'>» " . $w['JadwalSer'] . "</abbr>";
$jumlahser = $w['JumlahKelasSerial'] > 0 ? 'Ada: ' . $w['JumlahKelasSerial'] : ' ';
$arrdosen = explode('.', TRIM($w['DosenID'], '.'));
$strdosen = implode(',', $arrdosen);
$dosen = empty($strdosen) ? '' : GetArrayTable("select Nama from dosen where Login in ({$strdosen}) order by Nama", "Login", "Nama", '<br />');
$hrg = $w['HargaStandar'] == 'Y' ? "<img src='img/{$w['HargaStandar']}.gif'>" : number_format($w['Harga']);
$arrpra = GetArrayTable("select concat(mk.MKKode, ' - ', mk.Nama, ' (SKS min: ', mk.SKSMin, ', IPK min: ', mk.IPKMin, ')') as PRA \r\n from mkpra\r\n left outer join mk on mkpra.PraID=mk.MKID\r\n where mkpra.MKID='{$w['MKID']}' ", 'PRA', 'PRA', $_lf);
$strpra = empty($arrpra) ? ' ' : "<a name='{$w['JadwalID']}' onClick=\"javascript:alert('{$arrpra}')\"><img src='img/check.gif'></a>";
$ttp1 = $w['NA'] == 'Y' ? $w['JadwalID'] : "<a href='?mnux=jadwal&gos=JdwlEdt&md=0&JadwalID={$w['JadwalID']}'><img src='img/edit.png'>\r\n {$w['JadwalID']}</a>";
$ttp2 = $w['NA'] == 'Y' ? "×" : "<a href='?mnux=jadwal.tutup&gos=JdwlTtp&JadwalID={$w['JadwalID']}'><img src='img/del.gif'></a>";
echo "<tr>\r\n <td class=inp1 nowrap>{$ttp1}</td>\r\n <td {$c}>{$w['Mulai']}-{$w['Selesai']}</td>\r\n <td {$c}>{$w['KampusID']}-{$w['RuangID']}</td>\r\n <td {$c}>{$w['MKKode']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c}>{$w['NamaKelas']} </td>\r\n <td {$c} align=center>{$w['JenisJadwalID']}</td>\r\n <td {$c}>{$w['SKS']} ({$w['SKSAsli']})</td>\r\n <td {$c}>{$dosen} </td>\r\n <td {$c} align=right>{$w['JumlahMhsw']}/{$w['Kapasitas']}</td>\r\n <td {$c} align=right title='Jumlah Kelas Serial'>{$jumlahser} {$ser}</td>\r\n <td {$c} align=center>{$hrg}</td>\r\n <td {$c} title='Presensi'><a href='?mnux=jadwal.pres&JadwalID={$w['JadwalID']}'><img src='img/check.gif'></a> {$w['Kehadiran']}</td>\r\n <td {$c} title='Matakuliah prasyarat'>{$strpra}</td>\r\n <td {$c} align=center title='Tutup'>{$ttp2}</td></tr>\r\n </tr>";
}
echo "</table></p>";
// Tampilkan pesan
echo "<p><table class=box cellspacing=1 cellpadding=4 width=100%>\r\n <tr><td class=ul nowrap><b>Jadwal Serial</b></td>\r\n <td class=ul>Jadwal Serial adalah jadwal matakuliah yang dipecah menjadi beberapa kali\r\n pertemuan dalam 1 minggu. Karena sebenarnya adalah 1 jadwal matakuliah,\r\n maka mahasiswa wajib hadir di setiap pertemuan\r\n dan masing-masing pertemuan memiliki isian presensi sendiri.\r\n Nilai akan diperhitungkan dengan jumlah SKS-nya.</td></tr>\r\n <tr><td class=ul nowrap><b>Pres (Presensi)</b></td>\r\n <td class=ul>Memasukkan presensi dosen dan mahasiswa.</td></tr>\r\n </table></p>";
}
function KRSAdd($mhsw, $datatahun, $khs)
{
if ($datatahun['TglKRSMulai'] <= date('Y-m-d') && date('Y-m-d') <= $datatahun['TglKRSSelesai'] || $datatahun['TglUbahKRSMulai'] <= date('Y-m-d') && date('Y-m-d') <= $datatahun['TglUbahKRSSelesai'] || $_SESSION['_LevelID'] == 1) {
} else {
die("KRS sudah tidak dapat diubah");
}
// Ambil data KRS
$kecuali = JadwalKRSMhsw($mhsw, $datatahun, $khs);
$sqlkecuali = empty($kecuali) ? '' : "and not (j.JadwalID in ({$kecuali}))";
// Jadwal
$whr = '';
if (($mhsw['ProdiID'] == '31' || $mhsw['ProdiID'] == '32') && substr($mhsw['MhswID'], 2, 4) <= '2003') {
$whr = "";
} elseif (($mhsw['ProdiID'] == '31' || $mhsw['ProdiID'] == '32') && substr($mhsw['MhswID'], 2, 4) == '2004' && $mhsw['StatusAwalID'] == 'P') {
$whr = "";
} else {
$whr = "and INSTR(j.ProgramID, '.{$mhsw['ProgramID']}.')>0";
}
$s = "select j.*, jj.Nama as JJ,\r\n time_format(j.JamMulai, '%H:%i') as JM,\r\n time_format(j.JamSelesai, '%H:%i') as JS\r\n from jadwal j\r\n left outer join jenisjadwal jj on j.JenisJadwalID=jj.JenisJadwalID\r\n where j.TahunID='{$khs['TahunID']}'\r\n and j.NA<>'Y'\r\n and INSTR(j.ProdiID, '.{$mhsw['ProdiID']}.')>0\r\n {$whr}\r\n {$sqlkecuali}\r\n order by j.HariID, j.JamMulai, j.MKKode ";
$r = _query($s);
// Tampilkan
TampilkanJudul("<a href='#Atas'></a>Tambah KRS");
$hari = -1;
$kehari = DftrHari();
$btn = "<tr><td class=ul colspan=12><input type=submit name='Ambil' value='Ambil Matakuliah'>\r\n <input type=reset name='Reset' value='Reset'>\r\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux=krs'\">\r\n </td></tr>";
$hdrjdwl = "<tr>\r\n <th class=ttl>ID</th>\r\n <th class=ttl>Ambil</th>\r\n <th class=ttl>Jam</th>\r\n <th class=ttl>Ruang</th>\r\n <th class=ttl title='Kapasitas Kelas'>Kaps</th>\r\n <th class=ttl>Kode MK</th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl>Kelas</th>\r\n <th class=ttl title='Jenis Kuliah'>Jen</th>\r\n <th class=ttl>SKS</th>\r\n <th class=ttl>Dosen</th>\r\n <th class=ttl title='Apakah harganya standar?'>Hrg<br />Std?</td>\r\n <th class=ttl title='Matakuliah prasyarat'>Pra</td>\r\n </tr>";
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <form action='?' name='krs' method=POST>\r\n <input type=hidden name='mnux' value='krs'>\r\n <input type=hidden name='gos' value=''>\r\n <input type=hidden name='slnt' value='krs.lib'>\r\n <input type=hidden name='slntx' value='KRSSav'>\r\n <input type=hidden name='mhswid' value='{$mhsw['MhswID']}'>\r\n <input type=hidden name='tahun' value='{$khs['TahunID']}'>\r\n <input type=hidden name='khsid' value='{$khs['KHSID']}'>";
while ($w = _fetch_array($r)) {
if ($hari != $w['HariID']) {
if ($hari > 0) {
echo $btn;
}
$hari = $w['HariID'];
$namahari = GetaField('hari', 'HariID', $hari, 'Nama');
echo "<tr><td class=ul colspan=12><a name='{$hari}'></a><b>{$namahari}</b>\r\n <a href='#Atas'>^</a> {$kehari}</td></tr>";
echo $hdrjdwl;
}
// Daftar Dosen
$arrdosen = explode('.', TRIM($w['DosenID'], '.'));
for ($i = 0; $i < sizeof($arrdosen); $i++) {
$arrdosen[$i] = "'" . $arrdosen[$i] . "'";
}
$strdosen = implode(',', $arrdosen);
$dosen = empty($strdosen) ? '' : GetArrayTable("select concat(Nama, ', ', Gelar) as NM from dosen where Login in ({$strdosen}) order by Nama", "Login", "NM", '<br />');
$hrg = $w['HargaStandar'] == 'Y' ? "<img src='img/{$w['HargaStandar']}.gif'>" : number_format($w['Harga']);
// Tampilkan
$cb = $w['JadwalSer'] == 0 ? "<input type=checkbox name='JDWL[]' value='{$w['JadwalID']}'>" : "» {$w['JadwalSer']}";
// Disable jika sudah memenuhi kapasitas
$cb = $w['JumlahMhswKRS'] >= $w['Kapasitas'] ? ' ' : $cb;
$c = $w['JumlahMhswKRS'] >= $w['Kapasitas'] ? "class=wrn" : "class=ul";
$arrpra = GetArrayTable("select mk.MKKode\r\n from mkpra\r\n left outer join mk on mkpra.PraID=mk.MKID\r\n where mkpra.MKID='{$w['MKID']}' ", 'MKKode', 'MKKode');
$arrpra = empty($arrpra) ? " " : $arrpra;
echo "<tr>\r\n <td class=inp1>{$w['JadwalID']}</td>\r\n <td {$c} align=center>{$cb}</td>\r\n <td {$c}>{$w['JM']}-{$w['JS']}</td>\r\n <td {$c}>{$w['RuangID']} </td>\r\n <td {$c} align=right>{$w['JumlahMhswKRS']}/{$w['Kapasitas']}</td>\r\n <td {$c}>{$w['MKKode']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c}>{$w['NamaKelas']} </td>\r\n <td {$c} align=center title='{$w['JJ']}'>{$w['JenisJadwalID']}</td>\r\n <td {$c} align=right>{$w['SKS']} ({$w['SKSAsli']})</td>\r\n <td {$c}>{$dosen} </td>\r\n <td {$c} align=center>{$hrg}</td>\r\n <td {$c}>{$arrpra}</td>\r\n </tr>";
}
echo $btn;
echo "</table></p>";
}
function TampilkanJadwal()
{
global $thn;
$hdrjdwl = "<tr><th class=ttl>ID</th>\r\n <th class=ttl>Waktu</th>\r\n <th class=ttl>Ruang</th>\r\n <th class=ttl>Kode MK</th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl>Kelas</th>\r\n <th class=ttl>Jen</th>\r\n <th class=ttl>SKS</th>\r\n <th class=ttl>Dosen</th>\r\n <th class=ttl>Jml<br />Mhsw</th>\r\n <th class=ttl>Jml<br />Mhsw<br />KRS</th>\r\n <th class=ttl colspan=2 title='Kelas Serial'>Serial</th>\r\n <th class=ttl>Hrg<br />Std?</th>\r\n <th class=ttl><img src='img/printer.gif'></th>\r\n\t\t<th class=ttl Title='Cetak Label'><img src='img/printer.gif'></th>\r\n <th class=ttl title='Presensi'>Pres</th>\r\n <th class=ttl title='Prasyarat'>Pra</th>\r\n <th class=ttl title='Hapus Jadwal'>Hapus</th>\r\n </tr>\r\n ";
$_jj = empty($_SESSION['jenjad']) ? '' : "and j.JenisJadwalID='{$_SESSION['jenjad']}' ";
$s = "select j.*, r.KampusID, d.Nama as NamaDosen, concat(d.Nama, ', ', d.Gelar) as DSN,\r\n time_format(j.JamMulai, '%H:%i') as Mulai,\r\n time_format(j.JamSelesai, '%H:%i') as Selesai\r\n from jadwal j\r\n left outer join mk mk on j.MKID=mk.MKID\r\n left outer join dosen d on j.DosenID=d.Login\r\n left outer join ruang r on j.RuangID=r.RuangID\r\n where j.NamaKelas<>'KLINIK' and j.NA<>'Y' {$_jj}\r\n and j.KodeID='{$_SESSION['KodeID']}' and j.TahunID='{$_SESSION['tahun']}'\r\n and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.')>0\r\n and INSTR(j.ProgramID, '.{$_SESSION['prid']}.')>0\r\n order by j.HariID, j.JamMulai, j.MKKode, j.NamaKelas";
$r = _query($s);
// Tampilkan daftar jadwal
$hari = -1;
$gotohari = DftrHari();
echo "<p><table class=box cellspacing=1 width=100%>";
while ($w = _fetch_array($r)) {
if ($hari != $w['HariID']) {
$hari = $w['HariID'];
$NamaHari = GetaField('hari', 'HariID', $hari, 'Nama');
echo "<tr><td class=ul colspan=12><b><a name='{$hari}'></a>{$NamaHari}</b>\r\n <a href='#Atas' title='Kembali ke atas'>^</a> {$gotohari} << <a href='?mnux=jadwal&md=1&gos=JdwlEdt&md=1&hari={$w['HariID']}'>Tambah Jadwal</a> >></td></tr>";
echo $hdrjdwl;
}
$c = $w['Final'] == 'Y' ? "class=inp1" : "class=ul";
// assisten dosen
$assisten = GetAssistenDosen($w);
//$func = (!empty($assisten)) ? BuatSelectCetak($w) : '';
// Kelas Serial
$ser = $w['JadwalSer'] == 0 ? '' : "<abbr title='Serial dgn Jadwal: {$w['JadwalSer']}'>" . $w['JadwalSer'] . "</abbr>";
$tambahser = $w['JadwalSer'] == 0 ? "<a href='?mnux=jadwal&gos=JdwlEdt&md=1&JadwalSer={$w['JadwalID']}&MKID={$w['MKID']}'><img src='img/share.gif'></a>" : '';
$jumlahser = $w['JumlahKelasSerial'] > 0 ? $w['JumlahKelasSerial'] : ' ';
// Harga standar
$hrg = $w['HargaStandar'] == 'Y' ? "<img src='img/{$w['HargaStandar']}.gif'>" : number_format($w['Harga']);
// ambil prasyarat
$arrpra = GetArrayTable("select concat(mk.MKKode, ' - ', mk.Nama, ' (SKS min: ', mk.SKSMin, ', IPK min: ', mk.IPKMin, ')') as PRA \r\n from mkpra\r\n left outer join mk on mkpra.PraID=mk.MKID\r\n where mkpra.MKID='{$w['MKID']}' ", 'PRA', 'PRA', $_lf);
$strpra = empty($arrpra) ? ' ' : "<a name='{$w['JadwalID']}' onClick=\"javascript:alert('{$arrpra}')\"><img src='img/check.gif'></a>";
// Validasi cetak Daftar Mhsw
//$dftrmhsw = ($thn['TglUbahKRSSelesai'] < date('Y-m-d'))? '' : "<a href='jadwal.cetak.mhsw.php?RincianMhsw&JadwalID=$w[JadwalID]' Title='Daftar Mahasiswa' target=_blank>Dftr</a>";
if ($w['Final'] == 'Y') {
$edit = ' ';
$hps = ' ';
} else {
$edit = "<a href='?mnux=jadwal&gos=JdwlEdt&md=0&JadwalID={$w['JadwalID']}'><img src='img/edit.png'><a name='{$w['JadwalID']}'></a>";
$hps = "<a href='?mnux=jadwal&gos=JdwlDel&JadwalID={$w['JadwalID']}'><img src='img/del.gif'></a>";
}
if ($thn['TglKRSMulai'] < date('Y-m-d')) {
if ($_SESSION['_LevelID'] == 1 || $_SESSION['_LevelID'] == 20 || $_SESSION['_LevelID'] == 41) {
$edit = "<a href='?mnux=jadwal&gos=JdwlEdt&md=0&JadwalID={$w['JadwalID']}'><img src='img/edit.png'><a name='{$w['JadwalID']}'></a>";
$hps = "<a href='?mnux=jadwal&gos=JdwlDel&JadwalID={$w['JadwalID']}'><img src='img/del.gif'></a>";
} else {
$edit = "";
$hps = " ";
}
}
if ($thn['TglAutodebetSelesai'] >= date('Y-m-d') || $_SESSION['_LevelID'] == 1 || $_SESSION['_LevelID'] == 20) {
$dhksem = "<a href='cetak/jadwal.cetak.mhsw.php?RincianMhsw&JadwalID={$w['JadwalID']}' Title='Daftar Mahasiswa' target=_blank>DHK Sem</a>";
} else {
$dhksem = '';
}
//$edit = ($thn['TglKRSMulai']) > date('Y-m-d')? '' : "<a href='?mnux=jadwal&gos=JdwlEdt&md=0&JadwalID=$w[JadwalID]'><img src='img/edit.png'><a name='$w[JadwalID]'></a>";
echo "<tr>\r\n <td class=inp1 nowrap>{$edit} {$w['JadwalID']}</td>\r\n <td {$c}>{$w['Mulai']}-{$w['Selesai']}</td>\r\n <td {$c}>{$w['KampusID']}-{$w['RuangID']}</td>\r\n <td {$c}>{$w['MKKode']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c}>{$w['NamaKelas']} </td>\r\n <td {$c} align=center>{$w['JenisJadwalID']}</td>\r\n <td {$c}>{$w['SKS']}/{$w['SKSHonor']}</td>\r\n <td {$c}><a href='?mnux=jadwal&gos=AssDsnEdt&JadwalID={$w['JadwalID']}' title='Tambah Dosen Pengampu'><img src='img/share.gif'></a>\r\n <abbr title='{$w['DSN']}'>{$w['NamaDosen']}</abbr>\r\n {$assisten}</td>\r\n <td {$c} align=right>{$w['JumlahMhsw']}/{$w['Kapasitas']}</td>\r\n <td {$c} align=right>{$w['JumlahMhswKRS']}</td>\r\n <td {$c} align=center title='Kelas Serial'> {$ser}{$tambahser}</td>\r\n <td {$c} align=right title='Jumlah Kelas Serial'>{$jumlahser}</td>\r\n <td {$c} align=center>{$hrg}</td>\r\n <td {$c}><a href='cetak/jadwal.cetakdh.php?JadwalID={$w['JadwalID']}&ctk=0' title='Daftar Hadir Kuliah' target=_blank>DHK</a>{$func} {$dhksem}</td>\r\n\t\t\t<td {$c}><a href='cetak.label.jdwl.php?JadwalID={$w['JadwalID']}&tahun={$_SESSION['tahun']}&prodi={$_SESSION['prodi']}&prid={$_SESSION['prid']}&asal=1' title='Cetak Label Map'>LABEL</a></td>\r\n <td {$c} title='Presensi'><a href='?mnux=jadwal.pres&dosen={$w['DosenID']}&JadwalID={$w['JadwalID']}'><img src='img/check.gif'></a> {$w['Kehadiran']}</td>\r\n <td {$c} title='Matakuliah prasyarat'>{$strpra}</td>\r\n <td {$c} align=center title='Hapus'>{$hps}</td></tr>\r\n </tr>";
}
echo "</table></p>";
// Tampilkan pesan
echo "<p><table class=box cellspacing=1 cellpadding=4 width=100%>\r\n <tr><td class=ul nowrap><b>Jadwal Serial</b></td>\r\n <td class=ul>Jadwal Serial adalah jadwal matakuliah yang dipecah menjadi beberapa kali\r\n pertemuan dalam 1 minggu. Karena sebenarnya adalah 1 jadwal matakuliah,\r\n maka mahasiswa wajib hadir di setiap pertemuan\r\n dan masing-masing pertemuan memiliki isian presensi sendiri.\r\n Nilai akan diperhitungkan dengan jumlah SKS-nya.</td></tr>\r\n <tr><td class=ul nowrap><b>Pres (Presensi)</b></td>\r\n <td class=ul>Memasukkan presensi dosen dan mahasiswa.</td></tr>\r\n </table></p>";
}
