[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.507 and 1.508

version 1.507, 2004/06/09 14:57:30 version 1.508, 2004/06/09 17:01:56
Line 3054  sub log_query { Line 3054  sub log_query {
     return get_query_reply($queryid);      return get_query_reply($queryid);
 }  }
   
 # ------- Request retrieval of institutional classlists from course homerserver  # ------- Request retrieval of institutional classlists for course(s)
   
 sub fetch_enrollment_query {  sub fetch_enrollment_query {
     my ($homeserver,$dom,$affiliatesref,$replyref) = @_;      my ($context,$affiliatesref,$replyref,$cnum,$dom) = @_;
       my $homeserver;
       if ($context eq 'automated') {
           $homeserver = $perlvar{'lonHostID'};
       } else {
           $homeserver = &homeserver($cnum,$dom);
       }
     my $host=$hostname{$homeserver};      my $host=$hostname{$homeserver};
     my $cmd = '';      my $cmd = '';
     foreach (keys %{$affiliatesref}) {      foreach (keys %{$affiliatesref}) {
         $cmd .= $_.'='.join(",",@{$$affiliatesref{$_}}).'%%';           $cmd .= $_.'='.join(",",@{$$affiliatesref{$_}}).'%%';
     }      }
     $cmd =~ s/%%$//;      $cmd =~ s/%%$//;
     $cmd = &escape($cmd);      $cmd = &escape($cmd);
Line 3143  sub userlog_query { Line 3149  sub userlog_query {
 #--------- Call auto-enrollment subs in localenroll.pm for homeserver for course   #--------- Call auto-enrollment subs in localenroll.pm for homeserver for course 
   
 sub auto_run {  sub auto_run {
     my $homeserver = shift;      my ($cnum,$cdom) = @_;
       my $homeserver = &homeserver($cnum,$cdom);
     my $response = &reply('autorun',$homeserver);      my $response = &reply('autorun',$homeserver);
     return $response;      return $response;
 }  }
                                                                                                                                                                         
 sub auto_get_sections {  sub auto_get_sections {
     my ($homeserver,$coursecode) = @_;      my ($cnum,$cdom,$inst_coursecode) = @_;
       my $homeserver = &homeserver($cnum,$cdom);
     my @secs = ();      my @secs = ();
     my $response=&unescape(&reply('autogetsections:'.$coursecode,$homeserver));      my $response=&unescape(&reply('autogetsections:'.$inst_coursecode,$homeserver));
     unless ($response eq 'refused') {      unless ($response eq 'refused') {
         @secs = split/:/,$response;          @secs = split/:/,$response;
     }      }
Line 3159  sub auto_get_sections { Line 3167  sub auto_get_sections {
 }  }
                                                                                                                                                                         
 sub auto_new_course {  sub auto_new_course {
     my ($homeserver,$course_id,$owner) = @_;      my ($cnum,$cdom,$inst_course_id,$owner) = @_;
     my $response=&unescape(&reply('autonewcourse:'.$course_id.':'.$owner,$homeserver));      my $homeserver = &homeserver($cnum,$cdom);
       my $response=&unescape(&reply('autonewcourse:'.$inst_course_id.':'.$owner,$homeserver));
     return $response;      return $response;
 }  }
                                                                                                                                                                         
 sub auto_validate_courseID {  sub auto_validate_courseID {
     my ($homeserver,$course_id) = @_;      my ($cnum,$cdom,$inst_course_id) = @_;
     my $response=&unescape(&reply('autovalidatecourse:'.$course_id,$homeserver));      my $homeserver = &homeserver($cnum,$cdom);
       my $response=&unescape(&reply('autovalidatecourse:'.$inst_course_id,$homeserver));
     return $response;      return $response;
 }  }
                                                                                                                                                                         
 sub auto_create_password {  sub auto_create_password {
     my ($homeserver,$authparam) = @_;      my ($cnum,$cdom,$authparam) = @_;
       my $homeserver = &homeserver($cnum,$cdom); 
     my $create_passwd = 0;      my $create_passwd = 0;
     my $authchk = '';      my $authchk = '';
     my $response=&unescape(&reply('autocreatepassword:'.$authparam,$homeserver));      my $response=&unescape(&reply('autocreatepassword:'.$authparam,$homeserver));
Removed from v.1.507  
changed lines
  Added in v.1.508

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