Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.933 and 1.934

version 1.933, 2007/12/21 04:22:53 version 1.934, 2007/12/21 04:32:49
Line 4848  sub auto_run { Line 4848  sub auto_run {
             $response = 1;              $response = 1;
         }          }
     } else {      } else {
         my $homeserver = &homeserver($cnum,$cdom);          my $homeserver;
         $response = &reply('autorun:'.$cdom,$homeserver);          if (&is_course($cdom,$cnum)) {
               $homeserver = &homeserver($cnum,$cdom);
           } else {
               $homeserver = &domain($cdom,'primary');
           }
           if ($homeserver ne 'no_host') {
               $response = &reply('autorun:'.$cdom,$homeserver);
           }
     }      }
     return $response;      return $response;
 }  }
Line 8868  In the hash, keys are set to colon-separ Line 8875  In the hash, keys are set to colon-separ
 (optionally) if $withsec is true, a fourth colon-separated item - $section.  (optionally) if $withsec is true, a fourth colon-separated item - $section.
 For each key, value is set to colon-separated start and end times for  For each key, value is set to colon-separated start and end times for
 the role.  If no username and domain are specified, will default to  the role.  If no username and domain are specified, will default to
 currnt user/domain. Types, roles, and roledoms are references to arrays  current user/domain. Types, roles, and roledoms are references to arrays
 of role statuses (active, future or previous), roles   of role statuses (active, future or previous), roles 
 (e.g., cc,in, st etc.) and domains of the roles which can be used  (e.g., cc,in, st etc.) and domains of the roles which can be used
 to restrict the list of roles reported. If no array ref is   to restrict the list of roles reported. If no array ref is 

Removed from v.1.933  
changed lines
  Added in v.1.934


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>