- added intranet-reporting linking page

64b4e8a9 · Frank Bergmann · e11c7008 · 64b4e8a9 · 64b4e8a9
Commit 64b4e8a9 authored Nov 29, 2005 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 112 additions and 0 deletions

report-timesheet.adp www/report-timesheet.adp +51 -0

report-timesheet.tcl www/report-timesheet.tcl +61 -0

No files found.
--- a/www/report-timesheet.adp
+++ b/www/report-timesheet.adp
+<!-- packages/intranet-forum/www/index.adp -->
+<!-- @author Frank Bergmann (frank.bergmann@project-open.com) -->
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
+<master src="../../intranet-core/www/master">
+<property name="title">@page_title@</property>
+<property name="context">@context_bar@</property>
+<property name="main_navbar_label">projects</property>
+
+
+<h1>Reporting Integration Page</h1>
+
+<table width="400">
+<tr><td>
+
+<p>
+The package '@package_name@' has not been installed in your
+system. This package is necessary to display detailed information
+about timesheet tasks and allows you to browse timesheet
+data.
+</p>
+
+<p>
+'@package_name@' contains functionality that is not necessary
+for the basic operation of a company, so we have decided to
+make it closed-source.
+</p>
+
+<p>
+You have several options to get more information about timesheet
+tasks apart from the reporting module:
+</p>
+
+<ul>
+<li><a href="/intranet-timesheet2/hours/one-project?project_id=@project_id@">Breakdown of project hours by person</a>
+<li><a href="/intranet-dw-light/timesheet2.csv">Download Timesheet CSV Cube suitable for Pivot-Table display</a>
+</ul>
+
+<h2>How to Get 'intranet-reporting'</h2>
+
+Please <a href="http://www.project-open.com/contact/">contact us</a> 
+to inquire details about the price of 'intranet-reporting'.
+
+
+</td></tr>
+</table>
+
+
+
+
+
--- a/www/report-timesheet.tcl
+++ b/www/report-timesheet.tcl
+# /packages/intranet-timesheet2-tasks/www/report-timesheet.tcl
+#
+# Copyright (C) 2003-2004 Project/Open
+#
+# All rights reserved. Please check
+# http://www.project-open.com/license/ for details.
+
+# ---------------------------------------------------------------
+# Page Contract
+# ---------------------------------------------------------------
+
+ad_page_contract { 
+    @author frank.bergmann@project-open.com
+} {
+    { project_id 0 }
+    { task_id 0 }
+    { return_url "" }
+}
+
+
+# ---------------------------------------------------------------
+# Defaults & Security
+# ---------------------------------------------------------------
+
+set current_user_id [ad_maybe_redirect_for_registration]
+set page_focus "im_header_form.keywords"
+
+set package_name "intranet-reporting"
+set page_title "'$package_name' [lang::message::lookup "" intranet-core.Package_Not_Available "Package Not Available"]"
+set context_bar [im_context_bar $page_title]
+
+
+if { "" == $return_url} {
+    set return_url [im_url_with_query]
+}
+set current_url [ns_conn url]
+
+# ---------------------------------------------------------------
+# Check if reporting is available
+# ---------------------------------------------------------------
+
+set report_label "reporting-timesheet-customer-project"
+
+if {[db_0or1row report_info "
+	select	im_object_permission_p(m.menu_id, :current_user_id, 'read') as read_p,
+		m.url
+	from	im_menus m
+	where	m.label = :report_label
+"]} {
+
+    # Found the report
+
+    set start_date "2000-01-01"
+    set end_date "2099-12-31"
+    set lod 99
+    ad_returnredirect [export_vars -base $url { start_date end_date { project_id $project_id } { task_id $task_id} { level_of_detail $lod } { return_url $return_url } }]
+    return
+
+}
+
+# No report there - Show a suitable screen from the .adp file