[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.1019 and 1.1020

version 1.1019, 2009/08/18 20:08:25 version 1.1020, 2009/08/22 18:53:41
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,$inststatuslist,$instseclist) = @_;      my ($cnum,$cdom,$instcode,$owner) = @_;
     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).':'.                             &escape($instcode).':'.&escape($owner),$homeserver));
                            &escape($inststatuslist).':'.&escape($instseclist),  
                            $homeserver));  
     return $response;      return $response;
 }  }
   
Line 5876  sub auto_possible_instcodes { Line 5874  sub auto_possible_instcodes {
   
 sub auto_courserequest_checks {  sub auto_courserequest_checks {
     my ($dom) = @_;      my ($dom) = @_;
     my %validations;      my ($homeserver,%validations);
       if ($dom =~ /^$match_domain$/) {
           $homeserver = &domain($dom,'primary');
       }
       unless ($homeserver eq 'no_host') {
           my $response=&reply('autocrsreqchecks:'.$dom,$homeserver);
           unless ($response =~ /(con_lost|error|no_such_host|refused)/) {
               my @items = split(/&/,$response);
               foreach my $item (@items) {
                   my ($key,$value) = split('=',$item);
                   $validations{&unescape($key)} = &thaw_unescape($value);
               }
           }
       }
     return %validations;       return %validations; 
 }  }
   
   sub auto_courserequest_validation {
       my ($dom,$owner,$crstype,$inststatuslist,$instcode,$instseclist) = @_;
       my ($homeserver,$response);
       if ($dom =~ /^$match_domain$/) {
           $homeserver = &domain($dom,'primary');
       }
       unless ($homeserver eq 'no_host') {  
           $response=&unescape(&reply('autocrsreqvalidation:'.$dom.':'.&escape($owner).
                                       ':'.&escape($crstype).':'/&escape($inststatuslist).
                                       ':'.&escape($instcode).':'.&escape($instseclist),
                                       $homeserver));
       }
       return $response;
   }
   
 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.1019  
changed lines
  Added in v.1.1020

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