[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.1012 and 1.1013

version 1.1012, 2009/08/10 23:32:35 version 1.1013, 2009/08/11 01:39:44
Line 5878  sub auto_courserequest_checks { Line 5878  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);
Line 6524  sub is_course { Line 6529  sub is_course {
     return 0;      return 0;
 }  }
   
   sub store_coursereq {
       my ($requestkey,$storehash) = @_;
       my $result;
       if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
           if (ref($storehash) eq 'HASH') {
               my $namespace = 'courserequests';
               my $uhome=&homeserver();
               if (($uhome eq '') || ($uhome eq 'no_host')) {
                   $result = 'error: no_host';
               } else {
                   $storehash->{'ip'} = $ENV{'REMOTE_ADDR'};
                   $storehash->{'host'} = $perlvar{'lonHostID'};
   
                   my $namevalue='';
                   foreach my $key (keys(%{$storehash})) {
                       $namevalue.=&escape($key).'='.&freeze_escape($$storehash{$key}).'&';
                   }
                   $namevalue=~s/\&$//;
                   $result =  &reply("store:$env{'user.domain'}:$env{'user.name'}:".
                                     "$namespace:$requestkey:$namevalue",$uhome);
               }
           } else {
               $result = 'error: data to store was not a hash reference'; 
           }
       } else {
           $result= 'error: invalid requestkey'; 
       }
       return $result;
   }
   
 # ---------------------------------------------------------- Assign Custom Role  # ---------------------------------------------------------- Assign Custom Role
   
 sub assigncustomrole {  sub assigncustomrole {
Removed from v.1.1012  
changed lines
  Added in v.1.1013

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