[LON-CAPA-cvs] cvs: modules /raeburn monitor.pl

[raeburn]

raeburn		Sun May  9 13:09:08 2021 EDT

  Modified files:              
    /modules/raeburn	monitor.pl 
  Log:
  - Use newrole form element.
  - Timer for role initilization needs to start before response is received.  
  
  
Index: modules/raeburn/monitor.pl
diff -u modules/raeburn/monitor.pl:1.10 modules/raeburn/monitor.pl:1.11
--- modules/raeburn/monitor.pl:1.10	Thu May  5 14:55:33 2011
+++ modules/raeburn/monitor.pl	Sun May  9 13:09:08 2021
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 #
-# $Id: monitor.pl,v 1.10 2011/05/05 14:55:33 raeburn Exp $
+# $Id: monitor.pl,v 1.11 2021/05/09 13:09:08 raeburn Exp $
 #
 use strict;
 use lib qw(/usr/lib/perl5/site_perl/);
@@ -656,11 +656,11 @@
       Content      =>
       [
         selectrole => '1',
-        $role => "Select",
+        newrole    => $role,
       ];
     $loncookie_file->add_cookie_header($request);
-    my $response = $ua->request($request);
     $start = [gettimeofday];
+    my $response = $ua->request($request);
     if ($response->is_success) {
         my $dump = $response->content;
         if ($dump =~ m-<a href="/adm/roles\?tryagain=1">-) {