%# Dope will get you through times of no money better that money will get %# you through times of no dope. -- Gilbert Shelton <& /RG/Elements/PageHeader, BGColor => '#7CBEBE' &>
 
" method='post' enctype="multipart/form-data" target="view" style="margin: 0"> % my $PartTag = $ContentObj->PartObj->tag; % if (defined($PartTag) and ($session{reportPartTag} ne $PartTag)) { % $session{reportPartTag} = $PartTag; % } % my $last_att = ($Obj->Atts)[-1]; % foreach my $att ($Obj->Atts) { % my $item = $Obj->Att($att); % my $current = $item->Value; % $current = $item->Default unless defined $current; % next unless $item->Type and $item->Applicable; % my $is_last = ($att eq $last_att); |
<& "Property/" . $Obj->ucase($item->Type), ContentObj => $ContentObj, Object => $Obj, Item => $item, Current => $current, IsLast => $is_last &> % if (!$is_last) { <& /RG/Elements/VerticalBar &> % }
% }
<& /RG/Elements/VerticalBar3D &> <& /RG/Elements/Submit, Op => "${Type}Change", Text => "Change", BGColor => '#7CBEBE', &> <& /RG/Elements/Submit, Op => "${Type}Up", Text => "Up", Disabled => !( $Obj and $Obj->prev_sibling ), BGColor => '#7CBEBE', &> <& /RG/Elements/Submit, Op => "${Type}Down", Text => "Down", Disabled => !( $Obj and $Obj->next_sibling ), BGColor => '#7CBEBE', &> <& /RG/Elements/Submit, Op => "${Type}Remove", Text => "Remove", BGColor => '#7CBEBE', &>
<%INIT> our $DB; my $ReportObj = $DB->ReportObj($session{reportId}); my $ContentObj = DBIx::ReportBuilder->new( Handle => $ReportObj->HandleObj, SearchHook => $ReportObj->SearchHook, Content => $session{reportContent}, PartId => $PartId, ClauseId => $ClauseId, Loc => \&loc, ); $session{reportPartId} = $ContentObj->PartId; $session{reportClauseId} = $ContentObj->ClauseId; my $Obj = $ClauseId ? $ContentObj->ClauseObj : $ContentObj->PartObj or return; my $Type = ""; $Type = 'Clause' if $ClauseId; <%ARGS> $PartId => $session{reportPartId} $ClauseId => 0