--- loncom/interface/courseprefs.pm 2016/11/13 16:20:54 1.49.2.22
+++ loncom/interface/courseprefs.pm 2020/02/12 17:27:40 1.49.2.25
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set configuration settings for a course
#
-# $Id: courseprefs.pm,v 1.49.2.22 2016/11/13 16:20:54 raeburn Exp $
+# $Id: courseprefs.pm,v 1.49.2.25 2020/02/12 17:27:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -375,7 +375,7 @@ sub handler {
help => 'Course_Prefs_General',
ordered => ['owner','co-owners','loncaparev','description',
'clonedfrom','courseid','uniquecode','categories',
- 'hidefromcat','externalsyllabus','cloners','url',
+ 'hidefromcat','syllabus','cloners','url',
'rolenames'],
itemtext => {
'owner' => $lt{'ownr'},
@@ -386,7 +386,7 @@ sub handler {
'categories' => $lt{'catg'},
'hidefromcat' => $lt{'excc'},
'cloners' => $lt{'clon'},
- 'externalsyllabus' => 'Syllabus status',
+ 'syllabus' => 'Syllabus status',
'url' => 'Top Level Map',
'rolenames' => $lt{'rept'},
'loncaparev' => $lt{'lcrv'},
@@ -763,7 +763,8 @@ sub process_changes {
(!$can_categorize));
next if (($entry eq 'loncaparev') ||
($entry eq 'owner') ||
- ($entry eq 'clonedfrom'));
+ ($entry eq 'clonedfrom') ||
+ ($entry eq 'syllabus'));
push(@ordered,$entry);
}
} elsif ($action eq 'classlists') {
@@ -2052,14 +2053,20 @@ sub print_courseinfo {
} else {
$replace = &mt('To replace the standard title for a course role, enter a title, otherwise leave blank');
}
+ my ($editmap,$editsyllabus);
+ unless ($noedit) {
+ $editmap = (' 'x2).
+ '".
+ &mt('Select Map').'
'.
+ &mt('Modification may make assessment data inaccessible!').
+ '';
+ $editsyllabus = &mt('[_1]Edit[_2]','',
+ '');
+ }
my %items = (
'url' => {
- text => ''.&mt($itemtext->{'url'}).''.(' 'x2).
- '".
- &mt('Select Map').'
'.
- &mt('Modification may make assessment data inaccessible!').
- '',
+ text => ''.&mt($itemtext->{'url'}).''.$editmap,
input => 'textbox',
size => '55',
advanced => 1
@@ -2101,11 +2108,10 @@ sub print_courseinfo {
size => '20',
advanced => 1
},
- 'externalsyllabus' => {
- text => ''.&mt($itemtext->{'externalsyllabus'}).'
'.
+ 'syllabus' => {
+ text => ''.&mt($itemtext->{'syllabus'}).'
'.
&mt('(Syllabus type in use)').(' ' x2).
- &mt('[_1]Edit[_2]','',
- ''),
+ $editsyllabus,
},
'hidefromcat' => {
text => ''.&mt($itemtext->{'hidefromcat'}).'
'.
@@ -2348,7 +2354,7 @@ sub print_courseinfo {
$datatable .= &manage_coownership($cnum,$cdom,\@currcoown,$noedit);
}
}
- } elsif ($item eq 'externalsyllabus') {
+ } elsif ($item eq 'syllabus') {
my $external = $env{'course.'.$env{'request.course.id'}.'.externalsyllabus'};
my $uploaded = $env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'};
my $minimal = $env{'course.'.$env{'request.course.id'}.'.minimalsyllabus'};
@@ -3525,7 +3531,7 @@ sub select_recipient {
my $domform = &Apache::loncommon::select_dom_form($cdom,$item.'_udom_'.$num,$includeempty);
my $selectlink =
&Apache::loncommon::selectstudent_link('display',$item.'_uname_'.$num,
- $item.'_udom_'.$num,1);
+ $item.'_udom_'.$num,'only');
my $output =
'
'.&mt('Username').' '. ' | '.