[BACK]Return to refresh_courseids_db.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / misc

Diff for /loncom/misc/refresh_courseids_db.pl between versions 1.22 and 1.23

version 1.22, 2020/04/22 16:43:56 version 1.23, 2021/03/31 02:19:59
Line 183  sub recurse_courses { Line 183  sub recurse_courses {
                 my $creator = $courseinfo{'internal.creator'};                  my $creator = $courseinfo{'internal.creator'};
                 my $creationcontext = $courseinfo{'internal.creationcontext'};                  my $creationcontext = $courseinfo{'internal.creationcontext'};
                 my $inst_code = $courseinfo{'internal.coursecode'};                  my $inst_code = $courseinfo{'internal.coursecode'};
                   my $xlists = $courseinfo{'internal.crosslistings'};
                 my $releaserequired = $courseinfo{'internal.releaserequired'};                  my $releaserequired = $courseinfo{'internal.releaserequired'};
                 my $uniquecode = $courseinfo{'internal.uniquecode'};                  my $uniquecode = $courseinfo{'internal.uniquecode'};
                 $inst_code = '' if (!defined($inst_code));                  $inst_code = '' if (!defined($inst_code));
Line 281  sub recurse_courses { Line 282  sub recurse_courses {
                                 my $cc = $1;                                  my $cc = $1;
                                 unless ($cc eq $owner) {                                  unless ($cc eq $owner) {
                                     my ($result,$desc) = &Apache::lonnet::auto_validate_instcode($cnum,$cdom,$inst_code,$cc);                                      my ($result,$desc) = &Apache::lonnet::auto_validate_instcode($cnum,$cdom,$inst_code,$cc);
                                       unless ($result eq 'valid') {
                                           if ($xlists ne '') {
                                               foreach my $xlist (split(',',$xlists)) {
                                                   my ($inst_crosslist,$lcsec) = split(':',$xlist);
                                                   $result =
                                                       &Apache::lonnet::auto_validate_inst_crosslist($cnum,$cdom,$inst_code,
                                                                                                     $inst_crosslist,$cc);
                                                   last if ($result eq 'valid');
                                               }
                                           }
                                       }
                                     if ($result eq 'valid') {                                      if ($result eq 'valid') {
                                         if (@newcoowners > 0) {                                          if (@newcoowners > 0) {
                                             unless (grep(/^\Q$cc\E$/,@newcoowners)) {                                               unless (grep(/^\Q$cc\E$/,@newcoowners)) {
                                                 push(@newcoowners,$cc);                                                  push(@newcoowners,$cc);
                                             }                                              }
                                         } else {                                          } else {
Removed from v.1.22  
changed lines
  Added in v.1.23

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