%#--- Arguments ---# <%args> $widget $object $disp_field $groupList %#--- Initialization ---# <%init> my $agent = $m->comp("/widgets/util/detectAgent.mc"); my $spacerRow = ($agent->{os} ne "Internet Explorer") ? '' : "";
SEARCH
<% $spacerRow %> <%perl> $m->comp("substr.html", widget => $widget, object => $object, disp_field => $disp_field); <%perl> $m->comp("alpha.html", widget => $widget, object => $object, disp_field => $disp_field); % $m->out($groupList);
%#--- Log History ---#