From b32f9d96c1b652966eafa8c3ae080b6bab1409ee Mon Sep 17 00:00:00 2001
From: linuxpoet <linuxpoet@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 17 Mar 2007 02:03:32 +0000
Subject: Ripped out applicaton lock functionality. If you are upgrading
 schedule an outage. Removed now deprecated users directory in 1.2 as well

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@923 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/admin.pl | 18 +++++-------------
 1 file changed, 5 insertions(+), 13 deletions(-)

diff --git a/bin/admin.pl b/bin/admin.pl
index 25ca3288..e441b00e 100755
--- a/bin/admin.pl
+++ b/bin/admin.pl
@@ -199,23 +199,15 @@ sub form_footer {
 
 sub list_users {
 
-	#currently, this is disabled, but will set a value in the central db
-	#$nologin = qq|<button type="submit" class="submit" name="action" value="lock_system">|.$locale->text('Lock System').qq|</button>|;
-	#
-	#if (-e "${LedgerSMB::Sysconfig::userspath}/nologin") {
-	#	$nologin = qq|<button type="submit" class="submit" name="action" value="unlock_system">|.$locale->text('Unlock System').qq|</button>|;
-	#}
 
 	# use the central database handle
 	my $dbh = ${LedgerSMB::Sysconfig::GLOBALDBH};
 
-	my $fetchMembers = $dbh->selectall_arrayref("SELECT uc.name, uc.company, uc.templates,
-														uc.dbuser, uc.dbdriver, uc.dbname, 
-														uc.dbhost, u.username
-												   FROM users as u, users_conf as uc
-												  WHERE u.id = uc.id	
-													AND u.id > 1
-											   ORDER BY u.username;", { Slice => {} });	
+	my $fetchMembers = $dbh->selectall_arrayref("SELECT uc.name, uc.company, uc.templates, uc.dbuser, uc.dbdriver, uc.dbname, uc.dbhost, u.username 
+							    FROM users as u, users_conf as uc
+							    WHERE u.id = uc.id	
+							    AND u.id > 1
+							    ORDER BY u.username;", { Slice => {} });	
 
 	my @memberArray = ();
 	my @member = ();
-- 
cgit v1.2.3