/* FUNCTION : GENERATE E MAIL ADDRESS */
function generate_address() {
domain = "ritcheyconsulting.org";
atsign = "@";
username = "ritchey";
addr = username + atsign + domain;
document.write("<" + "a" + " " + "href=" + "mail" + "to:" + addr + ">" + addr + "");
}
/* ---------- END FUNCTION ---------- */
/* FUNCTION : PUT HOME PICTURE */
function puthome()
{
document.write("");
document.write("
");
document.write("
");
document.write(" 
");
}
/* ---------- END FUNCTION PUTLOGO ---------- */
/* FUNCTION : PUT SPACES */
function put_spaces()
{
Numspaces=57
i=0
for (i=1; i<=Numspaces; i=i+1)
{
document.write(" ");
}
}
/* ------ END FUNCTION PUT_FLAG_SWE ---- */
/* FUNCTION : PUT_FLAG_Swedish */
function put_flag_swe()
{
}
/* ---------- END FUNCTION PUT_FLAG_SWE---------- */
/* FUNCTION : X_PUT LOGO */
function putlogo()
{
}
/* ---------- END FUNCTION ---------- */
/* FUNCTION : X_PUT LOGO */
function x_putlogo()
{
document.write("
");
}
/* ---------- END FUNCTION PUTLOGO ---------- */
/* FUNCTION: SET BACKGROUND COLOR */
function setbgcolor()
{
document.write("");
}
/* ---------- END FUNCTION ---------- */
/* FUNCTION : writeday - RIGHT OUT THE DAY OF THE WEEK */
function writeday()
{
var dayName=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
var y=new Date();
// document.write("" +dayName[y.getDay()]+ "");
document.write(dayName[y.getDay()]);
}
/* ---------- END FUNCTION --------- */
/* FUNCTION : writedate() - RIGHT OUT DATE */
function writedate()
{
datum=new Date();
day=datum.getDate();
if(day<10) day="0"+day;
manad=datum.getMonth()+1;
if(manad<10) manad="0"+manad;
document.write(datum.getFullYear()+'-'+manad+'-'+day);
}
/* ---------- END FUNCTION --------- */
/* FUNCTION : WRITE COPYRIGHT DATES */
function WriteCopy()
{
document.write("© 2003-2010, Swedish Morphological Society
");
}
/* ---------- END FUNCTION WRITE COPYRIGHT---------- */
/* FUNCTION : "writefoot" - WRITE A FOOTER WITH COPYRIGHT, NAME, E-MAIL AND LAST MODIFIED */
function WriteFoot()
{
document.write("Copyright © 2007-2010, Tom Ritchey
");
document.write("
")
generate_address();
document.write("
");
}
/* ---------- END FUNCTION ---------- */
/* FUNCTION : WRITE LAST MODIFIED */
function WriteLastModified()
{
document.write("Last revised: " +document.lastModified+ ".");
}
/* ---------- END FUNCTION ---------- */