Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/dotlrn/www/index.tcl	28 May 2002 21:57:05 -0000	1.35
+++ openacs-4/packages/dotlrn/www/index.tcl	29 May 2002 04:45:23 -0000	1.36
@@ -49,9 +49,7 @@
 }]
 
 if {[string match $access_level limited] && [llength $communities] == 1} {
-    ad_returnredirect [dotlrn_community::get_url_from_package_id \
-        -package_id [ns_set get [lindex $communities 0] package_id] \
-    ]
+    ad_returnredirect [ns_set get [lindex $communities 0] url]
     ad_script_abort
 }
 
@@ -61,14 +59,13 @@
         ad_returnredirect "index-not-a-user"
         ad_script_abort
     } elseif {[llength $communities] == 1} {
-        ad_returnredirect [dotlrn_community::get_url_from_package_id \
-            -package_id [ns_set get [lindex $communities 0] package_id] \
-        ]
+        ad_returnredirect [ns_set get [lindex $communities 0] url]
         ad_script_abort
     }
 
-    ad_return_template index-no-browse
+    ad_return_template "index-no-browse"
     return
+
 }
 
 set portal_id [dotlrn::get_portal_id -user_id $user_id]