X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/a4e44c04a05eb1b2778ab23790e6b86551d976c4..59507c0a5e5507868ebf6db407219da3f17c8ed9:/modules/Output.pm?ds=inline diff --git a/modules/Output.pm b/modules/Output.pm index 30d60b4..c9b6525 100644 --- a/modules/Output.pm +++ b/modules/Output.pm @@ -1,3 +1,4 @@ + package Output; # @@ -6,7 +7,7 @@ package Output; # HTML generating routines # # Author: Patrick Canterino -# Last modified: 2005-05-09 +# Last modified: 2005-05-10 # # Copyright (C) 1999-2000 Roland Bluethgen, Frank Schoenmann # Copyright (C) 2003-2009 Patrick Canterino @@ -67,7 +68,8 @@ sub error($;$$) my $tpl = new Template; $tpl->read_file($tpl_error); - $tpl->set_var('ERROR',$message); + $tpl->fillin('ERROR',$message); + $tpl->set_var('BACK',encode_html($path)); $tpl->set_var('BACK_URL',escape($path)); $tpl->set_var('SCRIPT',encode_html($ENV{'SCRIPT_NAME'})); @@ -82,7 +84,7 @@ sub error($;$$) } } - $tpl->parse(); + $tpl->parse; my $output = header(-type => 'text/html'); $output .= $tpl->get_template;