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

[raeburn]

raeburn		Fri Jan  4 04:08:35 2013 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/auth	lonroles.pm 
  Log:
  - For 2.11
    - Backport 1.281.
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.269.2.6 loncom/auth/lonroles.pm:1.269.2.7
--- loncom/auth/lonroles.pm:1.269.2.6	Tue Jan  1 03:45:50 2013
+++ loncom/auth/lonroles.pm	Fri Jan  4 04:08:34 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.269.2.6 2013/01/01 03:45:50 raeburn Exp $
+# $Id: lonroles.pm,v 1.269.2.7 2013/01/04 04:08:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -617,7 +617,7 @@
                                             }
                                             if (($checkenc) && ($destsymb ne '')) {
                                                 my ($encstate,$unencsymb,$res);
-                                                my $unencsymb = &Apache::lonnet::symbclean($destsymb);
+                                                $unencsymb = &Apache::lonnet::symbclean($destsymb);
                                                 (undef,undef,$res) = &Apache::lonnet::decode_symb($unencsymb);
                                                 &Apache::lonnet::symbverify($unencsymb,$res,\$encstate);
                                                 if ($encstate) {
@@ -2158,7 +2158,6 @@
                     my $status_in_db =
                         &curr_role_status($tstart,$tend,$refresh,$now);
                     my ($rdummy,$rest) = split(/\//,$role,2);
-                    my ($rdummy,$rdomain,$rauthor,$rrole)=split(/\//,$role);
                     my %currpriv;
                     unless (exists($crprivs{$rest})) {
                         my ($rdomain,$rauthor,$rrole)=split(/\//,$rest);
@@ -2412,9 +2411,8 @@
                             }
                             $groupmsg .= '<li><b>'.
                                          $env{'course.'.$cdom.'_'.$cnum.'.description'}.'</b><ul>';
+                            $currcrs = $cdom.'_'.$cnum;
                         }
-                        my ($cdom,$cnum) = split(/\//,$1);
-                        my $group = $2;
                         my $groupdesc;
                         unless (ref($curr_groups{$cdom.'_'.$cnum}) eq 'HASH') {
                             %{$curr_groups{$cdom.'_'.$cnum}} =