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

[raeburn]

raeburn		Tue May 20 20:46:13 2014 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - Remove some debugging output.
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.304 loncom/auth/lonroles.pm:1.305
--- loncom/auth/lonroles.pm:1.304	Tue May 20 20:36:16 2014
+++ loncom/auth/lonroles.pm	Tue May 20 20:46:13 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.304 2014/05/20 20:36:16 musolffc Exp $
+# $Id: lonroles.pm,v 1.305 2014/05/20 20:46:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -203,11 +203,8 @@
     my $r = shift;
 
     # Check for critical messages and redirect if present.  
-    print STDERR "crit check\n";
     my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);
-    print STDERR "(redirect, url) = $redirect, $url\n";
     if ($redirect) {
-        print STDERR "check passed.  Redirecting to $url\n";
         &Apache::loncommon::content_type($r,'text/html');
         $r->header_out(Location => $url);
         return REDIRECT;
@@ -258,9 +255,7 @@
     my $envkey;
     my %dcroles = ();
     my $numdc = &check_fordc(\%dcroles,$update,$then);
-#my $loncaparev = $Apache::lonnet::perlvar{'lonVersion'};
     my $loncaparev = $r->dir_config('lonVersion');
-    print STDERR "loncaparev set ||$loncaparev||\n";
 
 # ================================================================== Roles Init
     if ($env{'form.selectrole'}) {
@@ -1767,7 +1762,6 @@
     if ($required ne '') {
         my ($reqdmajor,$reqdminor) = ($required =~ /^(\d+)\.(\d+)$/);
         my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
-        print STDERR "version: required ||$required|| loncaparev ||$loncaparev||\n";
         if ($reqdmajor ne '' && $reqdminor ne '') {
             my $otherserver;
             if (($major eq '' && $minor eq '') ||