[merge with nick:
ganesh**Thu Jan 02 21:47:53 GMT 2003
merge with nick:
added album-book.thtml and slideshow.thtml to dist/
change 1pic -> firstpic, introduce lastpic and randompic/randpic
cleaned up examples/slideshow.html
] {
hunk ./cgi-bin/album.pl 302
- if($ifph =~ /1pic/) {
- my $options=getannot($photos[0],'options');
- $ifph =~ s/\/&dispimg($1,$photos[0],$options,$2)/gies;
+ my ($pnum,$ptag);
+ if($ifph =~ /(firstpic)/i) {
+ $pnum = 0;
+ $ptag = $1;
+ my $options=getannot($photos[$pnum],'options');
+ $ifph =~ s/\
/&dispimg($1,$photos[$pnum],$options,$2)/gies;
hunk ./cgi-bin/album.pl 309
+ if($ifph =~ /(lastpic)/i) {
+ $pnum = scalar(@photos) - 1;
+ $ptag = $1;
+ my $options=getannot($photos[$pnum],'options');
+ $ifph =~ s/\
/&dispimg($1,$photos[$pnum],$options,$2)/gies;
+ }
+ if($ifph =~ /(randompic)/i || $ifph =~ /(randpic)/i) {
+ $pnum = int(rand(scalar(@photos)));
+ $ptag = $1;
+ my $options=getannot($photos[$pnum],'options');
+ $ifph =~ s/\
/&dispimg($1,$photos[$pnum],$options,$2)/gies;
+ }
addfile ./dist/album-book.thtml
hunk ./dist/album-book.thtml 1
+
+
+
+
+
+
+
+$description ($photocount photo
|
+ |
+
+ Pictures from $range+ |
+
+ |
+||
|
+
+
+ |
+
+
+ Back to the Index+ |
+
+ |
+||