From: <cra...@us...> - 2003-05-04 13:12:15
|
Update of /cvsroot/twikiplugins/twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki In directory sc8-pr-cvs1:/tmp/cvs-serv3821/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki Modified Files: Func.pm Log Message: Extensive mods and new test; as described in ActionTrackerPlugin.txt Index: Func.pm =================================================================== RCS file: /cvsroot/twikiplugins/twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki/Func.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Func.pm 27 Apr 2003 18:04:44 -0000 1.2 --- Func.pm 4 May 2003 13:12:12 -0000 1.3 *************** *** 1,7 **** --- 1,10 ---- # Fake TWiki::Func for testing only use TWiki::TestMaker; + require CGI; { package TWiki::Func; + use vars qw ($query); + sub getMainWebname { return "Main"; *************** *** 29,32 **** --- 32,47 ---- } + sub setQuery { + $query = shift; + } + + sub getCgiQuery { + return $query; + } + + sub getSkin { + return "action"; + } + sub getPreferencesValue { my $thing = shift; *************** *** 59,63 **** sub readTopicText { my ( $web,$topic,$rev ) = @_; ! if ("$rev" ne "") { my $cmd = "/usr/bin/co -q -p -r1.$rev ".getDataDir() . "/$web/$topic.txt"; return `$cmd`; --- 74,78 ---- sub readTopicText { my ( $web,$topic,$rev ) = @_; ! if (defined($rev) && $rev ne "") { my $cmd = "/usr/bin/co -q -p -r1.$rev ".getDataDir() . "/$web/$topic.txt"; return `$cmd`; |