Index: openacs-4/contrib/obsolete-packages/ticket-tracker/www/admin/install/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker/www/admin/install/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker/www/admin/install/index.tcl	20 Apr 2001 20:51:25 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker/www/admin/install/index.tcl	6 Sep 2001 16:29:39 -0000	1.2
@@ -12,8 +12,12 @@
     gc_mounted_p:onevalue
     workflow_mounted_p:onevalue
     has_error_p:onevalue
+	package_url:onevalue
 }
 
+set package_url [ad_conn package_url]
+set package_key [ad_conn package_key]
+
 set context_bar {}
 
 # check to see if general comments has been mounted
@@ -47,7 +51,20 @@
     set dubious_url ""
 }
 
-if { !$gc_mounted_p || !$workflow_mounted_p || ![empty_string_p $dubious_url] } {
+# check to see if NotificationSender has an email address
+if { ![db_0or1row check_sender "
+	select email as good_email from parties 
+	where party_id = (select apv.attr_value 
+                        from apm_parameter_values apv, 
+                             apm_parameters ap 
+	                    where ap.package_key = :package_key
+                          and ap.parameter_name = 'NotificationSender' 
+	                      and ap.parameter_id = apv.parameter_id)
+" ] } {
+	set good_email ""
+}
+
+if { !$gc_mounted_p || !$workflow_mounted_p || ![empty_string_p $dubious_url] || [empty_string_p $good_email] } {
     set has_error_p 1
 } else {
     set has_error_p 0