--- source-trees/gt2-cvs/gram/jobmanager/setup/lsf/lsf.in	Wed Jun 18 20:25:16 2003
+++ source-trees/gt2-cvs/gram/jobmanager/setup/lsf/lsf.in	Sun Jan  4 03:59:25 2004
@@ -417,7 +356,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/)
         {
@@ -442,7 +382,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