SF.net SVN: ledger-smb:[4836] trunk

[..hidden..]

Revision: 4836
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4836&view=rev
Author:   einhverfr
Date:     2012-06-05 03:18:24 +0000 (Tue, 05 Jun 2012)
Log Message:
-----------
Database creation routines now work entirely

Modified Paths:
--------------
    trunk/Changelog
    trunk/LedgerSMB/Scripts/setup.pm

Modified: trunk/Changelog
===================================================================
--- trunk/Changelog	2012-06-04 14:51:03 UTC (rev 4835)
+++ trunk/Changelog	2012-06-05 03:18:24 UTC (rev 4836)
@@ -17,6 +17,10 @@
 * invoice.unit is now unbounded numeric to reduce errors (Chris T, 3516235)
 * Invoices with inventory subject to draft/vouchers workflows (Chris T)
 
+New RESTful Web Services Framework
+* Supports XML and JSON as input formats
+* Supports XML and JSON as output formats
+
 New Reporting Framework
 * Easy bridge between SQL and display (Chris T)
 * All reports exportable to CSV (Chris T)

Modified: trunk/LedgerSMB/Scripts/setup.pm
===================================================================
--- trunk/LedgerSMB/Scripts/setup.pm	2012-06-04 14:51:03 UTC (rev 4835)
+++ trunk/LedgerSMB/Scripts/setup.pm	2012-06-05 03:18:24 UTC (rev 4836)
@@ -21,6 +21,7 @@
 
 use LedgerSMB::Auth;
 use LedgerSMB::Database;
+use LedgerSMB::App_State;
 use strict;
 
 my $logger = Log::Log4perl->get_logger('LedgerSMB::Scripts::setup');
@@ -49,7 +50,6 @@
     use LedgerSMB::Locale;
     my ($request) = @_;
     $logger->trace("\$request=$request \$request->{dbh}=$request->{dbh} request=".Data::Dumper::Dumper(\$request));
-    #$request->{_locale}->new('en'); why not continue to use already set $request->{_locale}
     my $creds = LedgerSMB::Auth::get_credentials();
     if (!$request->{database}){
         $request->error($request->{_locale}->text('No database specified'));
@@ -753,6 +753,7 @@
                                    $creds->{login},
                                    $creds->{password});
     $request->{dbh}->{AutoCommit} = 0;
+    $LedgerSMB::App_State::DBH = $request->{dbh};
     my $user = LedgerSMB::DBObject::Admin->new({base => $request});
     if (8 == $user->save_user){ # Told not to import but user exists in db
         $request->{notice} = $request->{_locale}->text(

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