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

version 1.93, 2015/08/24 14:50:22 version 1.95.2.1, 2016/08/04 21:59:23
Line 3162  sub clone_form { Line 3162  sub clone_form {
         &Apache::loncommon::select_dom_form($dom,'clonedom').'</label>'.          &Apache::loncommon::select_dom_form($dom,'clonedom').'</label>'.
         &Apache::lonhtmlcommon::row_closure(1).          &Apache::lonhtmlcommon::row_closure(1).
         &Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.          &Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.
         '<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','','$type'".')" />'.          '<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','$type'".')" />'.
         '</label>&nbsp;'.          '</label>&nbsp;'.
         &Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type).          &Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type).
         &Apache::lonhtmlcommon::row_closure(1).          &Apache::lonhtmlcommon::row_closure(1).
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.2.1

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