[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.1002 and 1.1003

version 1.1002, 2009/06/11 19:02:32 version 1.1003, 2009/06/11 19:19:57
Line 5698  sub auto_instcode_defaults { Line 5698  sub auto_instcode_defaults {
     }      }
   
     return $response;      return $response;
 }   }
   
   sub auto_possible_instcodes {
       my ($domain,$codetitles,$cat_titles,$cat_order) = @_;
       my (@homeservers,$uhome);
       if (defined(&domain($domain,'primary'))) {
           $uhome=&domain($domain,'primary');
           push(@homeservers,&domain($domain,'primary'));
       } else {
           my %servers = &get_servers($domain,'library');
           foreach my $tryserver (keys(%servers)) {
               if (!grep(/^\Q$tryserver\E$/,@homeservers)) {
                   push(@homeservers,$tryserver);
               }
           }
       }
       my $response;
       foreach my $server (@homeservers) {
           $response=&reply('autopossibleinstcodes:'.$domain,$server);
           next if ($response =~ /(con_lost|error|no_such_host|refused)/);
           my ($codetitlestr,$cat_title,$cat_order) = split(':',$response);
           @{$codetitles} = map { &unescape($_); } (split('&',$codetitlestr));  
           foreach my $item (split('&',$cat_title)) {   
               my ($name,$value)=split('&',$item);
               $cat_titles->{&unescape($name)}=&unescape($value);
           }
           foreach my $item (split('&',$cat_order)) {
               my ($name,$value)=split('&',$item);
               $cat_order->{&unescape($name)}=&unescape($value);
           }
           return 'ok';
       }
       return $response;
   }
   
 sub auto_validate_class_sec {  sub auto_validate_class_sec {
     my ($cdom,$cnum,$owners,$inst_class) = @_;      my ($cdom,$cnum,$owners,$inst_class) = @_;
Removed from v.1.1002  
changed lines
  Added in v.1.1003

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