chiark / gitweb /
wip sort out Midnights
[ypp-sc-tools.main.git] / 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('Cerulean');
21 db_connect();
22 </%init>