--- loncom/auth/lonroles.pm 2001/08/06 11:16:32 1.28 +++ loncom/auth/lonroles.pm 2001/10/26 17:09:04 1.29 @@ -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