[! 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 ; *]
[$ endsub $] [$ sub after_form $] [$ endsub $] [$ sub display $] [* my $r = shift ; *] [- $formname = $r->{fields_epf_formname} = $r -> formname -] [- $r -> after_form -] [$ endsub $]