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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.92 and 1.93.2.1

version 1.92, 2010/02/21 15:09:36 version 1.93.2.1, 2010/06/19 01:38:03
Line 306  sub display_matched_courses { Line 306  sub display_matched_courses {
             }              }
             my $cctitle = &Apache::lonnet::plaintext($ccrole,$type);              my $cctitle = &Apache::lonnet::plaintext($ccrole,$type);
             my $dctitle = &Apache::lonnet::plaintext('dc');              my $dctitle = &Apache::lonnet::plaintext('dc');
             my $ccrolechk = ' checked="checked" ';              my $ccrolechk = ' ';
             my $menuchk = ' ';              my $menuchk = ' checked="checked" ';
             if ($env{'form.prevphase'} ne '') {  
                 $ccrolechk = ' ';  
                 $menuchk = ' checked="checked" ';  
             }  
             $r->print(              $r->print(
                 '<fieldset>'                  '<fieldset>'
                .'<legend>'.&mt('Action').'</legend>'                 .'<legend>'.&mt('Action').'</legend>'
Line 410  sub display_matched_courses { Line 406  sub display_matched_courses {
                             if (grep(/^\*$/,@cloneable)) {                              if (grep(/^\*$/,@cloneable)) {
                                 $canclone = 1;                                  $canclone = 1;
                             }                              }
                             if (grep(/^\*:\Q$env{'form.clonerudom'}\E$/,@cloneable)) {                              if (grep(/^\*:\Q$clonerudom\E$/,@cloneable)) {
                                 $canclone = 1;                                  $canclone = 1;
                             }                              }
                             if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) {                              if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) {
Line 430  sub display_matched_courses { Line 426  sub display_matched_courses {
                 ($descr,$instcode,$singleowner,$ttype)=split(/:/,$courses{$course});                  ($descr,$instcode,$singleowner,$ttype)=split(/:/,$courses{$course});
                 push(@owners,&unescape($singleowner));                  push(@owners,&unescape($singleowner));
             }              }
             my $ownerstr = join(', ',@owners);              my $ownerstr = join(', ',map { &Apache::loncommon::plainname(split(':',$_)); } @owners);
             $r->print('<td>'.&course_chooser($multiple,$cdom,$cnum,$cleandesc,$canclone).'</td>');              $r->print('<td>'.&course_chooser($multiple,$cdom,$cnum,$cleandesc,$canclone).'</td>');
             $r->print('<td>'.$description.'</td>');              $r->print('<td>'.$description.'</td>');
             $r->print('<td>');              $r->print('<td>');
Removed from v.1.92  
changed lines
  Added in v.1.93.2.1

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