use the class that initializes the reports section

diff --git a/site/cgi-bin/modules/BSE/Variables.pm b/site/cgi-bin/modules/BSE/Variables.pm
index 19333b900e6535506d88ee4979c7d37487a940b8..ba206caa1b61200d542e14fcda44408adb99a29e 100644 (file)
--- a/site/cgi-bin/modules/BSE/Variables.pm
+++ b/site/cgi-bin/modules/BSE/Variables.pm
@@ -4,7 +4,7 @@ use Scalar::Util qw(blessed);
 use BSE::TB::Site;
 use BSE::Util::HTML;
 
-our $VERSION = "1.017";
+our $VERSION = "1.018";
 
 sub _base_variables {
   my ($self, %opts) = @_;
@@ -258,8 +258,8 @@ sub _report_data {
 
   $params ||= [];
   $opts ||= {};
-  require DevHelp::Report;
-  my $reports = DevHelp::Report->new(BSE::Cfg->single);
+  require BSE::Report;
+  my $reports = BSE::Report->new(BSE::Cfg->single);
   my $msg;
   my $result = $reports->report_data
     (
@@ -267,7 +267,7 @@ sub _report_data {
      BSE::DB->single,
      \$msg,
      $params,
-     $opts
+     %$opts
     )
       or return $msg;