%# In a five year period we can get one superb programming language. Only %# we can't control when the five year period will begin. <& /RG/Elements/PageHeader &>
% my $cnt = 0; % my @vars = grep { $ContentObj->VarObj($_)->IsUserDefined } $ContentObj->Vars; % foreach my $cnt (0 .. 4) { % my $var = $vars[$cnt]; % }
<&|/l&>Parameter <&|/l&>Current value <&|/l&>Default value <&|/l&>Description
<%INIT> our $DB; my $ReportObj = $DB->ReportObj($session{reportId}); my $ContentObj = DBIx::ReportBuilder->new( Handle => $ReportObj->HandleObj, SearchHook => $ReportObj->SearchHook, Content => $session{reportContent}, Loc => \&loc, ); if ($Submit) { $ContentObj->RemoveVar($_) for $ContentObj->Vars; foreach my $cnt (0 .. 4) { my $name = $ARGS{"Var-Name-$cnt"}; next unless defined($name) and $name =~ /^(?!_)\w+$/; my ($value, $default, $description) = map $ARGS{"Var-$_-$cnt"}, qw(Value Default Description); $ContentObj->SetVar( $name => $value ); $ContentObj->SetVar( $name => $value ); $ContentObj->SetVarDefault( $name => $default ); $ContentObj->SetVarDescription( $name => $description ); } $session{reportContent} = $ContentObj->RenderXML; $m->print(""); return; } <%ARGS> $Submit => undef