Edited by ghoti on 10/29/02 07:22 AM (server time).
=========================================#! c:/iw-home/iw-perl/bin/iwperl.exe use TeamSite::WFworkflow;use TeamSite::WFtask;my($jobid, $taskid, $area) = (@ARGV[0..2]);my($change_task_name, $new_owner_name) = (@ARGV[3..4]);print "Creating job object for $jobid...\n";my $job = new TeamSite::WFworkflow($jobid);print "Getting task object for task $change_task_name...\n";my ($result, $change_owner_task) = $job->GetTaskByName($change_task_name);die "Couldn't find task $change_task_name" if ! $result;my $ID = $change_owner_task->GetId();print "Changing owner of task $ID to $new_owner_name...\n";#$result = $change_owner_task->SetOwner($new_owner_name);$result = `iwsettaskownerandarea $ID $new_owner_name $area`;#die "Couldn't change owner to $new_owner_name" if $result;print "$result\n";===============================================