yarrg/web/pirate-island

   1 <html><head><title>Select island</title></head><body>
   2 <form action="/ucgi/~clareb/mason/something" method="get">
   3 <select name="islandid">
   4 <%perl>
   5 my $sth=$dbh->prepare("SELECT islandid,archipelago,islandname
   6                               FROM islands
   7                               ORDER BY archipelago,islandname;");
   8 $sth->execute();
   9 </%perl>
  10 % my $row;
  11 % while ($row=$sth->fetchrow_hashref) {
  12 <option value="<% $row->{'islandid'} |h %>"><% $row->{'archipelago'} |h %> -
  13 <% $row->{'islandname'} |h %>
  14 % }
  15 <input type=submit name=submit value="Go">
  16 </form>
  17
  18 <%init>
  19 use CommodsWeb;
  20 db_setocean('Midnight');
  21 db_connect();
  22 </%init>