/*
 * Copyright © 2007 Manfred Stienstra <manfred@fngtps.com>, Fingertips
 *
 * The $ function is borrowed from the Prototype JavaScript framework.
 * Copyright © 2005 Sam Stephenson <sam@conio.net>
 */


// Element finding helper
function $() {
  var results = [], element;
  for (var i = 0; i < arguments.length; i++) {
    element = arguments[i];
    if (typeof element == 'string')
      element = document.getElementById(element);
    results.push(element);
  }
  return results.length < 2 ? results[0] : results;
}

// Class for managing the language options in a form
var SignupLocation = {
  languages: [["Arabic", "ar"], ["German", "de"], ["English", "en"], ["Spanish", "es"], ["French", "fr"], ["Greek", "gre"], ["Italian", "it"], ["Dutch", "nl"], ["Polish", "pl"], ["Portuguese", "pt"], ["Russian", "ru"]],
  signupLanguageRestrictions: {mx: [["Spanish", "es"], ["English", "en"]], lb: [["Arabic", "ar"], ["English", "en"]], it: [["Italian", "it"], ["English", "en"]], gr: [["Greek", "gre"], ["English", "en"]], dz: [["Arabic", "ar"], ["English", "en"]], ye: [["Arabic", "ar"], ["English", "en"]], kw: [["Arabic", "ar"], ["English", "en"]], de: [["German", "de"], ["English", "en"]], fr: [["French", "fr"], ["English", "en"]], mo: [["Arabic", "ar"], ["English", "en"]], ly: [["Arabic", "ar"], ["English", "en"]], eg: [["Arabic", "ar"], ["English", "en"]], km: [["Arabic", "ar"], ["English", "en"]], es: [["Spanish", "es"], ["English", "en"]], sa: [["Arabic", "ar"], ["English", "en"]], ru: [["Russian", "ru"], ["English", "en"]], ps: [["Arabic", "ar"], ["English", "en"]], be: [["Dutch", "nl"], ["French", "fr"], ["English", "en"]], ae: [["Arabic", "ar"], ["English", "en"]], tn: [["Arabic", "ar"], ["English", "en"]], ch: [["German", "de"], ["French", "fr"], ["English", "en"]], mr: [["Arabic", "ar"], ["English", "en"]], jo: [["Arabic", "ar"], ["English", "en"]], br: [["Portuguese", "pt"], ["English", "en"]], sy: [["Arabic", "ar"], ["English", "en"]], sd: [["Arabic", "ar"], ["English", "en"]], pl: [["Polish", "pl"], ["English", "en"]], dj: [["Arabic", "ar"], ["English", "en"]], bh: [["Arabic", "ar"], ["English", "en"]], ar: [["Spanish", "es"], ["English", "en"]], om: [["Arabic", "ar"], ["English", "en"]], nl: [["Dutch", "nl"], ["English", "en"]], iq: [["Arabic", "ar"], ["English", "en"]], at: [["German", "de"], ["English", "en"]], lu: [["French", "fr"], ["English", "en"]], cl: [["Spanish", "es"], ["English", "en"]]},
  
  updateLanguageOptionsFor: function(countryElement, languageElement) {
    if ($(countryElement).value) {
      var newLanguages = this.signupLanguageRestrictions[$(countryElement).value];
      if (newLanguages) {
        this.resetOptionsTo(languageElement, newLanguages);
      } else {
        this.resetOptionsTo(languageElement, [['English', 'en']]);
      }
    } else {
      this.resetOptionsTo(languageElement, this.languages);
    }
  },
  
  resetOptionsTo: function(languageElement, newLanguages) {
    var selected = $(languageElement).value;
    $(languageElement).options.length = 0;
    $(languageElement).options[0] = new Option('', '');
    for (var i = 0; i < newLanguages.length; i++) {
      var option = new Option(newLanguages[i][0], newLanguages[i][1]);
      if (selected == newLanguages[i][1]) {
        option.selected = true;
      }
      $(languageElement).options[i+1] = option;
    }
  }
};

/*
 * Copyright © 2007 Manfred Stienstra <manfred@fngtps.com>, Fingertips
 *
 */
var Embed = {
  embedCSS: function(url) {
    var head = document.getElementsByTagName('head')[0];
    var style = document.createElement('link');
    style.type = 'text/css';
    style.rel = 'stylesheet';
    style.href = url;
    head.appendChild(style);
  },
  
  embedHTML: function(html) {
    var embed = document.getElementById('rhubarb');
    if (embed != null) {
      embed.innerHTML = html;
    } else {
      document.write("<div id=\"rhubarb\">");
      document.write(html);
      document.write("</div>");
    }
  }
}

Embed.embedCSS("http://write-a-letter.greenpeace.org/stylesheets/public.css");
Embed.embedCSS("http://write-a-letter.greenpeace.org/442/inline_stylesheet.css");
Embed.embedHTML("<h1>Kimberly-Clark: Stop making empty claims, start protecting forests</h1>\n\n<p>A new Greenpeace report reveals that Kimberly-Clark devastated the Kenogami Forest while promoting itself as a leader in environmental and social responsibility. Write to CEO Thomas Falk and head of corporate communications David Dickson and let them know what you think about companies that say one thing and do another. It&#8217;s time for Mr. Falk and Mr. Dickson to stop talking about how sustainable their company is, and start taking real action to protect forests and benefit communities. </p>\n\n<script type=\"text/javascript\">try{urchinTracker('/outbound/#{CGI::escape(@appeal.title)}');}catch(e){};</script>\n\n<form action=\"http://write-a-letter.greenpeace.org/442/messages\" method=\"post\" onsubmit=\"try{urchinTracker('/outbound/Kimberly-Clark%3A+Stop+making+empty+claims%2C+start+protecting+forests');}catch(e){};return true;\">\n    <fieldset>\n    <div>\n      <div><label for=\"message_name\">Your name</label></div>\n      <input class=\"text small\" id=\"message_name\" maxlength=\"100\" name=\"message[name]\" size=\"40\" type=\"text\" />\n    </div>\n    \n    <div>\n      <div><label for=\"message_email\">Your email address</label></div>\n      <input class=\"text small\" id=\"message_email\" maxlength=\"100\" name=\"message[email]\" size=\"40\" type=\"text\" />\n    </div>\n    \n    <div>\n      <div><label for=\"message_subject\">Subject</label></div>\n      \n        <input class=\"text\" id=\"message_subject\" maxlength=\"200\" name=\"message[subject]\" size=\"60\" type=\"text\" value=\"Stop making empty claims, start protecting forests\" />\n      \n    </div>\n    \n    <div>\n      <div><label for=\"message_body\">Message</label></div>\n      \n        <textarea cols=\"60\" id=\"message_body\" name=\"message[body]\" rows=\"15\">\n\n\nDear Mr. Falk and Mr. Dickson,\n\nI was alarmed to learn that Kimberly-Clark clearcut massive areas of intact and old-growth forest, including areas that are critical threatened species habitat, while promoting itself as a leader in environmental sustainability. \n\nI was equally alarmed to learn that Kimberly-Clark purchases large amounts of pulp from forestry operations that are causing serious social conflict, while promoting itself as a leader in social responsibility. \n\nAs long as you continue to make empty claims like these, I will not trust your company or any of its public  commitments. And as long as you continue to buy from logging operations that are environmentally destructive and socially irresponsible, I will not buy Kleenex, Cottonelle, or any other Kimberly-Clark product.\n\nSincerely, \n\n</textarea>\n      \n    </div>\n    \n     \n    <div id=\"rhubarb-subscription\">\n      <p></p>\n      <label><input name=\"mailing_lists[]\" type=\"checkbox\" value=\"73\" /> Greenpeace Canada - cyberactivistes</label>\n      <div id=\"rhubarb-optional\">\n                <div>\n          <div><label for=\"message_country\">The country you live in</label></div>\n          <select id=\"message_country\" name=\"message[country]\" onchange=\"SignupLocation.updateLanguageOptionsFor('message_country', 'message_preferred_language')\"><option value=\"\"></option>\n<option value=\"af\">Afghanistan</option>\n<option value=\"ax\">&#197;land Islands</option>\n<option value=\"al\">Albania</option>\n<option value=\"dz\">Algeria</option>\n<option value=\"as\">American Samoa</option>\n<option value=\"ad\">Andorra</option>\n<option value=\"ao\">Angola</option>\n<option value=\"ai\">Anguilla</option>\n<option value=\"aq\">Antarctica</option>\n<option value=\"ag\">Antigua and Barbuda</option>\n<option value=\"ar\">Argentina</option>\n<option value=\"am\">Armenia</option>\n<option value=\"aw\">Aruba</option>\n<option value=\"au\">Australia</option>\n<option value=\"at\">Austria</option>\n<option value=\"az\">Azerbaijan</option>\n<option value=\"bs\">Bahamas</option>\n<option value=\"bh\">Bahrain</option>\n<option value=\"bd\">Bangladesh</option>\n<option value=\"bb\">Barbados</option>\n<option value=\"by\">Belarus</option>\n<option value=\"be\">Belgium</option>\n<option value=\"bz\">Belize</option>\n<option value=\"bj\">Benin</option>\n<option value=\"bm\">Bermuda</option>\n<option value=\"bt\">Bhutan</option>\n<option value=\"bo\">Bolivia</option>\n<option value=\"ba\">Bosnia and Herzegovina</option>\n<option value=\"bw\">Botswana</option>\n<option value=\"bv\">Bouvet Island</option>\n<option value=\"br\">Brazil</option>\n<option value=\"io\">British Indian Ocean Territory</option>\n<option value=\"bn\">Brunei Darussalam</option>\n<option value=\"bg\">Bulgaria</option>\n<option value=\"bf\">Burkina Faso</option>\n<option value=\"bi\">Burundi</option>\n<option value=\"kh\">Cambodia</option>\n<option value=\"cm\">Cameroon</option>\n<option value=\"ca\">Canada</option>\n<option value=\"cv\">Cape Verde</option>\n<option value=\"ky\">Cayman Islands</option>\n<option value=\"cf\">Central African Republic</option>\n<option value=\"td\">Chad</option>\n<option value=\"cl\">Chile</option>\n<option value=\"cn\">China</option>\n<option value=\"cx\">Christmas Island</option>\n<option value=\"cc\">Cocos (keeling) Islands</option>\n<option value=\"co\">Colombia</option>\n<option value=\"km\">Comoros</option>\n<option value=\"cg\">Congo</option>\n<option value=\"cd\">Congo, The Democratic Republic of The</option>\n<option value=\"ck\">Cook Islands</option>\n<option value=\"cr\">Costa Rica</option>\n<option value=\"ci\">Cote D'ivoire</option>\n<option value=\"hr\">Croatia</option>\n<option value=\"cu\">Cuba</option>\n<option value=\"cy\">Cyprus</option>\n<option value=\"cz\">Czech Republic</option>\n<option value=\"dk\">Denmark</option>\n<option value=\"dj\">Djibouti</option>\n<option value=\"dm\">Dominica</option>\n<option value=\"do\">Dominican Republic</option>\n<option value=\"ec\">Ecuador</option>\n<option value=\"eg\">Egypt</option>\n<option value=\"sv\">El Salvador</option>\n<option value=\"gq\">Equatorial Guinea</option>\n<option value=\"er\">Eritrea</option>\n<option value=\"ee\">Estonia</option>\n<option value=\"et\">Ethiopia</option>\n<option value=\"fk\">Falkland Islands (malvinas)</option>\n<option value=\"fo\">Faroe Islands</option>\n<option value=\"fj\">Fiji</option>\n<option value=\"fi\">Finland</option>\n<option value=\"fr\">France</option>\n<option value=\"gf\">French Guiana</option>\n<option value=\"pf\">French Polynesia</option>\n<option value=\"tf\">French Southern Territories</option>\n<option value=\"ga\">Gabon</option>\n<option value=\"gm\">Gambia</option>\n<option value=\"ge\">Georgia</option>\n<option value=\"de\">Germany</option>\n<option value=\"gh\">Ghana</option>\n<option value=\"gi\">Gibraltar</option>\n<option value=\"gr\">Greece</option>\n<option value=\"gl\">Greenland</option>\n<option value=\"gd\">Grenada</option>\n<option value=\"gp\">Guadeloupe</option>\n<option value=\"gu\">Guam</option>\n<option value=\"gt\">Guatemala</option>\n<option value=\"gg\">Guernsey</option>\n<option value=\"gn\">Guinea</option>\n<option value=\"gw\">Guinea-bissau</option>\n<option value=\"gy\">Guyana</option>\n<option value=\"ht\">Haiti</option>\n<option value=\"hm\">Heard Island and Mcdonald Islands</option>\n<option value=\"va\">Holy See (vatican City State)</option>\n<option value=\"hn\">Honduras</option>\n<option value=\"hk\">Hong Kong</option>\n<option value=\"hu\">Hungary</option>\n<option value=\"is\">Iceland</option>\n<option value=\"in\">India</option>\n<option value=\"id\">Indonesia</option>\n<option value=\"ir\">Iran, Islamic Republic Of</option>\n<option value=\"iq\">Iraq</option>\n<option value=\"ie\">Ireland</option>\n<option value=\"im\">Isle of Man</option>\n<option value=\"il\">Israel</option>\n<option value=\"it\">Italy</option>\n<option value=\"jm\">Jamaica</option>\n<option value=\"jp\">Japan</option>\n<option value=\"je\">Jersey</option>\n<option value=\"jo\">Jordan</option>\n<option value=\"kz\">Kazakhstan</option>\n<option value=\"ke\">Kenya</option>\n<option value=\"ki\">Kiribati</option>\n<option value=\"kp\">Korea, Democratic People's Republic Of</option>\n<option value=\"kr\">Korea, Republic Of</option>\n<option value=\"kw\">Kuwait</option>\n<option value=\"kg\">Kyrgyzstan</option>\n<option value=\"la\">Lao People's Democratic Republic</option>\n<option value=\"lv\">Latvia</option>\n<option value=\"lb\">Lebanon</option>\n<option value=\"ls\">Lesotho</option>\n<option value=\"lr\">Liberia</option>\n<option value=\"ly\">Libyan Arab Jamahiriya</option>\n<option value=\"li\">Liechtenstein</option>\n<option value=\"lt\">Lithuania</option>\n<option value=\"lu\">Luxembourg</option>\n<option value=\"mo\">Macao</option>\n<option value=\"mk\">Macedonia, The Former Yugoslav Republic Of</option>\n<option value=\"mg\">Madagascar</option>\n<option value=\"mw\">Malawi</option>\n<option value=\"my\">Malaysia</option>\n<option value=\"mv\">Maldives</option>\n<option value=\"ml\">Mali</option>\n<option value=\"mt\">Malta</option>\n<option value=\"mh\">Marshall Islands</option>\n<option value=\"mq\">Martinique</option>\n<option value=\"mr\">Mauritania</option>\n<option value=\"mu\">Mauritius</option>\n<option value=\"yt\">Mayotte</option>\n<option value=\"mx\">Mexico</option>\n<option value=\"fm\">Micronesia, Federated States Of</option>\n<option value=\"md\">Moldova, Republic Of</option>\n<option value=\"mc\">Monaco</option>\n<option value=\"mn\">Mongolia</option>\n<option value=\"me\">Montenegro</option>\n<option value=\"ms\">Montserrat</option>\n<option value=\"ma\">Morocco</option>\n<option value=\"mz\">Mozambique</option>\n<option value=\"mm\">Myanmar</option>\n<option value=\"na\">Namibia</option>\n<option value=\"nr\">Nauru</option>\n<option value=\"np\">Nepal</option>\n<option value=\"nl\">Netherlands</option>\n<option value=\"an\">Netherlands Antilles</option>\n<option value=\"nc\">New Caledonia</option>\n<option value=\"nz\">New Zealand</option>\n<option value=\"ni\">Nicaragua</option>\n<option value=\"ne\">Niger</option>\n<option value=\"ng\">Nigeria</option>\n<option value=\"nu\">Niue</option>\n<option value=\"nf\">Norfolk Island</option>\n<option value=\"mp\">Northern Mariana Islands</option>\n<option value=\"no\">Norway</option>\n<option value=\"om\">Oman</option>\n<option value=\"pk\">Pakistan</option>\n<option value=\"pw\">Palau</option>\n<option value=\"ps\">Palestinian Territory, Occupied</option>\n<option value=\"pa\">Panama</option>\n<option value=\"pg\">Papua New Guinea</option>\n<option value=\"py\">Paraguay</option>\n<option value=\"pe\">Peru</option>\n<option value=\"ph\">Philippines</option>\n<option value=\"pn\">Pitcairn</option>\n<option value=\"pl\">Poland</option>\n<option value=\"pt\">Portugal</option>\n<option value=\"pr\">Puerto Rico</option>\n<option value=\"qa\">Qatar</option>\n<option value=\"re\">Reunion</option>\n<option value=\"ro\">Romania</option>\n<option value=\"ru\">Russian Federation</option>\n<option value=\"rw\">Rwanda</option>\n<option value=\"sh\">Saint Helena</option>\n<option value=\"kn\">Saint Kitts and Nevis</option>\n<option value=\"lc\">Saint Lucia</option>\n<option value=\"pm\">Saint Pierre and Miquelon</option>\n<option value=\"vc\">Saint Vincent and The Grenadines</option>\n<option value=\"ws\">Samoa</option>\n<option value=\"sm\">San Marino</option>\n<option value=\"st\">Sao Tome and Principe</option>\n<option value=\"sa\">Saudi Arabia</option>\n<option value=\"sn\">Senegal</option>\n<option value=\"rs\">Serbia</option>\n<option value=\"sc\">Seychelles</option>\n<option value=\"sl\">Sierra Leone</option>\n<option value=\"sg\">Singapore</option>\n<option value=\"sk\">Slovakia</option>\n<option value=\"si\">Slovenia</option>\n<option value=\"sb\">Solomon Islands</option>\n<option value=\"so\">Somalia</option>\n<option value=\"za\">South Africa</option>\n<option value=\"gs\">South Georgia and The South Sandwich Islands</option>\n<option value=\"es\">Spain</option>\n<option value=\"lk\">Sri Lanka</option>\n<option value=\"sd\">Sudan</option>\n<option value=\"sr\">Suriname</option>\n<option value=\"sj\">Svalbard and Jan Mayen</option>\n<option value=\"sz\">Swaziland</option>\n<option value=\"se\">Sweden</option>\n<option value=\"ch\">Switzerland</option>\n<option value=\"sy\">Syrian Arab Republic</option>\n<option value=\"tw\">Taiwan, Province of China</option>\n<option value=\"tj\">Tajikistan</option>\n<option value=\"tz\">Tanzania, United Republic Of</option>\n<option value=\"th\">Thailand</option>\n<option value=\"tl\">Timor-leste</option>\n<option value=\"tg\">Togo</option>\n<option value=\"tk\">Tokelau</option>\n<option value=\"to\">Tonga</option>\n<option value=\"tt\">Trinidad and Tobago</option>\n<option value=\"tn\">Tunisia</option>\n<option value=\"tr\">Turkey</option>\n<option value=\"tm\">Turkmenistan</option>\n<option value=\"tc\">Turks and Caicos Islands</option>\n<option value=\"tv\">Tuvalu</option>\n<option value=\"ug\">Uganda</option>\n<option value=\"ua\">Ukraine</option>\n<option value=\"ae\">United Arab Emirates</option>\n<option value=\"gb\">United Kingdom</option>\n<option value=\"us\">United States</option>\n<option value=\"um\">United States Minor Outlying Islands</option>\n<option value=\"uy\">Uruguay</option>\n<option value=\"uz\">Uzbekistan</option>\n<option value=\"vu\">Vanuatu</option>\n<option value=\"ve\">Venezuela</option>\n<option value=\"vn\">Viet Nam</option>\n<option value=\"vg\">Virgin Islands, British</option>\n<option value=\"vi\">Virgin Islands, U.s.</option>\n<option value=\"wf\">Wallis and Futuna</option>\n<option value=\"eh\">Western Sahara</option>\n<option value=\"ye\">Yemen</option>\n<option value=\"zm\">Zambia</option>\n<option value=\"zw\">Zimbabwe</option></select>\n        </div>\n                        <div>\n          <div><label for=\"message_preferred_language\">Preferred language</label></div>\n          <select id=\"message_preferred_language\" name=\"message[preferred_language]\"><option value=\"\"></option>\n<option value=\"ar\">Arabic</option>\n<option value=\"de\">German</option>\n<option value=\"en\">English</option>\n<option value=\"es\">Spanish</option>\n<option value=\"fr\">French</option>\n<option value=\"gre\">Greek</option>\n<option value=\"it\">Italian</option>\n<option value=\"nl\">Dutch</option>\n<option value=\"pl\">Polish</option>\n<option value=\"pt\">Portuguese</option>\n<option value=\"ru\">Russian</option></select>\n        </div>\n              </div>\n    </div>\n      </fieldset>\n  \n  <div class=\"submit\">\n    <input name=\"commit\" type=\"submit\" value=\"Next...\" />\n  </div>\n</form>\n");