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

fixed several workflow/spectre related bugs

Browse source
This commit is contained in:
JT Smith 2006-03-18 23:25:31 +00:00
parent ccf1b3633f
commit 9b9b63cc12
7 changed files with 134 additions and 115 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -207,8 +207,8 @@ 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;
# $tag->commit;
$tag->requestCommit;
my $i18n = WebGUI::International->new($session, "VersionTag");
my $ac = WebGUI::AdminConsole->new($session,"versions");
return $ac->render(

6
lib/WebGUI/Workflow/Instance.pm
View file

@ -84,7 +84,7 @@ sub delete {
my $self = shift;
$self->session->db->write("delete from WorkflowInstanceScratch where instanceId=?",[$self->getId]);
$self->session->db->deleteRow("WorkflowInstance","instanceId",$self->getId);
WebGUI::Workflow::Spectre->new($self->session)->notify("workflow/deleteJob",$self->getId);
WebGUI::Workflow::Spectre->new($self->session)->notify("workflow/deleteInstance",$self->getId);
undef $self;
}
@ -306,8 +306,8 @@ sub set {
$self->{_data}{lastUpdate} = time();
$self->session->db->setRow("WorkflowInstance","instanceId",$self->{_data});
my $spectre = WebGUI::Workflow::Spectre->new($self->session);
$spectre->notify("workflow/deleteJob",$self->getId);
$spectre->notify("workflow/addJob",$self->session->config->getFilename, $self->{_data});
$spectre->notify("workflow/deleteInstance",$self->getId);
$spectre->notify("workflow/addInstance", {sitename=>$self->session->config->get("sitename")->[0], instanceId=>$self->getId, priority=>$self->{_data}{priority}});
}
#-------------------------------------------------------------------

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

@ -81,7 +81,7 @@ sub notify {
timeout=>10
);
if ($remote) {
my $result = $remote->post('admin/shutdown', @params);
my $result = $remote->post(@params);
unless (defined $result) {
$self->session->errorHandler->warn("Couldn't send command to Spectre because ".$POE::Component::IKC::ClientLite::error);
}