X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/a4e44c04a05eb1b2778ab23790e6b86551d976c4..e5974d592e46bd102cecca71449431d01afdc1fa:/modules/Output.pm?ds=sidebyside diff --git a/modules/Output.pm b/modules/Output.pm index 30d60b4..3670e0e 100644 --- a/modules/Output.pm +++ b/modules/Output.pm @@ -6,7 +6,7 @@ package Output; # HTML generating routines # # Author: Patrick Canterino -# Last modified: 2005-05-09 +# Last modified: 2005-05-11 # # Copyright (C) 1999-2000 Roland Bluethgen, Frank Schoenmann # Copyright (C) 2003-2009 Patrick Canterino @@ -67,10 +67,10 @@ sub error($;$$) my $tpl = new Template; $tpl->read_file($tpl_error); - $tpl->set_var('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'})); + $tpl->fillin('ERROR',$message); + $tpl->fillin('BACK',encode_html($path)); + $tpl->fillin('BACK_URL',escape($path)); + $tpl->fillin('SCRIPT',encode_html($ENV{'SCRIPT_NAME'})); $tpl->parse_if_block('dir',defined $path); @@ -78,12 +78,10 @@ sub error($;$$) { while(my ($key,$value) = each(%$vars)) { - $tpl->set_var($key,$value); + $tpl->fillin($key,$value); } } - $tpl->parse(); - my $output = header(-type => 'text/html'); $output .= $tpl->get_template;