[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /auth lonroles.pm
From:       albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2005-04-22 20:54:44
Message-ID: cvsalbertel1114203284 () cvsserver
[Download RAW message or body]

albertel		Fri Apr 22 16:54:44 2005 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - nolonger need to clean_env
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.118 loncom/auth/lonroles.pm:1.119
--- loncom/auth/lonroles.pm:1.118	Thu Apr  7 02:56:21 2005
+++ loncom/auth/lonroles.pm	Fri Apr 22 16:54:43 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.118 2005/04/07 06:56:21 albertel Exp $
+# $Id: lonroles.pm,v 1.119 2005/04/22 20:54:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -232,9 +232,6 @@
 			if (($env{'form.orgurl'}) && 
 			    ($env{'form.orgurl'}!~/^\/adm\/flip/)) {
 			    my $dest=$env{'form.orgurl'};
-			    if ( &Apache::lonnet::mod_perl_version() == 2 ) {
-				&Apache::lonnet::cleanenv();
-			    }
 			    if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; }
 			    &Apache::lonnet::appenv('request.role.adv'=>$tadv);
 			    $r->internal_redirect($dest);



[prev in list] [next in list] [prev in thread] [next in thread]