[Bacula-commits] SF.net SVN: bacula: [6167] trunk/gui/bweb

[<ri...@us...>]

Revision: 6167
          http://bacula.svn.sourceforge.net/bacula/?rev=6167&view=rev
Author:   ricozz
Date:     2007-12-31 01:57:04 -0800 (Mon, 31 Dec 2007)

Log Message:
-----------
ebl  Add new role to view group members

Modified Paths:
--------------
    trunk/gui/bweb/lib/Bweb.pm
    trunk/gui/bweb/po/fr.po
    trunk/gui/bweb/script/bweb-mysql.sql
    trunk/gui/bweb/script/bweb-postgresql.sql
    trunk/gui/bweb/technotes-2.3

Modified: trunk/gui/bweb/lib/Bweb.pm
===================================================================
--- trunk/gui/bweb/lib/Bweb.pm	2007-12-31 09:40:07 UTC (rev 6166)
+++ trunk/gui/bweb/lib/Bweb.pm	2007-12-31 09:57:04 UTC (rev 6167)
@@ -2791,11 +2791,10 @@
 sub groups_edit
 {
     my ($self) = @_;
-    $self->can_do('r_group_mgnt');
-
     my $grp = $self->get_form(qw/qclient_group db_clients/);
 
     unless ($grp->{qclient_group}) {
+	$self->can_do('r_group_mgnt');
 	$self->display({ ID => $cur_id++,
 			 client_group => "''",
 			 %$grp,
@@ -2803,6 +2802,8 @@
 	return;
     }
 
+    $self->cant_do('r_group_mgnt') or $self->can_do('r_view_group');
+
     my $query = "
 SELECT Name AS name 
   FROM Client JOIN client_group_member using (clientid)

Modified: trunk/gui/bweb/po/fr.po
===================================================================
--- trunk/gui/bweb/po/fr.po	2007-12-31 09:40:07 UTC (rev 6166)
+++ trunk/gui/bweb/po/fr.po	2007-12-31 09:57:04 UTC (rev 6167)
@@ -1,7 +1,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: PACKAGE VERSION\n"
-"PO-Revision-Date: 2007-12-27 21:13+0100\n"
+"PO-Revision-Date: 2007-12-31 10:45+0100\n"
 "Last-Translator: Eric <er...@eb...>\n"
 "Language-Team: French\n"
 "MIME-Version: 1.0\n"
@@ -1736,7 +1736,7 @@
 
 #: ../tpl/update_media.tpl:42
 msgid "InChanger Flag:"
-msgstr "En ligne :"
+msgstr "InChanger :"
 
 #: ../tpl/update_media.tpl:67
 msgid "Retention period:"

Modified: trunk/gui/bweb/script/bweb-mysql.sql
===================================================================
--- trunk/gui/bweb/script/bweb-mysql.sql	2007-12-31 09:40:07 UTC (rev 6166)
+++ trunk/gui/bweb/script/bweb-mysql.sql	2007-12-31 09:57:04 UTC (rev 6167)
@@ -74,6 +74,7 @@
 INSERT INTO bweb_role (rolename) VALUES ('r_view_log');
 INSERT INTO bweb_role (rolename) VALUES ('r_view_stat');
 INSERT INTO bweb_role (rolename) VALUES ('r_view_media');
+INSERT INTO bweb_role (rolename) VALUES ('r_view_group');
 INSERT INTO bweb_role (rolename) VALUES ('r_view_running_job');
 
 INSERT INTO bweb_role (rolename) VALUES ('r_run_job');

Modified: trunk/gui/bweb/script/bweb-postgresql.sql
===================================================================
--- trunk/gui/bweb/script/bweb-postgresql.sql	2007-12-31 09:40:07 UTC (rev 6166)
+++ trunk/gui/bweb/script/bweb-postgresql.sql	2007-12-31 09:57:04 UTC (rev 6167)
@@ -97,6 +97,7 @@
 INSERT INTO bweb_role (rolename) VALUES ('r_view_log');
 INSERT INTO bweb_role (rolename) VALUES ('r_view_media');
 INSERT INTO bweb_role (rolename) VALUES ('r_view_stat');
+INSERT INTO bweb_role (rolename) VALUES ('r_view_group');
 INSERT INTO bweb_role (rolename) VALUES ('r_view_running_job');
 
 INSERT INTO bweb_role (rolename) VALUES ('r_run_job');

Modified: trunk/gui/bweb/technotes-2.3
===================================================================
--- trunk/gui/bweb/technotes-2.3	2007-12-31 09:40:07 UTC (rev 6166)
+++ trunk/gui/bweb/technotes-2.3	2007-12-31 09:57:04 UTC (rev 6167)
@@ -1,3 +1,6 @@
+31Dec07
+ebl  Add new r_view_group role to view group content
+
 27Dec07
 ebl  Fix a bug in user edition.
 ebl  Add Jobs -> Missing Job feature. Now, you can


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