Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-core
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-core
Commits
6baf045f
Commit
6baf045f
authored
Jan 10, 2017
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
-- added permissions
removed letter bar
parent
6a184b08
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
13 additions
and
6 deletions
+13
-6
dashboard.adp
www/projects/dashboard.adp
+1
-1
dashboard.tcl
www/projects/dashboard.tcl
+12
-5
No files found.
www/projects/dashboard.adp
View file @
6baf045f
...
...
@@ -2,7 +2,7 @@
<property name="doc(title)">@page_title@</property>
<property name="main_navbar_label">projects</property>
<property name="left_navbar">@left_navbar_html;literal@</property>
<property name="sub_navbar">@
ticket
_navbar_html;literal@</property>
<property name="sub_navbar">@
dashboard
_navbar_html;literal@</property>
<if 0 eq @plugin_id@>
<table cellpadding="0" cellspacing="0" border="0" width="100%">
...
...
www/projects/dashboard.tcl
View file @
6baf045f
...
...
@@ -14,8 +14,7 @@
# See the GNU General Public License for more details.
ad_page_contract
{
Ticket Dashboard
Project Dashboard
@author frank.bergmann@project-open.com
}
{
{
plugin_id:integer 0
}
...
...
@@ -32,16 +31,24 @@ set page_focus "im_header_form.keywords"
set
current_url
[
ns_conn url
]
set
today
[
lindex
[
split
[
ns_localsqltimestamp
]
" "
]
0
]
set
read_p
[
db_string report_perms
"
select im_object_permission_p(m.menu_id, :current_user_id, 'read')
from im_menus m
where m.label = 'projects_dashboard'
"
-default 'f'
]
if
{
"t"
ne
$read
_p
}
{
ad_return_complaint 1
"
[
lang::message::lookup
""
intranet-reporting.You_dont_have_permissions
"You don't have the necessary permissions to view this page"
]
"
return
}
# ---------------------------------------------------------------
# Sub-Navbar
# ---------------------------------------------------------------
set
letter
""
set
menu_select_label
"projects_dashboard"
set
next_page_url
""
set
previous_page_url
""
set
ticket_navbar_html
[
im_project_navbar -navbar_menu_label
"projects"
$letter
"/intranet/projects/index"
$next
_page_url
$previous
_page_url
[
list
start_idx order_by how_many letter ticket_status_id
]
$menu
_select_label
]
set
dashboard_navbar_html
[
im_project_navbar -navbar_menu_label
"projects"
none
"/intranet/projects/index"
$next
_page_url
$previous
_page_url
[
list
start_idx order_by how_many letter ticket_status_id
]
$menu
_select_label
]
set
left_navbar_html
""
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