push (@results, $msg);
}
- # Clean up values
- foreach my $param (grep /^$paramtag-/, keys(%ARGS)) {
- for ($ARGS{$param}) {
- s/\r+\n/\n/g;
- s/^\s+//;
- s/\s+$//;
- }
- }
-
# Update any existing values
my $values = $CustomFieldObj->ValuesObj;
while ( my $value = $values->Next ) {
my $param = join("-", $paramtag, $value->Id, $attr);
next unless exists $ARGS{$param};
next if ($value->$attr()||'') eq ($ARGS{$param}||'');
+
my $mutator = "Set$attr";
my ($id, $msg) = $value->$mutator( $ARGS{$param} );
push (@results, $msg);