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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.93 and 1.94

version 1.93, 2015/08/24 14:50:22 version 1.94, 2015/09/01 14:11:26
Line 4849  sub clone_selection_table { Line 4849  sub clone_selection_table {
                 my $cleantitle=&HTML::Entities::encode($title,'<>&"');                  my $cleantitle=&HTML::Entities::encode($title,'<>&"');
                 $cleantitle=~s/'/\\'/g;                  $cleantitle=~s/'/\\'/g;
                 $cleantitle =~ s/^\s+//;                  $cleantitle =~ s/^\s+//;
                 my ($namestr,@owners,%ownernames);                  my ($namestr,$singleowner,$otherowners,@owners,%ownernames);
                 my $singleowner = $cloneableref->{$cid}{'internal.courseowner'};                  if ($name eq 'colleague') {
                 push(@owners,$singleowner);                      $singleowner = $cloneableref->{$cid}{'owner'};
                 if ($cloneableref->{$cid}{'co-owners'} ne '') {                      $otherowners = $cloneableref->{$cid}{'co-owners'};
                     foreach my $item (split(/,/,$cloneableref->{$cid}{'internal.co-owners'})) {                  } else {
                         push(@owners,$item);                      $singleowner = $cloneableref->{$cid}{'internal.courseowner'};
                       $otherowners = $cloneableref->{$cid}{'internal.co-owners'};
                   }
                   if ($singleowner ne '') {
                       push(@owners,$singleowner);
                   }
                   if ($otherowners ne '') {
                       foreach my $item (split(/,/,$otherowners)) {
                           if (($item ne '') && (!grep(/^\Q$item\E$/,@owners))) {
                               push(@owners,$item);
                           }
                     }                      }
                 }                  }
                 foreach my $owner (@owners) {                  foreach my $owner (@owners) {
Removed from v.1.93  
changed lines
  Added in v.1.94

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