From: <Mer...@nt...> - 2006-03-25 18:50:48
|
Author: MeredithLesly Date: 2006-03-25 10:47:33 -0800 (Sat, 25 Mar 2006) New Revision: 9519 Modified: twiki/branches/TWikiRelease04x00/lib/TWiki/Store.pm Log: Item1962: reverting due to imminent release of 4.0.2 Modified: twiki/branches/TWikiRelease04x00/lib/TWiki/Store.pm =================================================================== --- twiki/branches/TWikiRelease04x00/lib/TWiki/Store.pm 2006-03-25 16:20:30 UTC (rev 9518) +++ twiki/branches/TWikiRelease04x00/lib/TWiki/Store.pm 2006-03-25 18:47:33 UTC (rev 9519) @@ -98,7 +98,7 @@ ---++ ObjectMethod readTopic($user, $web, $topic, $version) -> ($metaObject, $text) -Reads the given version of a topic and its meta-data. If the version +Reads the given version of a topic and it's meta-data. If the version is undef, then read the most recent version. The version number must be an integer, or undef for the latest version. @@ -136,34 +136,6 @@ =pod ----++ ObjectMethod readMeta($user, $web, $topic, $version) -> $metaObject - -Reads the given version of a topic and its meta-data. If the version -is undef, then read the most recent version. The version number must be -an integer, or undef for the latest version. - -if $user is defined, view permission will be required for the topic -read to be successful. Access control violations are flagged by a -TWiki::AccessControlException. Permissions are checked for the user -name passed in. - -If the topic contains a web specification (is of the form Web.Topic) the -web specification will override whatever is passed in $web. - -The metadata is return in TWiki::Meta object. - -Note: this allows for doing meta better; i.e., not inline with the text - -=cut - -sub readMeta { - my( $this, $user, $web, $topic, $version ) = @_; - my ($meta, $text) = $this->readTopic($user, $web, $topic, $version); - return $meta; -} - -=pod - ---++ ObjectMethod readTopicRaw( $user, $web, $topic, $version ) -> $topicText Reads the given version of a topic, without separating out any embedded |