summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoraurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-20 20:06:53 +0000
committeraurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-20 20:06:53 +0000
commit5f24c101474901bf5607fcad189d287b43c5d799 (patch)
tree001cc0f7b8d04799ed8198bc455f56a623fe45a0 /LedgerSMB
parenta26ee3caf4e289a749069444faa989b7bbe7bde8 (diff)
Removal of extra new_user function from admin.pl.
Updates to DBObject.pm to remove treatment of argument list as a hashref. Update to LedgerSMB.pm to add s bare sub DESTROY so as not to trigger weird behaviour from using AUTOLOAD. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1636 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/DBObject.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/LedgerSMB/DBObject.pm b/LedgerSMB/DBObject.pm
index 097b85dc..42f15736 100644
--- a/LedgerSMB/DBObject.pm
+++ b/LedgerSMB/DBObject.pm
@@ -60,13 +60,13 @@ sub AUTOLOAD {
sub new {
my $class = shift @_;
- my $args = shift @_;
- my $base = $args->{base};
- my $mode = $args->{copy};
+ my %args = @_;
+ my $base = $args{base};
+ my $mode = $args{copy};
my $self = bless {}, $class;
my @mergelist;
- if (defined $args->{merge}){
- @mergelist = @{$args->{merge}};
+ if ( defined $args{merge} ){
+ @mergelist = @{ $args{merge} };
} elsif (defined $mode && ( $mode eq 'list')) {
$self->error('Mergelist not set');
}
@@ -289,6 +289,7 @@ sub set {
$self->{$arg} = $args{$arg};
}
return 1;
+
}
1;