function StartMenu($arrMdl)
{
$_ggl = "<p>Gagal menginisialisasi menu</p><p>Failed to initialised menus</p>";
$_Login = $_SESSION['_Login'];
$_LevelID = $_SESSION['_LevelID'];
$_snm = session_name();
$_sid = session_id();
$_arr = array();
$strLevel = ".{$_LevelID}.";
echo " ";
foreach ($arrMdl as $menu) {
$namamenu = getaField("mdlgrp", "MdlGrpID = '{$menu}' and NA", 'N', "Nama");
$IDS = getaField("mdlgrp", "MdlGrpID = '{$menu}' and NA", 'N', "MdlGrpID");
echo "<li class='has-sub'><a href='#'><span>{$namamenu}</span></a>";
//echo "<li class='round'><a title=$menu rel=$menu><span>$namamenu</span></a></li>";
$_qy1 = "select m.*\r\n\t\t\t\t\tfrom mdl m\r\n\t\t\t\twhere LOCATE('{$strLevel}', m.LevelID)>0 and m.Web='Y' and m.MdlGrpID='{$IDS}' and m.NA='N' \r\n\t\t\t\t\torder by m.Nama";
$_qyx = "select md.* \r\n\t\t from modul md\r\n\t\t where LOCATE('{$_LevelID}', md.Level)>0\r\n\t\t and md.InMenu='Y'\r\n\t\t and md.web='Y'\r\n\t\t and md.GroupModul='{$IDS}'\r\n\t\t order by md.Modul";
$_rs1 = mysql_query($_qy1) or die($_ggl . mysql_error());
//echo "<div class='navigation' id='main-nav'><ul class='nav'>";
echo "<ul>";
while ($_w1 = mysql_fetch_array($_rs1)) {
echo "<li><a href=\"?mnux={$_w1['Script']}&mdlid={$_w1['MdlID']}&{$_snm}={$_sid}\">{$_w1['Nama']}</a></li>";
}
echo "</ul>";
}
echo "";
//echo "<div class=\"ddcolortabsline\"></div>";
}
function StartMenu($arrMdl)
{
echo "<ul id='colortab' class='ddcolortabs'>";
foreach ($arrMdl as $menu) {
$namamenu = getaField("mdlgrp", "MdlGrpID = '{$menu}' and NA", 'N', "Nama");
echo "<li class='round'><a title={$menu} rel={$menu}><span>{$namamenu}</span></a></li>";
}
echo "</ul><br />";
//echo "<div class=\"ddcolortabsline\"></div>";
}
include_once "../connectdb.php";
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../header_pdf.php";
include_once "../util.lib.php";
// *** Parameters ***
$TahunID = GetSetVar('TahunID');
$ProdiID = GetSetVar('ProdiID');
if (empty($TahunID)) {
die(ErrorMsg("Error", "Tentukan tahun akademik-nya dulu.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick='window.close()' />"));
}
if (empty($ProdiID)) {
die(ErrorMsg("Error", "Tentukan Program Studi-nya dulu.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick='window.close()' />"));
}
// *** Main
$prds = getaField('prodi', "KodeID = '" . KodeID . "' and ProdiID", $ProdiID, 'Nama');
$thn = NamaTahun($TahunID);
$pdf = new PDF('P', 'mm', 'A4');
$pdf->SetTitle("Jadwal Ujian Sidang Komprehensif Tahun {$thn}");
$pdf->AddPage();
$pdf->SetFont('Helvetica', 'B', 14);
$pdf->Cell($t, 9, "Jadwal Ujian Sidang Komprehensif - {$thn}", 0, 1, 'C');
$pdf->Cell($t, 9, "Program Studi {$prds}", 0, 1, 'C');
Isinya($pdf);
$pdf->Output();
// *** Functions ***
function Isinya($p)
{
$lbr = 290;
$t = 5;
JudulKolomnya($p);
$pdf->SetX(180);
$pdf->Cell(10, $t, "NO", 1, 0, 'C');
$pdf->Cell(60, $t, "Sumber Informasi", 1, 0, 'C');
$pdf->Cell(10, $t, "FG", 1, 0, 'C');
$pdf->Cell(10, $t, "NFG", 1, 0, 'C');
$pdf->Cell(10, $t, "TOT", 1, 1, 'C');
$s = "select * from sumberinfo where NA = 'N'";
$q = _query($s);
$n = 0;
$FGT = 0;
$NFGT = 0;
$TOTT = 0;
while ($w = _fetch_array($q)) {
$n++;
$FG = getaField('aplikan', "SumberInformasi like '%" . $w[InfoID] . "%' and PMBPeriodID like '" . $_SESSION[Tahun2] . "%' and TahunLulus >= PMBPeriodID-1 and NA", 'N', 'count(AplikanID)');
$NFG = getaField('aplikan', "SumberInformasi like '%" . $w[InfoID] . "%' and PMBPeriodID like '" . $_SESSION[Tahun2] . "%' and TahunLulus < PMBPeriodID-1 and NA", 'N', 'count(AplikanID)');
$TOT = $FG + $NFG;
$pdf->SetX(180);
$pdf->SetFont('Helvetica', '', 8);
$pdf->Cell(10, $t, $n, 1, 0, 'C');
$pdf->Cell(60, $t, $w[Nama], 1, 0);
$pdf->Cell(10, $t, $FG, 1, 0, 'C');
$pdf->Cell(10, $t, $NFG, 1, 0, 'C');
$pdf->Cell(10, $t, $TOT, 1, 1, 'C');
$FGT += $FG;
$NFGT += $NFG;
$TOTT += $TOT;
}
$pdf->SetX(180);
$pdf->SetFont('Helvetica', '', 8);
$pdf->Cell(10, $t, '', 1, 0, 'C');
