Changeset 811 for trunk/MailerContrib/lib/Foswiki/Contrib/MailerContrib/Change.pm

Timestamp:

11/19/08 15:00:00 (4 years ago)

Author:

CrawfordCurrie

Message:

Item175: port a subset of the standard extensions over to the new namespace to make a working system with mixed TWiki and Foswiki plugins

Location:

trunk/MailerContrib/lib/Foswiki

Files:

• . (moved) (moved from trunk/MailerContrib/lib/TWiki)
• Contrib/MailerContrib/Change.pm (modified) (9 diffs)

trunk/MailerContrib/lib/Foswiki/Contrib/MailerContrib/Change.pm

@@ -2 +2 @@
 #
 # Copyright (C) 2004 Wind River Systems Inc.
-# Copyright (C) 1999-2006 TWiki Contributors.
-# All Rights Reserved. TWiki Contributors
+# Copyright (C) 1999-2006 Foswiki Contributors.
+# All Rights Reserved. Foswiki Contributors
 # are listed in the AUTHORS file in the root of this distribution.
 # NOTE: Please extend that file, not this notice.
@@ -23 +23 @@
 =pod
 
----+ package TWiki::Contrib::MailerContrib::Change
+---+ package Foswiki::Contrib::MailerContrib::Change
 Object that represents a change to a topic.
 
 =cut
 
-package TWiki::Contrib::MailerContrib::Change;
-
-use TWiki;
+package Foswiki::Contrib::MailerContrib::Change;
+
+use Foswiki;
 
 use URI::Escape;
@@ -57 +57 @@
     my $user;
     # SMELL: call to unpublished core function
-    if (defined(&TWiki::Users::findUser)) {
+    if (defined(&Foswiki::Users::findUser)) {
         $user = $session->{users}->findUser( $author, undef, 1 );
         $this->{AUTHOR} = $user ? $user->wikiName() : $author;
     } else {
-        $this->{AUTHOR} = TWiki::Func::getWikiName($author);
+        $this->{AUTHOR} = Foswiki::Func::getWikiName($author);
     }
     $this->{TIME} = $time;
@@ -90 +90 @@
 sub merge {
     my( $this, $other ) = @_;
-    ASSERT($this->isa( 'TWiki::Contrib::MailerContrib::Change' )) if DEBUG;
-    ASSERT($other->isa( 'TWiki::Contrib::MailerContrib::Change' )) if DEBUG;
+    ASSERT($this->isa( 'Foswiki::Contrib::MailerContrib::Change' )) if DEBUG;
+    ASSERT($other->isa( 'Foswiki::Contrib::MailerContrib::Change' )) if DEBUG;
 
     if( $other->{CURR_REV} > $this->{CURR_REV} ) {
@@ -119 +119 @@
 
     unless( defined $this->{HTML_SUMMARY} ) {
-        if( defined &TWiki::Func::summariseChanges ) {
+        if( defined &Foswiki::Func::summariseChanges ) {
             $this->{HTML_SUMMARY} =
-              TWiki::Func::summariseChanges(
+              Foswiki::Func::summariseChanges(
                   $this->{WEB}, $this->{TOPIC}, $this->{BASE_REV},
                   $this->{CURR_REV}, 1 );
@@ -134 +134 @@
     $html =~ s/%TOPICNAME%/$this->{TOPIC}/g;
     $html =~ s/%AUTHOR%/$this->{AUTHOR}/g;
-    my $tim =  TWiki::Time::formatTime( $this->{TIME} );
+    my $tim =  Foswiki::Time::formatTime( $this->{TIME} );
     $html =~ s/%TIME%/$tim/go;
     $html =~ s/%CUR_REV%/$this->{CURR_REV}/g;
@@ -149 +149 @@
     }
     $html =~ s/%REVISION%/$frev/g;
-    $html = TWiki::Func::expandCommonVariables(
+    $html = Foswiki::Func::expandCommonVariables(
         $html, $this->{TOPIC}, $this->{WEB} );
-    $html = TWiki::Func::renderText( $html );
+    $html = Foswiki::Func::renderText( $html );
     $html =~ s/%TEXTHEAD%/$this->{HTML_SUMMARY}/g;
 
@@ -169 +169 @@
     unless( defined $this->{TEXT_SUMMARY} ) {
         my $s;
-        if( defined &TWiki::Func::summariseChanges ) {
-            $s = TWiki::Func::summariseChanges(
+        if( defined &Foswiki::Func::summariseChanges ) {
+            $s = Foswiki::Func::summariseChanges(
                 $this->{WEB}, $this->{TOPIC}, $this->{BASE_REV},
                 $this->{CURR_REV}, 0 );
@@ -183 +183 @@
     }
 
-    my $tim =  TWiki::Time::formatTime( $this->{TIME} );
+    my $tim =  Foswiki::Time::formatTime( $this->{TIME} );
 
     # URL-encode topic names for use of I18N topic names in plain text