yarrg/web/routetrade

   1 <%args>
   2 $dbh
   3 @islandids
   4 @archipelagoes
   5 </%args>
   6
   7 %# So, add code to do right thing here:
   8
   9 <pre>
  10 Route is as follows:
  11
  12 % foreach my $i (0..$#islandids) {
  13 %   my $islandid= $islandids[$i];
  14 %   my $archipelago= $archipelagoes[$i];
  15 %   $islandid= '<undef>' unless defined $islandid;
  16 %   $archipelago= '<undef>' unless defined $archipelago;
  17 %
  18   islandid=<% $islandid |h %>  archipelago=<% $archipelago |h %>
  19 %
  20 % }
  21
  22 </pre>
  23
  24 <%init>
  25 use CommodsWeb;
  26 </%init>