Skip to content

Instantly share code, notes, and snippets.

@perlDreamer
Created October 13, 2009 17:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save perlDreamer/209387 to your computer and use it in GitHub Desktop.
Save perlDreamer/209387 to your computer and use it in GitHub Desktop.
my $wiki = $node->addChild({className=>'WebGUI::Asset::Wobject::WikiMaster', skipNotification => 1,});
$versionTag->commit;
my $wikipage = $wiki->addChild({className=>'WebGUI::Asset::WikiPage', skipNotification => 1, }, undef, undef, {skipAutoCommitWorkflows => 1, skipNotification => 1});
$wikipage->update({skipNotification => 1,});
# Wikis create and autocommit a version tag when a child is added. Lets get the name so we can roll it back.
my $secondVersionTag = WebGUI::VersionTag->new($session,$wikipage->get("tagId"));
$secondVersionTag->commit;
warn "boom";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment