diff --git a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm index 137f0cc..2e2a164 100644 --- a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm +++ b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm @@ -68,9 +68,13 @@ sub print_user_table { return ""; } + my $scriptname = basename($0); + my $now = DateTime->now; + + print " "; + print $q->start_table ({-CLASS => "sme-border"}); + if (_count_active_users() > 0){ - print " "; - print $q->start_table ({-CLASS => "sme-border"}); print $q->Tr( esmith::cgi::genSmallCell($q, $self->localise('ACTIVE_ACCOUNT'), "header"), esmith::cgi::genSmallCell($q, $self->localise('USER_NAME'), "header"), @@ -79,9 +83,6 @@ sub print_user_table { esmith::cgi::genSmallCell($q, $self->localise('ACTION'), "header") ); - my $scriptname = basename($0); - - my $now = DateTime->now; foreach my $u (@users) { my $username = $u->key(); next unless (($u->prop('PasswordSet') || 'no') eq 'yes');