var fromdateM,fromdateD,fromdateY,todateM,todateD,todateY,weekN1,yearN1,weekN2;
var ismaxfile=0;
function dailywritingJS() {
var N,N1,N2,N3,N4,R;
N=wtodaydnum();
if (N>=300) {
N3=300;
N4=425;
ismaxfile=1;
} else {
N3=Math.floor(N/25)*25;
N4=N3+75;
}
R="dwriting"+N3+"_"+N4+".js";
return R;
}

function dailythemeJS() {
var N,N1,N2,N3,N4,R;
N=wtodaydnum();
if (N>=350) {
N3=350;
N4=400;
ismaxfile=1;
} else {
N3=Math.floor(N/25)*25;
N4=N3+35;
}
R="dailythemesi"+N3+"_"+N4+".js";
return R;
}

function ytocomma(S) {
var S1,S2,re;
S1="~C~";
S2=",";
re=new RegExp(S1,"g");
S=S.replace(re,S2);
return S;
}

function dthemestr(n,WT) {
var SS,TT,i2,zz,DN,A,L,R,J,i,weekstr,MSTR,N2,now,crtm,crtd,crty,dnum,URL,T1,MURL,S1;
MSTR=new Array("","January","February","March","April","May","June","July","August","September","October","November","December");
R="";
now=new Date();
crtm=now.getMonth()+1;
crtd=now.getDate();
crty=now.getYear();
if (crty<2000) crty+=1900;
dnum=wtodaydnum();
if (WT==1) {
dnum++;
} else if (WT==2) {
i2=Math.floor(Math.random()*6);
if (i2>2) {
dnum++;
}
}

DN=0;
for (zz=1;zz<=7;zz++) {
if (DN==0) {
A=ythemeinfo(dnum,yearN1);
L=A.length;
if (L>=1) {
DN=1;
}
}
}
if (L<1) {
return "";
}
i=Math.floor(Math.random()*(L));
if ((i>=0)&&(i<L)) {
} else {
i=0;
}
SS=A[i];
TT=SS.split(",");
if (TT.length<3) {
return "";
}
TT[2]=ytocomma(TT[2]);
if (TT[0].length<1) {
return "";
}
J="http://www.edhelperclipart.com/clipart/writingss/"+TT[0]+"prev.jpg";
URL="http://www.edhelper.com/"+TT[1];
T1=TT[2]+"<BR>"+TT[3];
MURL="http://www.edhelper.com/"+MSTR[crtm]+".htm";
S1="more <b>"+MSTR[crtm]+"</b> daily themes";
R="<TABLE><TR><TD width=150 align=center><a href=\""+URL+"\" onClick=\"javascript:urchinTracker('/dailythemes/dwriting_js')\"><img src=\""+J+"\" border=0></a><BR>"+
"<a href=\""+URL+"\" onClick=\"javascript:urchinTracker('/dailythemes/dwriting_js')\">"+T1+"</a><BR>"+
"<a href=\""+MURL+"\">"+S1+"</a></TD></TR></TABLE>";
return R;
}

function wweekstr(n,WT) {
var A,L,R,J,i,weekstr,MSTR,N2;
R="";
MSTR=new Array("","January","February","March","April","May","June","July","August","September","October","November","December");
wgetweek(n);
if ((fromdateM=="")||(fromdateD=="")||(fromdateY=="")||(todateM=="")||(todateD=="")||(todateY=="")) {
return "";
}

weekstr=MSTR[fromdateM]+" "+fromdateD+" - "+MSTR[todateM]+" "+todateD;

if ((ismaxfile==1)&&(weekN1<300)) {
N2=wdaysinyear(yearN1);
weekN1+=N2;
weekN2+=N2;
}

A=writinginfo(weekN1,yearN1,weekN2);
L=A.length;
if (L>0) {
i=Math.floor(Math.random()*(L));
if ((i>=0)&&(i<L)) {
} else {
i=0;
}
J="http://www.edhelperclipart.com/clipart/writingss/"+A[i]+"prev.jpg";
} else {
J="";
}
if (WT==1) {
R=R+"<BR><HR><FONT color=#000099 face=\"Arial, Helvetica, sans-serif\" size=4>"+
"Daily Writing Prompts: For the week of "+weekstr+"</FONT><BR>";
}
R=R+"<TABLE><TR>";
if (J.length>0) {
R=R+"<TD width=150 align=center><img src=\""+J+"\"></TD>";
}
R=R+"<TD><A href=\"http://www.edhelperblog.com/cgi-bin/vocab.cgi?FORMMODE=ST5&M1="+
fromdateM+"&D1="+fromdateD+"&M2="+todateM+"&D2="+todateD+"\" target=_blank onClick=\"javascript:urchinTracker('/writing/dailyprompts');\">Select and build writing prompts at once<BR>for the entire week of "+weekstr+"</a><BR><BR>";

R=R+"<A href=\"http://www.edhelperblog.com/cgi-bin/vocab.cgi?FORMMODE=ST5&M1="+
fromdateM+"&D1="+fromdateD+"&M2="+todateM+"&D2="+todateD+"&HS=1\" target=_blank onClick=\"javascript:urchinTracker('/writing/highschooldailyprompts');\">More advanced writing prompts for the week of "+weekstr+"</a><BR>"+
"(<i>more advanced materials for edHelper high school subscribers</i>)</TD></TR></TABLE>";

return R;
}

function wgetweek(n) {
var now,m,d,y,T,T2,S,E,y1,n1,y2,n2,T3,R;
fromdateM="";
fromdateD="";
fromdateY="";
todateM="";
todateD="";
todateY="";
now=new Date();
m=now.getMonth()+1;
d=now.getDate();
y=now.getYear();
if (y<2000) y+=1900;
T=wdatenum(m,d,y);
if (n>0) {
T+=(n*7);
}
T2=wdayofweek(m,d,y);
S=T-T2;
T3=wdaysinyear(y);

y1=y;
if (S<1) {
y1--;
S*=-1;
S--;
n1=wdaysinyear(y1)-(S+1);
weekN1=n1;
} else if (S>T3) {
y1++;
S-=T3;
n1=S;
weekN1=n1;
} else {
n1=S;
weekN1=S;
}
yearN1=y1;

weekN2=n1+6;

S=T+(6-T2);
y2=y;
if (S>T3) {
y2++;
S-=T3;
n2=S;
} else {
n2=S;
}

R=wgetnthdayofyear(n1,y1);
fromdateY=y1;
fromdateM=R[0];
fromdateD=R[1];

R=wgetnthdayofyear(n2,y2);
todateY=y2;
todateM=R[0];
todateD=R[1];
}


function wdayssince1bc(m,d,y) {
var cc,yy,Ny,N4,N100,N400,dayofyear,S1;
S1=y+" ";
cc=S1.substring(0,2);
cc++;cc--;
yy=S1.substring(2,2);
yy++;yy--;
Ny=y+1-1;
N4=(Ny-1)/4 + 1;
N100=cc+1;
N400=(N100-1)/4+1;
dayofyear=wtodaydnum(m,d,y);
days=Ny*365+N4-N100+N400+dayofyear;
days=Math.floor(days);
return days;
}

function wdayofweek(m,d,y) {
var r,dec31;
dec31=5;
r=(wdayssince1bc(m,d,y)+dec31)%7;
return r;
}

function wtodaydnum() {
var now,m,d,yr,n;
now=new Date();
m=now.getMonth()+1;
d=now.getDate();
y=now.getYear();
if (y<2000) y+=1900;
n=wdatenum(m,d,y);
return n;
}

function wdatenum(m,d,y) {
var days,ly;
days=new Array( 0, 31, 59, 90,120,151,181,212,243,273,304,334,365);
ly=0;
if ((m>2)&&(wisleap(y))) {
ly=1;
}
return (days[m-1]+d+ly);
}

function wisleap(y) {
if (y % 4!=0) {
return 0;
}
if (y % 100!=0) {
return 1;
}
if (y % 400!=0) {
return 0;
}
return 1;
}

function wdaysinyear(yr) {
var R;
R=365;
if (wisleap(yr))
R++;
return R;
}

function wgetnthdayofyear(N,y) {
var R,days,x,M,D;
days=new Array( 0, 31, 59, 90,120,151,181,212,243,273,304,334,365);
if (wisleap(y)) {
days[2]++;
}
for (x=0;x<=11;x++) {
if ((N>days[x])&&(N<=days[x+1])) {
M=x+1;
D=N-days[x];
R=new Array(M,D);
return R;
}
}

R=new Array("","");
return R;
}