Optimize a bit the running job view

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@9049 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index 30f184131014aa2bdd4b3860fcafe2653cb537b9..6c31a8ba60c43f064cce80132ba4399350d6ded5 100644 (file)
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -4021,13 +4021,14 @@ sub display_running_job
 
     my $query = "
 SELECT Client.Name AS name, Job.Name AS jobname, 
-       Job.Level AS level, Type AS type
+       Job.Level AS level, Type AS type, JobStatus AS jobstatus
 FROM Job INNER JOIN Client USING (ClientId) $filter
 WHERE Job.JobId = $arg->{jobid}
 ";
 
     my $row = $self->dbh_selectrow_hashref($query);
-    
+    my $status = $row->{jobstatus};
+
     if ($row) {
         $arg->{client} = $row->{name};
     } else {
@@ -4052,8 +4053,10 @@ SELECT  corr_jobbytes, jobbytes, corr_jobfiles, jobfiles
             $row->{jobbytes} = $row->{jobfiles} = 0;
         }
     }
-    my $cli = new Bweb::Client(name => $arg->{client});
-    $cli->display_running_job($self, $arg->{jobid}, $row);
+    if ($status =~ /[RBSmMsjlL]/) {
+        my $cli = new Bweb::Client(name => $arg->{client});
+        $cli->display_running_job($self, $arg->{jobid}, $row);
+    }
     if ($arg->{jobid}) {
         $self->get_job_log();
     }

diff --git a/gui/bweb/technotes-3.0 b/gui/bweb/technotes-3.0
index fa9fa94f220a7d63313460211145948f1af58aeb..339870c129bd0e6706f9a0ac1ab8987be62e27bb 100644 (file)
--- a/gui/bweb/technotes-3.0
+++ b/gui/bweb/technotes-3.0
@@ -1,4 +1,5 @@
 17Jul09
+ebl  Optimize a bit the running job view
 ebl  Fix bresto relocation box
 06Jul09
 ebl  Display command output by default