… | |
… | |
73 | "-->\n</style>", |
73 | "-->\n</style>", |
74 | "</head>", |
74 | "</head>", |
75 | "<body>"; |
75 | "<body>"; |
76 | |
76 | |
77 | print "<table id='nav'>", |
77 | print "<table id='nav'>", |
78 | "<tr><td rowspan='3'><span style='font-height: 20pt; font-style: bold;'>"; |
78 | "<tr><td rowspan='3'><h1>"; |
79 | print "<a href='/'>/</a> "; |
79 | print "<a href='/'>/</a> "; |
80 | for (0 .. $#path - 1) { |
80 | for (0 .. $#path - 1) { |
81 | print "<a href='/", (join "/", @path[0..$_]), "/'>$path[$_]</a> / "; |
81 | print "<a href='/", (join "/", @path[0..$_]), "/'>$path[$_]</a> / "; |
82 | } |
82 | } |
83 | |
83 | |
… | |
… | |
86 | ? "<a href='$meta->{info}{\"tile_path_$_\"}.html'><img style='border: 2px solid blue;' src='$meta->{info}{\"tile_path_$_\"}.jpg'/></a>" |
86 | ? "<a href='$meta->{info}{\"tile_path_$_\"}.html'><img style='border: 2px solid blue;' src='$meta->{info}{\"tile_path_$_\"}.jpg'/></a>" |
87 | : "" |
87 | : "" |
88 | } 1..4; |
88 | } 1..4; |
89 | |
89 | |
90 | print "$path[-1] "; |
90 | print "$path[-1] "; |
91 | print "</span></td>", |
91 | print "</h1></td>", |
92 | "<td/><td>$tile[0]</td><td/></tr>", |
92 | "<td/><td>$tile[0]</td><td/></tr>", |
93 | "<tr><td>$tile[3]</td>"; |
93 | "<tr><td>$tile[3]</td>"; |
94 | print "<td><img id='thumb' src='@path[-1].jpg'/></td>", |
94 | print "<td><img id='thumb' src='@path[-1].jpg'/></td>", |
95 | "<td>$tile[1]</td>", |
95 | "<td>$tile[1]</td>", |
96 | "<tr><td/><td>$tile[2]</td><td/></tr>"; |
96 | "<tr><td/><td>$tile[2]</td><td/></tr>"; |