improve message

master
joey 2006-03-12 03:48:50 +00:00
parent e622b275c5
commit 8ddbcbf184
2 changed files with 11 additions and 5 deletions

View File

@ -407,7 +407,7 @@ sub rcs_recentchanges ($) { #{{{
my $div=qr/^--------------------+$/; my $div=qr/^--------------------+$/;
my $infoline=qr/^r(\d+)\s+\|\s+([^\s]+)\s+\|\s+(\d+-\d+-\d+\s+\d+:\d+:\d+\s+[-+]?\d+).*/; my $infoline=qr/^r(\d+)\s+\|\s+([^\s]+)\s+\|\s+(\d+-\d+-\d+\s+\d+:\d+:\d+\s+[-+]?\d+).*/;
my $state='start'; my $state='start';
my ($rev, $user, $when, @pages, $message); my ($rev, $user, $when, @pages, @message);
foreach (`LANG=C svn log -v '$svn_url'`) { foreach (`LANG=C svn log -v '$svn_url'`) {
chomp; chomp;
if ($state eq 'start' && /$div/) { if ($state eq 'start' && /$div/) {
@ -427,7 +427,7 @@ sub rcs_recentchanges ($) { #{{{
} }
elsif ($state eq 'body' && /$div/) { elsif ($state eq 'body' && /$div/) {
push @ret, { rev => $rev, user => $user, push @ret, { rev => $rev, user => $user,
when => $when, message => $message, when => $when, message => [@message],
pages => [@pages] } if @pages; pages => [@pages] } if @pages;
return @ret if @ret >= $num; return @ret if @ret >= $num;
@ -436,7 +436,7 @@ sub rcs_recentchanges ($) { #{{{
@pages=(); @pages=();
} }
elsif ($state eq 'body') { elsif ($state eq 'body') {
$message.="$_<br>\n"; push @message, {line => $_},
} }
} }
} }

View File

@ -12,11 +12,17 @@
<TMPL_LOOP NAME="CHANGELOG"> <TMPL_LOOP NAME="CHANGELOG">
<li> <!-- <TMPL_VAR NAME="REV"> --> <li> <!-- <TMPL_VAR NAME="REV"> -->
<TMPL_LOOP NAME="PAGES"> <TMPL_LOOP NAME="PAGES">
<TMPL_VAR NAME="LINK"></a> <TMPL_VAR NAME="LINK">
</TMPL_LOOP> </TMPL_LOOP>
<br> <br>
changed <TMPL_VAR NAME="WHEN"> by <TMPL_VAR NAME="USER">: changed <TMPL_VAR NAME="WHEN"> by <TMPL_VAR NAME="USER">:
<i><TMPL_VAR NAME="MESSAGE"></i> <i>
<TMPL_LOOP NAME="MESSAGE">
<TMPL_IF NAME="LINE">
<TMPL_VAR NAME="LINE"><br>
</TMPL_IF>
</TMPL_LOOP>
</i>
</li> </li>
</TMPL_LOOP> </TMPL_LOOP>
</ul> </ul>