Wenn ein Hash namens %main::debug_options existiert, dann werden all seine Variablen...

diff --git a/SL/Form.pm b/SL/Form.pm
index 7fc4456f9ae47c240eff9744a1df491d79c51688..9bfb945546604ec3936b8a47e31ca08ea7a4ea7b 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -532,6 +532,10 @@ sub _prepare_html_template {
   $additional_params->{"conf_latex_templates"}        = $main::latex;
   $additional_params->{"conf_opendocument_templates"} = $main::opendocument_templates;
 
+  if (%main::debug_options) {
+    map { $additional_params->{'DEBUG_' . uc($_)} = $main::debug_options{$_} } keys %main::debug_options;
+  }
+
   $main::lxdebug->leave_sub();
 
   return $file;