/[suikacvs]/okuchuu/piclist.ja.cgi
Suika

Diff of /okuchuu/piclist.ja.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by wakaba, Sat Mar 26 04:51:41 2005 UTC revision 1.8 by wakaba, Thu Nov 22 12:50:09 2007 UTC
# Line 153  if ($Opt{detail}) { Line 153  if ($Opt{detail}) {
153      my $preview_uri = escape preview_uri $file_name;      my $preview_uri = escape preview_uri $file_name;
154      my $uri = $efile;      my $uri = $efile;
155      $uri =~ s/\..+//g;      $uri =~ s/\..+//g;
156        my $id = uc $uri;
157      my @cls = split /\./, lc $file_name;      my @cls = split /\./, lc $file_name;
158      shift @cls;      shift @cls;
159      print q{<div class="image-with-desc">};      print qq{<div class="image-with-desc" id="FILE--$id">};
160        print qq{<a href="$uri"$viewtarget>};        print qq{<a href="$uri"$viewtarget>};
161        print qq{<img src="$preview_uri" alt="" class="@{[join ' ', @cls, 's']}" /></a>};        print qq{<img src="$preview_uri" alt="" class="@{[join ' ', @cls, 's']}" /></a>};
162        print qq{<dl><dt>URI</dt><dd>};        print qq{<dl><dt>URI</dt><dd>};
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24