How do I add comments to a file as part of external perl script?

balajiranjan

Hi,
I am trying to do this but the comments don't seem to get updated.
I am looking for the comments of the file to be updated with my information.


Thanks,
Balaji

sub updateComments {
my($mycomment, $task)=@_;
# Files and File Comments
my %f_and_c;
$task->GetFilesAndComments(\%f_and_c);
if (defined %f_and_c) {
for my $file (sort keys %f_and_c) {
my @comments = @{ $f_and_c{$file} };
if( @comments) {
my %publishComment =( "date"=> '123', "user"=>'343',"body"=>'Scheduling', "task
"=> 'test');
push(@comments, \%publishComment);
}
}
}
}

ISCBorisB

Judging by the little fragment you've posted, neither Job nor Task Object know anything about
you personal %f_and_c Hash. Whatever you do with it internally is absolutely irrelevant for
the workflow.

If I were you I would simply try to remove all Files using WFtask RemoveFile method and then
re-add them right back (AddFile) with modified Comments.