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

[..hidden..]

Revision: 3675
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3675&view=rev
Author:   einhverfr
Date:     2011-08-20 02:16:40 +0000 (Sat, 20 Aug 2011)

Log Message:
-----------
Correcting freelock's bug regarding saving orders

Modified Paths:
--------------
    trunk/LedgerSMB/File.pm
    trunk/LedgerSMB/IS.pm
    trunk/LedgerSMB/OE.pm
    trunk/LedgerSMB.pm

Modified: trunk/LedgerSMB/File.pm
===================================================================
--- trunk/LedgerSMB/File.pm	2011-08-19 21:23:18 UTC (rev 3674)
+++ trunk/LedgerSMB/File.pm	2011-08-20 02:16:40 UTC (rev 3675)
@@ -172,6 +172,7 @@
     my $dbobject;
     my $rc = 0; # Success
     if (ref $args->{base} eq 'Form'){
+         $ENV{LSMB_NOHEAD} = 1;
          use LedgerSMB::Locale;
          my $lsmb = LedgerSMB->new();
          $lsmb->merge($args->{base});

Modified: trunk/LedgerSMB/IS.pm
===================================================================
--- trunk/LedgerSMB/IS.pm	2011-08-19 21:23:18 UTC (rev 3674)
+++ trunk/LedgerSMB/IS.pm	2011-08-20 02:16:40 UTC (rev 3675)
@@ -89,10 +89,10 @@
      return if !$form->{id};
      my $file = LedgerSMB::File->new();
      $file->new_dbobject({base => $form, locale => $locale});
-     @{$form->{files}} = $file->list({ref_key => $form->{id}, file_class => 1});
-     @{$form->{file_links}} = $file->list_links(
-                  {ref_key => $form->{id}, file_class => 1}
-     );
+     ..hidden..>{files}} = $file->list({ref_key => $form->{id}, file_class => 1});
+     ..hidden..>{file_links}} = $file->list_links(
+     #             {ref_key => $form->{id}, file_class => 1}
+     #);
 
 }
 

Modified: trunk/LedgerSMB/OE.pm
===================================================================
--- trunk/LedgerSMB/OE.pm	2011-08-19 21:23:18 UTC (rev 3674)
+++ trunk/LedgerSMB/OE.pm	2011-08-20 02:16:40 UTC (rev 3675)
@@ -625,7 +625,7 @@
             $form->{shipvia},       $form->{notes},
             $form->{intnotes},      $form->{currency},
             $form->{closed},        $quotation,
-            $form->{department_id}, $form->{employee_id},
+            $form->{department_id}, $form->{person_id},
             $form->{language_code}, $form->{ponumber},
             $form->{terms},         $form->{id}
         );

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2011-08-19 21:23:18 UTC (rev 3674)
+++ trunk/LedgerSMB.pm	2011-08-20 02:16:40 UTC (rev 3675)
@@ -327,7 +327,7 @@
     LedgerSMB::Company_Config::initialize($self);
 
 
-    if ($self->is_run_mode('cgi', 'mod_perl')) {
+    if ($self->is_run_mode('cgi', 'mod_perl') and !$ENV{LSMB_NOHEAD}) {
        #check for valid session unless this is an inital authentication
        #request -- CT
        if (!LedgerSMB::Auth::session_check( $cookie{${LedgerSMB::Sysconfig::cookie_name}}, $self) ) {


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