From d7c7dffe84c6e2723ce81c5c0d3c89edb33ad87a Mon Sep 17 00:00:00 2001 From: linuxpoet Date: Wed, 13 Sep 2006 05:09:14 +0000 Subject: removed dataset update from admin.pl git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@78 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/mozilla/admin.pl | 75 ---------------------------------------------------- 1 file changed, 75 deletions(-) (limited to 'bin/mozilla') diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index c71b1377..e8d9a60b 100755 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -1153,81 +1153,6 @@ sub continue { } -sub update_dataset { - - %needsupdate = User->dbneedsupdate(\%$form); - - $form->{title} = "LedgerSMB ".$locale->text('Accounting')." " - .$locale->text('Database Administration')." / " - .$locale->text('Update Dataset'); - $form->{login} = "root login"; - $form->header; - - print qq| - - -

$form->{title}

- |; - - foreach $key (sort keys %needsupdate) { - - if ($needsupdate{$key} ne $form->{dbversion}) { - $upd .= qq| $key\n|; - $form->{dbupdate} .= "db$key "; - } - } - - chop $form->{dbupdate}; - - if ($form->{dbupdate}) { - - print qq| -

- - - - - - - - - - - - - - - - - - - - - - -

\|.$locale->text('The following Datasets need to be updated').qq\|
- $upd -
- - - -

- |; - - } else { - - print $locale->text('DBA')." : $form->{dbuser} : " .$locale->text('All Datasets up to date!'); - } - - print qq| - - - |; - -} - - sub dbupdate { User->dbupdate(\%$form); -- cgit v1.2.3