*** lib/TWiki.pm.orig Fri Jun 6 09:07:43 2003
--- lib/TWiki.pm Fri Jun 6 09:16:46 2003
***************
*** 2109,2121 ****
$date = formatGmTime( $date );
# Only allow put back, if current web and topic match stored to information
my $putBack = "";
if( $web eq $toWeb && $topic eq $toTopic ) {
$putBack = " - put it back";
}
! $text = "
$to moved from $from on $date by $by $putBack
";
}
$text = handleCommonTags( $text, $topic, $web );
--- 2109,2131 ----
$date = formatGmTime( $date );
# Only allow put back, if current web and topic match stored to information
+ my $action = "";
+ if( $fromWeb eq $toWeb ) {
+ $action = "renamed";
+ } else {
+ $action = "moved";
+ }
my $putBack = "";
if( $web eq $toWeb && $topic eq $toTopic ) {
$putBack = " - revert to its old name";
! } else {
! $putBack .= "confirm=on\">put it back";
! }
}
! $text = "$to $action from $from on $date by $by $putBack
";
}
$text = handleCommonTags( $text, $topic, $web );