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

Diff for /loncom/interface/lonpopulate.pm between versions 1.85 and 1.86

version 1.85, 2016/11/09 00:48:52 version 1.86, 2021/03/31 02:19:59
Line 2149  sub print_crosslistings_response { Line 2149  sub print_crosslistings_response {
                         next;                          next;
                     }                      }
                 }                  }
  my $coursecheck =    my $coursecheck =
                     &Apache::lonnet::auto_validate_courseID($crs,$dom,$env{"form.$xl"});                      &Apache::lonnet::auto_validate_courseID($crs,$dom,$env{"form.$xl"});
  if ($coursecheck eq 'ok') {   if ($coursecheck eq 'ok') {
     my $addcheck = '';      my $addcheck = '';
     $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$env{"form.$xl"},$owner,$coowners);      $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$env{"form.$xl"},$owner,$coowners);
     if ($addcheck eq 'ok') {      unless ($addcheck eq 'ok') {
  push(@xlists,$env{"form.$xl"}.":".$env{"form.$lc_sec"});                          if ($coowners) {
     } else {                              foreach my $user (split(/,/,$coowners)) {
                                   if ($user =~ /^($match_username):($match_domain)$/) {
                                       if (&Apache::lonnet::auto_validate_inst_crosslist($crs,$dom,$coursecode,
                                                                                         $env{"form.$xl"},$user) eq 'valid') {
                                           $addcheck = 'ok';
                                           last;
                                       }
                                   }
                               }
                           }
                       }
                       if ($addcheck eq 'ok') {
                           push(@xlists,$env{"form.$xl"}.":".$env{"form.$lc_sec"});
                       } else { 
  push(@badowner,$env{"form.$xl"}.":".$env{"form.$lc_sec"});   push(@badowner,$env{"form.$xl"}.":".$env{"form.$lc_sec"});
     }      }
  } else {   } else {
Removed from v.1.85  
changed lines
  Added in v.1.86

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