%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
}
my $Values;
-if ( $Object && $Object->id ) {
- $NamePrefix ||= join '-',
- 'Object', ref($Object), $Object->Id, 'CustomField', '';
+if ( $Object ) {
+ $Grouping =~ s/\W//g if $Grouping;
+ $NamePrefix ||= join '-',
+ 'Object', ref($Object), ($Object->Id || ''),
+ 'CustomField' . ($Grouping ? ":$Grouping" : ""),
+ '';
- $Values = $Object->CustomFieldValues( $CustomField->id );
- $Values->Columns(
- qw( id CustomField ObjectType ObjectId Disabled Content
- ContentType ContentEncoding SortOrder Creator Created
- LastUpdatedBy LastUpdated )
- );
- # Don't take care of $Values if there isn't values inside
- undef ( $Values ) unless ( $Values->Count );
+ if ( $Object->Id ) {
+ $Values = $Object->CustomFieldValues( $CustomField->id );
+ $Values->Columns(
+ qw( id CustomField ObjectType ObjectId Disabled Content
+ ContentType ContentEncoding SortOrder Creator Created
+ LastUpdatedBy LastUpdated )
+ );
+ # Don't take care of $Values if there isn't values inside
+ undef ( $Values ) unless ( $Values->Count );
+ }
}
# Always fill $Default with submited values if it's empty
);
</%INIT>
<%ARGS>
+$Grouping => undef
$Object => undef
$CustomField => undef
$NamePrefix => undef