Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-simple-survey
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
project-open
intranet-simple-survey
Commits
c0c1a475
Commit
c0c1a475
authored
Sep 21, 2021
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- Added T = take survsimp option to permissions
parent
7a92d0be
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
22 deletions
+12
-22
index.tcl
www/admin/index.tcl
+12
-22
No files found.
www/admin/index.tcl
View file @
c0c1a475
...
...
@@ -86,6 +86,7 @@ db_foreach group_list $group_list_sql {
lappend group_names
$group
_name
regsub -all
{
\-
}
$group
_id
"_"
gid
append main_sql_select
"
\t
im_object_permission_p(ss.survey_id,
$group
_id, 'read') as p
${gid}
_read_p,
\n
"
append main_sql_select
"
\t
im_object_permission_p(ss.survey_id,
$group
_id, 'survsimp_take_survey') as p
${gid}
_take_p,
\n
"
append table_header
"
<td class=rowtitle><A href=
$group
_url?group_id=
$group
_id>
...
...
@@ -109,27 +110,6 @@ set table "
<table>
$table
_header
\n
"
set
ttt
{
set
survsimp_sql
"
select
${main_sql_select}
som.*,
som.name as som_name,
som.note as som_note,
ss.*,
aot.*,
aot.pretty_name as object_type_pretty_name
from
im_survsimp_object_map som,
survsimp_surveys ss,
acs_object_types aot
where
som.survey_id = ss.survey_id
and som.acs_object_type = aot.object_type
"
}
set
survsimp_sql
"
select
${main_sql_select}
...
...
@@ -172,9 +152,19 @@ db_foreach survsimp_query $survsimp_sql {
}
set read
"<A href=
[
export_vars -base
$toggle
_url
{
horiz_group_id object_id action return_url
}]
>
$letter
</A>
\n
"
set take_p
[
expr
"
\$
p
${horiz_gid}
_take_p"
]
set action
"add_takeable"
set letter
"t"
if
{
$take
_p ==
"t"
}
{
set take
"<A href=
$toggle
_url?object_id=
$survey
_id&action=remove_takeable&
[
export_vars
{
horiz_group_id return_url
}]
><b>T</b></A>
\n
"
set action
"remove_takeable"
set letter
"<b>T</b>"
}
set take
"<A href=
[
export_vars -base
$toggle
_url
{
horiz_group_id object_id action return_url
}]
>
$letter
</A>
\n
"
append table
"
<td align=center>
$read
$read
$take
</td>
"
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment