/* * tinycal v2.2 * * copyright (c) 2008-2009 Kjell-Inge Gustafsson kigkonsult * www.kigkonsult.se/tinycal/index.php * ical@kigkonsult.se * updated 20090118 * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * tinycal function javascript * **/ Date.prototype.getRealMonth=function(){return this.getMonth()+1};Date.prototype.getWeek=function(k){k=k||0;var e,g,i,p,f,o,n,j,d,l,q,h,b,c;e=this.getFullYear();g=this.getMonth();i=this.getDate();p=new Date(e,g,i);f=p.getDay();if((0==f)&&(1==k)){f=7}o=(0==k)?3:4;while(f!=o){i+=(fd){this.setFullYear(b,a,(c-1));b=this.getFullYear();a=this.getMonth();c=this.getDate();e=this.getDay()}};Date.prototype.getDayix=function(a,b){var c;b=b||a.tcDay;this.setFullYear(a.tcYear,(a.tcMonth-1),b);c=this.getDay()+1;if(1==a.tcWeekStart){if(1==c){c=8}c-=1}return c};function tclastDayInMonth(b,c){var a,e;a=new Date(b,(c-1),1);for(e=31;e>27;e--){a.setFullYear(b,(c-1),e);if(c==a.getRealMonth()){return e}}}function v(b,a){a=a||1;return"tc"+a+"_"+b}function vtcid(b){var a=b.indexOf("_");return(2""){g.innerHTML=f}}}$(b).appendChild(g);if(g.id&&c){tcsetStls(g.id,c)}}function tcsetStls(b,a){if("">=a){return}b=$(b).id;a.split(";").each(function(c){if("">=c){return}var d="",e="";d=c.split(":");d[0].split("-").each(function(f){if("">=e){e=f}else{e+=f.substr(0,1).toUpperCase()+f.substr(1)}});if(("textAlign"==e)&&(/MSIE (\d+\.\d+);/.test(navigator.userAgent))){b=$(b).ancestors()[0].id;if("TD"!=$(b).nodeName){$(b).align=d[1]}}else{$(b).style[e]=d[1]}})}function tcclearComp(a){if(1<=a.tctest){tctest(a,"clearComp start")}tcRemoveEvListCont(a.tcid,"c");$(v("c",a.tcid)).immediateDescendants().each(function(b){b.remove()});tcsetStls(v("c",a.tcid),"background-color:white")}function tcclearList(a){if(1<=a.tctest){tctest(a,"clearList start")}tcRemoveEvListCont(a.tcid,"l");$(v("l",a.tcid)).immediateDescendants().each(function(b){b.remove()})}function tcclearDay(a){if(1<=a.tctest){tctest(a,"clearDay start")}tcRemoveEvListCont(a.tcid,"d");var d=v("dtr",a.tcid),c,b;for(b=(a.tcDaystartHour-1);b<=(a.tcDayendHour+1);b++){c=d+b+"data";$(c).immediateDescendants().each(function(f){f.remove()});$(c).setAttribute("cntno",0)}}function tcclearMonth(a){if(1<=a.tctest){tctest(a,"clearMonth start")}tcRemoveEvListCont(a.tcid,"m");var d,c,e,b;for(e=1;e<7;e++){d="mtr"+e;tcput(d+"0w",a.tcid);tcput(d+"0y",a.tcid);for(b=1;b<8;b++){c=d+b+"data";tcsetStls(v(c,a.tcid),"color:#606060;fontWeight:normal");$(v(c,a.tcid)).title="";tcput(c,a.tcid)}}}function tcclearWeek(a){if(1<=a.tctest){tctest(a,"clearWeek start")}tcRemoveEvListCont(a.tcid,"w");var f=v("wtr",a.tcid),d,b,g,e;for(g=1;g<8;g++){tcput("wtrh1"+g+"Dd",a.tcid);tcput("wtrh1"+g+"Dy",a.tcid);tcput("wtrh1"+g+"Dm",a.tcid)}for(e=(a.tcDaystartHour-1);e<=(a.tcDayendHour+1);e++){d=f+e;for(g=1;g<8;g++){b=d+g+"data";$(b).immediateDescendants().each(function(c){c.remove()});$(b).setAttribute("cntno",0)}}}function tccreComp(a){if(1<=a.tctest){tctest(a,"createcomp start")}tcclearComp(a);if(2<=a.tctest){tctest(a,"createComp out")}}function tccreList(a){if(1<=a.tctest){tctest(a,"createList start")}tcclearList(a);if(2<=a.tctest){tctest(a,"createList out")}}function tccreDay(a){if(1<=a.tctest){tctest(a,"createDay start")}var b=new Date(),d=b.getDayix(a),c=tclang("wDaysArr",d,a.tcWeekStart);tcput("htr01",a.tcid,c+" "+a.tcDay+"/"+a.tcMonth+" "+a.tcYear);tcclearDay(a);if(2<=a.tctest){tctest(a,"createDay out")}}function tccreMonth(a){if(1<=a.tctest){tctest(a,"createMonth start")}var h=tclang("wMonth",(a.tcMonth-1)),b=new Date(a.tcYear,(a.tcMonth-1),1),c,e,g,f,d;tcclearMonth(a);tcput("htr01",a.tcid,h+" "+a.tcYear);b.setDateFirstDayOfWeek(a.tcWeekStart);c=b.getWeek(a.tcWeekStart);for(f=1;f<7;f++){e="mtr"+f;tcput(e+"0w",a.tcid,c[0]);tcput(e+"0y",a.tcid,c[1]);b.setFullYear(b.getFullYear(),b.getMonth(),(b.getDate()+7));c=b.getWeek(a.tcWeekStart)}g=b.getDayix(a,1);for(d=1,f=1;d<=31;d++){b.setFullYear(a.tcYear,(a.tcMonth-1),d);if(a.tcMonth!=b.getRealMonth()){break}e="mtr"+f+g+"data";tcput(e,a.tcid,d);if(0!=a.tcdayOk){tcCreateEvListFx(a.tcid,"m",v(e,a.tcid),"day")}g+=1;if(8==g){f+=1;g=1}}if($(v("mtr61data",a.tcid)).empty()){tcput("mtr60w",a.tcid);tcput("mtr60y",a.tcid)}if($(v("mtr51data",a.tcid)).empty()){tcput("mtr50w",a.tcid);tcput("mtr50y",a.tcid)}if(2<=a.tctest){tctest(a,"createMonth out")}}function tccreWeek(d){if(1<=d.tctest){tctest(d,"createWeek start")}var e=new Date(d.tcYear,(d.tcMonth-1),d.tcDay),b,a,f,g;tcput("htr01",d.tcid,tclang("week")+" "+d.tcWeekno+" "+d.tcYear);tcclearWeek(d);e.setDateFirstDayOfWeek(d.tcWeekStart);b=d.tcYear=e.getFullYear();a=d.tcMonth=e.getRealMonth();f=d.tcDay=e.getDate();tcput("wtrh10H",d.tcid,tclang("wMonth",(d.tcMonth-1)));for(g=1;g<8;g++){tcput("wtrh1"+g+"Dd",d.tcid,f);tcput("wtrh1"+g+"Dy",d.tcid,b);tcput("wtrh1"+g+"Dm",d.tcid,a);if(7>g){e.setFullYear(b,(a-1),(f+1));b=e.getFullYear();a=e.getRealMonth();f=e.getDate();weekday=e.getDay();if(3==(weekday-d.tcWeekStart)){d.tcYear=b;d.tcMonth=a;d.tcDay=f}}}tcputcfg(d,2,"createWeek out")}function tcinit(b){b.tctest=0||b.tctest;if(1<=b.tctest){tctest(b,"init start")}var g=v("div",b.tcid),f,a,d,i="|",e="",c="",h="";document.writeln("\n
");if(b.tcdivStyle){tcsetStls(g,b.tcdivStyle)}b.tcDaystartHour=(!b.tcDaystartHour||isNaN(b.tcDaystartHour))?1:parseInt(b.tcDaystartHour,10);if(1>b.tcDaystartHour){b.tcDaystartHour=1}b.tcDayendHour=(!b.tcDayendHour||isNaN(b.tcDayendHour))?23:parseInt(b.tcDayendHour,10);if(1>b.tcDayendHour||23<=b.tcDayendHour){b.tcDayendHour=23}if(b.tcDaystartHour>b.tcDayendHour){f=b.tcDaystartHour;b.tcDaystartHour=b.tcDayendHour;b.tcDayendHour=f}if((!b.tccomptype)||((b.tccomptype!="vevent")&&(b.tccomptype!="vjournal")&&(b.tccomptype!="vtodo"))){b.tccomptype="vevent"}b.tcordnoMax=b.tcordnoMax||"0-0";b.tcUID=b.tcUID||"";b.tcmonthOk=0;b.tcweekOk=0;b.tcdayOk=0;b.tccompOk=0;b.tclistOk=0;b.tcdownloadOk=0;b.tcView=b.tcStartView||"month";a=false;if(!b.tcAllowedViews){b.tcAllowedViews=new Array("month")}b.tcAllowedViews.each(function(j){switch(j){case"download":b.tcdownloadOk=1;break;case"comp":b.tccompOk=1;break;case"list":b.tclistOk=1;if("list"==b.tcView){a=true}break;case"day":b.tcdayOk=1;if("day"==b.tcView){a=true}break;case"week":b.tcweekOk=1;if("week"==b.tcView){a=true}break;default:case"month":b.tcmonthOk=1;if("month"==b.tcView){a=true}break}});if(true!=a){if(1==b.tcmonthOk){b.tcView="month"}else{if(1==b.tcweekOk){b.tcView="week"}else{if(1==b.tcdayOk){b.tcView="day"}else{if(1==b.tclistOk){b.tcView="list"}else{alert("No start View defined/no views allowed!!\nInit aborted!!");return}}}}}b.tcListItems=(!b.tcListItems||isNaN(b.tcListItems))?5:parseInt(b.tcListItems,10);b.tcColWidth=(!b.tcColWidth||isNaN(b.tcColWidth))?25:parseInt(b.tcColWidth,10);b.tcdlMonthOk=0;b.tcdlWeekOk=0;b.tcdlDayOk=0;b.tcdlCompOk=0;b.tcdlListOk=0;b.tcdlTotalOk=0;if((1==b.tcdownloadOk)&&b.tcAllowedDownloads.size()){b.tcAllowedDownloads.each(function(j){switch(j){case"month":b.tcdlMonthOk=1;break;case"week":b.tcdlWeekOk=1;break;case"day":b.tcdlDayOk=1;break;case"comp":b.tcdlCompOk=1;break;case"list":b.tcdlListOk=1;break;default:case"total":b.tcdlTotalOk=1;break}})}if((1==b.tccompOk)&&b.tcCompProps.size()){b.tcCompProps.each(function(j){switch(j){case"summary":c+="a";break;case"SUMMARY":c+="A";break;case"time":c+="b";break;case"TIME":c+="B";break;case"completed":c+="c";break;case"COMPLETED":c+="C";break;case"priority":c+="d";break;case"PRIORITY":c+="D";break;case"description":c+="e";break;case"DESCRIPTION":c+="E";break;case"url":c+="f";break;case"URL":c+="F";break;case"percent":c+="g";break;case"PERCENT":c+="G";break;case"class":c+="h";break;case"CLASS":c+="H";break;case"location":c+="i";break;case"LOCATION":c+="I";break;case"resources":c+="j";break;case"RESOURCES":c+="J";break;case"organizer":c+="k";break;case"ORGANIZER":c+="K";break;case"contact":c+="l";break;case"CONTACT":c+="L";break;case"attendee":c+="m";break;case"ATTENDEE":c+="M";break;case"transp":c+="n";break;case"TRANSP":c+="N";break;case"categories":c+="o";break;case"CATEGORIES":c+="O";break;case"comment":c+="p";break;case"COMMENT":c+="P";break;case"order":c+="q";break;case"ORDER":c+="Q";break;case"recurrent":c+="r";break;case"RECURRENT":c+="R";break;case"uid":c+="s";break;case"UID":c+="S";break;case"created":c+="t";break;case"CREATED":c+="T";break;case"last_modified":c+="u";break;case"LAST_MODIFIED":c+="U";break}})}if((1==b.tclistOk)&&b.tcListProps.size()){b.tcListProps.each(function(j){switch(j){case"summary":h+="a";break;case"SUMMARY":h+="A";break;case"time":h+="b";break;case"TIME":h+="B";break;case"priority":h+="d";break;case"PRIORITY":h+="D";break;case"url":h+="f";break;case"URL":h+="F";break;case"location":h+="i";break;case"LOCATION":h+="I";break;case"resources":h+="j";break;case"RESOURCES":h+="J";break;case"categories":h+="o";break;case"CATEGORIES":h+="O";break}})}b.tcheaderStyle=b.tcheaderStyle||"";b.tcmenuStyle=(b.tcmenuStyle)||"";if(b.tclabelStyle){b.tclabelStyle+=";letter-spacing:0.1em;font-family:arial,sans-serif;font-size:x-small;font-weight:lighter"}else{b.tclabelStyle="letter-spacing:0.1em;font-family:arial,sans-serif;font-size:x-small;font-weight:lighter"}b.tcoddrowStyle=b.tcoddrowStyle||"";if("background-color"==b.tcoddrowStyle.substring(0,16)){e=b.tcoddrowStyle.split(";")[0].split(":")[1]}d=b.tcView;d+=i+b.tcYear;d+=i+b.tcMonth;d+=i+b.tcDay;d+=i+b.tcWeekno;d+=i+b.tcWeekStart;d+=i+b.tcDaystartHour;d+=i+b.tcDayendHour;d+=i+b.tcUrl;d+=i+b.tcData1;d+=i+b.tccomptype;d+=i+b.tcordnoMax;d+=i+b.tcUID;d+=i+b.tcmonthOk;d+=i+b.tcweekOk;d+=i+b.tcdayOk;d+=i+b.tccompOk;d+=i+b.tclistOk;d+=i+b.tcListItems;d+=i+b.tcColWidth;d+=i+b.tcdlMonthOk;d+=i+b.tcdlWeekOk;d+=i+b.tcdlDayOk;d+=i+b.tcdlCompOk;d+=i+b.tcdlListOk;d+=i+b.tcdlTotalOk;d+=i+e;d+=i+c;d+=i+h;d+=i+b.tctest;f=b.v("config",b.tcid);tcaddElem(g,"input",$H({id:f,type:"hidden"}),d);if(1<=d.tctest){tctest(d,"init :\nparent="+g+"\nid="+f)}if(!tcfxeh[b.tcid]){tcfxeh[b.tcid]=new Hash()}tcrndrHeader(b);if(0!=b.tcmonthOk){tcrndrMonth(b)}if(0!=b.tcweekOk){tcrndrWeek(b)}if(0!=b.tcdayOk){tcrndrDay(b)}if(0!=b.tclistOk){tcrndrList(b)}if(0!=b.tccompOk){tcrndrComp(b)}if((0!=b.tcdlMonthOk)||(0!=b.tcdlWeekOk)||(0!=b.tcdlDayOk)||(0!=b.tcdlCompOk)||(0!=b.tcdlListOk)||(0!=b.tcdlTotalOk)){tcrndrDL(b)}tchideAllBoxes(b.tcid);tcrndrBottom(b);switch(b.tcView){case"comp":tcupdComp(b);break;case"list":tcupdList(b);break;case"day":tcupdDay(b);break;case"week":tcupdWeek(b);break;default:case"month":tcupdMonth(b);break}if(2<=b.tctest){tctest(b,"init out")}}function tcrndrBottom(b){if(1<=b.tctest){tctest(b,"renderBottom start")}tcCreateEvListCont(b.tcid,"b");var g=b.v("div",b.tcid),f=b.v("b",b.tcid),e,d,a,c;tcaddElem(g,"div",$H({id:f}),null,"text-align:center;background-color:#ffffff");c="color:black;font-family:arial,sans-serif;font-size:xx-small;letter-spacing:0.2em;text-decoration:none";e=f+"1";tcaddElem(f,"div",$H({id:e,title:tclang("about")}),"kigkonsult - tinycal v2.2",b.tclabelStyle+";"+c);tcCreateEvListFx(b.tcid,"b",e,"b2");$(e).hide();e=f+"2";tcaddElem(f,"div",$H({id:e}));tcaddElem(e,"br");d=e+"0a";tcaddElem(e,"span",$H({id:d,title:tclang("close")}),"tinycal v2.2",c);tcCreateEvListFx(b.tcid,"b",d,"b1");tcaddElem(e,"br");d=e+"0b";tcaddElem(e,"span",$H({id:d}),"© 2008 kigkonsult",c);tcCreateEvListFx(b.tcid,"b",d,"b1");tcaddElem(e,"br");tcaddElem(e,"br");a=$H({id:e+"1",href:"http://www.kigkonsult.se/iCalcreator/index.php",title:"kigkonsult.se/iCalcreator",target:"_blank"});tcaddElem(e,"a",a,"iCalcreator v2.6",c);a=$H({id:e+"1l",href:"http://www.kigkonsult.se/downloads/dl.php?f=LGPL",title:"LGPL",target:"_blank"});tcaddElem(e,"a",a," LGPL",c);tcaddElem(e,"br");tcaddElem(e,"br");a=$H({id:e+"2",href:"http://www.prototypejs.org/",title:"prototypejs.org",target:"_blank"});tcaddElem(e,"a",a,"Prototype v1.5.0",c);a=$H({id:e+"2l",href:"http://creativecommons.org/licenses/by-sa/3.0/",title:"creativecommons.org",target:"_blank"});tcaddElem(e,"a",a," CC BY-SA",c);tcaddElem(e,"br");tcaddElem(e,"br");a=$H({id:e+"3",href:"http://www.kigkonsult.se/tinycal/index.php",title:"kigkonsult.se/tinycal",target:"_blank"});tcaddElem(e,"a",a,"tinycal v2.2",c);a=$H({id:e+"3l",href:"http://www.kigkonsult.se/downloads/dl.php?f=GPL",title:"GPL",target:"_blank"});tcaddElem(e,"a",a," GPL",c);if(2<=b.tctest){tctest(b,"RenderBottom out")}}function tcrndrHeader(b){if(1<=b.tctest){tctest(b,"renderHeader start")}tcCreateEvListCont(b.tcid,"h");var h=b.v("div",b.tcid),g,f,e,d,c,a;if(b.tcheaderText){g=b.v("divT",b.tcid);c=(b.tcheaderStyle)?b.tcheaderStyle+";text-align:center":"text-align:center";tcaddElem(h,"div",$H({id:g}),b.tcheaderText,c)}g=b.v("h",b.tcid);tcaddElem(h,"div",$H({id:g}),null,b.tcmenuStyle);f=g+"tt";tcaddElem(g,"table",$H({id:f}),null,"border-collapse:collapse;width:100%");e=g+"t";tcaddElem(f,"tbody",$H({id:e}));d=e+"r0";tcaddElem(e,"tr",$H({id:d}));tcaddElem(d,"td",$H({id:d+"0"}));tcrndrHeaderImg(b.tcid,d+"0","menuPrev",tclang("previous"),"./images/prev.png","11px","go",null);a=Math.floor($(h).getWidth()*(110/218));c="text-align:center;width:"+a+"px;vertical-align:middle";if(b.tclabelStyle){c=b.tclabelStyle+";"+c}tcaddElem(d,"td",$H({id:d+"1"}),null,c);tcaddElem(d,"td",$H({id:d+"2"}));tcrndrHeaderImg(b.tcid,d+"2","menuNext",tclang("next"),"./images/next.png","11px","go",null);if(0!=b.tclistOk){tcrndrHeaderImg(b.tcid,d+"2","menuList",tclang("list"),"./images/list.png","16px","list","margin-left: 3px")}if(0!=b.tcdayOk){tcrndrHeaderImg(b.tcid,d+"2","menuDay",tclang("day"),"./images/day.png","16px","day","margin-left: 3px")}if(0!=b.tcweekOk){tcrndrHeaderImg(b.tcid,d+"2","menuWeek",tclang("week"),"./images/week.png","16px","week","margin-left: 3px")}if(0!=b.tcmonthOk){tcrndrHeaderImg(b.tcid,d+"2","menuMonth",tclang("month"),"./images/month.png","16px","month","margin-left: 3px")}if(2<=b.tctest){tctest(b,"renderHeader out")}}function tcrndrHeaderImg(c,f,b,i,a,h,g,e){var d=v(b,c);tcaddElem(f,"img",$H({id:d,src:a,title:i,height:"16px",width:h}),null,e);tcCreateEvListFx(c,"h",d,g)}function tcrndrComp(a){if(1<=a.tctest){tctest(a,"renderComp start")}tcCreateEvListCont(a.tcid,"c");var c=a.v("div",a.tcid),b=a.v("c",a.tcid);tcaddElem(c,"div",$H({id:b}));$(b).hide();if(2<=a.tctest){tctest(a,"renderComp out")}}function tcrndrList(a){if(1<=a.tctest){tctest(a,"renderList start")}tcCreateEvListCont(a.tcid,"l");var c=a.v("div",a.tcid),b=a.v("l",a.tcid);tcaddElem(c,"div",$H({id:b}));$(b).hide();if(2<=a.tctest){tctest(a,"renderList out")}}function tcrndrDay(b){if(1<=b.tctest){tctest(b,"renderDay start")}tcCreateEvListCont(b.tcid,"d");var j=b.v("div",b.tcid),i=b.v("d",b.tcid),k,g,f,e,l,d,m,c,a;tcaddElem(j,"div",$H({id:i}));k=i+"tt";tcaddElem(i,"table",$H({id:k}),null,"border-collapse:collapse;width:100%");g=i+"t";tcaddElem(k,"tbody",$H({id:g}));d=Math.floor($(j).getWidth()*(18/218));l="width:"+d+"px;borderRight:gray dotted thin;vertical-align:top;text-align:right";if(b.tclabelStyle){l=b.tclabelStyle+";"+l}c=$(j).getWidth()-d;d=(/MSIE (\d+\.\d+);/.test(navigator.userAgent))?"10pt":"small";m="width:"+c+"px;font:"+d+" arial,sans-serif;text-align:left";for(a=(b.tcDaystartHour-1),rownr=1;a<=(b.tcDayendHour+1);a++,rownr++){f=g+"r"+a;tcaddElem(g,"tr",$H({id:f}));if((0==(rownr%2))&&b.tcoddrowStyle){tcsetStls(f,b.tcoddrowStyle)}e=(ab.tcDayendHour)?" ":a;tcaddElem(f,"td",$H({id:f+"H"}),e,l);tcaddElem(f,"td",$H({id:f+"data"}),null,m)}$(i).hide();if(2<=b.tctest){tctest(b,"renderDay out")}}function tcrndrMonth(d){if(1<=d.tctest){tctest(d,"renderMonth start")}tcCreateEvListCont(d.tcid,"m");var l=d.v("div",d.tcid),j=d.v("m",d.tcid),m,i,h,f,e,b,k,g,a;tcaddElem(l,"div",$H({id:j}));m=j+"tt";tcaddElem(j,"table",$H({id:m}),null,"border-collapse:collapse;width:100%;font-family: arial,sans-serif");i=j+"t";tcaddElem(m,"tbody",$H({id:i,align:"right"}));h=i+"r0";tcaddElem(i,"tr",$H({id:h}));f=h+"0D";b="vertical-align:top";if(d.tclabelStyle){b=d.tclabelStyle+";"+b}tcaddElem(h,"th",$H({id:f}),null,b);k=Math.floor($(l).getWidth()*(18/218));$(f).style.width=k+"px";k=Math.floor($(l).getWidth()*(26/218));b="width:"+k+"px;borderBottom:gray dotted thin;vertical-align:top";if(d.tclabelStyle){b=d.tclabelStyle+";"+b}for(g=1;g<8;g++){f=h+"0"+g+"D";tcaddElem(h,"th",$H({id:f}),tclang("wDaysArr",g,d.tcWeekStart),b)}b="borderRight:gray dotted thin;vertical-align:top";if(d.tclabelStyle){b=d.tclabelStyle+";"+b}for(a=1;a<7;a++){h=i+"r"+a;if(0==(a%2)){tcaddElem(i,"tr",$H({id:h}),null,d.tcoddrowStyle)}else{tcaddElem(i,"tr",$H({id:h}))}f=i+"r"+a+"0yw";tcaddElem(h,"td",$H({id:f}),null,b);e=i+"r"+a+"0w";tcaddElem(f,"span",$H({id:e}));e=i+"r"+a+"0y";tcaddElem(f,"input",$H({id:e,type:"hidden"}));if(0!=d.tcweekOk){tcCreateEvListFx(d.tcid,"h",f,"week")}for(g=1;g<8;g++){f=i+"r"+a+g+"data";tcaddElem(h,"td",$H({id:f}),null,null,"color:#606060")}}$(j).hide();if(2<=d.tctest){tctest(d,"renderMonth out")}}function tcrndrWeek(d){if(1<=d.tctest){tctest(d,"renderWeek start")}tcCreateEvListCont(d.tcid,"w");var l=d.v("div",d.tcid),j=d.v("w",d.tcid),m,i,h,f,e,k,b,g,a;tcaddElem(l,"div",$H({id:j}),null,null,b);m=j+"tt";tcaddElem(j,"table",$H({id:m}),null,"border-collapse:collapse;width:100%");i=j+"t";tcaddElem(m,"tbody",$H({id:i,align:"center"}));h=i+"rh0";tcaddElem(i,"tr",$H({id:h}));f=h+"0";k=Math.floor($(l).getWidth()*(18/218));b="width:"+k+"px;vertical-align:top";if(d.tclabelStyle){b=d.tclabelStyle+";"+b}tcaddElem(h,"th",$H({id:f}),null,b);k=Math.floor($(l).getWidth()*(26/218));b="width:"+k+"px;vertical-align:top";if(d.tclabelStyle){b=d.tclabelStyle+";"+b}for(g=1;g<8;g++){f=h+g;tcaddElem(h,"th",$H({id:f}),tclang("wDaysArr",g,d.tcWeekStart),b)}h=i+"rh1";tcaddElem(i,"tr",$H({id:h}));f=h+"0H";b="fontSize:0.60em;letterSpacing:0.08em;vertical-align:top";if(d.tclabelStyle){b=d.tclabelStyle+";"+b}tcaddElem(h,"td",$H({id:f}),null,b);b="border-bottom:gray dotted thin;vertical-align:top";if(d.tclabelStyle){b=d.tclabelStyle+";"+b}for(g=1;g<8;g++){f=h+g+"Dymd";tcaddElem(h,"td",$H({id:f}),null,b);e=h+g+"Dd";tcaddElem(f,"span",$H({id:e}));e=h+g+"Dy";tcaddElem(f,"input",$H({id:e,type:"hidden"}));e=h+g+"Dm";tcaddElem(f,"input",$H({id:e,type:"hidden"}));if(0!=d.tcdayOk){tcCreateEvListFx(d.tcid,"h",f,"day")}}b="vertical-align:top";if(d.tclabelStyle){b=d.tclabelStyle+";"+b}for(a=(d.tcDaystartHour-1),rownr=2;a<=(d.tcDayendHour+1);a++,rownr++){h=i+"r"+a;if(1==(rownr%2)){tcaddElem(i,"tr",$H({id:h}),null,d.tcoddrowStyle)}else{tcaddElem(i,"tr",$H({id:h}))}k=(ad.tcDayendHour)?" ":a;f=h+"H";tcaddElem(h,"td",$H({id:f,align:"right"}),k,b);for(g=1;g<8;g++){f=h+g+"data";tcaddElem(h,"td",$H({id:f}),null,"border-left:gray dotted thin")}}$(j).hide();if(2<=d.tctest){tctest(d,"renderWeek out")}}function tcrndrDL(b){if(1<=b.tctest){tctest(b,"renderDL start")}var i=b.v("div",b.tcid),h=b.v("dl",b.tcid),g=b.v("dlt",b.tcid),f=b.v("dltt",b.tcid),e=b.v("dlr",b.tcid),d=b.v("dlcl",b.tcid),c=b.v("dlcr",b.tcid),a="border-bottom:gray dotted thin;border-top:gray dotted thin";if(b.tclabelStyle){a=b.tclabelStyle+";"+a}tcaddElem(i,"div",$H({id:h}),null,a);tcaddElem(h,"table",$H({id:g}),null,"border-collapse:collapse;width:100%");tcaddElem(g,"tbody",$H({id:f}));tcaddElem(f,"tr",$H({id:e}));a="color:black;font-family:arial,sans-serif;font-size:xx-small;letter-spacing:0.1em;";if(0!=b.tcdlTotalOk){tcaddElem(e,"td",$H({id:d,align:"left",title:b.tcData1}));attr=$H({id:d+"img",src:"./images/dl.png",height:"12px",width:"12px"});tcaddElem(d,"img",attr,null,"margin-right:3px");tcaddElem(d,"span",$H({id:d+"txt"}),tclang("download"),a);tcCreateEvListFx(b.tcid,"h",d,"dlcl")}if((0!=b.tcdlMonthOk)||(0!=b.tcdlWeekOk)||(0!=b.tcdlDayOk)||(0!=b.tcdlCompOk)||(0!=b.tcdlListOk)){tcaddElem(e,"td",$H({id:c,align:"right",title:tclang("download")}));tcaddElem(c,"span",$H({id:c+"txt"}),b.tcData1,a);attr=$H({id:c+"img",src:"./images/dl.png",height:"12px",width:"12px"});tcaddElem(c,"img",attr,null,"margin-left:3px");tcCreateEvListFx(b.tcid,"h",c,"dlcr")}}function tcsetHgt(b){b=tcgetcfg(b.tcid,1,"tcsetHgt start");var a=0,d,c;if($(v("divT",b.tcid))){a+=$(v("divT",b.tcid)).getHeight()}a+=$(v("h",b.tcid)).getHeight();d=a;switch(b.tcView){case"comp":a+=$(v("c",b.tcid)).getHeight();break;case"list":a+=$(v("l",b.tcid)).getHeight();break;case"day":a+=$(v("d",b.tcid)).getHeight();break;case"week":a+=$(v("w",b.tcid)).getHeight();break;default:case"month":a+=$(v("m",b.tcid)).getHeight();break}if((0!=b.tcdlMonthOk)||(0!=b.tcdlWeekOk)||(0!=b.tcdlDayOk)||(0!=b.tcdlCompOk)||(0!=b.tcdlListOk)||(0!=b.tcdlTotalOk)){a+=$(v("dl",b.tcid)).getHeight()}c=a;a+=$(v("b",b.tcid)).getHeight();if(170>a){a=170}$(v("div",b.tcid)).style.height=a+"px";if(2<=b.tctest){tctest(b,"tcsetHgt out, height="+a+"px")}}function tcgo(e){var a=tcgetcfg(vtcid(this.id),1,"tcgo in via "+this.id),d=null,c=null,b;switch(a.tcView){case"comp":case"list":d=(v("menuPrev",a.tcid)==this.id)?1:null;c=(v("menuNext",a.tcid)==this.id)?1:null;break;case"day":a.tcDay+=(v("menuPrev",a.tcid)==this.id)?-1:+1;break;case"week":a.tcDay+=(v("menuPrev",a.tcid)==this.id)?-7:+7;break;default:case"month":a.tcMonth+=(v("menuPrev",a.tcid)==this.id)?-1:+1;if(((4==a.tcMonth)||(6==a.tcMonth)||(9==a.tcMonth)||(11==a.tcMonth))&&(31==a.tcDay)){a.tcDay=30}else{if((2==a.tcMonth)&&(28=t.size()){$(v("c",e.tcid)).hide();if(0!=e.tcdayOk){e.tcView="day";tcputcfg(e,2,"tcloadComp return to day");tcupdDay(e)}else{if(0!=e.tcweekOk){e.tcView="week";tcputcfg(e,2,"tcloadComp return to week");tcupdWeek(e)}else{if(0!=e.tcmonthOk){e.tcView="month";tcputcfg(e,2,"tcloadComp return to month");tcupdMonth(e)}}}return}tccreComp(e);o=0;for(q in t){for(d in t[q]){for(s in t[q][d]){l++;b=t[q][d][s];if(b.xcurday){e.tcYear=b.xcurday.substr(0,4);e.tcMonth=parseInt(b.xcurday.substr(4,2),10);e.tcDay=parseInt(b.xcurday.substr(6,2),10)}if(b.xsort){e.tcordnoMax=b.xsort}if(b.uid){e.tcUID=b.uid}m=(b.priority&&tcPrioColors[b.priority])?tcPrioColors[b.priority]:false;for(h=0,r=e.tcCompProps.length;h=m.size()){$(a).hide();if(0!=e.tcdayOk){e.tcView="day";tcputcfg(e,2,"tcloadList return to day");tcupdDay(e)}else{if(0!=e.tcweekOk){e.tcView="week";tcputcfg(e,2,"tcloadList return to week");tcupdWeek(e)}else{if(0!=e.tcmonthOk){e.tcView="month";tcputcfg(e,2,"tcloadList return to month");tcupdMonth(e)}}}return}for(u=0;u=c.size()){continue}comp=new Hash();for(t=0;tcomp.dtend.length))&&(comp.dtend!=comp.dtstart.substr(0,8))){g=new Date(parseInt(comp.dtend.substr(0,4),10),(parseInt(comp.dtend.substr(4,2),10)-1),(parseInt(comp.dtend.substr(6,2),10)-1));comp.dtend=g.getFullYear();k=g.getRealMonth();comp.dtend+=(10>k)?"0"+k:""+k;k=g.getDate();comp.dtend+=(10>k)?"0"+k:""+k}m[u]=comp}tccreList(e);for(u=0;uo){e.tcordnoMax=c.xsort;e.tcYear=c.xcurday.substr(0,4);e.tcMonth=parseInt(c.xcurday.substr(4,2),10);e.tcDay=parseInt(c.xcurday.substr(6,2),10);g=new Date();b=g.getDayix(e);l=tclang("wDaysArr",b,e.tcWeekStart);e.tcUID=c.uid;tcput("htr01",e.tcid,l+" "+e.tcDay+"/"+e.tcMonth+" "+e.tcYear)}for(k=0,w=e.tcListProps.length;k=e.size()){h.tcordnoMax="0";tcputcfg(h,2,"tcloadDay ordnoMax=0");tcsetHgt(h);return}h.tcordnoMax="";c=""+h.tcYear;c+=(10>h.tcMonth)?"0"+h.tcMonth:""+h.tcMonth;c+=(10>h.tcDay)?"0"+h.tcDay:""+h.tcDay;e.each(function(m){if(c!=m.key){return}f=-1;m.value.each(function(n){a=tcgetDayHour(h,n.key);j=v("dtr"+a+"data",h.tcid);if(f!=a){l=parseInt($(j).getAttribute("cntno"),10)||0;f=a}n.value.each(function(o){k++;l+=1;if(1=h.tcordnoMax){h.tcordnoMax=o.value.xsort;tcputcfg(h,2,"tcloadDay ordnoMax upd")}}i=v("dtr"+a+"data"+l,h.tcid);b=o.value.xsort+"*"+o.value.xcurday+"*"+o.value.uid;d=(o.value.priority&&tcPrioColors[o.value.priority])?"color:"+tcPrioColors[o.value.priority]:"";if(h.tcColWidth=g.size()){k.tcordnoMax="0";tcputcfg(k,2,"tcloadMonth cfg save");tcsetHgt(k);return}k.tcordnoMax="";d=g.keys().first();m=g[d];d=m.keys().first();e=m[d];d=e.keys().first();j=e[d];k.tcordnoMax=j.xsort;tcputcfg(k,1,"tcloadMonth cfg save");a=n.getDayix(k,1);for(f=1,o=1;f<=31;f++){n.setFullYear(k.tcYear,(k.tcMonth-1),f);if(k.tcMonth!=n.getRealMonth()){break}d=k.tcYear;d+=(10>k.tcMonth)?"0"+k.tcMonth:""+k.tcMonth;d+=(10>f)?"0"+f:""+f;if(g[d]){l++;b=v("mtr"+o+""+a+"data",k.tcid);tcsetStls(b,"color:black;font-weight:bolder");c=0;g[d].each(function(i){i.value.each(function(p){c+=1})});if(0=g.size()){i.tcordnoMax="0";tcputcfg(i,2,"tcloadWeek cfg save");tcsetHgt(i);return}i.tcordnoMax="";p=new Date(i.tcYear,(i.tcMonth-1),i.tcDay);p.setDateFirstDayOfWeek(i.tcWeekStart);i.tcDay=p.getDate();i.tcMonth=p.getRealMonth();i.tcYear=p.getFullYear();f="font-size:x-small";for(l=1;l<8;l++){d=i.tcYear;d+=(10>i.tcMonth)?"0"+i.tcMonth:""+i.tcMonth;d+=(10>i.tcDay)?"0"+i.tcDay:""+i.tcDay;if(g[d]){n=g[d];n.each(function(c){a=("0"==c.key.substr(0,1))?c.key.substr(1):c.key;a=tcgetDayHour(i,c.key);k=v("wtr"+a+l+"data",i.tcid);o=parseInt($(k).getAttribute("cntno"),10)||0;c.value.each(function(q){m++;o++;j=v("wtr"+a+l+"data"+o,i.tcid);e=(q.value.priority&&tcPrioColors[q.value.priority])?";color:"+tcPrioColors[q.value.priority]:"";b=q.value.xsort+"*"+q.value.xcurday+"*"+q.value.uid;tcaddElem(k,"span",$H({id:j,omYU:b}),"♦ ",f+e);if("">=i.tcordnoMax){i.tcordnoMax=q.value.xsort;tcputcfg(i,2,"tcloadWeek cfg save")}if(0!=i.tccompOk){$(j).title=q.value.summary;tcCreateEvListFx(i.tcid,"w",j,"comp")}});$(v("wtr"+a+l+"data",i.tcid)).setAttribute("cntno",o)})}p.setFullYear(i.tcYear,(i.tcMonth-1),(i.tcDay+1));i.tcYear=p.getFullYear();i.tcMonth=p.getRealMonth();i.tcDay=p.getDate()}if(0s){return C}for(t=0;tq){continue}for(r=0;rg.tcDaystartHour)?"0"+(g.tcDaystartHour-1):(g.tcDaystartHour-1)}else{if(8g.tcDaystartHour)?"0"+(g.tcDaystartHour-1):(g.tcDaystartHour-1)}}}break;case"dtstart":y.dtstart=e.substr(0,8);if(8y.dtend.length))&&(y.dtend!=y.dtstart.substr(0,8))){h=new Date(parseInt(y.dtend.substr(0,4),10),(parseInt(y.dtend.substr(4,2),10)-1),(parseInt(y.dtend.substr(6,2),10)-1));y.dtend=h.getFullYear();l=h.getRealMonth();y.dtend+=(10>l)?"0"+l:""+l;l=h.getDate();y.dtend+=(10>l)?"0"+l:""+l}l=(y.recurrent)?y.recurrent:y.dtstart;if(l&&y.duration&&("vjournal"!=g.tccomptype)){y.dtend=tcdur2time(l,y.duration,g)}if(y.duration){y.remove("duration")}if(y.dtend&&(9>y.dtend.length)&&(y.dtend==y.dtstart)){y.remove("dtend")}if(!C[A]){C[A]=new Hash()}if("0"==z.substr(0,1)){z=z.substr(1)}if(!C[A][z]){C[A][z]=new Hash()}w=C[A][z].size();C[A][z][w]=y}if(2<=g.tctest){alert("tcxml2arr out, No days:"+C.size())}return C}function tcdur2time(i,c,e){var g=i.substr(0,4),a=parseInt(i.substr(4,2),10),f=parseInt(i.substr(6,2),10),j,h,b,k;f+=parseInt(c[0],10);j=(8j){j="0"+j}h=k.getMinutes();if(10>h){h="0"+h}b=k.getSeconds();if(10>b){b="0"+b}if(("00"==j)&&("00"==h)&&("00"==b)){k=new Date(g,(a-1),(f-1),24,0,0);j="24"}g=k.getFullYear();a=k.getRealMonth();if(10>a){a="0"+a}f=k.getDate();if(10>f){f="0"+f}return""+g+a+f+j+h+b}function tccurpntr(a){$(this.id).style.cursor="pointer"}function tccurdef(a){$(this.id).style.cursor="default"}function tcshowBottomBox(b){var a=tcgetcfg(vtcid(this.id),1,"tcshowBottomBox in fr "+this.id);tchideAllBoxes(a.tcid);$(v("b1",a.tcid)).hide();$(v("b2",a.tcid)).show()}function tchideBottomBox(a){$(v("b1",a)).show();$(v("b2",a)).hide()}function tchideBottomBox2(b){var a=tcgetcfg(vtcid(this.id),1,"tchideBottomBox2 in fr "+this.id);tchideBottomBox(a.tcid);switch(a.tcView){case"comp":$(v("c",a.tcid)).show();break;case"list":$(v("l",a.tcid)).show();break;case"day":$(v("d",a.tcid)).show();break;case"week":$(v("w",a.tcid)).show();break;default:case"month":$(v("m",a.tcid)).show();break}if(0!=a.tcdlTotalOk){$(v("dlcl",a.tcid)).show()}if(((0!=a.tcdlMonthOk)&&("month"==a.tcView))||((0!=a.tcdlWeekOk)&&("week"==a.tcView))||((0!=a.tcdlDayOk)&&("day"==a.tcView))||((0!=a.tcdlCompOk)&&("comp"==a.tcView))||((0!=a.tcdlListOk)&&("list"==a.tcView))){$(v("dlcr",a.tcid)).show()}}function tchideAllBoxes(a){["c","l","d","w","m","dlcl","dlcr"].each(function(b){if($(v(b,a))){$(v(b,a)).hide()}})}function tcevShowBox(a,b){var c=v(b,a);if("block"!=$(c).style.display){tchideBottomBox(a);$(c).show()}}function tcsplitLine(e,d,b){b=b||false;var a="",c,f;while(d";f+=1;e=(f";e=((f+1)":"
";e=(fb.tcDayendHour){a=b.tcDayendHour+1}}return a}function tcInitUrl(a,c){c=c||"f";var b=location.protocol+"//"+a.tcUrl;b+="?tcid="+a.tcid+"&scope="+c;b+="&comptype="+a.tccomptype+"&d1="+a.tcData1;b+="&frY="+a.tcYear+"&frM="+a.tcMonth+"&frD="+a.tcDay;return b}var tcfxeh=new Hash();function tcRemoveEvListCont(b,a){["mouseover","mouseout","click"].each(function(c){if(tcfxeh[b][a][c]&&(0