From f1109715281869813216bfaaf16d9b49128445c5 Mon Sep 17 00:00:00 2001 From: tetragon Date: Thu, 22 Mar 2007 19:02:31 +0000 Subject: Removing delete_dataset git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@982 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/admin.pl | 90 ------------------------------------------------------------ 1 file changed, 90 deletions(-) (limited to 'bin/admin.pl') diff --git a/bin/admin.pl b/bin/admin.pl index 8c464cd1..c035ff9f 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -1046,7 +1046,6 @@ sub dbselect_source {
-

|.$locale->text('This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!') .qq|

@@ -1190,95 +1189,6 @@ sub dbcreate { } -sub delete_dataset { - - if (@dbsources = LedgerSMB::User->dbsources_unused(\%$form)) { - - foreach $item (sort @dbsources) { - $dbsources .= qq| $item |; - } - - } else { - $form->error(__FILE__.':'.__LINE__.': '.$locale->text('Nothing to delete!')); - } - - $form->{title} = "LedgerSMB ".$locale->text('Accounting') - ." ".$locale->text('Database Administration') - ." / ".$locale->text('Delete Dataset'); - - $form->{login} = "admin"; - $form->header; - - print qq| - -

$form->{title}

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

\|.$locale->text('The following Datasets are not in use and can be deleted').qq\|
- $dbsources -
- - - -

- - - |; - -} - - -sub dbdelete { - - if (!$form->{db}) { - $form->error(__FILE__.':'.__LINE__.': '.$locale->text('No Dataset selected!')); - } - - LedgerSMB::User->dbdelete(\%$form); - - $form->{title} = "LedgerSMB ".$locale->text('Accounting') - ." ".$locale->text('Database Administration') - ." / ".$locale->text('Delete Dataset'); - - $form->{login} = "admin"; - $form->header; - - print qq| - - -

$form->{title}

- $form->{db} |.$locale->text('successfully deleted!') - .qq| - - - - |; -} - - sub unlock_system { # This needs to be done with a db tool -- cgit v1.2.3