sub starting_page {
  my ($counter, $schools_ref, $i);

  print "<HTML>\n";
  print "<HEAD><TITLE> OpenImpetus ".Constants::get(HTML_MSG11).
    " </TITLE></HEAD>\n";
  print Constants::get(BODY_TAG)."\n";
  print "<h1 align=center> ".Constants::get(COMPNAME)." </h1>\n";
  print "<h3 align=center> ".Constants::get(HTML_MSG11)." </h3>\n";

  print "<FORM action=http://".Constants::get(FORM_URL)." method=POST>\n";
  print "<input type=\"hidden\" name=\"openimpetus_major_dispatch\"";
  print " value=\"registration\">\n";
  print "<input type=\"hidden\" name=\"openimpetus_minor_dispatch\"";
  print " value=\"show_registration\">\n";
  print "<input type=\"hidden\" name=\"compname\" value=\"";
  print Constants::get(COMPFILE)."\">\n";

  # Leader's info
  print "<table>\n";
  print "<tr>\n";
  print "<th colspan=4> ".Constants::get(HTML_MSG3)." </th>\n";
  print "</tr><tr>\n";
  print "<td align=right> <b>".Constants::get(HTML_MSG12)." ".
    Constants::get(HTML_MSG5)."</b> </td>\n";
  print "<td> <input type=\"text\" name=\"leader_fname\" size=15> </td>\n";
  print "<td align=right> <b>".Constants::get(HTML_MSG13)." ".
    Constants::get(HTML_MSG5)."</b> </td>\n";
  print "<td> <input type=\"text\" name=\"leader_lname\" size=15> </td>\n";
  print "</tr><tr>\n";
  print "<td align=right> <b>".Constants::get(HTML_MSG6)."</b> </td>\n";
  print "<td colspan=2> <input type=\"text\" name=\"leader_email\" size=30> </td>\n";
  print "<td colspan=2>\n";
  print "<input type=\"checkbox\" name=\"leader_email_exists\" value=\"false\"> ";
  print "<i>".Constants::get(HTML_MSG15)."</i>\n";
  print "</td>\n";
  print "</tr>\n";
  print "<tr><td></td><td colspan=3> ";
  print "<input type=\"checkbox\" name=\"leaderTBA\" value=\"true\"> ";
  print "<i>".Constants::get(HTML_MSG16)."</i>\n";
  print "<tr>\n";
  print "<td rowspan=100 align=right valign=top> <b>".Constants::get(HTML_MSG7).
    "</b> </td>\n";
  print "<td>\n";

  $counter=0;
  $schools_ref=Constants::get(SCHOOLS);

  for ($i=0;$i<=$#$schools_ref;$i++) {
    if ($counter==0) {
      print "<tr><td>\n";
    }
    print "<input type=\"radio\" name=\"leader_school\" value=\"".
      $$schools_ref[$i]."\"> ".$$schools_ref[$i]."\n";

    if ($counter==2) {
      $counter=0;
      print "</td></tr>\n";
    } else {
      $counter++;
      print "</td><td>\n";
    }
  }
  print "</td></tr><tr><td>\n";
  print "<input type=\"radio\" name=\"leader_school\" value=\"\">\n";
  print Constants::get(HTML_MSG28).
    ": <input type=\"text\" name=\"leader_otherschool\" size=30>\n";
  print "</td><td>\n";
  print "<input type=\"radio\" name=\"leader_school\" value=-1>\n<i>".
    Constants::get(HTML_MSG29)."</i>\n";
  print "</td></tr></table><p>\n";
  
  print "<hr><p>\n";
  
  # Follower's info

  print "<table>\n";
  print "<tr>\n";
  print "<th colspan=4> ".Constants::get(HTML_MSG4)." </th>\n";
  print "</tr><tr>\n";
  print "<td align=right> <b>".Constants::get(HTML_MSG12)." ".
    Constants::get(HTML_MSG5)."</b> </td>\n";
  print "<td> <input type=\"text\" name=\"follower_fname\" size=15> </td>\n";
  print "<td align=right> <b>".Constants::get(HTML_MSG13)." ".
    Constants::get(HTML_MSG5)."</b> </td>\n";
  print "<td> <input type=\"text\" name=\"follower_lname\" size=15> </td>\n";
  print "</tr><tr>\n";
  print "<td align=right> <b>".Constants::get(HTML_MSG6)."</b> </td>\n";
  print "<td colspan=2> <input type=\"text\" name=\"follower_email\" size=30> </td>\n";
  print "<td colspan=2>\n";
  print "<input type=\"checkbox\" name=\"follower_email_exists\" value=\"false\"> ";
  print "<i>".Constants::get(HTML_MSG15)."</i>\n";
  print "</td>\n";
  print "</tr>\n";
  print "<tr><td></td><td colspan=3> ";
  print "<input type=\"checkbox\" name=\"followerTBA\" value=\"true\"> ";
  print "<i>".Constants::get(HTML_MSG17)."</i>\n";
  print "<tr>\n";
  print "<td rowspan=100 align=right valign=top> <b>".
    Constants::get(HTML_MSG7).
    "</b> </td>\n";
  print "<td>\n";

  $counter=0;
  for ($i=0;$i<=$#$schools_ref;$i++) {
    if ($counter==0) {
      print "<tr><td>\n";
    }
    print "<input type=\"radio\" name=\"follower_school\" value=\"".
      $$schools_ref[$i]."\"> ".$$schools_ref[$i]."\n";

    if ($counter==2) {
      $counter=0;
      print "</td></tr>\n";
    } else {
      $counter++;
      print "</td><td>\n";
    }
  }
  print "</td></tr><tr><td>\n";
  print "<input type=\"radio\" name=\"follower_school\" value=\"\">\n";
  print Constants::get(HTML_MSG28).
    ": <input type=\"text\" name=\"follower_otherschool\" size=30>\n";
  print "</td><td>\n";
  print "<input type=\"radio\" name=\"follower_school\" value=-1>\n<i>".
    Constants::get(HTML_MSG29)."</i>\n";
  print "</td></tr></table><p>\n";
  
  print "<input type=\"submit\" value=\"".Constants::get(HTML_SUBMIT_FORM).
    "\">\n";
  print "<input type=\"reset\" value=\"".Constants::get(HTML_CLEAR_FORM).
    "\"><p>\n";
  
  print "</form>\n";
  
  General::PrintHTMLTail();
}

1;
