WikiPatches/DigestedSummary

In sub DoEdit, replace

  $summary = &GetParam("summary", "*");
  print "<p>", T('Summary:'),
        $q->textfield(-name=>'summary',
                      -default=>$summary, -override=>1,
                      -size=>60, -maxlength=>200);

with

  # MeatBall:DigestedSummary
  $summary = '*';
  $summary = $Text{'summary'} if $Now - $Section{'ts'} < 60*60*24*$KeepDays;
  $summary = &GetParam( 'summary', $summary );

  print "<p>", T('Summary:'),
         $q->textarea(-name=>'summary', -default=>$summary, -override=>1, -style
=>'width:100%;height:4em', -wrap=>'virtual');

-- SunirShah