--- source-trees/gt2-cvs/gram/jobmanager/setup/lsf/lsf.in	12 Jun 2007 20:44:09 -0000	1.19.6.6
+++ source-trees/gt2-cvs/gram/jobmanager/setup/lsf/lsf.in	30 Jan 2008 19:46:47 -0000
@@ -443,7 +443,8 @@
         }
         elsif(/EXIT/)
         {
-            return Globus::GRAM::Error::JOB_EXIT_CODE_NON_ZERO();
+            $state = Globus::GRAM::JobState::DONE;
+#            return Globus::GRAM::Error::JOB_EXIT_CODE_NON_ZERO();
         }
         elsif(/UNKWN/)
         {
@@ -468,7 +469,27 @@
         }
     }
 
-    return {JOB_STATE => $state};
+    my @acct_info;
+    if ($state == Globus::GRAM::JobState::DONE ||
+        $state == Globus::GRAM::JobState::FAILED)
+    {
+       if (defined open(BACCT,$bhist." -l ".$job_id." 2>&1 |"))
+       {
+          while(<BACCT>)
+          {
+             chomp(my $line=$_);
+             $line =~ s|\\|\\\\|g;
+             push(@acct_info,$line);
+          }
+          close(BACCT);
+       }
+    }
+
+# NB Accounting information uses literal '\n' to indicate newlines
+
+    return {    JOB_ACCT_INFO => join('\n',@acct_info),
+                JOB_STATE     => $state
+           }; 
 }
 
 sub cancel