--- loncom/auth/lonroles.pm 2006/05/15 17:45:46 1.148 +++ loncom/auth/lonroles.pm 2006/05/30 12:45:24 1.149 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.148 2006/05/15 17:45:46 albertel Exp $ +# $Id: lonroles.pm,v 1.149 2006/05/30 12:45:24 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -40,6 +40,9 @@ use Apache::lonhtmlcommon; use Apache::lonannounce; use Apache::lonlocal; use GDBM_File; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + sub redirect_user { my ($r,$title,$url,$msg,$launch_nav) = @_; @@ -379,7 +382,7 @@ ENDHEADER $last=$hash{'last_known'}; untie(%hash); } - if ($last) { $fn.='?symb='.&Apache::lonnet::escape($last); } + if ($last) { $fn.='?symb='.&escape($last); } &Apache::londocs::changewarning($r,undef,'You have modified your course recently, [_1] may fix this access problem.', &Apache::lonenc::check_encrypt($fn)); @@ -990,7 +993,7 @@ sub allcourses_row { sub recent_filename { my $area=shift; - return 'nohist_recent_'.&Apache::lonnet::escape($area); + return 'nohist_recent_'.&escape($area); } sub set_privileges {