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

diff --git a/SL/Form.pm b/SL/Form.pm
index 7fc4456..9bfb945 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;