SF.net SVN: ledger-smb:[4072] branches/1.3/scripts/setup.pl

[..hidden..]

Revision: 4072
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4072&view=rev
Author:   einhverfr
Date:     2011-11-25 10:36:58 +0000 (Fri, 25 Nov 2011)
Log Message:
-----------
Fixing new parse errors with setup.pl

Modified Paths:
--------------
    branches/1.3/scripts/setup.pl

Modified: branches/1.3/scripts/setup.pl
===================================================================
--- branches/1.3/scripts/setup.pl	2011-11-25 10:29:20 UTC (rev 4071)
+++ branches/1.3/scripts/setup.pl	2011-11-25 10:36:58 UTC (rev 4072)
@@ -171,6 +171,7 @@
 sub run_backup {
     use LedgerSMB::Company_Config;
 
+    my $creds = LedgerSMB::Auth::get_credentials();
     my $request = shift @_;
     my $database = LedgerSMB::Database->new(
                {username => $creds->{username},
@@ -215,7 +216,7 @@
           -attachment => $backupfile,
         );
     } else {
-        $request->error($request->{_locale}->text("Don't know what to do with backup");
+        $request->error($request->{_locale}->text("Don't know what to do with backup"));
     }
     my $template = LedgerSMB::Template->new(
             path => 'UI/setup',

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