22 include_once (
"Class.QueryDb.php");
23 include_once (
"Class.SubForm.php");
24 include_once (
"Class.QueryGen.php");
29 $baseurl =
$action->GetParam(
"CORE_BASEURL");
30 $standurl =
$action->GetParam(
"CORE_STANDURL");
32 $action->lay->set(
"usefilter",
false);
33 $action->lay->set(
"maxreach",
false);
37 $query->AddQuery(
"(objectclass != 'Y' ) OR ( objectclass isnull)");
38 $varreg =
"access_appl_id";
39 $paramedit =
"&isclass=no";
41 $query->AddQuery(
"objectclass = 'Y'");
42 $varreg =
"access_class_id";
43 $paramedit =
"&isclass=yes&oid=$oid";
45 $applist =
$query->Query();
48 $action->lay->set(
"ACTION_CHG",
"ACCESS_APPL_CHG$paramedit");
49 $action->lay->set(
"ACTION_MOD",
"APPL_ACCESS_MOD$paramedit");
51 $appl_id =
$action->Read($varreg);
53 if ($appl_id ==
"") $appl_id = 0;
55 $form =
new SubForm(
"edit", 500, 330,
"not used", $standurl .
"app=ACCESS&action=EDIT&mod=app$paramedit");
56 $form->SetParam(
"id",
"-1");
59 $action->parent->AddJsRef(
$action->GetParam(
"CORE_JSURL") .
"/subwindow.js");
60 $action->parent->AddJsCode($form->GetMainJs());
61 $jsscript = $form->GetLinkJsMainCall();
63 $action->lay->set(
"hasuser",
true);
68 if (is_array($applist)) {
70 while (list($k, $v) = each($applist)) {
72 if (($v->objectclass ==
"Y") || (
true)) {
74 $query->basic_elem->sup_where = array(
75 "id_application={$v->id}"
77 $acl_list =
$query->Query(
"",
"",
"TABLE");
78 if (
$query->nb == 0)
continue;
81 $action->Register($varreg, $appl_id);
83 if ($oid != 0) $tab[$i][
"text"] = _($v->short_name);
84 else $tab[$i][
"text"] = $v->name;
85 $tab[$i][
"id"] = $v->id;
86 if ($appl_id == $v->id) {
88 $appl_sel->acl = $acl_list;
89 $tab[$i][
"selected"] =
"selected";
91 $tab[$i][
"selected"] =
"";
97 $action->lay->SetBlockData(
"SELUSER", $tab);
98 $action->parent->AddJsRef(
"change_acl.js");
103 $query->table->fields = array(
113 $query->table->headsortfields = array(
114 "shortname" =>
"login",
118 $query->table->headcontent = array(
119 "shortname" => _(
"userlogin") ,
120 "desc" => _(
"username") ,
121 "permission" => _(
"permissions")
124 $query->AddQuery(
"id != 1");
128 reset(
$query->table->array);
131 while (list($k, $v) = each(
$query->table->array)) {
132 if (!isset($v[
"login"]))
continue;
146 $aclids = $uperm->privileges;
153 while (list($k2, $v2) = each($aclids)) {
154 $tab[$k2][
"aclid"] = $v2;
157 $tab[$k2][
"aclname"] =
$action->text(
"none");
160 $tab[$k2][
"aclname"] = $acl->name;
163 $action->lay->SetBlockData($v[
"id"], $tab);
166 $query->table->array[$k][
"name"] = $v[
"login"];
167 $query->table->array[$k][
"selname"] = $v[
"id"];
168 $query->table->array[$k][
"id"] = $v[
"id"];
169 if (!isset($v[
"firstname"])) $v[
"firstname"] =
"";
170 if (!isset($v[
"lastname"])) $v[
"lastname"] =
"";
171 $query->table->array[$k][
"description"] = $v[
"firstname"] .
" " . $v[
"lastname"];
172 $query->table->array[$k][
"edit"] = str_replace(
"[id]", $v[
"id"], $jsscript);
173 if ($v[
"isgroup"] ==
"Y") {
174 $query->table->array[$k][
"imgaccess"] =
$action->GetIcon(
"access2.gif",
"modify", 20);
176 $query->table->array[$k][
"imgaccess"] =
$action->GetIcon(
"access.gif",
"modify", 18);
182 $action->ExitError(
"no class controlled");