[! sub formname { 'myform' } sub form_enctype {''} sub on_submit { '' } !] [$ sub hidden $] [* my $r = shift ; *] [$ endsub $] [$ sub abort_button $] [* my $r = shift ; *] [$if $r -> {aborturl} $]   [$endif$] [$ endsub $] [$ sub prev_button $] [* my $r = shift ; *] [$if $r -> {page} > 0 $][$endif$] [$ endsub $] [$ sub next_button $] [* my $r = shift ; *] [$if $r -> {page} + 1 < @{$r -> {pages}} $][$endif$] [$ endsub $] [$ sub prevnext $] [* my $r = shift ; *]

[- $r -> abort_button -] [- $r -> prev_button -] [- $r -> next_button -]

[$ endsub $] [$ sub after_form $] [$ endsub $] [$ sub display $] [* my $r = shift ; *] [- $formname = $r->{fields_epf_formname} = $r -> formname -]
[- $r -> show -]
[- $r -> prevnext -] [- delete $fdat{-page} ; delete $fdat{-prev} ; delete $fdat{-next} ; -] [- $r -> hidden ; @ffld = keys %fdat ; -] [$ hidden $]
[- $r -> after_form -] [$ endsub $]