[LON-CAPA-cvs] cvs: loncom /interface lonpickcourse.pm
raeburn
raeburn@source.lon-capa.org
Mon, 08 Mar 2010 14:43:46 -0000
raeburn Mon Mar 8 14:43:46 2010 EDT
Modified files:
/loncom/interface lonpickcourse.pm
Log:
- Make "view or modify course settings" the default when DC selects
a course via "Modify Course".
- Display fullname instead of username:domain in Owner/Co-owner column
in display of selectable courses matching current filters.
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.92 loncom/interface/lonpickcourse.pm:1.93
--- loncom/interface/lonpickcourse.pm:1.92 Sun Feb 21 15:09:36 2010
+++ loncom/interface/lonpickcourse.pm Mon Mar 8 14:43:46 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.92 2010/02/21 15:09:36 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.93 2010/03/08 14:43:46 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -306,12 +306,8 @@
}
my $cctitle = &Apache::lonnet::plaintext($ccrole,$type);
my $dctitle = &Apache::lonnet::plaintext('dc');
- my $ccrolechk = ' checked="checked" ';
- my $menuchk = ' ';
- if ($env{'form.prevphase'} ne '') {
- $ccrolechk = ' ';
- $menuchk = ' checked="checked" ';
- }
+ my $ccrolechk = ' ';
+ my $menuchk = ' checked="checked" ';
$r->print(
'<fieldset>'
.'<legend>'.&mt('Action').'</legend>'
@@ -430,7 +426,7 @@
($descr,$instcode,$singleowner,$ttype)=split(/:/,$courses{$course});
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>'.$description.'</td>');
$r->print('<td>');