move SiteUser/s modules to more appropriate location

[bse.git] / site / cgi-bin / modules / BSE / UI / AdminNewsletter.pm

diff --git a/site/cgi-bin/modules/BSE/UI/AdminNewsletter.pm b/site/cgi-bin/modules/BSE/UI/AdminNewsletter.pm
index 806bbbb12a391115937f3f60b0ff585537272d9e..108f257c745ba007fd1ee52c96f07a03e83df5e7 100644 (file)
--- a/site/cgi-bin/modules/BSE/UI/AdminNewsletter.pm
+++ b/site/cgi-bin/modules/BSE/UI/AdminNewsletter.pm
@@ -8,7 +8,7 @@ use BSE::Util::HTML qw(:default popup_menu);
 use BSE::Util::Iterate;
 use base 'BSE::UI::AdminDispatch';
 
-our $VERSION = "1.005";
+our $VERSION = "1.006";
 
 =head1 NAME
 
@@ -510,8 +510,8 @@ sub req_html_preview {
 
 sub _dummy_user {
   my %user;
-  require SiteUsers;
-  my @cols = SiteUser->columns;
+  require BSE::TB::SiteUsers;
+  my @cols = BSE::TB::SiteUser->columns;
   @user{@cols} = ('') x @cols;
   $user{id} = 0;
   $user{userId} = "username";
@@ -724,10 +724,10 @@ sub req_send_test {
   my $testname = $q->param('testname');
   my $testtextonly = $q->param('testtextonly');
 
-  require SiteUsers;
+  require BSE::TB::SiteUsers;
   my %recipient = 
     (
-     (map { $_ => '' } SiteUser->columns),
+     (map { $_ => '' } BSE::TB::SiteUser->columns),
      id => 999,
      userId => 'username',
      password => 'p455w0rd',