--- loncom/auth/lonroles.pm 2001/07/06 15:11:19 1.27 +++ loncom/auth/lonroles.pm 2001/10/26 17:09:04 1.29 @@ -9,7 +9,7 @@ # 12/08,12/28, # 01/15/01 Gerd Kortemeyer # 02/27/01 Scott Harrison -# 03/02,05/03,05/25,05/30,06/01,07/06 Gerd Kortemeyer +# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer package Apache::lonroles; @@ -19,6 +19,7 @@ use Apache::lonuserstate(); use Apache::Constants qw(:common); use Apache::File(); use Apache::lonmenu; +use Apache::loncommon; sub handler { @@ -78,9 +79,11 @@ sub handler { $r->content_type('text/html'); $r->send_http_header; my $swinfo=&Apache::lonmenu::rawconfig; + my $cacheheader=&Apache::loncommon::cacheheader(); print (<Entering Course +$cacheheader @@ -108,10 +111,11 @@ ENDREDIR return OK if $r->header_only; my $swinfo=&Apache::lonmenu::rawconfig; - + my $cacheheader=&Apache::loncommon::cacheheader(); $r->print(< +$cacheheader LON-CAPA User Roles