var tm2_debug = false;
if ( tm2_debug ) {
    alert( "tm2_timespec.jsp being sucked in at " + (new Date()) );
}

/**
 * ================================================================
 * This set of methods knows how to manipulate date or date/time
 * selections and allow specification of date by a calendar popup.
 *
 * ================================================================
 * How to Use
 * ================================================================
 * Usual Initialization Sequence:
 *     tm2_initWidgets( base, cdate, anyFieldsP, hourAlso, ampmP, 
 *                      timeZoneLabel, calReturn, whenStart, whenEnd, 
 *                      other );
 *
 * NOTE: WhenStart and WhenEnd appear in the parameter list but are not
 *       yet implemented.
 *
 * This call initializes the select widgets named by
 *
 *    base+"year", base+"month", and base+"day" 
 *
 * and, depending on 'hourAlso' and 'ampmP'
 *
 *    base+"hour", base+"min", base+"ampm", 
 * 
 * These select widgets will have an "-- any --" option, depending
 * on the value of anyFieldsP.
 *
 * A "hidden" field is created with name given by base, and the
 * date/time specified in the widgets is maintained as a 
 * string of format "yyyy-mm-dd hh:MM:00 z", with timezone given
 * by timeZoneLabel. (This is the only place timeZoneLabel is used,
 * meaning that this module does not make use of JavaScript's model
 * of a date in any way.)
 *
 * If hourAlso== false, the "hh:MM:00 z" is "12:00:00 GMT".
 *
 * calReturn will normally be null, specifying that the standard
 * return function will be used when a calendar popup date is specified.
 *
 * whenStart is an array [year, month, day, hour, min] in 24-hour time
 * giving the beginning of the period shown and allowed by the widgets.
 * Note that the time zone is not needed here, since the widgets are all
 * just numbers that know nothing of time zones.
 *
 * whenEnd is an array like 'whenStart' giving the end of the period
 * shown and allowed by the widgets.
 *
 * "other" can be anything. It is currently stored in the tm_memory
 * hashtable, but not used.
 *
 * ================================================================
 * Assumptions:
 * ================================================================
 * 1. There is a 'hidden' field we refer to as "base", for example 
 *    "document.forms.ourspec.BeginDate". It is this field which is
 *    ultimately of use to the client of this code. Whenever a widget
 *    is changed, so is base.
 * 2. The <select> widgets are named:
 *        base + "year"
 *        base + "month"
 *        base + "day"
 *    And if we are specifying the hour:
 *        base + "hour"
 *        base + "min"
 *    And if we are on a 12-hour clock:
 *        base + "ampm"
 * 3. The first year will be 1999.
 * 4. The last year will be the current year plus one.
 *
 * ================================================================
 * Invariants:
 * ================================================================
 * 1. The <select> widgets and their appearance are handled outside this
 *    set of functions.
 * 2. The timezone label 'tzLabel' is passed in, but is not used in any 
 *    calculations. The only place it is used is to be appended to
 *    the values of the widgets for the text string stored in "base".
 * 3. This module does no calculations based on the JavaScript Date
 *    object.
 * 4. If hourToo==false, that is, we are only setting the day, 
 *    then the time set in "base" is 12:00:00 UTC.
 * 5. Functions are marked as either // PRIVATE, meaning they are
 *    only called from within this module, or // PUBLIC, meaning they
 *    may be called from the outside.
 * ================================================================
 */

/*
 * ================================================================
 *                       Utilities
 * ================================================================
 */

/*
 * Get the value selected from a <select> box, returning null if no value
 * selected.
 * If "multiple", returns first value selected
 */
// PUBLIC
function tm2_getSelectedValue( field ) {
    var widget = eval( field );
    if ( ! widget ) {
        return null;
    }

    try {
        var ind = widget.selectedIndex;
        if ( ind == -1 ) {
            return null;
        } else {
            return widget.options[ind].value;
        }
    } catch (ex) {
        alert(ex);
        return null;
    }
}

// PUBLIC
function tm2_selectedString( val1, val2 ) {
    if ( val1 == val2 ) {
        return " selected";
    } else {
        return "";
    }
}

// PUBLIC
function tm2_setSelection( name, val ) {
   var wid = eval( name );
   wid.selectedIndex = val;
}


// PUBLIC
function tm2_enableDateWidget( base, enableP ) {
    enableSelect( tm2_yearFldName(  base ), enableP );
    enableSelect( tm2_monthFldName( base ), enableP );
    enableSelect( tm2_dayFldName(   base ), enableP );
    var hourToo = tm2_getParam( base, "hourToo" );
    if ( hourToo ) {
        enableSelect( tm2_hourFldName( base ), enableP );
        enableSelect( tm2_minFldName( base ), enableP );
        enableSelect( tm2_ampmFldName( base ), enableP );
    }
}

// PUBLIC
function tm2_pad0( val, padding ) {
    var s = "" + val;
    while ( s.length < padding ) {
        s = "0" + s;
    }
    return s;
}

// PUBLIC
function tm2_padblank( val, padding ) {
    var s = "" + val;
    while ( s.length < padding ) {
        s = " " + s;
    }
    return s;
}

/* =============================================================================
 * Start of date functions
 * =============================================================================
 */
var tm2_DATEANYVAL = "-1";
var tm2_DATEANYTEXT = "-any-";

// These constants must agree with those in DateTimePulldown.java, 
// and they should be compiled in, but since this file is included
// everywhere right now, it would restrict greatly the ability to
// include this file easily.
var tm2_DATEYEARSTRING  = "_tm2_year";
var tm2_DATEMONTHSTRING = "_tm2_month";
var tm2_DATEDAYSTRING   = "_tm2_day";
var tm2_DATEHOURSTRING  = "_tm2_hour";
var tm2_DATEMINSTRING   = "_tm2_min";
var tm2_DATEAMPMSTRING  = "_tm2_ampm";
var tm2_AM = "AM";
var tm2_PM = "PM";

var tm2_TODAY = new Date();
var tm2_YEAR_START = 1999;
var tm2_YEAR_FINAL = tm2_TODAY.getFullYear() + 1;

var tm2_MONTHS = 
   ["January", "February", "March", "April", "May", "June",
    "July", "August", "September", "October", "November", "December"];

var tm2_LASTDAY = [ -1, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ];

/*
 * Return the last day of month/year, either 28, 29, 30 or 31.
 */
// PUBLIC
function tm2_lastDayOfMonth( month, year  ) {
    var m = parseInt( month, 10 );
    if ( m == 2 && tm2_isLeapYear( year ) ) {
        return 29;
    } else {
        return tm2_LASTDAY[m];
    }
}

/*
 * (defun calendar-leap-year-p (year)
 *   "Returns t if YEAR is a Gregorian leap year."
 *   (or
 *     (and (=  (% year   4) 0)
 *          (!= (% year 100) 0))
 *     (= (% year 400) 0)))
 */
// PUBLIC
function tm2_isLeapYear( year ) {
    var y = parseInt( year, 10 );
    if ( (y % 400) == 0 ) {
        return true;
    }
    if ( ((y % 4) == 0) && 
         ((y % 100) != 0) ) {
        return true;
    }
    return false;
}

// PRIVATE
function tm2_dayFldName( base )   { return base+tm2_DATEDAYSTRING; }
// PRIVATE
function tm2_monthFldName( base ) { return base+tm2_DATEMONTHSTRING; }
// PRIVATE
function tm2_yearFldName( base )  { return base+tm2_DATEYEARSTRING; }
// PRIVATE
function tm2_hourFldName( base )  { return base+tm2_DATEHOURSTRING; }
// PRIVATE
function tm2_minFldName( base )   { return base+tm2_DATEMINSTRING; }
// PRIVATE
function tm2_ampmFldName( base )  { return base+tm2_DATEAMPMSTRING; }

/*
 * Add the appropriate options to the select field associated with base
 * If cdate is not null, use it for setting the selected option
 */
// PRIVATE
function tm2_setYearOptions(base,cdate,anyP) {

    var yearFieldName = tm2_yearFldName( base );
    var year = tm2_getSelectedValue( yearFieldName );

    if ( cdate != null ) {
        year = cdate[0];
    }

    var yearField = eval( yearFieldName );
    yearField.hasAny = anyP;
    yearField.options.length = 0;
    if ( anyP ) {
        yearField.options.length++;
        yearField.options[0] = 
            new Option( tm2_DATEANYTEXT, tm2_DATEANYVAL, 
                        tm2_selectedString(tm2_DATEANYVAL,year));
    }
    var iyear = parseInt(year,10);
    for ( var y = tm2_YEAR_START; y <= tm2_YEAR_FINAL; y++ ) {
        yearField.options.length++;
        var o = new Option(y, y);
        yearField.options[yearField.options.length - 1] = o;
        if ( y == iyear ) {
            o.selected = true;
           yearField.selectedIndex = yearField.options.length - 1;
         }
    }
}


/*
 * Add the appropriate options to the select field associated with base
 * If cdate is not null, use it for setting the selected option
 */
// PRIVATE
function tm2_setMonthOptions(base,cdate,anyP) {
    var fname = tm2_monthFldName(base);
    var month = tm2_getSelectedValue( fname );
    if ( cdate != null ) {
        month=cdate[1];
    }
    var monthField = eval( fname );
    monthField.hasAny = anyP;
    monthField.options.length = 0;
    if ( anyP ) {
        monthField.options.length++;
        monthField.options[0] = 
            new Option(tm2_DATEANYTEXT, tm2_DATEANYVAL, 
                       tm2_selectedString(tm2_DATEANYVAL,month));
    }
    var imonth = parseInt(month,10);
    for ( var i=1; i <= 12; i++ ) {
        monthField.options.length++;
        var o = new Option(tm2_MONTHS[i-1], i);
        monthField.options[ monthField.options.length - 1 ] = o;
        if ( i == imonth ) {
            o.selected = true;
            monthField.selectedIndex = monthField.options.length - 1;
        }
    }
}

/*
 * Add the appropriate options to the select field associated with base
 * If cdate is not null, use it for setting the selected option
 */
// PRIVATE
function tm2_setDayOptions( base, cdate, anyP ) {
    var day   = tm2_getSelectedValue( tm2_dayFldName(base) );
    var month = tm2_getSelectedValue( tm2_monthFldName(base) );
    var year  = tm2_getSelectedValue( tm2_yearFldName(base) );

    if ( cdate != null ) {
        day=cdate[2];
    }

    var dayField = eval( tm2_dayFldName(base) );
    dayField.options.length = 0;
    dayField.hasAny = anyP;
    if ( anyP ) {
        dayField.options.length++;
        dayField.options[0] = 
            new Option(tm2_DATEANYTEXT, tm2_DATEANYVAL, 
                       tm2_selectedString(tm2_DATEANYVAL, day));
    }
    var lastDay = ( month == tm2_DATEANYVAL || year == tm2_DATEANYVAL )?
        31 : tm2_lastDayOfMonth(month, year);
    var iday = parseInt(day,10);
    var dayField = eval( tm2_dayFldName(base) );
    for ( var i = 1; i <= lastDay; i++ ) {
        dayField.options.length++;
        var o = new Option(i, i);
        dayField.options[ dayField.options.length-1 ] = o;
        if ( i == iday ) {
            o.selected = true;
            dayField.selectedIndex = dayField.options.length - 1;
       
        }
    }
}

/*
 * Add the appropriate options to the select field associated with base
 * If cdate is not null, use it for setting the selected option
 */
// PRIVATE
function tm2_setHourOptions( base, cdate, anyP, ampmP) {
    var hourFieldName = tm2_hourFldName(base);
    var hour = tm2_getSelectedValue( hourFieldName );

    if ( cdate != null ) {
        hour = cdate[3];
    }
    var ihour = parseInt(hour,10);
    if ( ampmP && (hour != tm2_DATEANYVAL) ) {
        if ( ihour == 0 ) {
            ihour = 12;
        }
        if ( ihour > 12 ) {
            ihour = ihour - 12;
        }
        hour = "" + ihour;
    }

    var hourField = eval( hourFieldName );
    hourField.hasAny = anyP;
    hourField.options.length = 0;
    if ( anyP ) {
        hourField.options.length++;
        hourField.options[0] = 
            new Option(tm2_DATEANYTEXT, tm2_DATEANYVAL, 
                       tm2_selectedString(tm2_DATEANYVAL,hour));
    }
    if ( ampmP ) {
        for ( var i=1; i <= 12; i++ ) {
            hourField.options.length++;
            var o = new Option( tm2_padblank(String(i),2), i);
            hourField.options[hourField.options.length-1] = o;
            if ( i == ihour ) {
                o.selected = true;
                hourField.selectedIndex = hourField.options.length - 1;
       
            }
         }
    }
    else {
        for ( var i=0; i <= 23; i++ ) {
            hourField.options.length++;
            var o = new Option( tm2_padblank(String(i),2), i);
            hourField.options[hourField.options.length-1] = o;
            if ( i == ihour ) {
                o.selected = true;
                hourField.selectedIndex = hourField.options.length - 1;
       
            }
        }
    }
}

/*
 * Add the appropriate options to the select field associated with base
 * If cdate is not null, use it for setting the selected option
 */
// PRIVATE
function tm2_setMinuteOptions( base, cdate, anyP, ampmP) {

    var minuteFieldName = tm2_minFldName(base);
    var min = tm2_getSelectedValue( minuteFieldName );

    if ( cdate != null ) {
         min = cdate[4];
    }
    var imin = parseInt(min,10);
    var minField = eval( minuteFieldName );
    minField.hasAny = anyP;
    minField.options.length = 0;
    if ( anyP ) {
        minField.options.length++;
        minField.options[0] = new Option(tm2_DATEANYTEXT, tm2_DATEANYVAL, 
                                         tm2_selectedString(tm2_DATEANYVAL,min));
    }
    for ( var i = 0; i < 4; i++ ) {
        minField.options.length++;
        var val = tm2_pad0(String((i*15)),2);
        var o = new Option( val, val);
        minField.options[minField.options.length-1] = o;
        if ( (i*15) == imin ) {
            o.selected = true;
            minField.selectedIndex = minField.options.length - 1;
       
        }
    }
}

/*
 * Add the appropriate options to the select field associated with base
 * If cdate is not null, use it for setting the selected option
 */
// PRIVATE
function tm2_setAmPmOptions( base, cdate, anyP ) {

    // AnyP not implemented

    var ampm = tm2_getSelectedValue( tm2_ampmFldName(base) );
    if ( cdate ) {
        var hour = parseInt(cdate[3],10);
        ampm = ( hour >= 12 )? tm2_PM : tm2_AM;
    }
    var sel = eval( tm2_ampmFldName(base) );

    sel.options.length = 0;
    var o = new Option(tm2_AM, tm2_AM);
    sel.options[0] = o;
    if ( tm2_AM == ampm ) {
        o.selected = true;
        sel.selectedIndex = sel.options.length - 1;
       
    }
    o = new Option(tm2_PM, tm2_PM);
    sel.options[1] = o;
    if ( tm2_PM == ampm ) {
        o.selected = true;
        sel.selectedIndex = sel.options.length - 1;
       
    }
}

/*
 * A year/month/day widget has changed. Set the hidden field (the 'base') to the
 * new date, and reset the day widget accordingly (since its options can  
 * change).
 */
// PUBLIC
function tm2_processDateChange( base ) {
    if ( tm2_debug ) { alert( "ProcessDateChange(" + base + ")" ); }
    tm2_setDateFromWidgets( base )
    var anyP = tm2_getParam( base, "anyP" );
    tm2_setDayOptions( base, null, anyP ); // # days in month changed?
}

/*
 * An hour/min/ampm widget has changed. Set the hidden field (the 'base') to the
 * new date, and reset the day widget accordingly.
 */
// PUBLIC
function tm2_processHourChange( base ) {
    if ( tm2_debug ) { 
      alert( "ProcessHourChange("+base+","+hourToo+","+ampmP+","+tzLabel+")" ); 
    }
    tm2_setDateFromWidgets( base )
}

/*
 * Initialize widgets according to the date in cdate
 * cdate is an array containing [yyyy,mm,dd,hh,mn,tzLabel]
 *    Months are 1-index
 *    24 hour clock
 * The time zone for all operations here is tzLabel, but we never have to
 * use the time zone
 */
// PUBLIC
function tm2_addWidgetOptions( base, cdate ) {
    if ( tm2_debug ) {
        alert("Adding Widget Options: "+cdate);
    }
    var anyP = tm2_getParam( base, "anyP" );
    var hourToo = tm2_getParam( base, "hourToo" );
    var ampmP = tm2_getParam( base, "ampmP" );
    tm2_setYearOptions( base, cdate, anyP );
    tm2_setMonthOptions( base, cdate, anyP );
    tm2_setDayOptions( base, cdate, anyP );
    if ( hourToo ) {
        tm2_setHourOptions( base, cdate, anyP, ampmP );
        tm2_setMinuteOptions( base, cdate, anyP );
        if ( ampmP ) {
            tm2_setAmPmOptions( base, cdate, anyP );
        }
    }
}

/*
 *  Set the widget named by 'base' to the date string specified by the 
 *  widgets corresponding to 'base'.
 *  Returns Date found
 */
// PRIVATE
function tm2_setDateFromWidgets( base ) {

    var anyP = tm2_getParam( base, "anyP" );
    var hourToo = tm2_getParam( base, "hourToo" );
    var ampmP = tm2_getParam( base, "ampmP" );
    var tzLabel = tm2_getParam( base, "tzLabel" );
    if ( tm2_debug ) { 
        alert("Setting Date from Widgets("+base+","+hourToo+","+ampmP+","+
              tzLabel+")" ); 
    }

    var y = tm2_yearFldName(base);
    var m = tm2_monthFldName(base);
    var d = tm2_dayFldName(base);
    var yymmdd = tm2_getYYYYMMDD( d, m, y );
    if ( yymmdd == null ) {
        if ( tm2_debug ) { alert( "Could not get date!" ); }
        eval(base).value = "";
        return null;
    }
    var yy = yymmdd[0];
    var mm = yymmdd[1];
    var md = yymmdd[2];
    var hr = 12;
    var mn = 0;
    if ( tzLabel == null || tzLabel == "" ) {
        tzLabel = "UTC";
    }
    if ( hourToo ) {
        hr = tm2_getSelectedValue( tm2_hourFldName(base) );
        mn = tm2_getSelectedValue( tm2_minFldName(base) );
        if ( hr == tm2_DATEANYVAL || mn == tm2_DATEANYVAL ) {
            alert( "Could not parse hour!" );
            hr = 12;
            mn = 0; 
        } else {
            hr = parseInt(hr,10);
            mn = parseInt(mn,10);
        }
        if ( ampmP ) {
            if ( tm2_AM == tm2_getSelectedValue( tm2_ampmFldName(base) ) ) {
                if ( hr == 12 ) {
                    hr = 0;
                }
            } else {
                if ( hr < 12 ) {
                    hr += 12;
                }
            }
        }
    }
    var date = tm2_pad0(yy,4)+"-"+tm2_pad0(mm,2)+"-"+tm2_pad0(md,2)+" ";
    date += ( hourToo )
        ? tm2_pad0(hr,2)+":"+tm2_pad0(mn,2)+":00 "+tzLabel
        : "12:00:00 UTC";
    eval(base).value = date;

    if ( tm2_debug ) { 
       alert( "Base Widget(" + base + ": " + eval(base).value );
    }
    return date;
}    

/*
 * Returns an array with elements {yyyy, mm, dd} or 
 * or "null" if no date is specified.
 */
// PRIVATE
function tm2_getYYYYMMDD(dayFieldName,monthFieldName,yearFieldName ) {

    var day   = tm2_getSelectedValue( dayFieldName );
    var month = tm2_getSelectedValue( monthFieldName );
    var year  = tm2_getSelectedValue( yearFieldName );

    if ( tm2_debug ) { alert( "tm_getYYYYMMDD("+year+"/"+month+"/"+day+")" ); }

    if (year==tm2_DATEANYVAL || month==tm2_DATEANYVAL || day==tm2_DATEANYVAL) {
        return null;
    }
    if ( parseInt(day,10) > tm2_lastDayOfMonth( month, year ) ) {
        alert( "Impossible day in month (y,m,d): ("+year+","+month+","+day+")");
        return null;
    }
    return [parseInt(year,10),parseInt(month,10),parseInt(day,10)];
}

/*
 * ================================================================
 *                      Calendar Popup
 * ================================================================
 */
// PUBLIC
function tm2_popupCalendar( base ) {
    var query = "?retdata=" + base;
    var year = tm2_getSelectedValue( tm2_yearFldName(base) );
    if ( year > 0 ) {
        query += "+year=" + year;
    }
    var month = tm2_getSelectedValue( tm2_monthFldName(base) );
    if ( month > 0 ) {
        query += "+month=" + month;
    }
    var day = tm2_getSelectedValue( tm2_dayFldName(base) );
    if ( day > 0 ) {
        query += "+day=" + day;
    }
    var w = window.open("/print/in/calendar/calendar.html" + query,
                        "ourcalendar",
                        "resizable=yes,width=450,height=220,status=yes" );
    w.focus();
}

// PRIVATE Convert to ints, add, convert back to string
function tm2_intAdd2( a, b ) {
   return "" + (parseInt(a,10) + parseInt(b,10));
}
// PRIVATE Convert to ints, add, convert back to string
function tm2_intAdd3( a, b, c ) {
   return (parseInt(a,10) + parseInt(b,10) + parseInt(c,10));
}

/*
 * ================================================================
 *                 Return from Calendar Popup
 * ================================================================
 */
// PUBLIC
function tm2_stdCalReturn( base, year, month, day ) {

    if ( year < tm2_YEAR_START || year > tm2_YEAR_FINAL ) {
        alert( "Year " + year + " out of range [" + 
               tm2_YEAR_START + "," + tm2_YEAR_FINAL + "]" );
        return;
    }
    var hasAnyVal = tm2_getParam( base, "anyP" )? 1 : 0;
    var yr = tm2_intAdd3(year,hasAnyVal,-parseInt(tm2_YEAR_START));
    var mo = tm2_intAdd3(month,hasAnyVal,-1);
    var dy = tm2_intAdd3(day,hasAnyVal,-1);

    // HORRIBLE HACK. The first time resets the days to the correct number of
    // days in the month. The second time makes sure the correct day is 
    // highlighted. Otherwise, we try highlighting non-existent days.

    for ( var i = 0; i < 2; i++ ) {
        tm2_setSelection( tm2_yearFldName(base), yr );
        tm2_setSelection( tm2_monthFldName(base), mo );
        tm2_setSelection( tm2_dayFldName(base), dy );
        tm2_processDateChange( base );
    }
}

// PUBLIC
function tm2_updateFromCalendar( base, year, month, day ) {
    var retFcn = tm2_getParam( base, "calReturnFcn" );
    if ( retFcn != null ) {
        retFcn( base, year, month, day );
    } else {
        tm2_stdCalReturn( base, year, month, day );
    }

}

/*
 * ================================================================
 * Remembering parameters across calendar popups
 * ================================================================
 * Remember parameters associated with a base so that we can remember them
 * across popping up a calendar and returning from the calendar.
 */
var tm2_memory = new Object();
// PUBLIC
function tm2_setTimeSpecParams( base, anyP, hourToo, ampmP, tzLabel, 
                                calReturn, whenStart, whenEnd, other ) {
    var val = new Object();
    val["anyP"] = anyP;
    val["hourToo"] = hourToo;
    val["ampmP"] = ampmP;
    val["tzLabel"] = tzLabel;
    val["calReturnFcn"] = calReturn;
    val["timeStart"] = whenStart;
    val["timeEnd"] = whenEnd;
    val["other"] = null;
    tm2_memory[base] = val;
}
// PUBLIC
function tm2_getParam( base, key ) {
    var v = tm2_memory[base];
    return ( v == null )? null : v[key];
}
/* ================================================================ */

/*
 * THE public entry. See the documentation at the beginning
 *
 * NOTE: WhenStart and WhenEnd appear in the parameter list but are not
 *       yet implemented.
 */
// PUBLIC
function tm2_initWidgets( base, cdate, anyFieldsP, hourAlso, ampmP, 
                          timeZoneLabel, calReturn, whenStart, whenEnd, 
                          other ) {
    tm2_setTimeSpecParams( base, anyFieldsP, hourAlso, ampmP, timeZoneLabel,
                           calReturn, whenStart, whenEnd, other);
    tm2_addWidgetOptions( base, cdate );
    if ( cdate != null ) {
        tm2_processDateChange( base );
    } else {
        eval(base).value = "";
    }
}

// PRIVATE - abbreviation
function dw( s ) { document.writeln(s); }

// PUBLIC
function tm2_stdDateSelector( form, prefix, isMonthFirst, hourToo, ampmP,
                              timeZoneLabel ) {
    var base=form+prefix;
    var yrW = tm2_yearFldName(prefix);
    var moW = tm2_monthFldName(prefix);
    var dyW = tm2_dayFldName(prefix);

    dw( "<input type='hidden' name='" + prefix + "'>");
    dw( "\n");
    dw( "<table border='0'><tr>");
    if ( isMonthFirst ) {
        dw("    <td>");
        dw("    <select name='" + moW + "'");
        dw("            class='input-normal'");
        dw("            onchange='javascript:tm2_processDateChange(\"" + 
                        base + "\");'>");
        dw("    </select>" );
        dw("    </td>" );
        dw("    <td>" );
        dw("    <select name='" + dyW + "'");
        dw("            class='input-normal'");
        dw("            onchange='javascript:tm2_processDateChange(\"" + 
                        base + "\");'>");
        dw("    </select>");
        dw("    </td>" );
    } else {
        dw("    <td>" );
        dw("    <select name='" + dyW + "'");
        dw("            class='input-normal'");
        dw("            onchange='javascript:tm2_processDateChange(\"" + 
                        base + "\");'>");
        dw("    </select>");
        dw("    </td>" );
        dw("    <td>" );
        dw("    <select name='" + moW + "'");
        dw("            class='input-normal'");
        dw("            onchange='javascript:tm2_processDateChange(\"" + 
                        base + "\");'>");
        dw("   </select>" );
        dw("   </td>" );
    }
    dw("    <td>" );
    dw("    <select name='" + yrW + "'");
    dw("            class='input-normal'");
    dw("            onchange='javascript:tm2_processDateChange(\"" + 
                    base + "\");'>");
    dw("    </select>" );
    dw("    </td>" );
    dw("    <td>");
    dw("    &nbsp;&nbsp;" );
    dw("    <a href='javascript:tm2_popupCalendar(\"" + base + "\")'>" + 
       "<img src='/print/in/calendar/calendar8.gif' border='0'></a>" );
    dw("   </td>" );

    if ( hourToo ) {
         var hrW = tm2_hourFldName(prefix);
         var mnW = tm2_minFldName(prefix);
         var amW = tm2_ampmFldName(prefix);

         dw("    <td>&nbsp;&nbsp;\n");
         dw("    <select name='" + hrW + "'\n");
         dw("            class='input-normal'\n");
         dw("            onchange='javascript:tm2_processHourChange(\"" + 
            base + "\");'>\n");
         dw("    </td>\n");
         dw("    <td>\n");
         dw("    <select name='" + mnW + "'\n");
         dw("            class='input-normal'\n");
         dw("            onchange='javascript:tm2_processHourChange(\"" +
            base + "\");'>\n");
         dw("    </td>\n");
         if ( ampmP ) {
             dw("    <td>\n");
             dw("    <select name='" + amW + "'\n");
             dw("            class='input-normal'\n");
             dw("            onchange='javascript:tm2_processHourChange(\"" + 
                base + "\");'>\n");
             dw("    </td>\n");
         }
         dw("    <td>&nbsp;"+(timeZoneLabel==null?"":timeZoneLabel)+"</td>\n" );
    }
    dw("   </tr>\n" );
    dw("</table>\n" );
}


if ( tm2_debug ) {
    alert( "tm2_timespec.jsp reading finished" );
}