[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.1017 and 1.1019

version 1.1017, 2009/08/15 00:25:53 version 1.1019, 2009/08/18 20:08:25
Line 3146  sub dcmaildump { Line 3146  sub dcmaildump {
   
 sub get_domain_roles {  sub get_domain_roles {
     my ($dom,$roles,$startdate,$enddate)=@_;      my ($dom,$roles,$startdate,$enddate)=@_;
     if (undef($startdate) || $startdate eq '') {      if ((!defined($startdate)) || ($startdate eq '')) {
         $startdate = '.';          $startdate = '.';
     }      }
     if (undef($enddate) || $enddate eq '') {      if ((!defined($enddate)) || ($enddate eq '')) {
         $enddate = '.';          $enddate = '.';
     }      }
     my $rolelist;      my $rolelist;
Line 5645  sub auto_validate_courseID { Line 5645  sub auto_validate_courseID {
 }  }
   
 sub auto_validate_instcode {  sub auto_validate_instcode {
     my ($cnum,$cdom,$instcode,$owner) = @_;      my ($cnum,$cdom,$instcode,$owner,$inststatuslist,$instseclist) = @_;
     my ($homeserver,$response);      my ($homeserver,$response);
     if (($cdom =~ /^$match_domain$/) && ($cnum =~ /^$match_courseid$/)) {      if (($cdom =~ /^$match_domain$/) && ($cnum =~ /^$match_courseid$/)) {
         $homeserver = &homeserver($cnum,$cdom);          $homeserver = &homeserver($cnum,$cdom);
Line 5656  sub auto_validate_instcode { Line 5656  sub auto_validate_instcode {
         }          }
     }      }
     my $response=&unescape(&reply('autovalidateinstcode:'.$cdom.':'.      my $response=&unescape(&reply('autovalidateinstcode:'.$cdom.':'.
                            &escape($instcode).':'.&escape($owner),$homeserver));                             &escape($instcode).':'.&escape($owner).':'.
                              &escape($inststatuslist).':'.&escape($instseclist),
                              $homeserver));
     return $response;      return $response;
 }  }
   
Line 5878  sub auto_courserequest_checks { Line 5880  sub auto_courserequest_checks {
     return %validations;       return %validations; 
 }  }
   
 sub auto_courserequest_validation {  
     my ($dom,$details,$inststatuses,$message) = @_;  
     return 'pending';  
 }  
   
 sub auto_validate_class_sec {  sub auto_validate_class_sec {
     my ($cdom,$cnum,$owners,$inst_class) = @_;      my ($cdom,$cnum,$owners,$inst_class) = @_;
     my $homeserver = &homeserver($cnum,$cdom);      my $homeserver = &homeserver($cnum,$cdom);
Removed from v.1.1017  
changed lines
  Added in v.1.1019

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