Changeset 5682

Timestamp:

11/30/09 05:08:19 (2 years ago)

Author:

GeorgeClark

Message:

Item2084: Initial support for revisions

File:

• trunk/GenPDFAddOn/lib/Foswiki/Contrib/GenPDF.pm (modified) (3 diffs)

trunk/GenPDFAddOn/lib/Foswiki/Contrib/GenPDF.pm

@@ -141 +141 @@
 
 sub _getRenderedView {
-    my ( $webName, $topic ) = @_;
-
-    my $text = Foswiki::Func::readTopicText( $webName, $topic );
+    my ( $webName, $topic, $rev) = @_;
+
+    my $text = Foswiki::Func::readTopicText( $webName, $topic, $rev );
 
     # FIXME - must be a better way?
@@ -1017 +1017 @@
     my $webName = $session->{webName};
     my $topic   = $session->{topicName};
+    my $rev     = $query->param('rev');
 
     open( STDERR, ">>$Foswiki::cfg{DataDir}/error.log" )
@@ -1096 +1097 @@
         _writeDebug("preparing $topic");    # DEBUG
                                             # Get ready to display HTML topic
-        my $htmlData = _getRenderedView( $webName, $topic );
+        my $htmlData = _getRenderedView( $webName, $topic, $rev );
 
 # Fix topic text (i.e. correct any problems with the HTML that htmldoc might not like