Skip to content

I
intranet-sla-management
Commit acb2356e authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Gustaf changes

parent 95a1568f
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 1334 additions and 1334 deletions
tcl/intranet-sla-management-procs.tcl
View file @ acb2356e
This diff is collapsed.
www/new.adp
View file @ acb2356e
<if @enable_master_p@><master></if> <if @enable_master_p@><master></if>
<property name="title">@page_title@</property> <property name="doc(title)">@page_title;literal@</property>
<property name="context">@context;noquote@</property> <property name="context">@context;literal@</property>
<property name="main_navbar_label">helpdesk</property> <property name="main_navbar_label">helpdesk</property>
<property name="focus">@focus;noquote@</property> <property name="focus">@focus;literal@</property>
<property name="sub_navbar">@sub_navbar;noquote@</property> <property name="sub_navbar">@sub_navbar;literal@</property>
<property name="left_navbar">@left_navbar_html;noquote@</property> <property name="left_navbar">@left_navbar_html;literal@</property>
<SCRIPT Language=JavaScript src=/resources/diagram/diagram/diagram.js></SCRIPT> <SCRIPT Language=JavaScript src=/resources/diagram/diagram/diagram.js></SCRIPT>
......
www/new.tcl
View file @ acb2356e
...@@ -25,7 +25,7 @@ ad_page_contract { ...@@ -25,7 +25,7 @@ ad_page_contract {
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
set page_title [lang::message::lookup "" intranet-sla-management.SLA_Parameter "SLA Parameter"] set page_title [lang::message::lookup "" intranet-sla-management.SLA_Parameter "SLA Parameter"]
if {[info exists param_id]} { set page_title [lang::message::lookup "" intranet-sla-management.SLA_parameter SLA_parameter] } if {[info exists param_id]} { set page_title [lang::message::lookup "" intranet-sla-management.SLA_parameter SLA_parameter] }
set context_bar [im_context_bar $page_title] set context_bar [im_context_bar $page_title]
......
www/related-objects-associate-2.adp
View file @ acb2356e
<master> <master>
<property name="title">@page_title@</property> <property name="doc(title)">@page_title;literal@</property>
<property name="context">#intranet-core.context#</property> <property name="context">#intranet-core.context#</property>
<property name="main_navbar_label">helpdesk</property> <property name="main_navbar_label">helpdesk</property>
...@@ -29,7 +29,7 @@ ...@@ -29,7 +29,7 @@
<tr> <tr>
<td></td> <td></td>
<td><input type=submit name=submit value="Add User to Tickets"></td> <td><input type="submit" name="submit" value="Add User to Tickets"></td>
<td></td> <td></td>
</tr> </tr>
</table> </table>
...@@ -55,7 +55,7 @@ ...@@ -55,7 +55,7 @@
<tr> <tr>
<td></td> <td></td>
<td><input type=submit name=submit value="Add User to Tickets"></td> <td><input type="submit" name="submit" value="Add User to Tickets"></td>
<td></td> <td></td>
</tr> </tr>
</table> </table>
......
www/related-objects-associate-2.tcl
View file @ acb2356e
...@@ -22,7 +22,7 @@ ad_page_contract { ...@@ -22,7 +22,7 @@ ad_page_contract {
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
set page_title [lang::message::lookup "" intranet-sla-management.Associate_Ticket_With_$target_object_type "Associate Ticket With $target_object_type"] set page_title [lang::message::lookup "" intranet-sla-management.Associate_Ticket_With_$target_object_type "Associate Ticket With $target_object_type"]
set context_bar [im_context_bar $page_title] set context_bar [im_context_bar $page_title]
set page_focus "im_header_form.keywords" set page_focus "im_header_form.keywords"
......
www/related-objects-associate.adp
View file @ acb2356e
<master> <master>
<property name="title">@page_title@</property> <property name="doc(title)">@page_title;literal@</property>
<property name="context">#intranet-core.context#</property> <property name="context">#intranet-core.context#</property>
<property name="main_navbar_label">helpdesk</property> <property name="main_navbar_label">helpdesk</property>
...@@ -14,13 +14,13 @@ ...@@ -14,13 +14,13 @@
<%= [export_vars -form {tid return_url}] %> <%= [export_vars -form {tid return_url}] %>
<table> <table>
<tr> <tr>
<th colspan=2><%= [lang::message::lookup "" intranet-sla-management.Associate_With "Associate With"] %></th> <th colspan="2"><%= [lang::message::lookup "" intranet-sla-management.Associate_With "Associate With"] %></th>
<th> <%= [lang::message::lookup "" intranet-sla-management.Object Object] %></th> <th> <%= [lang::message::lookup "" intranet-sla-management.Object Object] %></th>
<th> <%= [lang::message::lookup "" intranet-sla-management.Comment Comment] %></th> <th> <%= [lang::message::lookup "" intranet-sla-management.Comment Comment] %></th>
</tr> </tr>
<tr> <tr>
<td> <input type=radio name=target_object_type value=indicator checked></td> <td> <input type="radio" name="target_object_type" value="indicator" checked></td>
<td> <%= [lang::message::lookup "" intranet-sla-management.Object_Type_Indicator "Indicator"] %></td> <td> <%= [lang::message::lookup "" intranet-sla-management.Object_Type_Indicator "Indicator"] %></td>
<td> <%= [im_report_select -report_type_id [im_report_type_indicator] -indicator_object_type "im_sla_parameter" indicator_id] %><br> <td> <%= [im_report_select -report_type_id [im_report_type_indicator] -indicator_object_type "im_sla_parameter" indicator_id] %><br>
</td> </td>
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
<tr> <tr>
<td>&nbsp;</td> <td>&nbsp;</td>
<td><input type=submit name=submit value="<%= [lang::message::lookup "" intranet-sla-management.Associate_Assoc_Action Associate] %>"></td> <td><input type="submit" name="submit" value="<%= [lang::message::lookup "" intranet-sla-management.Associate_Assoc_Action Associate] %>"></td>
<td>&nbsp;</td> <td>&nbsp;</td>
</tr> </tr>
......
www/related-objects-associate.tcl
View file @ acb2356e
...@@ -19,7 +19,7 @@ ad_page_contract { ...@@ -19,7 +19,7 @@ ad_page_contract {
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
set page_title [lang::message::lookup "" intranet-helpdesk.Associate_Param_With_Other_Object "Associate SLA Parameter With Another Object"] set page_title [lang::message::lookup "" intranet-helpdesk.Associate_Param_With_Other_Object "Associate SLA Parameter With Another Object"]
set context_bar [im_context_bar $page_title] set context_bar [im_context_bar $page_title]
set page_focus "im_header_form.keywords" set page_focus "im_header_form.keywords"
......
www/report-resolution-time-per-support-group.tcl
View file @ acb2356e
...@@ -35,7 +35,7 @@ ad_page_contract { ...@@ -35,7 +35,7 @@ ad_page_contract {
set menu_label "reporting-sla-resolution-time-per-support-group" set menu_label "reporting-sla-resolution-time-per-support-group"
# Get the current user and make sure that he or she is logged in. # Get the current user and make sure that he or she is logged in.
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
# Determine whether the current_user has read permissions. # Determine whether the current_user has read permissions.
set read_p [db_string report_perms " set read_p [db_string report_perms "
...@@ -45,7 +45,7 @@ set read_p [db_string report_perms " ...@@ -45,7 +45,7 @@ set read_p [db_string report_perms "
" -default 'f'] " -default 'f']
# Write out an error message if the current user doesn't have read permissions # Write out an error message if the current user doesn't have read permissions
if {![string equal "t" $read_p]} { if {"t" ne $read_p } {
set message "You don't have the necessary permissions to view this page" set message "You don't have the necessary permissions to view this page"
ad_return_complaint 1 "<li>$message" ad_return_complaint 1 "<li>$message"
ad_script_abort ad_script_abort
...@@ -557,7 +557,7 @@ db_foreach sql $report_sql { ...@@ -557,7 +557,7 @@ db_foreach sql $report_sql {
# a "hash", depending on the value of "counter". # a "hash", depending on the value of "counter".
# You need explicite evaluation ("expre") in TCL # You need explicite evaluation ("expre") in TCL
# to calculate arithmetic expressions. # to calculate arithmetic expressions.
set class $rowclass([expr $counter % 2]) set class $rowclass([expr {$counter % 2}])
# Restrict the length of the project_name to max. # Restrict the length of the project_name to max.
# 40 characters. (New!) # 40 characters. (New!)
...@@ -575,11 +575,11 @@ db_foreach sql $report_sql { ...@@ -575,11 +575,11 @@ db_foreach sql $report_sql {
# Calculated Variables (New!) # Calculated Variables (New!)
set po_per_quote_perc "undef" set po_per_quote_perc "undef"
if {[expr $quote_subtotal+0] != 0} { if {[expr {$quote_subtotal+0}] != 0} {
set po_per_quote_perc [expr int(10000.0 * $po_subtotal / $quote_subtotal) / 100.0] set po_per_quote_perc [expr {int(10000.0 * $po_subtotal / $quote_subtotal) / 100.0}]
set po_per_quote_perc "$po_per_quote_perc %" set po_per_quote_perc "$po_per_quote_perc %"
} }
set gross_profit [expr $invoice_subtotal - $bill_subtotal] set gross_profit [expr {$invoice_subtotal - $bill_subtotal}]
set last_value_list [im_report_render_header \ set last_value_list [im_report_render_header \
-group_def $report_def \ -group_def $report_def \
......
www/reports/sla-reaction-time.tcl
View file @ acb2356e
This diff is collapsed.
www/reports/sla-resolution-time.tcl
View file @ acb2356e
This diff is collapsed.
www/service-hours-component.adp
View file @ acb2356e
...@@ -2,17 +2,17 @@ ...@@ -2,17 +2,17 @@
<form action="/intranet-sla-management/service-hours-save" method=POST> <form action="/intranet-sla-management/service-hours-save" method=POST>
<%= [export_vars -form {return_url sla_id}] %> <%= [export_vars -form {return_url sla_id}] %>
<table cellspacing=0 cellpadding=0> <table cellspacing="0" cellpadding="0">
<tr class=rowtitle> <tr class=rowtitle>
<td class=rowtitle><%= [lang::message::lookup "" intranet-sla-management.Day "Day"] %></td> <td class=rowtitle><%= [lang::message::lookup "" intranet-sla-management.Day "Day"] %></td>
<multiple name=hours> <multiple name=hours>
<td class=rowtitle align=center>@hours.hour@</td> <td class=rowtitle align="center">@hours.hour@</td>
</multiple> </multiple>
</tr> </tr>
@body_html;noquote@ @body_html;noquote@
<tr> <tr>
<td colspan=25> <td colspan="25">
<input type=submit value=#intranet-core.Submit#> <input type="submit" value="#intranet-core.Submit#">
</td> </td>
</tr> </tr>
</table> </table>
......
www/service-hours-component.tcl
View file @ acb2356e
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
if {"" == $return_url} { set return_url [im_url_with_query] } if {"" == $return_url} { set return_url [im_url_with_query] }
set page_title [lang::message::lookup "" intranet-sla-management.Service_Hours "Service Hours"] set page_title [lang::message::lookup "" intranet-sla-management.Service_Hours "Service Hours"]
set context_bar [im_context_bar $page_title] set context_bar [im_context_bar $page_title]
...@@ -61,7 +61,7 @@ for {set day 0} {$day < 7} {incr day} { ...@@ -61,7 +61,7 @@ for {set day 0} {$day < 7} {incr day} {
set line_html "<tr>\n" set line_html "<tr>\n"
append line_html "<td>[lindex $dow_list $day]</td>\n" append line_html "<td>[lindex $dow_list $day]</td>\n"
for {set h 0} {$h < 24} {incr h} { for {set h 0} {$h < 24} {incr h} {
set idx [expr $day*100 + $h] set idx [expr {$day*100 + $h}]
set hh $h set hh $h
if {[string length $hh] < 2} { set hh "0$hh" } if {[string length $hh] < 2} { set hh "0$hh" }
set hh "$hh:01" set hh "$hh:01"
......
www/service-hours-save.tcl
View file @ acb2356e
...@@ -20,7 +20,7 @@ ad_page_contract { ...@@ -20,7 +20,7 @@ ad_page_contract {
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
set page_title [lang::message::lookup "" intranet-sla-management.Save_Service_Hours "Save Service Hours"] set page_title [lang::message::lookup "" intranet-sla-management.Save_Service_Hours "Save Service Hours"]
set context_bar [im_context_bar $page_title] set context_bar [im_context_bar $page_title]
set page_focus "im_header_form.keywords" set page_focus "im_header_form.keywords"
...@@ -64,7 +64,7 @@ foreach dow {0 1 2 3 4 5 6} { ...@@ -64,7 +64,7 @@ foreach dow {0 1 2 3 4 5 6} {
set start_pretty $start set start_pretty $start
if {[string length $start_pretty] < 2} { set start_pretty "0$start" } if {[string length $start_pretty] < 2} { set start_pretty "0$start" }
# The end time is the start of the next hour, so we have to add +1 to end # The end time is the start of the next hour, so we have to add +1 to end
set end_pretty [expr $end + 1] set end_pretty [expr {$end + 1}]
if {[string length $end_pretty] < 2} { set end_pretty "0$end_pretty" } if {[string length $end_pretty] < 2} { set end_pretty "0$end_pretty" }
lappend service_hours [list "$start_pretty:00" "$end_pretty:00"] lappend service_hours [list "$start_pretty:00" "$end_pretty:00"]
......
www/sla-parameter-action.tcl
View file @ acb2356e
...@@ -21,7 +21,7 @@ ad_page_contract { ...@@ -21,7 +21,7 @@ ad_page_contract {
# --------------------------------------------------------------- # ---------------------------------------------------------------
set user_id [ad_maybe_redirect_for_registration] set user_id [auth::require_login]
if {"" == $param} { ad_returnredirect $return_url } if {"" == $param} { ad_returnredirect $return_url }
switch $action { switch $action {
......
www/sla-parameter-indicator-component.tcl
View file @ acb2356e
...@@ -23,7 +23,7 @@ ...@@ -23,7 +23,7 @@
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
set add_reports_p [im_permission $current_user_id "add_reports"] set add_reports_p [im_permission $current_user_id "add_reports"]
set view_reports_all_p [im_permission $current_user_id "view_reports_all"] set view_reports_all_p [im_permission $current_user_id "view_reports_all"]
...@@ -149,7 +149,7 @@ set body_html "" ...@@ -149,7 +149,7 @@ set body_html ""
set old_param_id "" set old_param_id ""
set param_cnt 0 set param_cnt 0
set indicator_cnt 0 set indicator_cnt 0
set colspan [expr [llength $dynfield_attributes] + 2] set colspan [expr {[llength $dynfield_attributes] + 2}]
# Read the results into a multirow because # Read the results into a multirow because
# the "evaluate" needs to alloc an additional DB connection # the "evaluate" needs to alloc an additional DB connection
...@@ -190,7 +190,7 @@ template::multirow foreach param_indicators { ...@@ -190,7 +190,7 @@ template::multirow foreach param_indicators {
} }
# if {[regexp {^([0-9]*)\.([0-9][0-9])} $result match body fraction]} { set result "$body.$fraction" } # if {[regexp {^([0-9]*)\.([0-9][0-9])} $result match body fraction]} { set result "$body.$fraction" }
if {[string is double $result]} { set result [expr round(100.0 * $result) / 100.0] } if {[string is double $result]} { set result [expr {round(100.0 * $result) / 100.0}] }
set diagram_html [im_indicator_horizontal_bar \ set diagram_html [im_indicator_horizontal_bar \
-name $report_name \ -name $report_name \
...@@ -220,7 +220,7 @@ template::multirow foreach param_indicators { ...@@ -220,7 +220,7 @@ template::multirow foreach param_indicators {
if {!$add_reports_p} { set edit_html "" } if {!$add_reports_p} { set edit_html "" }
set row_html "" set row_html ""
append row_html "<tr $bgcolor([expr $indicator_cnt % 2])>\n" append row_html "<tr $bgcolor([expr {$indicator_cnt % 2}])>\n"
append row_html "<td>&nbsp;</td>\n" append row_html "<td>&nbsp;</td>\n"
# append row_html "<td><input type=checkbox name=indicator value=$indicator_id></input></td>\n" # append row_html "<td><input type=checkbox name=indicator value=$indicator_id></input></td>\n"
set indicator_url [export_vars -base "/intranet-reporting-indicators/view" {indicator_id}] set indicator_url [export_vars -base "/intranet-reporting-indicators/view" {indicator_id}]
......
www/sla-parameter-list-component.tcl
View file @ acb2356e
...@@ -23,7 +23,7 @@ if {![info exists object_id]} { ...@@ -23,7 +23,7 @@ if {![info exists object_id]} {
# This portlet only makes sense in SLAs... # This portlet only makes sense in SLAs...
if {![info exists return_url] || "" == $return_url} { set return_url [im_url_with_query] } if {![info exists return_url] || "" == $return_url} { set return_url [im_url_with_query] }
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
set new_sla_parameter_url [export_vars -base "/intranet-sla-management/new" {object_id return_url}] set new_sla_parameter_url [export_vars -base "/intranet-sla-management/new" {object_id return_url}]
# Check the permissions # Check the permissions
......
www/ticket-priority-add.tcl
View file @ acb2356e
...@@ -23,7 +23,7 @@ ad_page_contract { ...@@ -23,7 +23,7 @@ ad_page_contract {
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
set sla_id $project_id set sla_id $project_id
im_project_permissions $current_user_id $project_id sla_view sla_read sla_write sla_admin im_project_permissions $current_user_id $project_id sla_view sla_read sla_write sla_admin
......
www/ticket-priority-component.adp
View file @ acb2356e
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
<td><%= [im_category_select "Intranet Ticket Status" ticket_severity_id ""] %></td> <td><%= [im_category_select "Intranet Ticket Status" ticket_severity_id ""] %></td>
<td><%= [im_category_select "Intranet Ticket Priority" ticket_prio_id ""] %></td> <td><%= [im_category_select "Intranet Ticket Priority" ticket_prio_id ""] %></td>
</tr> </tr>
<tr><td colspan=3><input type=submit value='@create_new_entry_msg@'></td></tr> <tr><td colspan="3"><input type="submit" value='@create_new_entry_msg@'></td></tr>
</table> </table>
</form> </form>
......
www/ticket-priority-component.tcl
View file @ acb2356e
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
if {"" == $return_url} { set return_url [im_url_with_query] } if {"" == $return_url} { set return_url [im_url_with_query] }
set page_title [lang::message::lookup "" intranet-sla-management.Ticket_Priority "Ticket Priority"] set page_title [lang::message::lookup "" intranet-sla-management.Ticket_Priority "Ticket Priority"]
set context_bar [im_context_bar $page_title] set context_bar [im_context_bar $page_title]
......
www/ticket-priority-del.tcl
View file @ acb2356e
...@@ -21,7 +21,7 @@ ad_page_contract { ...@@ -21,7 +21,7 @@ ad_page_contract {
# Defaults & Security # Defaults & Security
# --------------------------------------------------------------- # ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [auth::require_login]
set sla_id $project_id set sla_id $project_id
im_project_permissions $current_user_id $project_id sla_view sla_read sla_write sla_admin im_project_permissions $current_user_id $project_id sla_view sla_read sla_write sla_admin
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment