--- loncom/auth/lonroles.pm 2000/10/28 19:23:21 1.16 +++ loncom/auth/lonroles.pm 2000/12/08 15:52:43 1.17 @@ -5,7 +5,7 @@ # 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,09/30,10/2,10/5,10/26,10/28 Gerd Kortemeyer +# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28,12/08 Gerd Kortemeyer # package Apache::lonroles; @@ -130,6 +130,9 @@ ENDHEADER } else { $r->print("

Enter a Course

\n"); } + if ($ENV{'REDIRECT_QUERY_STRING'}) { + $fn.='?'.$ENV{'REDIRECT_QUERY_STRING'}; + } $r->print('
'); $r->print(''); $r->print('');