--- loncom/auth/lonroles.pm	2000/09/29 14:36:30	1.6
+++ loncom/auth/lonroles.pm	2000/09/30 17:25:04	1.7
@@ -4,12 +4,14 @@
 # (Login Screen
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
 # 11/23 Gerd Kortemeyer)
-# 1/14,03/06,06/01,07/22,07/24,07/25,09/04,09/06,09/28,09/29 Gerd Kortemeyer
+# 1/14,03/06,06/01,07/22,07/24,07/25,
+# 09/04,09/06,09/28,09/29,09/30 Gerd Kortemeyer
 #
 package Apache::lonroles;
 
 use strict;
 use Apache::lonnet();
+use Apache::lonuserstate();
 use Apache::Constants qw(:common);
 use Apache::File();
 
@@ -54,14 +56,10 @@ ENDHEADER
                }
                if ($tstatus eq 'is') {
                    &Apache::lonnet::appenv('request.role' => $trolecode);
-
-		   if ($where=~/\.course$/) {
-#    $r->print(
-# &Apache::lonuserstate::readmap('/res/msu/korte/foo.course','phy231',$fn).
-	           }
-
-		   $r->print("Yeah!");
-
+                   my ($cdom,$cnum)=split(/\//,$where);
+                   if ($cnum) {
+		      $r->print( &Apache::lonuserstate::readmap($where) );
+                   }
                }
             } 
 	  }