Index: openacs-4/packages/project-manager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/index.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/project-manager/www/index.tcl	19 Feb 2007 15:54:15 -0000	1.18
+++ openacs-4/packages/project-manager/www/index.tcl	20 Feb 2007 07:53:38 -0000	1.19
@@ -2,8 +2,7 @@
 
 ad_page_contract {
 
-  @author rhs@mit.edu
-  @author mbryzek@mit.edu
+  @author malte.sussdorff@cognovis.de
 
   @creation-date 2000-09-18
   @cvs-id $Id$
@@ -76,4 +75,21 @@
 	}
     }
 }
-set project_ids $logger_projects
\ No newline at end of file
+
+if {$logger_projects eq ""} {
+    if {[apm_package_ids_from_key -package_key "logger"] eq ""} {
+	# No instance of logger installed, redirect to subsite admin
+	ad_returnredirect -message "You need to install logger first" "../admin/applications"
+	ad_script_abort
+    }
+    if {[application_link::get_linked -from_package_id $package_id -to_package_key "logger"] eq ""} {
+	# There is no link between PM and logger, redirect to admin linking
+	ad_returnredirect -message "<font color=red>Please setup the link between project manager and logger</font>" -html "admin/linking?return_url=[ad_return_url]" 
+	ad_script_abort
+    }
+    
+    # It seems we just did not setup a project yet, go directly to add project then
+    ad_returnredirect -message "You can start by adding a new project" "add-edit"
+} else {
+    set project_ids $logger_projects
+}
\ No newline at end of file