getting lot of comments repeated.

Hi i am trying this just before the end of workflow. and i get so many comments for each task and repeated stuff.

#!D:\Interwoven\TeamSite/iw-perl/bin/iwperl -w

use TeamSite::Config;
use TeamSite::WFtask;
use TeamSite::WFworkflow;

my($jobid,$taskid,$waPath) = ($ARGV[0],$ARGV[1],$ARGV[2]);
my $iwmount = TeamSite::Config::iwgetmount();
my $iwhome = TeamSite::Config::iwgethome();

my $log_file="$iwhome/tmp/centraldesktop.log";
open(LOGF, ">$log_file") || die "Cannot open log file $?\n" ;

my $job = TeamSite::WFworkflow->new($jobid);
my $ctask = TeamSite::WFtask->new($taskid);
my $tasklist = $job->GetTasks();

foreach $task (@$tasklist){
my $tID = $task->GetId();
$task->GetComments(\@list) ;
print LOGF "$tID\n";

foreach my $entry (@list) {
print LOGF $entry->{'body'}."\n";
# print LOGF $entry->{'date'}."\n";
}
print LOGF "---------------------------\n";
}

my $CentralDesktopID = $job->GetVariable("CentralDesktopID");
print LOGF "$CentralDesktopID\n";
close (LOGF);

$ctask->CallBack("0","success");

how to make it consistent

Find more posts tagged with

Comments

Adam Stoller

Hi i am trying this just before the end of workflow. and i get so many comments for each task and repeated stuff.

To get a bit more information about what's happening (for yourself at least, if not for us) - I would suggest adding another line to your log output:

#!D:\Interwoven\TeamSite/iw-perl/bin/iwperl -w
[...]
foreach $task (@$tasklist){
 my $tID = $task->GetId(); 
 $task->GetComments(\@list) ;
 print LOGF "$tID\n";

  foreach my $entry (@list) {  
print LOGF $entry->{'task'}."\n";
   print LOGF $entry->{'body'}."\n";
   # print LOGF $entry->{'date'}."\n";
  }
  print LOGF "---------------------------\n";
}
[...]

There are some other issues in your code with respect to robustness and platform portability, but first you need to figure out why you're getting the output you're getting...

Rick Poulin

Hi i am trying this just before the end of workflow. and i get so many comments for each task and repeated stuff.

Although the API doesn't make it obvious, the comments are attached to the job more so than the task. No need to loop over all tasks, just get the current active one and go through its comments.

I think the only time this might get weird is when your workflow branches into simultaneous processes.. but for linear workflows this is the way to go.

mcs_monthly_pmwo.rptdesign

susheel

Although the API doesn't make it obvious, the comments are attached to the job more so than the task. No need to loop over all tasks, just get the current active one and go through its comments.

I think the only time this might get weird is when your workflow branches into simultaneous processes.. but for linear workflows this is the way to go.

This is not including all the comments and mainly the comments which I enter through a jsp cgitask. so i am going that way.

susheel

I made a progress and now i am taking the last task in the loops because everything is getting appended in each task. after getting the last task comments which has all comments i removed some static comments by using a list of comments array which i dont require. now i get duplicates values in the required comments. my question is

"HOW CAN WE GET UNIQUE ARRAY OF HASHES"


#!D:\Interwoven\TeamSite/iw-perl/bin/iwperl -w

use TeamSite::Config;
use TeamSite::WFtask;
use TeamSite::WFworkflow;
use Data&colon;umper;
use File::Basename;

my($jobid,$taskid,$waPath) = ($ARGV[0],$ARGV[1],$ARGV[2]);
my $iwmount = TeamSite::Config::iwgetmount();
my $iwhome = TeamSite::Config::iwgethome();

my $log_file="$iwhome/tmp/centraldesktop.log";
open(LOGF, ">$log_file") || die "Cannot open log file $?\n" ;

my $job = TeamSite::WFworkflow->new($jobid);
my $ctask = TeamSite::WFtask->new($taskid);
my $tasklist = $job->GetTasks();

my $i= 0;
my $html="";
my $len = scalar(@$tasklist);

my @testarray = ("Approved","Rejected","success","Done","Completed email notification","Submission successful.","Release files Attached","Successfully completed task: Generate HTML","No files to translate.  Exiting workflow","");

foreach $task (@$tasklist){
 $i++; 
 $task->GetComments(\@list) ;
    # print LOGF $task->GetId()."---".$task->GetType()."\n"; 
 if($i == $len) {
  foreach my $entry (@list) {
   # print LOGF Dumper($entry);
   my $comment = $entry->{'body'};
   my $taskid = $entry->{'task'};

   my $flag = "false";
   foreach my $test (@testarray) { 
    if($comment eq $test){
     # print LOGF "hello\n";
     $flag = "true";
    }
   }
   if($flag eq "false"){
    $html.= "$taskid$comment
\n";    
   }
  }
 }
}

my $ticketID = $job->GetVariable("CentralDesktopID"); 
#my $command =`cdlog 123123 $jobid $html`;
print LOGF "$html\n";
close (LOGF);

$ctask->CallBack("0","success");

Rick Poulin

Er.. I don't even know what you're talking about anymore. So just going back, if you do $task->GetComments on the current (active) task, it should give you exactly the same information that you see when you look at the comments box on that task in CCPro Workflow tab. Start by making sure that the information you need is correct there, and THEN do whatever it is what you're trying to do.

susheel

Thats missing the comments which I enter through a jsp and add it to the workflow.But i dont see it as you said. so using this way.