version 1.3, 2009/05/12 21:20:42
|
version 1.8, 2009/10/13 04:48:03
|
Line 66 sub handler {
|
Line 66 sub handler {
|
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
|
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['phase','actions','origin']); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
if ($env{'form.origin'} eq 'params') { |
|
&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset", |
|
text=>"Parameter Manager"}); |
|
} |
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/courseprefs', |
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/courseprefs', |
text=>"Course Configuration"}); |
text=>"Course Configuration"}); |
my $breadcrumbs = |
my $breadcrumbs = |
&Apache::lonhtmlcommon::breadcrumbs('Edit Course Configuration'); |
&Apache::lonhtmlcommon::breadcrumbs('Edit Course Configuration'); |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['phase','actions']); |
|
|
|
my $phase = 'pickactions'; |
my $phase = 'pickactions'; |
if ( exists($env{'form.phase'}) ) { |
if ( exists($env{'form.phase'}) ) { |
$phase = $env{'form.phase'}; |
$phase = $env{'form.phase'}; |
Line 188 sub handler {
|
Line 191 sub handler {
|
default_xml_style => 'Default XML Style File', |
default_xml_style => 'Default XML Style File', |
pageseparators => 'Visibly Separate Items on Pages', |
pageseparators => 'Visibly Separate Items on Pages', |
disable_receipt_display => 'Disable display of problem receipts', |
disable_receipt_display => 'Disable display of problem receipts', |
texengine => 'Force use of a specific math rendering engine.', |
texengine => 'Force use of a specific math rendering engine', |
tthoptions => 'Default set of options to pass to tth/m when converting TeX', |
tthoptions => 'Default set of options to pass to tth/m when converting TeX', |
}, |
}, |
}, |
}, |
Line 248 sub handler {
|
Line 251 sub handler {
|
itemtext => { |
itemtext => { |
task_messages => 'Send message to student when clicking Done on Tasks', |
task_messages => 'Send message to student when clicking Done on Tasks', |
task_grading => 'Bridge Task grading by instructors and TAs in sections' , |
task_grading => 'Bridge Task grading by instructors and TAs in sections' , |
suppress_embed_prompt => 'Hi$de upload references prompt if uploading file to portfolio', |
suppress_embed_prompt => 'Hide upload references prompt if uploading file to portfolio', |
}, |
}, |
}, |
}, |
'other' => |
'other' => |
Line 551 sub process_changes {
|
Line 554 sub process_changes {
|
if ($newvalues{$ext_entry} ne $values->{$stdrole.'.plaintext'}) { |
if ($newvalues{$ext_entry} ne $values->{$stdrole.'.plaintext'}) { |
my $dupname = 0; |
my $dupname = 0; |
if ($newvalues{$ext_entry} ne '') { |
if ($newvalues{$ext_entry} ne '') { |
my $dupname = 0; |
|
if (grep(/^\Q$newvalues{$ext_entry}\E$/,@replacements)) { |
if (grep(/^\Q$newvalues{$ext_entry}\E$/,@replacements)) { |
$dupname = 1; |
$dupname = 1; |
push(@{$disallowed->{'rolenames'}{'replacements'}},$newvalues{$ext_entry}); |
push(@{$disallowed->{'rolenames'}{'replacements'}},$newvalues{$ext_entry}); |
Line 652 sub process_changes {
|
Line 654 sub process_changes {
|
} |
} |
foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
if ($key =~ /^form\.\Q$entry\E_($match_username:$match_domain)$/) { |
if ($key =~ /^form\.\Q$entry\E_($match_username:$match_domain)$/) { |
if ($env{'form.'.$key}) { |
if ($env{$key}) { |
my $nothide = $1; |
my $nothide = $1; |
if (!grep(/^\Q$nothide\E$/,@new_nothide)) { |
if (!grep(/^\Q$nothide\E$/,@new_nothide)) { |
push(@new_nothide,$nothide); |
push(@new_nothide,$nothide); |
Line 1421 sub assign_course_categories {
|
Line 1423 sub assign_course_categories {
|
} |
} |
my $catwin_js; |
my $catwin_js; |
if ($hascats) { |
if ($hascats) { |
my $alert = &mt('Use \"Save\" in the main window to save course categories'); |
my $alert = &mt("Use 'Save' in the main window to save course categories"); |
$catwin_js = <<ENDSCRIPT; |
$catwin_js = <<ENDSCRIPT; |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
|
Line 1755 sub print_discussion {
|
Line 1757 sub print_discussion {
|
'plc.roles.denied' => { |
'plc.roles.denied' => { |
text => '<b>'.&mt($itemtext->{'plc.roles.denied'}).'</b>'. |
text => '<b>'.&mt($itemtext->{'plc.roles.denied'}).'</b>'. |
&Apache::loncommon::help_open_topic("Course_Disable_Discussion"). |
&Apache::loncommon::help_open_topic("Course_Disable_Discussion"). |
&mt('(roles-based)'), |
&mt('(role-based)'), |
input => 'checkbox', |
input => 'checkbox', |
}, |
}, |
|
|
Line 2073 sub print_grading {
|
Line 2075 sub print_grading {
|
}, |
}, |
'receiptalg' => { |
'receiptalg' => { |
text => '<b>'.&mt($itemtext->{'receiptalg'}).'</b><br />'. |
text => '<b>'.&mt($itemtext->{'receiptalg'}).'</b><br />'. |
&mt('This controls how receipt numbers are generated.'), |
&mt('This controls how receipt numbers are generated'), |
input => 'selectbox', |
input => 'selectbox', |
options => { |
options => { |
receipt => 'receipt', |
receipt => 'receipt', |
Line 2408 sub nothidepriv_row {
|
Line 2410 sub nothidepriv_row {
|
} |
} |
} |
} |
if (exists($privileged{$udom}{$uname})) { |
if (exists($privileged{$udom}{$uname})) { |
push(@privusers,$user); |
unless (grep(/^\Q$user\E$/,@privusers)) { |
|
push(@privusers,$user); |
|
} |
} |
} |
} |
} |
if (@privusers) { |
if (@privusers) { |
Line 2428 sub nothidepriv_row {
|
Line 2432 sub nothidepriv_row {
|
'</td><td align="left">'. |
'</td><td align="left">'. |
'<span class="LC_nobreak"><label>'. |
'<span class="LC_nobreak"><label>'. |
'<input type="radio" name="'.$item.'_'.$user.'"'. |
'<input type="radio" name="'.$item.'_'.$user.'"'. |
$hideon.' value="yes" />'.&mt('Hidden').'</label> '. |
$hideon.' value="" />'.&mt('Hidden').'</label> '. |
'<label><input type="radio" name="'.$item.'_'.$user.'"'. $hideoff.' value="" />'.&mt('Shown').'</label></span></td>'. |
'<label><input type="radio" name="'.$item.'_'.$user.'"'. $hideoff.' value="yes" />'.&mt('Shown').'</label></span></td>'. |
'</tr>'; |
'</tr>'; |
} |
} |
$datatable .= '</table>'; |
$datatable .= '</table>'; |