From: Eric Bollengier Date: Thu, 24 Aug 2006 20:29:42 +0000 (+0000) Subject: ebl Add LocationLog view X-Git-Tag: Release-2.0.0~552 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=ec630a900f5f42de9292d6cfc855ef4500b8dbd3;p=bacula%2Fbacula ebl Add LocationLog view git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3364 91ce42f0-d328-0410-95d8-f526ca767f89 --- diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm index 90ab2f9a65..8fabed1b80 100644 --- a/gui/bweb/lib/Bweb.pm +++ b/gui/bweb/lib/Bweb.pm @@ -2104,7 +2104,23 @@ SELECT DISTINCT Job.JobId AS jobid, $_->{bytes} = human_size($_->{bytes}) ; } + $query = " +SELECT LocationLog.Date AS date, + Location.Location AS location, + LocationLog.Comment AS comment + FROM Media,LocationLog INNER JOIN Location ON (LocationLog.LocationId = Location.LocationId) + WHERE Media.MediaId = LocationLog.MediaId + AND Media.VolumeName = $mq +"; + + my $logtxt = ''; + my $log = $self->dbh_selectall_arrayref($query) ; + if ($log) { + $logtxt = join("\n", map { ($_->[0] . ' ' . $_->[1] . ' ' . $_->[2])} @$log ) ; + } + $self->display({ jobs => [ values %$jobs ], + LocationLog => $logtxt, %$media }, "display_media_zoom.tpl"); } @@ -2977,7 +2993,7 @@ sub run_job_select my ($self) = @_; $b = new Bconsole(pref => $self->{info}); - my $joblist = [ map { { name => $_ } } split(/\r\n/, $b->send_cmd(".job")) ]; + my $joblist = [ map { { name => $_ } } $b->list_job() ]; $self->display({ Jobs => $joblist }, "run_job.tpl"); } @@ -3017,12 +3033,12 @@ sub run_job_mod my $info = $b->send_cmd("show job=\"$job\""); my $attr = $self->run_parse_job($info); - my $jobs = [ map {{ name => $_ }} split(/\r\n/, $b->send_cmd(".job")) ]; + my $jobs = [ map {{ name => $_ }} $b->list_job() ]; - my $pools = [ map { { name => $_ } } split(/\r\n/, $b->send_cmd(".pool")) ]; - my $clients = [ map { { name => $_ } } split(/\r\n/, $b->send_cmd(".client")) ]; - my $filesets= [ map { { name => $_ } } split(/\r\n/, $b->send_cmd(".fileset")) ]; - my $storages= [ map { { name => $_ } } split(/\r\n/, $b->send_cmd(".storage")) ]; + my $pools = [ map { { name => $_ } } $b->list_pool() ]; + my $clients = [ map { { name => $_ } }$b->list_client()]; + my $filesets= [ map { { name => $_ } }$b->list_fileset() ]; + my $storages= [ map { { name => $_ } }$b->list_storage()]; $self->display({ jobs => $jobs, @@ -3039,7 +3055,7 @@ sub run_job my ($self) = @_; $b = new Bconsole(pref => $self->{info}); - my $jobs = [ map {{ name => $_ }} split(/\r\n/, $b->send_cmd(".job")) ]; + my $jobs = [ map {{ name => $_ }} $b->list_job() ]; $self->display({ jobs => $jobs, diff --git a/gui/bweb/tpl/display_media_zoom.tpl b/gui/bweb/tpl/display_media_zoom.tpl index 765954fa43..83b9e6496b 100644 --- a/gui/bweb/tpl/display_media_zoom.tpl +++ b/gui/bweb/tpl/display_media_zoom.tpl @@ -1,4 +1,5 @@ -
+ + + +

Media :

@@ -19,12 +20,24 @@     - +   + + + - - - +