- integrated "Export Timesheet Cube" in Timesheet Home Component

tcl/intranet-timesheet2-procs.tcl

@@ -68,6 +68,19 @@ ad_proc -public im_timesheet_home_component {user_id} {
         "
     }
 
+    set dw_light_exists_p [db_string dw_light_exists_p {
+        select count(*) from apm_packages
+        where package_key = 'intranet-dw-light'
+    } -default 0]
+
+    if {[im_permission $user_id view_hours_all] && $dw_light_exists_p} {
+        append hours_html "
+	    <li><a href=/intranet-dw-light/timesheet.csv>
+	    [lang::message::lookup "" intranet-dw-light.Export_Timesheet_Cube "Export Timesheet Cube"]
+            </a>\n"
+    }
+
+
     if {$add_hours} {
 	set log_hours_link "<a href=/intranet-timesheet2/hours/index>"
 	set add_html "<li>[_ intranet-timesheet2.lt_Log_your_log_hours_li]</a>\n"