SF.net SVN: ledger-smb:[6349] trunk/LedgerSMB/AM.pm

[..hidden..]

Revision: 6349
          http://sourceforge.net/p/ledger-smb/code/6349
Author:   einhverfr
Date:     2014-01-02 14:58:44 +0000 (Thu, 02 Jan 2014)
Log Message:
-----------
Removing no longer used user preferences code

Modified Paths:
--------------
    trunk/LedgerSMB/AM.pm

Modified: trunk/LedgerSMB/AM.pm
===================================================================
--- trunk/LedgerSMB/AM.pm	2014-01-02 14:56:17 UTC (rev 6348)
+++ trunk/LedgerSMB/AM.pm	2014-01-02 14:58:44 UTC (rev 6349)
@@ -1133,75 +1133,6 @@
 
 }
 
-=item AM->save_preferences($myconfig, $form);
-
-Saves the preferences for the current user.  New values are taken from the $form
-attributes name, email, dateformat, signature, numberformat, vclimit, tel, fax,
-company, menuwidth, countrycode, address, timeout, stylesheet, printer,
-password, new_password, and old_password.  Password updates occur when
-new_password and old_password differ.
-
-=cut
-
-sub save_preferences {
-
-    my ( $self, $myconfig, $form ) = @_;
-
-    # connect to database
-    my $dbh = $form->{dbh};
-
-    # get username, is same as requested?
-    my @queryargs;
-    my $query = qq|
-		SELECT login
-		  FROM employee 
-		 WHERE login = ?|;
-    @queryargs = ( $form->{login} );
-    my $sth = $dbh->prepare($query);
-    $sth->execute(@queryargs) || $form->dberror($query);
-    my ($dbusername) = $sth->fetchrow_array;
-    $sth->finish;
-
-    return 0 if ( $dbusername ne $form->{login} );
-
-    # update name
-    $query = qq|
-		UPDATE employee 
-		   SET name = ?
-		 WHERE login = ?|;
-
-    @queryargs = ( $form->{name}, $form->{login} );
-    $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query);
-
-    # get default currency
-    $query = qq|
-		SELECT value, (SELECT value FROM defaults
-		                WHERE setting_key = 'businessnumber')
-		  FROM defaults
-		 WHERE setting_key = 'curr'|;
-
-    ( $form->{currency}, $form->{businessnumber} ) =
-      $dbh->selectrow_array($query);
-    $form->{currency} =~ s/:.*//;
-
-    $dbh->commit;
-
-    $myconfig = LedgerSMB::User->new( $form->{login} );
-
-    map { $myconfig->{$_} = $form->{$_} if exists $form->{$_} }
-      qw(name email dateformat signature numberformat vclimit tel fax
-      company menuwidth countrycode address timeout stylesheet
-      printer password);
-
-    $myconfig->{password} = $form->{new_password}
-      if ( $form->{old_password} ne $form->{new_password} );
-
-    $myconfig->save_member();
-
-    1;
-
-}
-
 =item AM->taxes($myconfig, $form);
 
 Retrieve details about all taxes in the database.  $form->{taxrates} refers to a

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


------------------------------------------------------------------------------
Rapidly troubleshoot problems before they affect your business. Most IT 
organizations don't have a clear picture of how application performance 
affects their revenue. With AppDynamics, you get 100% visibility into your 
Java,.NET, & PHP application. Start your 15-day FREE TRIAL of AppDynamics Pro!
http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits