// ************************************************************************
// ** Script Name:  onlinePaymentScript.asp                              **
// ** Version:      1.0  - 01/11/2005                                    **
// ** Author:       Matt Greenshields                                    **
// ** Function:     Javascript for the online payment form               **
// **               Kept separate from the web page for editing safety   **
// **               This file uses an ASP include to include the array   **
// **               of event information event.txt, which must be in an  **
// **               exactly correct format with each line containing     **
// **               seven items of information                             **
// **                                                                    **
// **               1. The event descripion in double quotes             **
// **               2. The full price                                    **
// **               3. The concessionary price                           **
// **               4. The deposit required or zero if full payment only **
// **               5. The cost of the minibus or zero if there is none  **
// **               6. true or false to enable or disable online booking **
// **               7. The Admit system event ID				 **
// **                                                                    **
// **               All but the last line must end in a comma, like the  **
// **               following example line                               **
// **                                                                    **
// ** "Introductory Day Retreat at LBC, November 12th",25,18,0,0,true,EVT001 **
// **                                                                    **
// ** Revision History:                                                  **
// **  Version  Author      			Date and notes                 **
// **    1.0    Matt Greenshields  01/11/2005 - First release            **
// **    2.0    Matt Greenshields  21/06/2008 - Admit ID, TotalCost added**
// **                                           and event length made a  **
// **                                           variable                 **
// **    3.0    Matt Greenshields  26/05/2009 - Event selection mandated **
// ************************************************************************

var allRetreats = new Array("Introductory Weekend Retreat at Vajrasana                   Feb 10-12",130,95,50,-1,false,"EVT02227",
"Opening the Dharma Doors Course                             Feb 10-24",40,30,0,-1,true,"EVT02237",
"Metta Bhavana Course                                        Feb 17-Mar 16",25,15,0,-1,true,"EVT02236",
"A Circle of Fire - Weekend Retreat at Vajrasana             Feb 17-19",130,95,50,-1,false,"EVT02247",
"Introductory Meditation Day                                 Feb 19",35,25,0,-1,true,"EVT02221",
"Weekend Retreat (GFR Women) at Vajrasana                    Feb 24-26",130,95,50,20,true,"EVT02248",
"Before I Die - Making a Will                                Feb 26",25,20,0,-1,true,"EVT02255",
"Introduction to Buddhism and Meditation Course              Feb 27-Apr 2",80,60,0,-1,true,"EVT02254",
"Tracking Stillness Course                                   Mar 2-30",70,50,0,-1,true,"EVT02238",
"Kindness Behaviour Training at Breathing Space              Mar 7-Apr 25",170,125,0,-1,true,"EVT02219",
"Breathing Space Retreat at Breathing Space                  Mar 9-11",135,100,0,0,true,"EVT02198",
"Buddhist Meditation Foundation Course at St Martin          Mar 10-31",75,55,0,-1,true,"EVT02290",
"Women's Class Weekend Retreat                               Mar 16-18",130,95,50,20,true,"EVT02249",
"Introductory Meditation Day                                 Mar 18",35,25,0,-1,true,"EVT02222",
"Introductory Weekend Retreat at Vajrasana                   Mar 23-25",130,95,50,20,true,"EVT02228",
"MBA Training Day for Health Professionals at Breathing SpaceMar 24",90,65,0,-1,true,"EVT02274",
"Compassionate Communication                                 Mar 25",25,20,0,-1,true,"EVT02245",
"Men's Aikido & Meditation Retreat                           Mar 26-30",200,160,0,-1,true,"EVT02250",
"Spring Open Retreat at Vajrasana  CAMPING RATE              Apr 6-15",340,245,50,-1,true,"EVT02229",
"Spring Open Retreat at Vajrasana  RESIDENTIAL RATE          Apr 6-15",395,280,50,-1,true,"EVT02230",
"Buddhist Meditation Foundation Course at St Martin          Apr 7-28",75,55,0,-1,true,"EVT02291",
"Mindfulness Based Cognitive Therapy at Breathing Space      Apr 10-May 29",170,125,0,-1,true,"EVT02318",
"Puja - Ritual Course                                        Apr 13-May 25",85,65,0,-1,true,"EVT02239",
"Gardening Weekend Retreat                                   Apr 20-22",70,45,50,20,true,"EVT02265",
"Working Mind Working Heart                                  Apr 22-27",70,70,50,0,true,"EVT02251",
"Lesbian and Gay & Bisexual Women's  Med Day at LBC          Apr 22",25,20,0,-1,true,"EVT02225",
"Mindfulness Based Relapse Prevention at Breathing Space     Apr 23-May 28",130,95,0,-1,true,"EVT02311",
"Introductory Meditation Day                                 Apr 29",35,25,0,-1,true,"EVT02223",
"Buddhist Meditation Foundation Course at St Martin          May 5-26",75,55,0,-1,true,"EVT02302",
"Introductory Weekend Retreat at Vajrasana                   May 11-13",130,95,50,20,true,"EVT02275",
"Introductory Weekend Retreat at Vajrasana                   Jun 1-3",130,95,50,20,true,"EVT02276",
"Buddhist Meditation Foundation Course at St Martin          Jun 9-30",75,55,0,-1,true,"EVT02303",
"The Art of Awareness Retreat RESIDENTIAL RATE               Jun 15-22",330,230,50,-1,true,"EVT02286",
"The Art of Awareness Retreat CAMPING RATE                   Jun 15-22",260,200,50,-1,true,"EVT02287",
"Gardening Weekend Retreat                                   Jun 29-Jul 1",70,45,50,20,true,"EVT02284",
"Men's Intensive Meditation Retreat at Vajrasana RESIDENTIAL  Jul 13-22",395,280,50,-1,true,"EVT02292",
"Men's Intensive Meditation Retreat at Vajrasana CAMPING RATEJul 13-22",340,245,50,-1,true,"EVT02293",
"Women's Intensive Meditation Retreat at Vajrasana RESIDENTIAAug 3-12",395,280,50,-1,true,"EVT02294",
"Women's Intensive Meditation Retreat at Vajrasana CAMPING RAAug 3-12",340,245,50,-1,false,"EVT02295",
"Summer Open Retreat at Vajrasana  CAMPING RATE              Aug 18-27",340,245,50,-1,true,"EVT02296",
"Summer Open Retreat at Vajrasana  RESIDENTIAL RATE          Aug 18-27",395,280,50,-1,true,"EVT02297",
"Gardening Weekend Retreat                                   Sep 7-9",70,45,50,20,true,"EVT02285",
"Working Mind Working Heart                                  Sep 9-14",70,70,50,0,true,"EVT02298",
"Introductory Weekend Retreat at Vajrasana                   Sep 21-23",130,95,50,20,true,"EVT02277",
"Women Mitra Weekend                                         Oct 12-14",130,95,50,20,true,"EVT02299",
"Introductory Weekend Retreat at Vajrasana                   Oct 19-21",130,95,50,20,true,"EVT02278",
"Regulars' Weekend                                           Nov 16-18",130,95,50,20,true,"EVT02300",
"The Devotional Heart Retreat at Vajrasana                   Nov 18-23",200,160,50,-1,true,"EVT02301",
"Introductory Weekend Retreat at Vajrasana                   Nov 23-25",130,95,50,20,true,"EVT02279"
)
var retreats = new Array()
var eventLength = 7

function changeLBCEvent()
{
lbcEvent=document.forms[0].LBCEvent
eventID=document.forms[0].EventID
eventID.value=retreats[eventLength*lbcEvent.selectedIndex+6]
payment=document.forms[0].Payment

if (lbcEvent.selectedIndex < lbcEvent.length)
	{
	payment.value="Balance"
	}
else
	{
	payment.value="Donation"
	}
displayTotalCost()
}

function changeRate()
{
rate=document.forms[0].Rate
displayTotalCost()
}

function setup()
{
// Put a first row in the dropdown which cannot be booked
retreats[0]="-- Please select an event from this list --"
retreats[1]=0
retreats[2]=0
retreats[3]=0
retreats[4]=-1
retreats[5]=false
retreats[6]="EVT00000"

j=1

for (i=0; i<allRetreats.length/eventLength; i++)
{
if (allRetreats[eventLength*i+3]>0)
	{
	for (k=0; k<eventLength; k++)
		{
		retreats[eventLength*j+k]=allRetreats[eventLength*i+k]
		}
	j++
	}
}

lbcEvent=document.forms[0].LBCEvent
lbcEvent.length=(retreats.length/eventLength)
for (i=0; i<lbcEvent.length; i++)
{
lbcEvent[i].text=retreats[eventLength*i]
}

eventIndex=document.forms[0].EventIndex
lbcEvent.selectedIndex=eventIndex.value

changeLBCEvent()
}

function displayTotalCost()
{
rate=document.forms[0].Rate
amount=document.forms[0].Amount
lbcEvent=document.forms[0].LBCEvent
totalCost=document.forms[0].TotalCost

if (rate[0].checked)
	{
	amount.value=retreats[eventLength*lbcEvent.selectedIndex+1]-retreats[eventLength*lbcEvent.selectedIndex+3]
	totalCost.value=retreats[eventLength*lbcEvent.selectedIndex+1]
	}
else
	{
	amount.value=retreats[eventLength*lbcEvent.selectedIndex+2]-retreats[eventLength*lbcEvent.selectedIndex+3]
	totalCost.value=retreats[eventLength*lbcEvent.selectedIndex+2]
	}
document.getElementById('totalCostText').innerHTML="balance of £"+amount.value
}

function validate()
{
lbcEvent=document.forms[0].LBCEvent
eventIndex=document.forms[0].EventIndex
desc=document.forms[0].Description

if (lbcEvent.selectedIndex<1)
	{alert("Please select an event");return false}

field=document.forms[0].Amount
if (field.value==null||field.value=="")
	{alert("Please enter an amount");return false}
amount = parseFloat(field.value)
if (!amount||amount<=0)
	{alert("Please enter a valid number for the amount");return false}
field=document.forms[0].Appelation
if (field.value==null||field.value=="")
	{alert("Please enter your title; Mrs, Mr or Ms");return false}
field=document.forms[0].FirstName
if (field.value==null||field.value=="")
	{alert("Please enter your first name");return false}
field=document.forms[0].Surname
if (field.value==null||field.value=="")
	{alert("Please enter your surname");return false}
field=document.forms[0].DeliveryAddress
if (field.value==null||field.value=="")
	{alert("Please enter your address");return false}
field=document.forms[0].DeliveryPostCode
if (field.value==null||field.value=="")
	{alert("Please enter your postcode");return false}
field=document.forms[0].Customeremail
if (field.value==null||field.value=="")
	{alert("Please enter your email address");return false}

eventIndex.value=lbcEvent.selectedIndex

desc.value=lbcEvent[lbcEvent.selectedIndex].text
return true
}