oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more bug fixes...default content commit works all the way through now

Browse source
This commit is contained in:
JT Smith 2006-03-19 00:48:44 +00:00
parent 0cda78d536
commit 5ee17a673f
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Operation/VersionTag.pm
View file

@ -207,7 +207,6 @@ sub www_commitVersionTagConfirm {
my $tag = WebGUI::VersionTag->new($session, $tagId); my $tag = WebGUI::VersionTag->new($session, $tagId);
if (defined $tag && $session->user->isInGroup($tag->get("groupToUse"))) { if (defined $tag && $session->user->isInGroup($tag->get("groupToUse"))) {
$tag->set({comments=>$session->form->process("comments", "textarea")}); $tag->set({comments=>$session->form->process("comments", "textarea")});
# $tag->commit;
$tag->requestCommit; $tag->requestCommit;
my $i18n = WebGUI::International->new($session, "VersionTag"); my $i18n = WebGUI::International->new($session, "VersionTag");
my $ac = WebGUI::AdminConsole->new($session,"versions"); my $ac = WebGUI::AdminConsole->new($session,"versions");

8
lib/WebGUI/Workflow/Spectre.pm
View file

@ -66,22 +66,22 @@ The module/method pair you wish to communicate with in Spectre.
=head3 params =head3 params
An array of the parameters to send. A scalar, array reference, or hash reference of data to pass to Spectre.
=cut =cut
sub notify { sub notify {
my $self = shift; my $self = shift;
my $module = shift; my $module = shift;
my @params = @_; my $params = shift;;
my $remote = create_ikc_client( my $remote = create_ikc_client(
port=>$self->session->config->get("spectrePort"), port=>$self->session->config->get("spectrePort"),
ip=>$self->session->config->get("spectreIp"), ip=>$self->session->config->get("spectreIp"),
name=>rand(100000), name=>rand(100000),
timeout=>10 timeout=>10
); );
if ($remote) { if (defined $remote) {
my $result = $remote->post(@params); my $result = $remote->post($module, $params);
unless (defined $result) { unless (defined $result) {
$self->session->errorHandler->warn("Couldn't send command to Spectre because ".$POE::Component::IKC::ClientLite::error); $self->session->errorHandler->warn("Couldn't send command to Spectre because ".$POE::Component::IKC::ClientLite::error);
} }