// functions chanYea(n); chanMon(n); chPag(n,m,o); contrMo(f,g); countWeek(a,b);
// makeMo(t,b); emptMon(a,b); tableHead(c,d); fullMon(a,b); creMo(p,q);
// revision(z,n); NewMonth()
/////////////////////////////////////////////////////////////////////////////////
function chanYea(n){
  var c=n;
  if(c=="m"){
    ary++;
    if(ary>maxyea){
      ary=1999;
    }
  }
  if(c=="p"){
     ary--;
    if(ary<1999){
      ary=maxyea;
    }
  }
  document.all.archyea.innerHTML="";
  document.all.archyea.innerHTML=ary;
  archivecal.yearsel.value=ary;
  NewMonth();
}
/////////////////////////////////////////////////////////////////////////////////
function chanMon(n){
  var k=n;
  if(k=="m"){
    arm++;
    if(arm>12){
      arm=1;
    }
  }
  if(k=="p"){
    arm--;
    if(arm<1){
      arm=12;
    }
  }
  document.all.archmon.innerHTML="";
  document.all.archmon.innerHTML=monate[arm];
  archivecal.monthsel.value=arm;
  NewMonth();
}
/////////////////////////////////////////////////////////////////////////////////
function chPag(n,m,o){
  eval("window.location.href='?r="+o+"&arusy="+n+"&arusm="+m+"'");
}
/////////////////////////////////////////////////////////////////////////////////
function contrMo(f,g){
  var cyo=1*f-1999;
  var cmo=cyo*12+1*g-1;
  var calon=calend_array.split(':');
  var myMo=calon[cmo];
  return myMo;
}
/////////////////////////////////////////////////////////////////////////////////
function countWeek(a,b){
  var mesgod=new Array();
  var dom=new Date(a,b,0);
  var DaToMo=dom.getDate();
  var fdm=new Date(a,b-1,1);
  var FiDa=fdm.getDay();
  if(FiDa==0){FiDa=7;}
  var ldm=new Date(a,b-1,DaToMo);
  var LaDa=ldm.getDay();
  if(LaDa==0){LaDa=7;}
  var www=Math.ceil((DaToMo+FiDa-1)/7);
  mesgod["amount"]=DaToMo;
  mesgod["begin"]=FiDa;
  mesgod["weeks"]=www;
  return mesgod;
}
//////////////////////////////////////////////////////////////////////////////////
function makeMo(t,b){
  var cntr=contrMo(t,b);
  if(cntr!=""){
    document.all.ca.innerHTML="";
    document.all.ca.innerHTML=tableHead(t,b)+fullMon(t,b);
    archivecal.yearsel.value=t;
    archivecal.monthsel.value=b;
  }else{
    document.all.ca.innerHTML="";
    document.all.ca.innerHTML=tableHead(t,b)+emptMon(t,b);
  }
}
///////////////////////////////////////////////////////////////////////////////////
function emptMon(a,b){
  var dw=1;
  var kuku=222;
  var texttablebody="<tr>";
  var dyq=countWeek(a,b)["amount"];
  while(dw<countWeek(a,b)["begin"]){
    texttablebody+="<td class='emptycell'>&nbsp;</td>";
    dw++;
  }
  for(var i=1;i<=dyq;i++){
    if(a==(1*realYear)&&b==(1+realMonth)&&i==(1*realDay)){
      var clnamw="activecell";
    }else{
      clnamw="passivecell";
    }
    texttablebody+="<td class='"+clnamw+"'>";
    texttablebody+=i+"</td>";
    if(dw==7){
      if(i==dyq){
        kuku=333;
      }else{
        texttablebody+="</tr><tr>";
        dw=1;
      }
    }else{
      dw++;
    }
  }
  if(kuku==222){
    while(dw<=7){
      texttablebody+="<td class='emptycell'>&nbsp;</td>";
      dw++;
    }
    texttablebody+="</tr></table>";
  }
  return texttablebody;
}
////////////////////////////////////////////////////////////////////////////////////////
function tableHead(c,d){
  var www=1+countWeek(c,d)["weeks"];
  var texttablehead="<table class='month' border='0' width='100%' rows='"+www+"' cols='7' cellspacing='1' cellpadding='0'>";
  texttablehead+="<tr>";
  for(var i=0;i<7;i++){
  if(isset_r>0){
    if(aadd>0){
      if(c==ay&&d==am&&i==(weekDayToday-1)){
        var clnamw="activecell";
      }else{
        clnamw="cell";
      }
    }else{
      clnamw="cell";
    }
  }else{
    if(c==ay&&d==am&&i==(weekDayToday-1)){
      var clnamw="activecell";
    }else{
      clnamw="cell";
    }
  }
    texttablehead+="<td class='"+clnamw+"'>";
    texttablehead+=weekDays[i];texttablehead+="</td>";
  }
  texttablehead+="</tr>";
  return texttablehead;
}
///////////////////////////////////////
function fullMon(a,b){
  var dw=1;var kuku=222;
  var texttablebody="<tr>";var dyq=countWeek(a,b)["amount"];
  while(dw<countWeek(a,b)["begin"]){
    texttablebody+="<td class='emptycell'>&nbsp;</td>";
    dw++;
  }
  for(var i=1;i<=dyq;i++){
    var resrev=revision(a,b);var vw=i+"_d";
    if(vzv>0&&a==(1*ay)&&b==(1*am)&&i==(1*aadd)){
      if(ttia<1){
        texttablebody+="<td class='activecell'>"+i+"</td>";
      }else{
        if(i<10){
          var zer="0";
        }else{
          zer="";
        }
        if(b<10){
          var mes=b;mes="0"+mes;
        }else{
          mes=b;mes+="";
        }
        texttablebody+="<form name='f"+a+mes+zer+i+"' method='post' action='"+php_self+"'>";
        texttablebody+="<input type='hidden' name='rar' value='qui'>";
        texttablebody+="<input type='hidden' name='dadada' value='"+a+mes+zer+i+"'>";
        texttablebody+="<td class='activecell'>";
        texttablebody+="<a class='calendlnk' href='javascript:document.forms.f"+a+mes+zer+i+".submit();' onmouseover="+'"'+"window.status='';return true;"+'"'+">";
        texttablebody+=i+"</a></td></form>";
      }
    }else{
      if(!resrev[vw]){
        if(vzv<1&&a==(1*realYear)&&b==(1+realMonth)&&i==(1*realDay)){
          texttablebody+="<td class='activecell'>"+i+"</td>";
        }else{
          texttablebody+="<td class='passivecell'>"+i+"</td>";
        }
      }else{
        if(vzv<1&&a==(1*realYear)&&b==(1+realMonth)&&i==(1*realDay)){
          texttablebody+="<td class='activecell'>"+i+"</td>";
        }else{
          if(i<10){
            var zer="0";
          }else{
            zer="";
          }
          if(b<10){
            var mes=b;
            mes="0"+mes;
          }else{
            mes=b;
            mes+="";
          }
          texttablebody+="<form name='f"+a+mes+zer+i+"' method='post' action='"+php_self+"'>";
          texttablebody+="<input type='hidden' name='rar' value='qui'>";
          texttablebody+="<input type='hidden' name='dadada' value='"+a+mes+zer+i+"'>";
          texttablebody+="<td class='cell'>";
          texttablebody+="<a class='calendlink' href='javascript:document.forms.f"+a+mes+zer+i+".submit();' onmouseover="+'"'+"window.status='';return true;"+'"'+">";
          texttablebody+=i+"</a></td></form>";
        }
      }
    }
    if(dw==7){
      if(i==dyq){
        kuku=333;
      }else{
        texttablebody+="</tr><tr>";
        dw=1;
      }
    }else{
      dw++;
    }
  }
  if(kuku==222){
    while(dw<=7){
      texttablebody+="<td class='emptycell'>&nbsp;</td>";
      dw++;
    }
    texttablebody+="</tr></table>";
  }   
  return texttablebody;
}
////////////////////////////////////////////////////////////////////////////////////////
function creMo(p,q){
  document.all.ca.innerHTML=tableHead(p,q)+emptMon(p,q);
}
////////////////////////////////////////////////////////////////////////////////////
function revision(z,n){
  var dOnmToY=new Array();
  var mmmcd=contrMo(z,n);
  var dcd=mmmcd.split(',');
  for(var b=0;b<dcd.length;b++){
    var ii=dcd[b]+"_d";
    dOnmToY[ii]=dcd[b];
  }
  return dOnmToY;
}
////////////////////////////////////////////////////////////////////////////////////
function NewMonth(){
  document.all.ca.innerHTML="";
  makeMo(archivecal.yearsel.value,archivecal.monthsel.value);
}