//******************************************************************
//
//  Print a window, hiding the button
//
//******************************************************************

function printWindow(print_button){
    print_button.style.visibility="hidden";
    window.print();
    print_button.style.visibility="visible";
}

//******************************************************************
//
//  Convert a scanned credit card number to a "normal" card number
//
//******************************************************************

function parseCC(cc) {
    with(cc.form) {
        var new_cc="";
        var month=null;
        var year=null;
        
        for(var i=0;i<cc.value.length;i++) {
            
            //  Skip chars until we hit a number
            var c = cc.value.charAt(i);
            if(isNaN(parseInt(c))) continue;

            //  All following numbers constitute the cc
            new_cc+=c;
            for(++i;i<cc.value.length;i++) {
                c = cc.value.charAt(i);
                if(c==" ")continue;
                if(isNaN(parseInt(c))) break;
                new_cc+=c;
            }
            
            //  Check for track 1 data
            if (c=='^'){
                //  Skip the name
                for(++i;i<cc.value.length;i++) {
                    c = cc.value.charAt(i);
                    if (c=='^')break;
                }
                
                //  Get the expiry
                var j = i + 1;
                if (j + 4 <= cc.value.length) {
                    year="20"+cc.value.charAt(j)+cc.value.charAt(j+1);
                    month=cc.value.charAt(j+2)+cc.value.charAt(j+3);
                }
            }
            
            
            //  Check for track 2 data
            else if (c=='='){
                var j = i + 1;
                if (j + 4 <= cc.value.length) {
                    year="20"+cc.value.charAt(j)+cc.value.charAt(j+1);
                    month=cc.value.charAt(j+2)+cc.value.charAt(j+3);
                }
            }
            
            //  Don't recognize the data, so don't do anything
            
            else {
                return;
            }
            
            //  Done decoding
            break;
        }
        
        cc.value=new_cc;
        if(month!=null)ccexpmonth.value=month;
        if(year!=null)ccexpyear.value=year;
    }
}

//******************************************************************
//
//  Capitalize the first letter of each word in a field
//
//******************************************************************

function capitalizeMe(field) {
    if (emptyField(field))return;
    var first_letter=field.value.substring(0,1);
    if(first_letter.toUpperCase()==first_letter)return;
        
    newVal = '';
    val = field.value.toLowerCase().split(' ');
    for(var c=0; c < val.length; c++) {
        newVal += val[c].substring(0,1).toUpperCase() + val[c].substring(1,val[c].length) + ' ';
    }
    field.value = newVal;
}

//******************************************************************
//
//  Prep code changes
//
//  Note that callers must define an array of applicable prep codes.
//
//******************************************************************

function PrepCodeObj (id,setup_h,setup_m,ready_h,ready_m,eventnotes) {
    this.id=id;
    this.setup_h=setup_h;
    this.setup_m=setup_m;
    this.ready_h=ready_h;
    this.ready_m=ready_m;
    this.eventnotes = eventnotes;
}

function prepCodeChange(prep_code){
    with(prep_code.form){
        for(var i=0;i<prepcodes.length;i++){
            if(prepcodes[i].id==prep_code.value){
                setup_h.value=prepcodes[i].setup_h;
                setup_m.value=prepcodes[i].setup_m;
                ready_h.value=prepcodes[i].ready_h;
                ready_m.value=prepcodes[i].ready_m;
                eventnotes.value=prepcodes[i].eventnotes;
            }
        }
    }
}

//******************************************************************
//
//  findStreet
//
//******************************************************************

function findStreet(address){
    if(emptyField(address)) {
        PopupWindow("/adminSelect.sdi?oc=Street","StreetPop","400","400","yes");
    }
    else {
        var streetnumber="";
        var streetname="";
        for(var i=0;i<address.value.length;i++){
            if(address.value.charAt(i)!=' ') continue;
            streetnumber=address.value.substring(0,i);
            if(i+1<address.value.length)streetname=address.value.substring(i+1,address.value.length);
            break;
        }
            
        var url = "/adminProcessSelect.sdi?oc=Street&streetnumber="+streetnumber+"&streetname="+streetname;
        PopupWindow(url,"StreetPop","400","400","yes");
    }
}

//******************************************************************
//
//  Season changes
//
//  Note that callers must define an array of applicable seasons.
//
//******************************************************************

function SeaObj (id,start_date,end_date,keyboard_begin,nonres_keyboard_begin,keyboard_end,phone_begin,nonres_phone_begin,phone_end,internet_begin,nonres_internet_begin,internet_end){
    this.id=id;
    this.start_date=start_date;
    this.end_date=end_date;
    this.keyboard_begin=keyboard_begin;
    this.nonres_keyboard_begin=nonres_keyboard_begin;
    this.keyboard_end=keyboard_end;
    this.phone_begin=phone_begin;
    this.nonres_phone_begin=nonres_phone_begin;
    this.phone_end=phone_end;
    this.internet_begin=internet_begin;
    this.nonres_internet_begin=nonres_internet_begin;
    this.internet_end=internet_end;
}

function seasonChange(season){
    with(season.form){
        for(var i=0;i<seasons.length;i++){
            if(seasons[i].id==season.value){
                keybrdentrydate.value=seasons[i].keyboard_begin;validDate(keybrdentrydate);
                nonreskeybrdentrydate.value=seasons[i].nonres_keyboard_begin;validDate(nonreskeybrdentrydate);
                keybrdentryenddate.value=seasons[i].keyboard_end;validDate(keybrdentryenddate);
                phoneentrydate.value=seasons[i].phone_begin;validDate(phoneentrydate);
                nonresphoneentrydate.value=seasons[i].nonres_phone_begin;validDate(nonresphoneentrydate);
                phoneentryenddate.value=seasons[i].phone_end;validDate(phoneentryenddate);
                internetdate.value=seasons[i].internet_begin;validDate(internetdate);
                nonresinternetdate.value=seasons[i].nonres_internet_begin;validDate(nonresinternetdate);
                internetenddate.value=seasons[i].internet_end;validDate(internetenddate);
            }
        }
    }
}

//******************************************************************
//
//  Fee methods
//
//  Note that callers must define an array of applicable fees.
//
//******************************************************************

function fee (id,include,primary_fee,discount,discountable,discount_type,discount_percent,scholarship_discount,scholarship_balance,current_fee,tax1,tax2,tax3,tax4){
    this.id=id;
    this.include=include;
    this.primary_fee=primary_fee;
    this.discount=discount;
    this.discountable=discountable;
    this.discount_type=discount_type;
    this.discount_percent=discount_percent;
    this.scholarship_discount=scholarship_discount;
    this.scholarship_balance=scholarship_balance;
    this.current_fee=current_fee;
    this.tax1=tax1;
    this.tax2=tax2;
    this.tax3=tax3;
    this.tax4=tax4;
}

function modifyFee(fee_id,checkbox,new_value,fee_object){
    with (checkbox.form) {
        if (isNaN(new_value.value)) {        
            alert ("The value " + new_value.value + " is not valid in currency field");
            new_value.focus ();
            return false;
        }

        for(var i=0;i<fees.length;i++){
            if(fees[i].id==fee_id){
                if (fees[i].include) {
                    if(fees[i].discount){
                        var x = Math.abs (parseFloat(new_value.value));
                        if (fees[i].scholarship_discount) {
                            var balance=parseFloat(fees[i].scholarship_balance);
                            if(balance<x)x=balance;
                        }
                        if (x==0) {
                            new_value.value=0;
                        }
                        else {
                            new_value.value="-" + formatCurrency(x);
                        }
                    }
                    fees[i].current_fee=new_value.value;
                }
                else {
                    if(checkbox.checked){
                        new_value.value=fees[i].current_fee;
                    }
                }
                fees[i].include=checkbox.checked;

                totalFees (checkbox.form);
                return true;
            }
        }
        
        return false;
    }
}
function adjustSeats (seat_count){
    with (seat_count.form) {
        if (!wholeNumber(seat_count,"Seat Count")) {
            return false;
        }
        
        if (seat_count.value<1) {
            alert ("You must reserve at least one seat");
            seat_count.focus ();
            return false;
        }
        
        hiddenseatcount.value=seat_count.value;
        totalFees(seat_count.form);
        return true;
    }
}
function totalFees(form){
    with(form){
        var tax1=0;
        var tax2=0;
        var tax3=0;
        var tax4=0;
        var total=0;
        
        for(var i=0;i<fees.length;i++){
            if(!fees[i].include){
                eval("feeamount_"+fees[i].id).value="0";
                continue;
            }
         
            if (fees[i].discount){
                if (fees[i].discount_type==1){
                    var total_discount=0;
                    for (var j = 0; j < fees.length; j++) {
                        if(fees[j].discount) continue;
                        if(!fees[j].discountable) continue;
                        if(!fees[j].include)continue;
                        
                        var this_discount=Math.round (parseFloat(fees[j].current_fee)*fees[i].discount_percent) / 100;
                        if(fees[i].scholarship_discount){
                            var balance=parseFloat(fees[i].scholarship_balance);
                            if(balance<this_discount)this_discount=balance;
                        }
                        total_discount+=this_discount;
                        
                        this_discount*=hiddenseatcount.value;
                        if (fees[i].tax1 != 0 && fees[j].tax1 != 0) tax1-=Math.round (this_discount*fees[i].tax1) / 100;
                        if (fees[i].tax2 != 0 && fees[j].tax2 != 0) tax2-=Math.round (this_discount*fees[i].tax2) / 100;
                        if (fees[i].tax3 != 0 && fees[j].tax3 != 0) tax3-=Math.round (this_discount*fees[i].tax3) / 100;
                        if (fees[i].tax4 != 0 && fees[j].tax4 != 0) tax4-=Math.round (this_discount*fees[i].tax4) / 100;
                    }
                    
                    total-=total_discount*hiddenseatcount.value;
                    eval("feeamount_"+fees[i].id).value="-"+formatCurrency(total_discount);
                    continue;
                }
                else {
                    var this_discount = -parseFloat(fees[i].current_fee);
                    if(fees[i].scholarship_discount){
                        var balance=parseFloat(fees[i].scholarship_balance);
                        if(balance<this_discount)this_discount=balance;
                    }
                    var this_total=-this_discount*hiddenseatcount.value
                    eval("feeamount_"+fees[i].id).value="-"+formatCurrency(this_discount);
                    total+=this_total;
                }
                continue;
            }
                
            var this_fee=parseFloat(fees[i].current_fee);
            var this_total=this_fee*hiddenseatcount.value
            
            total+=this_total;
                
            if (fees[i].tax1 != 0) tax1+=Math.round (this_total*fees[i].tax1) / 100;
            if (fees[i].tax2 != 0) tax2+=Math.round (this_total*fees[i].tax2) / 100;
            if (fees[i].tax3 != 0) tax3+=Math.round (this_total*fees[i].tax3) / 100;
            if (fees[i].tax4 != 0) tax4+=Math.round (this_total*fees[i].tax4) / 100;
        }
        
        var taxes = tax1+tax2+tax3+tax4;
        for(var i=0;i<fees.length;i++){
            if(!fees[i].include)continue
            if (!fees[i].discount||fees[i].discount_type==1)continue;

            var this_fee=parseFloat(fees[i].current_fee);
            var this_total=this_fee*hiddenseatcount.value

            if (fees[i].tax1 != 0) {
                var tax=Math.round (this_total*fees[i].tax1) / 100;
                tax1+=tax;
                if (tax1<0){
                    tax-=tax1;
                    tax1=0;
                }
                taxes+=tax;
            }

            if (fees[i].tax2 != 0) {
                var tax=Math.round (this_total*fees[i].tax2) / 100;
                tax2+=tax;
                if (tax2<0){
                    tax-=tax2;
                    tax2=0;
                }
                taxes+=tax;
            }

            if (fees[i].tax3 != 0) {
                var tax=Math.round (this_total*fees[i].tax3) / 100;
                tax3+=tax;
                if (tax3<0){
                    tax-=tax3;
                    tax3=0;
                }
                taxes+=tax;
            }

            if (fees[i].tax4 != 0) {
                var tax=Math.round (this_total*fees[i].tax4) / 100;
                tax4+=tax;
                if (tax4<0){
                    tax-=tax4;
                    tax4=0;
                }
                taxes+=tax;
            }
        }
        
        currentfee.value=formatCurrency(total);
        transactiontax.value=formatCurrency(taxes);
        totalfee.value=formatCurrency(total+taxes-deposit.value);
    }
}

//******************************************************************
//
//  Lookup a postal code and replace city and state
//
//******************************************************************
var postal_to_city=["24501","Lynchburg","VA","0","24502","Lynchburg","VA","0","24503","Lynchburg","VA","0","24504","Lynchburg","VA","0","24517","Lynchburg","VA","0","24522","Appomattox","VA","0","24538","Concord","VA","0","24551","Forest","VA","0","24572","Madison Heights","VA","0",];
function setCityState(city_field,state_field,zip_field,resident_field) {
    for(var i=0;i<postal_to_city.length;i+=4) {
        if(postal_to_city[i]==zip_field.value){
            var x = postal_to_city[i+1];
            if (x != "") city_field.value=x;
            x = postal_to_city[i+2];
            if (x != "") {
                for(var j=0;j<state_field.length;j++) {
                    if(state_field[j].value==x){
                        state_field[j].selected=true;
                        break;
                    }
                }
            }
            if(resident_field!=null){
                resident_field.checked=postal_to_city[i+3]=="1";
            }
            return;
        }
    }
}

//******************************************************************
//
//  Validate a social security number
//
//******************************************************************

function validSSN (ssn) {
    var number_digits = 0;
    var new_ssn = "";
    for(var i=0;i<ssn.value.length;i++) {
        var c = ssn.value.charAt(i);
        if (c == ' ' || c == "-") continue;
        if(isNaN(parseInt(c))){
            alert("The social security number contains invalid characters.");
            ssn.focus();
            return false;
        }
        
        new_ssn+=c;
        number_digits++;
    }
    
    if(number_digits==0){
        ssn.value="";
        return true;
    }
    
    if(number_digits!=9){
        alert("The social security number must be 9 digits.");
        ssn.focus();
        return false;
    }
    
    ssn.value = new_ssn.substring(0,3)+"-"+new_ssn.substring(3,5)+"-"+new_ssn.substring(5,9);
    return true;
}

//******************************************************************
//
//  Validate a phone number
//
//******************************************************************

function validPhone (area, phone, ext, field_name) {
    leavePhone (area,phone);
    
    if(ext.value.length==4&&phone.value.length==3){
        phone.value+=ext.value;
        ext.value="";
    }
    
    if(area.value.length==0){
        if (phone.value.length==0)return true;
        alert(field_name + " is missing the area code.");
        area.focus ();
        return false;
    }
    if (area.value.length!=3){
        alert("Area code for " + field_name + " is not 3-digits.");
        area.focus ();
        return false;
    }

    if (!wholeNumber(area,field_name + " area code"))return false;
    if (phone.value.length==0){
        alert("The " + field_name + " is missing.");
        phone.focus();
        return false;
    }

    var number_digits = 0;
    for(var i=0;i<phone.value.length;i++) {
        var c = phone.value.charAt(i);
        if (c == ' ' || c == "." || c == "-") continue;
        if(isNaN(parseInt(c))){
            alert("The " + field_name + " contains invalid characters.");
            phone.focus();
            return false;
        }
        
        number_digits++;
    }
    
    if(number_digits!=7){
        alert("The " + field_name + " must be 7 digits.");
        phone.focus();
        return false;
    }
    
    return true;
}

function enterAreaCode (area_code){
    if(area_code.value.length==0)area_code.value="434";
}

function leavePhone(area_code,phone){
    if(phone.value.length==0 && area_code.value=="434")area_code.value="";
}

//******************************************************************
//
//  Confirm a record delete
//
//******************************************************************

function confirmDelete () {
    return confirm ("Are you sure you want to delete this record?");
}

//******************************************************************
//
//  Tab to the first suitable field in a form
//
//******************************************************************

function tabFirstField () {
    for (var i = 0; i < document.forms.length; i++) {
        var form = document.forms[i];
        for (var j = 0; j<form.elements.length; j++) {
            var element = form.elements[j];
            if(element.type=="hidden"||element.type=="file"||element.type=="reset"||element.type=="submit")continue;
            if(element.disabled)continue;
            self.focus();
            element.focus();
            if(element.type=="text" && element.value!="")element.select();
            return;
        }
    }
}

//******************************************************************
//
//  Check for a whole number
//
//******************************************************************

function wholeNumber (field,msg) {
    for(var i=0;i<field.value.length;i++) {
        if(isNaN(field.value.charAt(i))){
            alert(""+msg+" must be all numeric.");
            field.focus();
            return false;
        }
    }
    return true;
}

//******************************************************************
//
//  Check for a customer id or pass number
//
//******************************************************************

function customerID(field,msg) {
    if(field.value.length==0)return true;

    var val = field.value;
    if(val.length<=3)return wholeNumber(field,msg);
    if(val.indexOf("\u005e-")==0){
        if(val.charAt(val.length-1)=="=")return true;
    }
    
    if(val.indexOf(";=")==0){
        if(val.charAt(val.length-1)=="?")return true;
    }
    
    return wholeNumber(field,msg);
}

//******************************************************************
//
//  Create a popup window of the specified height and width
//  with optional scrollbars
//
//******************************************************************

function PopupWindow(mypage,myname,w,h,scroll) {
    var winl = screen.width-w;
    var wint = (screen.height-h)/2;
    winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',toolbar=yes,scrollbars='+scroll+',resizable';
    win = window.open(mypage+"&popup_window=yes", myname, winprops);
    if (parseInt(navigator.appVersion) >= 4) win.window.focus();
}

//******************************************************************
//
//  Create a new window in which to display a receipt
//
//******************************************************************

function NewWindow(mypage) {
    win = window.open(mypage+"&new_window=yes", "ReceiptWindow", "menubar=yes,toolbar=yes,scrollbars=yes,resizable");
    if (parseInt(navigator.appVersion) >= 4) win.window.focus();
}

//******************************************************************
//
//  Format a currency field (without leading $)
//
//******************************************************************

function formatCurrency(num) {
num = num.toString().replace(/\$|\,/g,'');
if(isNaN(parseFloat(num))) num = "0";
num=parseFloat(num);
var neg=num<0;
if(neg)num=-num;
num = num.toString().replace(/\$|\,/g,'');
if(isNaN(num)) num = "0";
cents = Math.floor(num*100+0.5)%100;
num = Math.floor((num*100+0.5)/100).toString();
if(cents < 10) cents = "0" + cents;
//for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++)
//num = num.substring(0,num.length-(4*i+3))+','+num.substring(num.length-(4*i+3));
num+="." + cents;
if(neg)num="-"+num;
return num;
}

//******************************************************************
//
//  Validate a currency field
//
//******************************************************************

function validCurrency(field,field_name) {
    if(emptyField(field))return true;
    var num=parseFloat(field.value);
    if(isNaN(num)){
        alert("The " + field_name + " contains an invalid entry");
        field.focus ();
        return false;
    }
    
    field.value=formatCurrency(num);
    return true;
}

function validCurrencyNonNeg(field,field_name) {
    if(emptyField(field))return true;
    var num=parseFloat(field.value);
    if(isNaN(num)){
        alert("The " + field_name + " contains an invalid entry");
        field.focus ();
        return false;
    }
    if(num<0){
		alert(field_name + " cannot be negative");
		field.focus ();
		return false;
	}
    return true;
}

//******************************************************************
//
//  Complain about an empty form field
//
//******************************************************************

function empty(field,msg) {
    if(!emptyField(field)) return false;
    if(field.type=="text"||field.type=="password"||field.type=="textarea") {
        alert("Please enter "+msg+".");
        field.focus();
        return true;
    }
    
    if(field.type=="select-one"){
        alert("Please select "+msg+".");
        field.focus();
        return true;
    }

    return false;
}

//******************************************************************
//
//  Check if a form field is empty
//
//******************************************************************

function emptyField(field){
    if(field==null){
        alert("'emptyField' called with undefined field");
        return true;
    }

    if(field.type=="hidden")return false;
    if(field.type=="text"||field.type=="password"||field.type=="textarea"||field.type=="file") {
        for(var i=0;i<field.value.length;i++) {
            if(field.value.charAt(i)!=' ') return false;
        }

        return true;
    }
    
    if(field.type=="select-one") {
        var val=field[field.selectedIndex].value;
        if(val=='')return true;
        if (isNaN(parseInt(val)))return false;
        return parseInt(val)==0;
    }
    
    if(field.type=="checkbox"){
        return !field.checked;
    }
    
    alert("Unsupported field, name=" + field.name + ", type=" + field.type);
    return false;
}

//******************************************************************
//
//  Code for the "date picker"
//
//******************************************************************

var weekend = [0,6];
var weekendColor = "#ffcc33";

var gNow;
var ggWinCal;

Calendar.Months = ["January", "February", "March", "April", "May", "June",
"July", "August", "September", "October", "November", "December"];

Calendar.prototype.get_month=function(monthNo) {
	return Calendar.Months[monthNo];
}

function Calendar(p_item, p_WinCal, p_month, p_year,aux) {
    this.gWinCal = p_WinCal;
	
	this.gMonthName = this.get_month(p_month);
	this.gMonth = new Number(p_month);
	this.gYear = p_year;

	this.gBGColor="white";
	this.gFGColor="black";
	this.gLinkColor="black";
	this.gTextColor="black";
	
	this.gHeaderBackColor="#040058";
	this.gHeaderColor="white";

	this.gReturnItem=p_item;
	this.aux=aux;
}

// This is for compatibility with Navigator 3, we have to create and
// discard one object before the prototype object exists.
new Calendar();

Calendar.prototype.show = function() {
	this.gWinCal.document.open();

	// Setup the page...
	this.wwrite("<html>");
	this.wwrite("<head><title>Calendar</title>");
    this.wwrite("<link rel='stylesheet' type='text/css' href='/style.sdi'>");
	
	this.wwrite("</head>");

	this.wwrite("<body " + 
		"link=\"" + this.gLinkColor + "\" " + 
		"vlink=\"" + this.gLinkColor + "\" " +
		"alink=\"" + this.gLinkColor + "\" " +
		"text=\"" + this.gTextColor + "\">");

    this.wwrite ("<script type=\"text/javascript\" language=\"JavaScript\">");
    this.wwrite ("function fin(dayname){");
    this.wwrite ("self.opener." + this.gReturnItem + ".value=dayname;");
    if(this.aux!=null){
        this.wwrite(this.aux);
    }
    this.wwrite ("window.close();self.opener." + this.gReturnItem + ".focus();return false;");
    this.wwrite ("}");
    this.wwrite ("</script>");
		
	this.wwrite("<div align=\"center\">");
		
	// Show navigation buttons
	var prevMMYYYY = this.calc_month_year(this.gMonth, this.gYear, -1);
	var prevMM = prevMMYYYY[0];
	var prevYYYY = prevMMYYYY[1];

	var nextMMYYYY = this.calc_month_year(this.gMonth, this.gYear, 1);
	var nextMM = nextMMYYYY[0];
	var nextYYYY = nextMMYYYY[1];
	
	this.wwrite("<table style=\"border-color:#040058\" WIDTH='100%' BORDER=2 CELLSPACING=0 CELLPADDING=0><tr align=center><td>");
	
	this.wwrite("<table WIDTH='100%' BORDER=0 CELLSPACING=0 CELLPADDING=2><tr align=center>");
	this.wwrite("<td><font size=2>[<a href=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + prevMM + "', '" + prevYYYY + "', '" + this.aux +
		"');" +
		"\">" + Calendar.Months[prevMM].substring(0,3) + "</a>]</td>");
	this.wwrite("<th BGCOLOR='#ffcc33'><font size=2>" + this.gMonthName + " " + this.gYear + "</td>");
	this.wwrite("<td><font size=2>[<a href=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + nextMM + "', '" + nextYYYY + "', '" + this.aux +
		"');" +
		"\">" + Calendar.Months[nextMM].substring(0,3) + "</a>]</td>");
    this.wwrite ("</tr></table>");

	// Get the complete calendar code for the month..

	this.wwrite ("<table style=\"border-collapse: collapse;border-color:#040058\" WIDTH='100%' BORDER=1 cellspacing=0 cellpadding=2>");
	this.cal_header();
	this.cal_data();
	this.wwrite ("</table>");

	this.wwrite("<table WIDTH='100%' BORDER=0 CELLSPACING=0 CELLPADDING=2><tr>");
	this.wwrite("<td><font size=2>[<a href=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + this.gMonth + "', '" + (parseInt(this.gYear)-1) + "', '" + this.aux +
		"');" +
		"\">" + (parseInt(this.gYear)-1) + "</a>]</td>");
	this.wwrite("<td align=right><font size=2>[<a href=\"" +
		"javascript:window.opener.Build(" + 
		"'" + this.gReturnItem + "', '" + this.gMonth + "', '" + (parseInt(this.gYear)+1) + "', '" + this.aux +
		"');" +
		"\">" + (parseInt(this.gYear)+1) + "</a>]</td>");
    this.wwrite ("</tr></table>");
    this.wwrite ("</td></tr></table>");

	this.wwrite("</div></body></html>");
	this.gWinCal.document.close();
}

Calendar.prototype.wwrite = function(wtext) {
	this.gWinCal.document.writeln(wtext);
}

Calendar.prototype.cal_header = function() {
	this.wwrite("<tr align=center bgcolor='" + this.gHeaderBackColor + "'>");
	this.wwrite("<td  style=\"border-color:#040058\" WIDTH='15%'><font size='2' COLOR='" + this.gHeaderColor + "'>Sun</td>");
	this.wwrite("<td  style=\"border-color:#040058\" WIDTH='14%'><font size='2' COLOR='" + this.gHeaderColor + "'>Mon</td>");
	this.wwrite("<td  style=\"border-color:#040058\" WIDTH='14%'><font size='2' COLOR='" + this.gHeaderColor + "'>Tue</td>");
	this.wwrite("<td  style=\"border-color:#040058\" WIDTH='14%'><font size='2' COLOR='" + this.gHeaderColor + "'>Wed</td>");
	this.wwrite("<td  style=\"border-color:#040058\" WIDTH='14%'><font size='2' COLOR='" + this.gHeaderColor + "'>Thu</td>");
	this.wwrite("<td  style=\"border-color:#040058\" WIDTH='14%'><font size='2' COLOR='" + this.gHeaderColor + "'>Fri</td>");
	this.wwrite("<td  style=\"border-color:#040058\" WIDTH='15%'><font size='2' COLOR='" + this.gHeaderColor + "'>Sat</td>");
	this.wwrite("</tr>");
}

Calendar.prototype.cal_data = function() {
	var vDate = new Date();
	vDate.setDate(1);
	vDate.setMonth(this.gMonth);
	vDate.setFullYear(this.gYear);

	var vFirstDay=vDate.getDay();
	var vDay=1;
	var vLastDay=this.get_daysofmonth(this.gMonth, this.gYear);
	var vOnLastDay=false;

	/*
	Get day for the 1st of the requested month/year..
	Place as many blank cells before the 1st day of the month as necessary. 
	*/

	this.wwrite("<tr>");
	for (i=0; i<vFirstDay; i++) {
		this.wwrite("<td style=\"border-color:#040058\"" + this.write_weekend_string(i) + ">&nbsp;</td>");
	}

	// Write rest of the 1st week
	for (j=vFirstDay; j<7; j++) {
		this.wwrite("<td style=\"border-color:#040058\"" + this.write_weekend_string(j) + "><font size='2'>" + 
			"<a href='#' " + 
				"onClick=\"return fin('" + this.format_data(vDay) + "');\">" + this.format_day(vDay) + 
			"</a></td>");
		vDay=vDay + 1;
	}
	this.wwrite("</tr>");

	// Write the rest of the weeks
	for (k=2; k<7; k++) {
		this.wwrite("<tr>");

		for (j=0; j<7; j++) {
			this.wwrite("<td style=\"border-color:#040058\"" + this.write_weekend_string(j) + "><font size='2'>" + 
				"<a href='#' " + 
					"onClick=\"return fin('" + this.format_data(vDay) + "');\">" + this.format_day(vDay) + 
				"</a>" + 
				"</td>");
		
			vDay++;
			if (vDay > vLastDay) {
				vOnLastDay = true;
				break;
			}
		}

		if (j == 6) this.wwrite("</tr>");
		if (vOnLastDay) break;
	}
	
	// Fill up the rest of last week with proper blanks, so that we get proper square blocks
	for (m=1; m<(7-j); m++) {
		this.wwrite("<td style=\"border-color:#040058\"" + this.write_weekend_string(j+m) + "><font size='2' COLOR='gray'>" + m + "</td>");
	}
}

Calendar.prototype.format_day = function(vday) {
	if (vday==gNow.getDate() && this.gMonth==gNow.getMonth() && this.gYear==gNow.getFullYear())
		return "<FONT COLOR=\"RED\"><B>" + vday + "</B>";
	else
		return vday;
}

Calendar.prototype.write_weekend_string = function(vday) {
	var i;

	// Return special formatting for the weekend day.
	for (i=0; i<weekend.length; i++) {
		if (vday == weekend[i])
			return (" BGCOLOR=\"" + weekendColor + "\"");
	}
	
	return "";
}

Calendar.prototype.format_data = function(p_day) {
	return this.get_month(this.gMonth).substr(0,3) + " " + p_day + ", " + this.gYear;
}

// Non-Leap year Month days..
Calendar.DOMonth = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
// Leap year Month days..
Calendar.lDOMonth = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31];
Calendar.prototype.get_daysofmonth=function(monthNo, p_year) {
	/* 
	Check for leap year ..
	1.Years evenly divisible by four are normally leap years, except for... 
	2.Years also evenly divisible by 100 are not leap years, except for... 
	3.Years also evenly divisible by 400 are leap years. 
	*/
	if ((p_year % 4) == 0) {
		if ((p_year % 100) == 0 && (p_year % 400) != 0)
			return Calendar.DOMonth[monthNo];
	
		return Calendar.lDOMonth[monthNo];
	} else
		return Calendar.DOMonth[monthNo];
}

Calendar.prototype.calc_month_year=function(p_Month,p_Year,incr) {
	p_Month+=incr;
	while (p_Month < 0) {
		p_Month+=12;
		p_Year--;
	}
	
	while (p_Month >= 12) {
		p_Month-=12;
		p_Year++;
	}
	
	var ret_arr = new Array();
	ret_arr[0] = p_Month;
	ret_arr[1] = p_Year;
	return ret_arr;
}

function Build(p_item, p_month, p_year,aux) {
	gCal = new Calendar(p_item,ggWinCal,p_month,p_year,aux);
	gCal.show();
}

function show_calendar(p_item) {

	ggWinCal=window.open("", "Calendar", "width=250,height=250,status=no,resizable=no,top=200,left=200");
	ggWinCal.opener = self;

    var s = eval(p_item).value;
    gNow = s=="" ? new Date () : new Date (s);
	Build(p_item, gNow.getMonth(), p_year=gNow.getFullYear(),null);
}

function show_calendar(p_item,aux) {

	ggWinCal=window.open("", "Calendar", "width=250,height=250,status=no,resizable=no,top=200,left=200");
	ggWinCal.opener = self;

    var s = eval(p_item).value;
    gNow = s=="" ? new Date () : new Date (s);
	Build(p_item, gNow.getMonth(), p_year=gNow.getFullYear(),aux);
}

////////////////////////////////////////////////////////////////////
//
//  List box support functions.
//
////////////////////////////////////////////////////////////////////

// selects all the items in the listbox
function selectAll(box){
    for (var i=0;i<box.length;i++) {
        if(!box.options[i].selected)box.options[i].selected=true;
    }
}

// removes selected item from the listbox
function removeSelected(box){
    for(var i=box.length-1; i>=0; i--) {
        if(!box.options[i].selected)continue;
        box.options[i].selected=false;

        for(var j=i; j<box.length-1; j++)  {
            box.options[j].value = box.options[j+1].value;
            box.options[j].text = box.options[j+1].text;
        }

        box.length -= 1;
    }
}

// adds text and value to the list box control
function valueSelected(controlname,value,text) {
    var box=eval("document."+controlname);
    with(box.form){
        if(box.type=="text") {
            box.value=text;
            eval("document."+controlname+"_id.value="+value);
        }
        else {
            new_opt = new Option ();
            new_opt.value=value;
            new_opt.text=text;

            if(box.type=="select-one"){
                new_opt.selected = true;
                box.options[0]=new_opt;
            }
            else{
                for (var j=0;j<box.length;j++) {
                    if (box.options[j].value==value) return;
                }
                    
                for (var j=0;j<box.length;j++) {
                    if (box.options[j].value==-1) {
                        box.options[j]=new_opt;
                        return;
                    }
                }

                box.options[box.length]=new_opt;
            }
        }
    }
}

// move selected items from one box to another
function moveBetween(fbox,tbox) {
    for(var i=fbox.length-1; i>=0; i--) {
        if(!fbox.options[i].selected)continue;
        fbox.options[i].selected=false;
        if(fbox.options[i].value=="")continue;
        
        var moved = false;
        for (var j=0;j<tbox.length;j++) {
            if (tbox.options[j].value!="" && fbox.options[i].text>tbox.options[j].text)continue;
            
            tbox.options[tbox.length]=new Option();
            for (var k=tbox.length-1; k>j; k--) {
                tbox.options[k].value=tbox.options[k-1].value;
                tbox.options[k].text=tbox.options[k-1].text;
            }
            
            tbox.options[j].value = fbox.options[i].value;
            tbox.options[j].text = fbox.options[i].text;
            moved = true;
            break;
        }
        
        if (!moved) {
            new_opt = new Option ();
            new_opt.value=fbox.options[i].value;
            new_opt.text=fbox.options[i].text;
            new_opt.selected = false;
            tbox.options[tbox.length]=new_opt;
        }

        for(var j=i; j<fbox.length-1; j++)  {
            fbox.options[j].value = fbox.options[j+1].value;
            fbox.options[j].text = fbox.options[j+1].text;
        }

        fbox.length -= 1;
    }
}

//  Move selected items to front

function moveToFront(box){
    var moveto=0;
    for(var i=0;i<box.length;i++) {
        if(!box.options[i].selected)continue;
        box.options[i].selected=false;
        var value = box.options[i].value;
        var text = box.options[i].text;
        for(var j=i;j>moveto;j--){
            box.options[j].value=box.options[j-1].value;
            box.options[j].text=box.options[j-1].text;
        }
        box.options[moveto].value=value;
        box.options[moveto].text=text;
        moveto++;
    }
}

//  Move selected items up one position

function moveUp(box){
    for(var i=0;i<box.length;i++) {
        if(!box.options[i].selected)continue;
        box.options[i].selected=false;
        if(i==0)continue;
        var value = box.options[i-1].value;
        var text = box.options[i-1].text;
        box.options[i-1].value=box.options[i].value;
        box.options[i-1].text=box.options[i].text;
        box.options[i-1].selected=box.options[i].selected;
        box.options[i].value=value;
        box.options[i].text=text;
    }
}

//  Move selected items to end

function moveToBack(box){
    var moveto=box.length-1;
    for(var i=box.length-1; i>=0; i--) {
        if(!box.options[i].selected)continue;
        box.options[i].selected=false;
        var value = box.options[i].value;
        var text = box.options[i].text;
        for(var j=i;j<moveto;j++){
            box.options[j].value=box.options[j+1].value;
            box.options[j].text=box.options[j+1].text;
        }
        box.options[moveto].value=value;
        box.options[moveto].text=text;
        moveto--;
    }
}

//  Move selected items down one

function moveDown(box){
    for(var i=box.length-1; i>=0; i--) {
        if(!box.options[i].selected)continue;
        box.options[i].selected=false;
        if(i==box.length-1)continue;
        var value = box.options[i+1].value;
        var text = box.options[i+1].text;
        box.options[i+1].value=box.options[i].value;
        box.options[i+1].text=box.options[i].text;
        box.options[i].value=value;
        box.options[i].text=text;
    }
}

////////////////////////////////////////////////////////////////////
//
//  Is the given value a digit?
//  
////////////////////////////////////////////////////////////////////

var digits = "0123456789";
function isDigit(c) {
    return digits.indexOf(c)>=0;
}

////////////////////////////////////////////////////////////////////
//
//  Given a field assumed to contain a date, this little procedure
//  validates the field and reformats it to a standard form.
//  
////////////////////////////////////////////////////////////////////

var valid_date_months = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"];
function validDate (field,msg) {
    if(field.value=="")return true;

    var new_value="";
    var changed=false;
    var all_numeric=true;
    for (var i = 0; i < field.value.length; i++) {
        var ch = field.value.charAt(i);
        if(ch=='.'||ch=='-'){
            ch='/';
            changed=true;
        }
        
        if(!isDigit(ch))all_numeric=false;
        
        new_value+=ch;
    }
    if(changed){
        field.value=new_value;
    }
    else if(all_numeric){
        if(field.value.length>4) {
            field.value=field.value.substring(0,2)+"/"+field.value.substring(2,4)+"/"+field.value.substring(4);
        }
    }

    var millis=Date.parse (field.value);
    if(isNaN (millis)) {
        alert (""+msg+" date is invalid.");
        field.focus();
        return false;
    }
    
    if (millis > new Date ().getTime () + 50 * 365 * 86400000) {
        alert (""+msg+" date is too far in the future (more than fifty years).");
        field.focus();
        return false;
    }
    
    var date=new Date();
    date.setTime(millis);

    field.value=formatDate (date);
    return true;
}

function formatDate(date){
    var year = date.getYear ();
    if (year < 100) {
        year += 1900;
        if (year < 1930) year += 100;
    }
    else if (year < 1900) {
        year += 1900;
    }

    return valid_date_months[date.getMonth()] + " " + date.getDate() + ", " + year;
}

function incrMonth(d,incr){
    var month=d.getMonth();
    if(month+incr<12){
        d.setMonth(month+incr);
    }
    else {
        d.setMonth((month+incr)%12);
        d.setYear(d.getYear()+1);
    }
}

function validBirthDate (field,msg) {
    if(field.value=="")return true;

    var new_value="";
    var changed=false;
    var all_numeric=true;
    for (var i = 0; i < field.value.length; i++) {
        var ch = field.value.charAt(i);
        if(ch=='.'||ch=='-'){
            ch='/';
            changed=true;
        }
        
        if(!isDigit(ch))all_numeric=false;
        
        new_value+=ch;
    }
    if(changed){
        field.value=new_value;
    }
    else if(all_numeric){
        if(field.value.length>4) {
            field.value=field.value.substring(0,2)+"/"+field.value.substring(2,4)+"/"+field.value.substring(4);
        }
    }

    if(isNaN (Date.parse(field.value))) {
        alert (""+msg+" date is invalid.");
        field.focus();
        return false;
    }
    
    var millis=Date.parse (field.value);
    var date=new Date();
    date.setTime(millis);
    
    var year = date.getYear ();
    if (year < 100) {
        year += 2000;
        if(new Date(year,date.getMonth(),date.getDate()).getTime()>new Date().getTime())year-=100;
    }
    else if (year < 1900) {
        year += 1900;
    }

    field.value=valid_date_months[date.getMonth()] + " " + date.getDate() + ", " + year;
    return true;
}

////////////////////////////////////////////////////////////////////
//
//  Given a field assumed to contain a time, this little procedure
//  validates the field and reformats it to a standard form.
//  
////////////////////////////////////////////////////////////////////

function validTime(field,msg,ampm_field) {
    if (field.value=="")return true;
    
    var clean_string = "";
    var suffix="";
    var end_digits=false;
    for (var i = 0; i < field.value.length; i++) {
        var ch = field.value.charAt(i);
        if (ch == " "){
            end_digits = clean_string.length>0;
            continue;
        }
        
        if (!end_digits && (ch==":" || ((ch >= "0") && (ch <= "9")))) {
            clean_string += ch;
            continue;
        }
        end_digits=true;
        suffix+=ch;
    }

    if (suffix.length>0) {
        suffix=suffix.toLowerCase ();
        if ("am".indexOf(suffix)==0) suffix="am";
        else if ("pm".indexOf(suffix)==0) suffix="pm";
        else {
            alert (""+msg+" time is invalid. The am/pm portion of the time is unrecognizable.");
            field.focus();
            return false;
        }
    }
    else if (ampm_field!=null) {
        if (ampm_field[0].checked)suffix=ampm_field[0].value;
        else if (ampm_field[1].checked)suffix=ampm_field[1].value;
    }
    
    var hours = 0;
    var minutes = 0;
    var colon_index=clean_string.indexOf (":");
    if (colon_index >= 0){
        if (colon_index>0)hours = parseInt (clean_string.substring (0,colon_index), 10);
        minutes = parseInt (clean_string.substring (colon_index+1, clean_string.length), 10);
        if (isNaN(hours) || isNaN(minutes)) {
            alert (""+msg+" time is invalid. Please use a value of the form 'HH:MM AM/PM'");
            field.focus();
            return false;
        }
    }
    else {
        var x = parseInt (clean_string, 10);
        if (isNaN (x)) {
            alert (""+msg+" time is invalid. Please use a value of the form 'HH:MM AM/PM'");
            field.focus();
            return false;
        }

        hours=Math.floor(x/100);
        minutes=x-hours*100;
        if(hours==0&&minutes<24){
            hours=minutes;
            minutes=0
        }
    }

    if(hours==0){
        hours=12;
        if(suffix.length==0)suffix="am";
    }
    
    if(hours==12&&suffix.length==0) {
        alert(""+msg+" time is invalid. Please specify am/pm.");
        field.focus();
        return false;
    }

    if (hours>12) {
        if (suffix.length>0){
            alert(""+msg+" time is invalid. Military time does not need am/pm");
            field.focus();
            return false;
        }
        hours -= 12;
        suffix="pm";
    }
    
    if (suffix.length==0)suffix="am";

    var s = hours.toString() + ":";
    if (minutes < 10)s+="0";
    s+=minutes.toString();

    var d=Date.parse("1/1/1999 "+s+" "+suffix);
    if(isNaN (d)) {
        alert (""+msg+" time is invalid. Please use a value of the form 'HH:MM AM/PM'");
        field.focus();
        return false;
    }

    if (ampm_field==null) {
        field.value=s+" "+suffix;
    }
    else {
        field.value=s;
        if (ampm_field[0].value.toLowerCase() == suffix) {
            if (!ampm_field[0].checked) {
                ampm_field[1].checked=false;
                ampm_field[0].checked=true;
            }
        }
        else {
            if (!ampm_field[1].checked) {
                ampm_field[0].checked=false;
                ampm_field[1].checked=true;
            }
        }
    }
    
    return true;
}