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

[raeburn]

raeburn		Fri Jul 24 02:00:28 2009 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - lonnet::check_adhoc_privs() now takes six args (fourth is $refresh). 
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.229 loncom/auth/lonroles.pm:1.230
--- loncom/auth/lonroles.pm:1.229	Wed Jul 22 21:51:03 2009
+++ loncom/auth/lonroles.pm	Fri Jul 24 02:00:28 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.229 2009/07/22 21:51:03 raeburn Exp $
+# $Id: lonroles.pm,v 1.230 2009/07/24 02:00:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -260,7 +260,7 @@
 		    ($envkey =~ m-^form\.cc\./($match_domain)/($match_courseid)$-)) {
                     if ($dcroles{$domain}) {
                         &Apache::lonnet::check_adhoc_privs($domain,$coursenum,
-                                                           $then,$now,'cc');
+                                                           $then,$refresh,$now,'cc');
                     }
                     last;
                 }
@@ -301,7 +301,7 @@
                         my ($server_status,$home) = &check_author_homeserver($user,$domain);
                         if (($server_status eq 'ok') || ($server_status eq 'switchserver')) {
                             &Apache::lonnet::check_adhoc_privs($domain,$user,$then,
-                                                               $now,'ca');
+                                                               $refresh,$now,'ca');
                             if ($server_status eq 'switchserver') {
                                 my $trolecode = 'ca./'.$domain.'/'.$user; 
                                 my $switchserver = '/adm/switchserver?'