<?php

function mediumdate_indo($tgl){
   $ubah = gmdate($tgl, time()+60*60*8);
   $pecah = explode("-",$ubah);
   $tanggal = $pecah[2];
   $bulan = medium_bulan($pecah[1]);
   $tahun = $pecah[0];
   return $bulan . ' ' . $tanggal . ', ' . $tahun;
   // return $tanggal.'-'.$bulan.'-'.$tahun;
}
function debug($v){
   echo '<pre>';
   print_r($v);
   echo '</pre>';
}

function findObjectById($name, $value, $array){
    foreach ($array as $element) {
        if ( $value == $element->{$name} ) {
            return $element;
        }
    }
    return false;
}

function medium_bulan($bln){
   switch ($bln)
   {
      case 1:
         return "Jan";
         break;
      case 2:
         return "Feb";
         break;
      case 3:
         return "Mar";
         break;
      case 4:
         return "Apr";
         break;
      case 5:
         return "May";
         break;
      case 6:
         return "Jun";
         break;
      case 7:
         return "Jul";
         break;
      case 8:
         return "Aug";
         break;
      case 9:
         return "Sep";
         break;
      case 10:
         return "Oct";
         break;
      case 11:
         return "Nov";
         break;
      case 12:
         return "Dec";
         break;
   }
}

	function tglIndo($date){
		if(($date=='0000-00-00') or ($date=='0000-00-00 00:00:00')){
			return '';
		}else{
			$dt=explode(' ',$date);
			$BulanIndo = array("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember");
			$tahun = substr($dt[0], 0, 4);
			$bulan = substr($dt[0], 5, 2);
			$tgl   = substr($dt[0], 8, 2);
			if(count($dt)>1){
				$result = $tgl." ".$BulanIndo[(int)$bulan-1]." ".$tahun." ".$dt[1];	
			}else{
				$result = $tgl." ".$BulanIndo[(int)$bulan-1]." ".$tahun;	
			}
				
			return($result);
		}
	}
	
	
function ambilNarasi($p,$x){
	$p = strip_tags($p);
	if (strlen($p)<=$x) {
		return($p);
		}else{
	$s=substr($p,$x,1);
		if(ctype_space($s)){
		$n=substr($p,0,$x);
		return($n);
		}else{
		$x++;
		return(ambilNarasi($p,$x));
		}
	}
}