diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm index 68b09e099..4cac0017c 100644 --- a/lib/WebGUI/Operation/VersionTag.pm +++ b/lib/WebGUI/Operation/VersionTag.pm @@ -207,7 +207,6 @@ sub www_commitVersionTagConfirm { my $tag = WebGUI::VersionTag->new($session, $tagId); if (defined $tag && $session->user->isInGroup($tag->get("groupToUse"))) { $tag->set({comments=>$session->form->process("comments", "textarea")}); - # $tag->commit; $tag->requestCommit; my $i18n = WebGUI::International->new($session, "VersionTag"); my $ac = WebGUI::AdminConsole->new($session,"versions"); diff --git a/lib/WebGUI/Workflow/Spectre.pm b/lib/WebGUI/Workflow/Spectre.pm index 9c24abdcc..bb847a0a6 100644 --- a/lib/WebGUI/Workflow/Spectre.pm +++ b/lib/WebGUI/Workflow/Spectre.pm @@ -66,22 +66,22 @@ The module/method pair you wish to communicate with in Spectre. =head3 params -An array of the parameters to send. +A scalar, array reference, or hash reference of data to pass to Spectre. =cut sub notify { my $self = shift; my $module = shift; - my @params = @_; + my $params = shift;; my $remote = create_ikc_client( port=>$self->session->config->get("spectrePort"), ip=>$self->session->config->get("spectreIp"), name=>rand(100000), timeout=>10 ); - if ($remote) { - my $result = $remote->post(@params); + if (defined $remote) { + my $result = $remote->post($module, $params); unless (defined $result) { $self->session->errorHandler->warn("Couldn't send command to Spectre because ".$POE::Component::IKC::ClientLite::error); }