[geninfo stuff from huggie, modified a bit
ganesh**Tue May 14 10:31:10 GMT 2002] {
hunk ./cgi-bin/editinfo.pl 3
-#---libsetup---
-
-# having . in @INC can cause tainting issues for use
-
-no lib '.';
-
hunk ./cgi-bin/editinfo.pl 5
-  ($dir)=($FindBin::Bin=~/^([\w\d\-\/\.]+)$/)
+  ($dir)=($FindBin::Bin=~/^([\w\d\-\/\.]+)$/) 
hunk ./cgi-bin/editinfo.pl 8
-use lib $dir;
+use lib "$dir";
hunk ./cgi-bin/editinfo.pl 10
-#---endlibsetup---
-
hunk ./cgi-bin/range.pl 85
+    $section=~s/\<editinfo\>/&dispinfo($photo,$descr)/gies;
hunk ./cgi-bin/range.pl 127
+sub dispinfo {
+  my $photo = shift;
+  my $desc = shift || "";
+  my $out = '<p><input type="text" name="desc'.&uri_escape($photo).'" size=40 value="'.$desc.'">';
+  $out .= '<select name="effect'.&uri_escape($photo).'">';
+  foreach (qw(none rotate90 rotate180 rotate270)) {
+    $out .= " <option value=\"$_\"";
+    $out .= " selected" if $_ eq "none";
+    $out .= ">$_</option>";
+  }
+  $out .= "</select>";
+  return $out;
+}
hunk ./examples/album.thtml 21
-<A TARGET="_main" GROUP STYLE="/downfixedwidth">Downwards (fixed width, new window)</A>&nbsp;
+<!-- <A TARGET="_main" GROUP STYLE="/downfixedwidth">Downwards (fixed width, new window)</A>&nbsp; -->
hunk ./examples/album.thtml 24
+<A GROUP STYLE="/editinfo">Edit captions and modifiers</A>
hunk ./examples/editinfo.thtml 5
-<title><iftitle>$title</iftitle><ifnotitle>Pictures $range</ifnotitle></title>
+<title>Pictures $range</title>
}