--- loncom/interface/courseprefs.pm 2010/12/24 16:50:38 1.36
+++ loncom/interface/courseprefs.pm 2011/01/14 00:18:47 1.41
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set configuration settings for a course
#
-# $Id: courseprefs.pm,v 1.36 2010/12/24 16:50:38 raeburn Exp $
+# $Id: courseprefs.pm,v 1.41 2011/01/14 00:18:47 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -268,8 +268,8 @@ sub handler {
my %lt;
if ($crstype eq 'Community') {
%lt = (
- conf => 'Community Configuration',
- edit => 'Edit Community Configuration',
+ conf => 'Community Settings',
+ edit => 'Edit Community Settings',
gens => 'General community settings',
idnu => 'Community ID or number',
desc => 'Community Description',
@@ -295,8 +295,8 @@ sub handler {
);
} else {
%lt = (
- conf => 'Course Configuration',
- edit => 'Edit Course Configuration',
+ conf => 'Course Settings',
+ edit => 'Edit Course Settings',
gens => 'General course settings',
idnu => 'Course ID or number',
desc => 'Course Description',
@@ -1708,8 +1708,7 @@ sub print_courseinfo {
text => ''.&mt($itemtext->{'cloners'}).'
'.
&mt('Owner and Coordinators included automatically'),
input => 'textbox',
- size => '40',
- advanced => 1
+ size => '40'
},
'rolenames' => {
text => ''.&mt($itemtext->{'rolenames'}).'
'.
@@ -1901,7 +1900,7 @@ sub print_courseinfo {
my $showreqd;
if ($loncaparev) {
$showreqd = &mt('[_1] or newer',$loncaparev).' '.
- &mt('Details').'',
+ &mt('Details').'';
} else {
$showreqd = &mt('No specific version required');
}
@@ -2069,23 +2068,21 @@ sub display_loncaparev_constraints {
my $cdom = $env{'course.'.$cid.'.domain'};
my $cnum = $env{'course.'.$cid.'.num'};
my $output;
+ my %lt = &Apache::lonlocal::texthash (
+ 'all' => 'all',
+ 'section/group' => 'section/group',
+ 'user' => 'user',
+ );
my (%checkparms,%checkresponsetypes,%checkcrstypes,%anonsurvey,%randomizetry);
&Apache::loncommon::build_release_hashes(\%checkparms,\%checkresponsetypes,
\%checkcrstypes,\%anonsurvey,\%randomizetry);
-
-# my %paramstrings =
-# ('string_questiontype' =>
-# [[ 'anonsurveycred', 'Anonymous Survey'],
-# [ 'anonsurvey', 'Anonymous Survey'],
-# [ 'randomizetry', 'New Randomization Each N Tries']]
-# );
if (defined($checkcrstypes{$crstype})) {
$output .= '
'.&mt('Setting - scope: [_1]',$scope).' | '); + $r->print('||
'.&mt('Setting - scope: [_1]',$lt->{$scope}).' | '); foreach my $which (sort(keys(%{$byresource->{$symb}{$rev}{$scope}}))) { $r->print(''.$which.' | '.
join(' ',@{$byresource->{$symb}{$rev}{$scope}{$which}}). @@ -2414,7 +2412,7 @@ sub show_contents_view { } $r->print(' |
'.&mt('Setting - scope: [_1]',$scope).' | '. + $r->print('||
'.&mt('Setting - scope: [_1]',$lt->{$scope}).' | '. ''.
join(' ',@{$byresource->{$symb}{$rev}{$scope}}).' |
'.&mt('Setting - scope: [_1]',$scope).' | '); + $r->print('||
'.&mt('Setting - scope: [_1]',$lt->{$scope}).' | '); foreach my $which (sort(keys(%{$bymap->{$url}{$rev}{$scope}}))) { $r->print(''.$which.' | '.
join(' ',@{$bymap->{$url}{$rev}{$scope}{$which}}). @@ -2480,7 +2478,7 @@ sub releases_by_map { } $r->print(' |
'.&mt('Setting - scope: [_1]',$scope). + $r->print(' | ||
'.&mt('Setting - scope: [_1]',$lt->{$scope}). ' | '.
join(' ',@{$bymap->{$url}{$rev}{$scope}}).' |