// Copyright David Gibson, 2008

function gotoForm(s)
{
  // var p1 = s.indexOf('/M');
  // var p2 = s.indexOf('.html');
  // var ss = s.substring(p1+1,p2);
  
  // this is neater ...
  
  var ss = s.match(/.*(M.*)\.html/)[1];
  
  if (ss == 'M4')
  {
    s =	'This link will take you directly to Form M4 	\n'   +
	'for subscribing to BCRA\'s periodicals. 	\n\n' +
	'You can complete the form online and then pay 	\n'   + 
	'by PayPal or cheque, or you can download and 	\n'   +
	'print the form.';
    return window.confirm(s);
  }

  if (ss == 'M1')
  {
    s =	'BCRA Membership is handled by our parent body, \n'   +
  	'BCA. This link will take you directly to Form	\n'   +
	'M1 for applying for individual membership of 	\n'   +
	'BCA and BCRA. 					\n\n' +
	'You can complete the form online and then pay 	\n'   + 
	'by PayPal or cheque, or you can download and 	\n'   +
	'print the form.';
    return window.confirm(s);
  }
  
  if (ss == 'M4a')
  {
    s =	'This link will take you directly to Form M4a 	\n'   +
	'for subscribing to Cave & Karst Science Online.\n\n' +
	'This form can only be used for payment online  \n'   +
	'by PayPal. All other types of subscription and \n'   +
	'payment must use form M4 instead.';
    return window.confirm(s);
  }
}
  

function paymethods()
{
  q = confirm('At PayPal, you can use a range of credit and debit cards \n' +
              'and you can also transfer money from your bank account. \n\n' +
              'If you want to post a cheque to us, you can register the \n' +
              'payment online to save paperwork. You will receive a \n' +
	      'reference number to write on the back of your cheque\n\n' +
   	      'Do you want to go to the payment information page for \n' +
              'further information?');
  return q;
}

function listEurope()
{
  q = confirm('Western Europe comprises the following list of countries,  \n' +
  	      'Austria, Belgium, Denmark, Finland, France, Germany,  \n' +
  	      'Greece, Greenland, Iceland, Republic of Ireland, Italy,  \n' +
  	      'The Netherlands, Norway, Portugal, Spain, Sweden,  \n' +
  	      'Switzerland. All other European countries (whether or not \n' +
  	      'they are in the European Union) count as \'Rest of World\').\n\n' +
   	      'Do you want to go to the publications FAQ page for \n' +
              'further information?');
  return q;
}