// version 03.00.000

// global variables added in version 3
var dsp_ProgFirst = '__09';
var dsp_ProgNow;							// kód aktualního programu YYMM (from Time)
var dsp_ProgThis;							// köd zavedeného programu YYMM (from DocName)
var dsp_ProgNowNext;
var dsp_ProgNowPrev;
var dsp_ProgNowPlan;
var dsp_ProgThisNext;
var dsp_ProgThisPrev;
// global variables added in version 3 (end of include)

function fce_SetProgYM(x)
	{ return 'prog_' + fce_YM_Code(x) + '.html';
  } 

function fce_YM_Code(par_M)
    {
    var_Today = new Date();
    var_Year = var_Today.getFullYear();
		
    var_Month = var_Today.getMonth() + 1;
		if (par_M > 0)
    	var_Month = var_Month + par_M;
      if (var_Month > 12)
      	{ 
        var_Month = 1;
        var_Year = var_Year + 1;
        }
    var_YearStr = ("" + var_Year).substr(2,2);     
    if (var_Month < 10)
    	var_MonthStr = '0' + var_Month;
    else
    	var_MonthStr = '' + var_Month; 
    return var_YearStr + var_MonthStr;
    } 

      

function fce_GetDocName()
  {
		// update constants 
	  var_ProgNow  = fce_SetProgYM(0);
  	var_ProgNext = fce_SetProgYM(1);
	 	var_DocName = "" + document.location;
    var_DocName = "" + var_DocName.toLowerCase();
    var_DocName = "" + var_DocName.substr(var_DocName.lastIndexOf("/")+1);
    var_ProgType = 'none';
    //alert(var_DocName);
    if (var_DocName.substr(0,5) == 'prog_')
      {
      
      sw_ProgType = 'other';
      //alert(sw_ProgType);
      switch (var_DocName)
        {
        case var_ProgNow:
          sw_ActProg = 1;
          sw_ProgType = 'now';
          break;
        case var_ProgNext:
          sw_ActProg = 1;
          sw_ProgType = 'next';
          break;
        case 'prog_main.html':
          sw_ActProg = 0;
          sw_ProgType = 'none';
          break;
        default:
          sw_ActProg = 0;
          sw_ProgType = 'other';
        }
      
      
      // setting variables added in ver 3
      dsp_ProgNow = fce_YM_Code(0);
      dsp_ProgNowPrev = fce_YM_Dec(dsp_ProgNow);
      dsp_ProgNowNext = fce_YM_Inc(dsp_ProgNow);
      dsp_ProgNowPlan = fce_YM_Inc(dsp_ProgNowNext);
      dsp_ProgThis = var_DocName.substr(5,4);
      dsp_ProgThisPrev = fce_YM_Dec(dsp_ProgThis);
      dsp_ProgThisNext = fce_YM_Inc(dsp_ProgThis);
  }  }
  
function fce_YM_Dec(par_ProgDate)
  {
  W = par_ProgDate.substr(2,2);
  M = W*1;
  
  W = par_ProgDate.substr(0,2);
  if (W == '__')
    Y = -1;
  else
    Y = W*1;
  //alert('dec: ' + par_ProgDate + ', ' + M + '*' + Y);
  M--;
  //alert('dec: ' + par_ProgDate + ', ' + M + '*' + Y);
  if (M == 0)
    {
    M = 12;
    Y--;
    }
  //alert('dec: ' + par_ProgDate + ', ' + M + '*' + Y);
  if (Y < 0)
    newdate = '__';
  else
    {
    if (Y < 10)
      newdate = '0' + Y;
    else
      newdate = Y;
    }
  if (M < 10)
    newdate = newdate + '0' + M;
  else
    newdate = newdate + M;
  return (newdate);
  }      
  
function fce_YM_Inc(par_ProgDate)
  {
  W = par_ProgDate.substr(2,2);
  M = W*1;
  
  W = par_ProgDate.substr(0,2);
  if ((W == '__') || (W == '99'))
    Y = -1;
  else
    Y = W*1;
  //alert('dec: ' + par_ProgDate + ', ' + M + '*' + Y);
  M++;
  //alert('dec: ' + par_ProgDate + ', ' + M + '*' + Y);
  if (M == 13)
    {
    M = 1;
    Y++;
    }
  //alert('dec: ' + par_ProgDate + ', ' + M + '*' + Y);
  if (Y < 0)
    newdate = '__';
  else
    {
    if (Y < 10)
      newdate = '0' + Y;
    else
      newdate = Y;
    }
  if (M < 10)
    newdate = newdate + '0' + M;
  else
    newdate = newdate + M;
  return (newdate);
  }