var actual_date = new Date();
var today_date  = new Date();

init_date();

function init_date()
{
 actual_date.setDate(actual_date.getDate());
}

function show_date()
{
   var begin_year = 2001;
   i = actual_date.getFullYear()-begin_year;
   document.date_form.year[i].selected = true;
   i = actual_date.getMonth();
   document.date_form.month[i].selected = true;
   i = actual_date.getDate()-1;
   document.date_form.day[i].selected = true;
}

function date_change(i)
{
   actual_date.setDate(actual_date.getDate()+i);

   if(actual_date.getTime() > today_date.getTime() )
   {
    actual_date = new Date();
    //show_date();
    //return;
   }   

   show_date();
   showMap();
}   

function date_set()
{
   actual_date.setFullYear(document.date_form.year[document.date_form.year.selectedIndex].value);
   actual_date.setMonth(document.date_form.month[document.date_form.month.selectedIndex].value - 1);
   actual_date.setDate(document.date_form.day[document.date_form.day.selectedIndex].value);

   if(actual_date.getTime() > today_date.getTime() )
   {
    actual_date = new Date();
   }   

   show_date();
   showMap();
}

function date_string() // In MySQL format
{
   var yr = actual_date.getFullYear();
   var mn = actual_date.getMonth()+1;
   if(mn<10)
   {
     mn = "0"+mn;
   }   
   var dy = actual_date.getDate();
   if(dy<10)
   {
      dy = "0"+dy;
   }   
   
   var str = ""+yr+"-"+mn+"-"+dy;
   
   return str;
}

function set_burn_date()
{
 current_burn_date = loadHTML("/kaluga/cgi/date_burns.pl?date="+date_string());
 
 if(current_burn_date.length > 10)
 { // Error in script date_burns.pl
	dd.elements.current_burn_dt.write("(Error in definition)");
 }
 else
 {
	var year = current_burn_date.substring(0,4);
	var month = current_burn_date.substring(5,7);
	var day = current_burn_date.substring(8,10);

	dd.elements.current_burn_dt.write(""+day+"."+month+"."+year);
 }    
}

function burn_date_change(i)
{
  var n_date;
  
  if(i<0)
  {
  	n_date = loadHTML("/kaluga/cgi/date_burns.pl?date="+current_burn_date+"&prev=1");
  }

  if(i>0)
  {
  	n_date = loadHTML("/kaluga/cgi/date_burns.pl?date="+current_burn_date+"&next=1");
  }
  
	 if(n_date.length > 10)
	 { // Error in script last_date.pl
	   actual_date.setDate(actual_date.getDate());
	 }
	 else
	 {
	   var year = n_date.substring(0,4);
	   var month = n_date.substring(5,7);
	   var day = n_date.substring(8,10);
	   
	   actual_date.setFullYear(year);
	   actual_date.setMonth(month-1);
	   actual_date.setDate(day);
	 }    
    
    show_date();
    showMap();
}