+ # Set the render type if we have it, but unset it if the new type doesn't
+ # support render types
+ if ( $CustomFieldObj->HasRenderTypes($TypeComposite) ) {
+ my $original = $CustomFieldObj->RenderType;
+
+ if ( defined $RenderType and $RenderType ne $original ) {
+ # It's changed! Let's update it.
+ my ($good, $msg) = $CustomFieldObj->SetRenderType( $RenderType );
+
+ if ( $good ) {
+ $msg = loc("[_1] changed from '[_2]' to '[_3]'",
+ loc("Render Type"), $original, $RenderType );
+ }
+
+ push @results, $msg;
+ }
+ }
+ else {
+ # Delete it if we no longer support render types
+ $CustomFieldObj->SetRenderType( undef );
+ }
+
+ if (($CustomFieldObj->BasedOn||'') ne ($BasedOn||'')) {
+ my ($good, $msg) = $CustomFieldObj->SetBasedOn( $BasedOn );
+ push @results, $msg;
+ }