From c0e83f8de881755f3b5e9b624c1c17ae2d4649ab Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 31 Oct 2006 03:30:39 +0000 Subject: Defaults table revision. Most COA's and System->defaults are known to be broken. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@413 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/admin.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/admin.pl b/bin/admin.pl index 74f3f6cf..4913b9b3 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -880,7 +880,8 @@ sub delete { $form->{templates} = ($form->{templates}) ? "${LedgerSMB::Sysconfig::templates}/$form->{templates}" : "$templates/$form->{login}"; - $form->error($locale->text("[_1] locked!", ${LedgerSMB::Sysconfig::memberfile}) if (-f ${memberfile}.LCK); + $form->error($locale->text("[_1] locked!", + ${LedgerSMB::Sysconfig::memberfile})) if (-f ${memberfile}.LCK); open(FH, ">${memberfile}.LCK") or $form->error("${memberfile}.LCK : $!"); close(FH); -- cgit v1.2.3