--- okuchuu/piclist.ja.cgi	2005/03/26 04:51:41	1.7
+++ okuchuu/piclist.ja.cgi	2007/11/22 12:50:09	1.8
@@ -153,9 +153,10 @@
     my $preview_uri = escape preview_uri $file_name;
     my $uri = $efile;
     $uri =~ s/\..+//g;
+    my $id = uc $uri;
     my @cls = split /\./, lc $file_name;
     shift @cls;
-    print q{<div class="image-with-desc">};
+    print qq{<div class="image-with-desc" id="FILE--$id">};
       print qq{<a href="$uri"$viewtarget>};
       print qq{<img src="$preview_uri" alt="" class="@{[join ' ', @cls, 's']}" /></a>};
       print qq{<dl><dt>URI</dt><dd>};
@@ -330,4 +331,4 @@
 
 =cut
 
-# $Date: 2005/03/26 04:51:41 $
+# $Date: 2007/11/22 12:50:09 $