Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-timesheet2
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
1
Merge Requests
1
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-timesheet2
Commits
98819d11
Commit
98819d11
authored
Sep 10, 2012
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- Fixed SF issue #3566363
in b3-5-0-patches branch
parent
51b784e3
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
35 additions
and
0 deletions
+35
-0
projects.tcl
www/hours/projects.tcl
+18
-0
total.tcl
www/hours/total.tcl
+17
-0
No files found.
www/hours/projects.tcl
View file @
98819d11
...
@@ -27,6 +27,24 @@ ad_page_contract {
...
@@ -27,6 +27,24 @@ ad_page_contract {
{
user_id:integer
""
}
{
user_id:integer
""
}
}
}
# ---------------------------------------------------------------
# Security & Defaults
# ---------------------------------------------------------------
set
current_user_id
[
ad_maybe_redirect_for_registration
]
if
{
!
[
im_permission
$current
_user_id
"view_hours_all"
]}
{
ad_return_complaint 1
[
lang::message::lookup
""
intranet-timesheet2.Not_Allowed_to_see_hours
"
You are not allowed to see all timesheet hours in the system"
]
ad_script_abort
}
# ---------------------------------------------------------------
#
# ---------------------------------------------------------------
if
{
[
empty_string_p
$user
_id
]
}
{
if
{
[
empty_string_p
$user
_id
]
}
{
# send them a list of users
# send them a list of users
set page_title
"
[
_ intranet-timesheet2.View_employees_hours
]
"
set page_title
"
[
_ intranet-timesheet2.View_employees_hours
]
"
...
...
www/hours/total.tcl
View file @
98819d11
...
@@ -23,6 +23,23 @@ ad_page_contract {
...
@@ -23,6 +23,23 @@ ad_page_contract {
}
}
# ---------------------------------------------------------------
# Security & Defaults
# ---------------------------------------------------------------
set
current_user_id
[
ad_maybe_redirect_for_registration
]
if
{
!
[
im_permission
$current
_user_id
"view_hours_all"
]}
{
ad_return_complaint 1
[
lang::message::lookup
""
intranet-timesheet2.Not_Allowed_to_see_hours
"
You are not allowed to see all timesheet hours in the system"
]
ad_script_abort
}
# ---------------------------------------------------------------
#
# ---------------------------------------------------------------
set
page_title
"
[
_ intranet-timesheet2.lt_Units_on_all_projects
]
"
set
page_title
"
[
_ intranet-timesheet2.lt_Units_on_all_projects
]
"
set
context_bar
[
im_context_bar
"
[
_ intranet-timesheet2.lt_Units_on_all_projects
]
"
]
set
context_bar
[
im_context_bar
"
[
_ intranet-timesheet2.lt_Units_on_all_projects
]
"
]
...
...
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