loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.92, 2010/02/21 15:09:36	version 1.93, 2010/03/08 14:43:46
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 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>');