diff options
| author | ot <ot@localhost> | 2005-01-19 07:43:33 +0000 |
|---|---|---|
| committer | ot <ot@localhost> | 2005-01-19 07:43:33 +0000 |
| commit | 40249e354fc72a753090d71865c00c63ce4c8206 (patch) | |
| tree | 546b59ebcbc1afdc96c1d5309621bcbaf0b8ed19 | |
| parent | 1a7da29c646cca5a7a5b5a92c2fdf002e2a6d7ed (diff) | |
| download | markup-validator-40249e354fc72a753090d71865c00c63ce4c8206.zip markup-validator-40249e354fc72a753090d71865c00c63ce4c8206.tar.gz markup-validator-40249e354fc72a753090d71865c00c63ce4c8206.tar.bz2 | |
addig title - commenting out unused bits of code
| -rwxr-xr-x | httpd/cgi-bin/sendfeedback.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/httpd/cgi-bin/sendfeedback.pl b/httpd/cgi-bin/sendfeedback.pl index b87e657..e1edc91 100755 --- a/httpd/cgi-bin/sendfeedback.pl +++ b/httpd/cgi-bin/sendfeedback.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -T ## ## feedback generator for W3C Markup Validation Service -# # $Id: sendfeedback.pl,v 1.1 2004-12-27 05:11:20 ot Exp $ +# # $Id: sendfeedback.pl,v 1.2 2005-01-19 07:43:33 ot Exp $ ## Pragmas. use strict; @@ -146,9 +146,10 @@ sub prepare_error_message { } sub print_prefilled_form { + $T->param(page_title => "Feedback for the Markup Validator"); $T->param(validated_uri => $validated_uri); $T->param(errmsg_id => $errmsg_id); - $T->param(errlist => $errlist); +# $T->param(errlist => $errlist); $T->param(explanation => $errmsg_text); print $T->output; } @@ -156,7 +157,7 @@ sub print_prefilled_form { process_query; -error_choices; +#error_choices; print_prefilled_form; # END |