summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-22 19:02:31 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-22 19:02:31 +0000
commitf1109715281869813216bfaaf16d9b49128445c5 (patch)
treee15d5a733182fc9028c4d34cf0d0a247f751ef94 /LedgerSMB
parent600aa1a74d8914aac104ce5ad4a47a2a2f88b22f (diff)
Removing delete_dataset
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@982 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/User.pm54
1 files changed, 0 insertions, 54 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm
index 3cf3e0e5..c9d7713c 100755
--- a/LedgerSMB/User.pm
+++ b/LedgerSMB/User.pm
@@ -451,60 +451,6 @@ sub process_query {
}
-
-sub dbdelete {
- my ($self, $form) = @_;
-
- $form->{sid} = $form->{dbdefault};
- &dbconnect_vars($form, $form->{dbdefault});
- my $dbh = DBI->connect(
- $form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd})
- or $form->dberror(__FILE__.':'.__LINE__);
- my $query = qq|DROP DATABASE "$form->{db}"|;
- $dbh->do($query) || $form->dberror(__FILE__.':'.__LINE__.$query);
-
- $dbh->disconnect;
-
-}
-
-
-
-sub dbsources_unused {
- my ($self, $form, $memfile) = @_;
-
- my @dbexcl = ();
- my @dbsources = ();
-
- $form->error(__FILE__.':'.__LINE__.": $memfile locked!") if (-f "${memfile}.LCK");
-
- # open members file
- open(FH, '<', "$memfile") or $form->error(__FILE__.':'.__LINE__.": $memfile : $!");
-
- while (<FH>) {
- if (/^dbname=/) {
- my ($null,$item) = split /=/;
- push @dbexcl, $item;
- }
- }
-
- close FH;
-
- $form->{only_acc_db} = 1;
- my @db = &dbsources("", $form);
-
- push @dbexcl, $form->{dbdefault};
-
- foreach $item (@db) {
- unless (grep /$item$/, @dbexcl) {
- push @dbsources, $item;
- }
- }
-
- return @dbsources;
-
-}
-
-
sub dbneedsupdate {
my ($self, $form) = @_;