'suffix' => 'html', # Suffix for the HTML file
'append' => '', # not yet fully supported (I guess...)
'append-thumb' => '-thumb', # Appendix for thumbnails
+ 'append-large' => '-large', # Appendix for large images
'digits' => 3, # Number of digits in filename
'captionlength' => 50, # Number of characters to copy from %caption
);
}
$fname = sprintf ("%s-$pat%s.jpg", $picture{'basename'}, $id, $picture{'append'});
- printf "<img src=\"%s/%s\" alt=\"Picture %d\">", $picture{'dir'}, $fname, $id;
+ $largefile = sprintf ("%s/%s-$pat%s.jpg", $picture{'dir'}, $picture{'basename'}, $id, $picture{'append-large'});
+
+ if ( -r $largefile) {
+ printf "<a href=\"%s\"><img src=\"%s/%s\" alt=\"Picture %d\"></a>",
+ $largefile, $picture{'dir'}, $fname, $id;
+ } else {
+ printf "<img src=\"%s/%s\" alt=\"Picture %d\">", $picture{'dir'}, $fname, $id;
+ }
$alt = $caption{$id};
printf "<br>%s", $alt if (length ($alt));
# Local variables:
# mode: indented-text
+# mode: auto-fill
# end: