[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.95

version 1.93, 2015/08/24 14:50:22 version 1.95, 2015/09/01 16:40:20
Line 4554  sub print_textbook_form { Line 4554  sub print_textbook_form {
         $cc_clone .= $cdom.':'.$cnum.'&';          $cc_clone .= $cdom.':'.$cnum.'&';
         unless (exists($cloneable{$cdom.'_'.$cnum})) {          unless (exists($cloneable{$cdom.'_'.$cnum})) {
             my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{'one_time' => 1});              my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{'one_time' => 1});
             $cloneable{$cdom.'_'.$cnum} = \%courseinfo;              $cloneable{$cdom.'_'.$cnum} = {
                                                  context => $courseinfo{'internal.creationcontext'},
                                                  created => $courseinfo{'internal.created'},
                                                  creator => $courseinfo{'internal.creator'},
                                                  description => $courseinfo{'description'},
                                                  inst_code => $courseinfo{'coursecode'},
                                                  owner => $courseinfo{'internal.courseowner'},
                                                  releaserequired => $courseinfo{'internal.releaserequired'},
                                                  type  => $courseinfo{'type'},
                                              };
         }          }
     }      }
   
Line 4850  sub clone_selection_table { Line 4859  sub clone_selection_table {
                 $cleantitle=~s/'/\\'/g;                  $cleantitle=~s/'/\\'/g;
                 $cleantitle =~ s/^\s+//;                  $cleantitle =~ s/^\s+//;
                 my ($namestr,@owners,%ownernames);                  my ($namestr,@owners,%ownernames);
                 my $singleowner = $cloneableref->{$cid}{'internal.courseowner'};                  if ($cloneableref->{$cid}{'owner'} ne '') {
                 push(@owners,$singleowner);                      push(@owners,$cloneableref->{$cid}{'owner'});
                   }
                 if ($cloneableref->{$cid}{'co-owners'} ne '') {                  if ($cloneableref->{$cid}{'co-owners'} ne '') {
                     foreach my $item (split(/,/,$cloneableref->{$cid}{'internal.co-owners'})) {                      foreach my $item (split(/,/,$cloneableref->{$cid}{'co-owners'})) {
                         push(@owners,$item);                          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.95

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