| … | |
… | |
| 812 | |
812 | |
| 813 | sub options { |
813 | sub options { |
| 814 | my $self=shift; |
814 | my $self=shift; |
| 815 | my $out; |
815 | my $out; |
| 816 | $out .=join("", |
816 | $out .=join("", |
| 817 | CGI::startform("POST", $self->{r}->uri), |
817 | CGI::start_form("POST", $self->{r}->uri), |
| 818 | $self->hidden_authen_fields, |
818 | $self->hidden_authen_fields, |
| 819 | CGI::hr(), |
819 | CGI::hr(), |
| 820 | CGI::start_div({class=>"viewOptions"}), |
820 | CGI::start_div({class=>"viewOptions"}), |
| 821 | $self->viewOptions(),CGI::end_div(), |
821 | $self->viewOptions(),CGI::end_div(), |
|
|
822 | CGI::end_form() |
| 822 | ); |
823 | ); |
| 823 | return $out; |
824 | return $out; |
| 824 | |
825 | |
| 825 | } |
826 | } |
| 826 | ##### logging subroutine #### |
827 | ##### logging subroutine #### |