-- Admin panel

   Allows removal of configuration objects no wf_case exists for
   Useful in particular when testing WF's

www/admin/clean-up-conf-objects.tcl

+# /packages/intranet-timesheet2-workflow/www/admin/clean-up-conf-objects.tcl
+#
+# Copyright (C) 2003-2016 ]project-open[
+#
+# All rights reserved. Please check
+# http://www.project-open.com/en/project-open-license for details.
+
+
+ad_page_contract {
+    Admin page for intranet-timesheet2-workflow
+    @author klaus.hofeditz@project-open.com
+} {
+    { return_url "/intranet-timesheet2-workflow/admin/" }
+}
+
+set user_id [auth::require_login]
+set page_title [lang::message::lookup "" intranet-timesheet2-workflow.CleanupConfigurationObjects "Clean up configuration objects"]
+
+if { [im_is_user_site_wide_or_intranet_admin $user_id] } {
+
+	# set im_hours::conf_object_id to NULL in case there's no WF case
+	db_dml set_im_hours_conf_object_id "update im_hours set conf_object_id = null where conf_object_id not in ( select object_id from wf_cases )"
+
+	# remove from im_timesheet_conf_objects if no wf_case 
+	db_dml remove_from_im_timesheet_conf_objects "delete from im_timesheet_conf_objects where conf_id not in ( select distinct object_id from wf_cases )"
+
+	util_user_message -message "Config Objects have been cleaned up."
+
+	ad_returnredirect $return_url
+
+} else {
+	ad_return_complaint xx "You are not allowed to perform this action. Please contact your SysAdmin"
+}
+

www/admin/index.adp

+<master>
+<property name="doc(title)">@page_title;literal@</property>
+<property name="main_navbar_label">workflow</property>
+
+<h1>Admin</h1>
+<p>This site is not linked, so we assume you know what you do. Otherwise do not use any of the links below.</p>
+<ul>
+<li>
+		<a href="/intranet-timesheet2-workflow/admin/clean-up-conf-objects">Clean up TS Configuration Objects</a><br/>
+		<p>Cleans up 'configuration objects' in case WF cases have been deleted from the system.</p>
+		<ol>
+			<li>Removes conf_object_id from im_hours if no wf_case exists.</li>
+			<li>Deletes configuration objects from im_timesheet_conf_objects with no entry in wf_case</li>
+		</ol>
+</li>
+</ul>

www/admin/index.tcl

+# /packages/intranet-timesheet2-workflow/www/admin/index.tcl
+#
+# Copyright (C) 2003-2016 ]project-open[
+#
+# All rights reserved. Please check
+# http://www.project-open.com/en/project-open-license for details.
+
+
+ad_page_contract {
+    Admin page for intranet-timesheet2-workflow
+
+    @author klaus.hofeditz@project-open.com
+
+} {
+
+}
+
+set user_id [auth::require_login]
+set page_title [lang::message::lookup "" intranet-timesheet2-workflow.AdminHome "Admin TS Confirmation WF"]
+
+if { ![im_is_user_site_wide_or_intranet_admin $user_id] } { ad_return_complaint xx "You need to be a SysAdmin to access this page." }