Remove debugging code.

This commit is contained in:
Colin Kuskie 2009-06-12 20:55:48 +00:00
parent fb33138e33
commit f652028ef0

View file

@ -1234,16 +1234,12 @@ sub resetGroupFields {
foreach my $wfActivities (values %{ $workflowActivities} ) {
push @activities, @{ $wfActivities };
}
use Data::Dumper;
warn Dumper \@activities;
foreach my $activity (@activities) {
my $definition = WebGUI::Pluggable::instanciate($activity, 'definition', [$session]);
my $sth = $db->prepare('UPDATE WorkflowActivityData set value=3 where name=? and value=?');
SUBDEF: foreach my $subdef (@{ $definition }) {
PROP: while (my ($fieldName, $properties) = each %{ $subdef->{properties} }) {
next PROP unless $properties->{fieldType} eq 'group';
warn $fieldName;
warn $gid;
$sth->execute([$fieldName, $gid]);
}
}