<fullshunt>
    ^^.<HR>
</fullshunt>
<shunt>
    {
      my($background)=$$rattr{background};
      if (defined($background)) {
        main::output("<TABLE BGCOLOR=\"silver\"><TR>\n");
      } else {
        main::output("<TABLE><TR>\n");
      }
      $width=$$rattr{width};
      if (!defined($width)) {$width="30";}
      $numsys=0; $systemlabels[0]=""; $systemdirs[0]="";
    }.
    ^^.
    {
      main::output("</TR><TR>\n");
      for $i (0..$numsys-1) {
        my($dir,$label)=($systemdirs[$i],$systemlabels[$i]);
        main::output("<TD ALIGN=\"center\"><A HREF=\"$dir\">$label</A>");
        main::output("</TD>\n");
      }
      main::output("</TR></TABLE>\n");
    }
    </shunt>
<shunt/headings>
    <TR>.^^.</TR>
    </shunt/headings>
<headings/group>
    {
      my($columns)=$$rattr{columns};
      main::output("<TD ALIGN=\"center\" COLSPAN=\"$columns\">\n");
    }.
    ^^.
    </TD>
    </headings/group>
<shunt/system>
    {
      my($directory)=$traindir.'/'.$$rattr{directory};
      my($page)=$$rattr{page};
      my($popuplabel)=$$rattr{popuplabel};
      my($thumb)=$$rattr{thumb};
      if (!defined($page)) {$page="index";}
      if (defined($thumb)) {
        if ($thumb=~m#.*/([^/]*)#) {$thumb = $1;}
        $thumb="thumb/$thumb";
      } else {$thumb="trains";}
      $systemlabels[$numsys]=$$rattr{label};
      $systemdirs[$numsys++]="$directory/$page.html";
      main::output("<TD ALIGN=\"center\">\n");
      main::output("<A HREF=\"$directory/$page.html\"> \n");
      main::output("<IMG SRC=\"$directory/$thumb.gif\" \n");
      main::output("ALT=\"$popuplabel\" \n");
      main::output("HEIGHT=30 WIDTH=$width></A>\n");
      main::output("</TD>\n");
    }.
    ^^
</shunt/system>

265 accesses since 09 Oct 2008, HTML cache rendered at 20090820:1543