SF.net SVN: ledger-smb:[3401] trunk/LedgerSMB/DBObject/Admin.pm

[..hidden..]

Revision: 3401
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3401&view=rev
Author:   einhverfr
Date:     2011-07-01 10:08:04 +0000 (Fri, 01 Jul 2011)

Log Message:
-----------
Correcting user creation not saving

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject/Admin.pm

Modified: trunk/LedgerSMB/DBObject/Admin.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Admin.pm	2011-07-01 10:01:54 UTC (rev 3400)
+++ trunk/LedgerSMB/DBObject/Admin.pm	2011-07-01 10:08:04 UTC (rev 3401)
@@ -21,7 +21,6 @@
 sub save_user {
     
     my $self = shift @_;
-    
     $self->{user_id} = $user_id->{admin__save_user};
     
     my $employee = LedgerSMB::DBObject::Employee->new( base=>$self);
@@ -44,7 +43,7 @@
     $self->{employee} = $employee;
 
     if ($self->{password}){
-       return;
+       return $self->{dbh}->commit;
     }
  
     my $loc = LedgerSMB::DBObject::Location->new(base=>$self, copy=>'list', 
@@ -73,6 +72,7 @@
     $workphone->save();
     $homephone->save();
     $email->save();
+    $self->{dbh}->commit;
     
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.