[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 01 Nov 2004 23:23:34 -0000


albertel		Mon Nov  1 18:23:34 2004 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - don't &mt the role text it's already &mt
  - when changing roels delete the user.state
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.99 loncom/auth/lonroles.pm:1.100
--- loncom/auth/lonroles.pm:1.99	Thu Sep  2 09:15:54 2004
+++ loncom/auth/lonroles.pm	Mon Nov  1 18:23:33 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.99 2004/09/02 13:15:54 www Exp $
+# $Id: lonroles.pm,v 1.100 2004/11/01 23:23:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -88,7 +88,8 @@
 	if ($ENV{'request.course.id'}) {
 	    my %temp=('logout_'.$ENV{'request.course.id'} => time);
 	    &Apache::lonnet::put('email_status',\%temp);
-        }
+	    &Apache::lonnet::delenv('user.state.'.$ENV{'request.course.id'});
+	}
 	&Apache::lonnet::appenv("request.course.id"   => '',
 				"request.course.fn"   => '',
 				"request.course.uri"  => '',
@@ -620,7 +621,7 @@
 	my $output;
 	foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
 	    if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) { 
-		$output.=&mt($roletext{$sortrole{$which}});
+		$output.=$roletext{$sortrole{$which}};
 	    }
 	}
 	if ($output) {