version 1.10, 2009/11/05 14:48:39
|
version 1.16, 2010/01/07 18:21:25
|
Line 101 sub handler {
|
Line 101 sub handler {
|
date => 'Locale used for community calendar', |
date => 'Locale used for community calendar', |
coco => 'Community Content', |
coco => 'Community Content', |
copo => 'Community Policy', |
copo => 'Community Policy', |
priv => 'Domain Coodinators in community', |
priv => 'Domain Coordinators in community', |
defd => 'Default dates for member access', |
defd => 'Default dates for member access', |
stuv => 'Member-viewable membership list options', |
stuv => 'Member-viewable membership list options', |
stul => 'Member agreement needed to be listed', |
stul => 'Member agreement needed to be listed', |
Line 126 sub handler {
|
Line 126 sub handler {
|
date => 'Locale used for course calendar', |
date => 'Locale used for course calendar', |
coco => 'Course Content', |
coco => 'Course Content', |
copo => 'Course Policy', |
copo => 'Course Policy', |
priv => 'Domain Coodinators in course', |
priv => 'Domain Coordinators in course', |
defd => 'Default dates for student access', |
defd => 'Default dates for student access', |
stuv => 'Student-viewable classlist options', |
stuv => 'Student-viewable classlist options', |
stul => 'Student agreement needed to be listed', |
stul => 'Student agreement needed to be listed', |
Line 281 sub handler {
|
Line 281 sub handler {
|
col2 => 'Value',}], |
col2 => 'Value',}], |
ordered => ['problem_stream_switch','suppress_tries', |
ordered => ['problem_stream_switch','suppress_tries', |
'default_paper_size','print_header_format', |
'default_paper_size','print_header_format', |
'disableexampointprint'], |
'disableexampointprint','canuse_pdfforms'], |
itemtext => { |
itemtext => { |
problem_stream_switch => 'Allow problems to be split over pages', |
problem_stream_switch => 'Allow problems to be split over pages', |
suppress_tries => 'Suppress number of tries in printing', |
suppress_tries => 'Suppress number of tries in printing', |
default_paper_size => 'Default paper type', |
default_paper_size => 'Default paper type', |
print_header_format => 'Print header format', |
print_header_format => 'Print header format', |
disableexampointprint => 'Disable automatically printing point values on exams', |
disableexampointprint => 'Disable automatically printing point values on exams', |
|
canuse_pdfforms => 'Users can print problems as PDF forms and upload later for grading', |
}, |
}, |
}, |
}, |
'spreadsheet' => |
'spreadsheet' => |
Line 332 sub handler {
|
Line 333 sub handler {
|
\@prefs_order,\%prefs,\%values, |
\@prefs_order,\%prefs,\%values, |
$cnum,undef,\@allitems); |
$cnum,undef,\@allitems); |
} elsif ($phase eq 'display') { |
} elsif ($phase eq 'display') { |
my $jscript = &get_jscript($cdom,$phase); |
my $jscript = &get_jscript($cdom,$phase,$crstype); |
my @allitems = &get_allitems(%prefs); |
my @allitems = &get_allitems(%prefs); |
&Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context, |
&Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context, |
\@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype); |
\@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype); |
Line 365 sub print_config_box {
|
Line 366 sub print_config_box {
|
my $itemtext = $item->{'itemtext'}; |
my $itemtext = $item->{'itemtext'}; |
my $rowtotal = 0; |
my $rowtotal = 0; |
my $output = |
my $output = |
'<table class="LC_nested_outer"> |
'<h3><a href="#">'.&mt($item->{text}).'</a></h3> |
<tr> |
<div> <span style="float:right">'. |
<th align="left" valign="middle"><span class="LC_font_larger">'. |
&Apache::loncommon::help_open_topic($item->{'help'}).'</span>'; |
&mt($item->{text}).' '. |
|
&Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n". |
|
'</tr>'; |
|
if (($action eq 'feedback') || ($action eq 'classlists')) { |
if (($action eq 'feedback') || ($action eq 'classlists')) { |
$output .= ' |
$output .= ' |
<tr> |
|
<td> |
|
<table class="LC_nested"> |
<table class="LC_nested"> |
<tr class="LC_info_row"> |
<tr class="LC_info_row"> |
<td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
<td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
Line 388 sub print_config_box {
|
Line 384 sub print_config_box {
|
} |
} |
$output .= ' |
$output .= ' |
</table> |
</table> |
</td> |
|
</tr> |
|
<tr> |
|
<td> |
|
<table class="LC_nested"> |
<table class="LC_nested"> |
<tr class="LC_info_row"> |
<tr class="LC_info_row"> |
<td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>'; |
<td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>'; |
Line 402 sub print_config_box {
|
Line 394 sub print_config_box {
|
$output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype). |
$output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype). |
' |
' |
</table> |
</table> |
</td> |
|
</tr> |
|
<tr> |
|
<td> |
|
<table class="LC_nested"> |
<table class="LC_nested"> |
<tr class="LC_info_row"> |
<tr class="LC_info_row"> |
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[2]->{'col1'}).'</td> |
Line 414 sub print_config_box {
|
Line 402 sub print_config_box {
|
} |
} |
} else { |
} else { |
$output .= ' |
$output .= ' |
<tr> |
|
<td> |
|
<table class="LC_nested"> |
<table class="LC_nested"> |
<tr class="LC_info_row"> |
<tr class="LC_info_row"> |
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
<td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td> |
Line 448 sub print_config_box {
|
Line 434 sub print_config_box {
|
} |
} |
$output .= ' |
$output .= ' |
</table> |
</table> |
</td> |
</div>'; |
</tr> |
|
</table><br />'; |
|
return ($output,$rowtotal); |
return ($output,$rowtotal); |
} |
} |
|
|
Line 983 sub store_changes {
|
Line 967 sub store_changes {
|
$displayname = &mt($text); |
$displayname = &mt($text); |
} |
} |
if (defined($yesno{$key})) { |
if (defined($yesno{$key})) { |
$displayval = 'no'; |
$displayval = &mt('No'); |
if ($changes->{$item}{$key} eq 'yes') { |
if ($changes->{$item}{$key} eq 'yes') { |
$displayval = 'yes'; |
$displayval = &mt('Yes'); |
} |
} |
} elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) { |
} elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) { |
$displayval = &Apache::lonlocal::locallocaltime($displayval); |
$displayval = &Apache::lonlocal::locallocaltime($displayval); |
} elsif ($key eq 'categories') { |
} elsif ($key eq 'categories') { |
$displayval = $env{'form.categories_display'}; |
$displayval = $env{'form.categories_display'}; |
} |
} elsif ($key eq 'canuse_pdfforms') { |
|
if ($changes->{$item}{$key} eq '1') { |
|
$displayval = &mt('Yes'); |
|
} elsif ($changes->{$item}{$key} eq '0') { |
|
$displayval = &mt('No'); |
|
} |
|
} |
if ($changes->{$item}{$key} eq '') { |
if ($changes->{$item}{$key} eq '') { |
push(@delkeys,$key); |
push(@delkeys,$key); |
$output .= '<li>'.&mt('Deleted setting for [_1]', |
$output .= '<li>'.&mt('Deleted setting for [_1]', |
Line 1037 sub store_changes {
|
Line 1027 sub store_changes {
|
$output .= &mt('An error occurred when removing course settings which are no longer in use.'); |
$output .= &mt('An error occurred when removing course settings which are no longer in use.'); |
} |
} |
$output .= '</span>'; |
$output .= '</span>'; |
|
} else { |
|
foreach my $key (@delkeys) { |
|
&Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key); |
|
} |
} |
} |
} |
} |
if (@need_env_update) { |
if (@need_env_update) { |
Line 1174 sub get_course {
|
Line 1168 sub get_course {
|
} |
} |
|
|
sub get_jscript { |
sub get_jscript { |
my ($cdom,$phase) = @_; |
my ($cdom,$phase,$crstype) = @_; |
my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom); |
my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype); |
my ($jscript,$categorize_js); |
my ($jscript,$categorize_js); |
my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript(); |
my $stubrowse_js = &Apache::loncommon::studentbrowser_javascript(); |
my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset'); |
my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset'); |
Line 1294 sub print_courseinfo {
|
Line 1288 sub print_courseinfo {
|
if (ref($cathash) eq 'HASH') { |
if (ref($cathash) eq 'HASH') { |
$categoriesform = |
$categoriesform = |
&Apache::loncommon::assign_categories_table($cathash, |
&Apache::loncommon::assign_categories_table($cathash, |
$settings->{'categories'})."\n"; |
$settings->{'categories'},$crstype)."\n"; |
} |
} |
} |
} |
if (!defined($categoriesform)) { |
if (!defined($categoriesform)) { |
$categoriesform = &mt('No categories defined for this domain'); |
$categoriesform = &mt('No categories defined in this domain.'); |
} |
} |
|
|
my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom); |
my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype); |
|
|
my $replace; |
my $replace; |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
Line 1507 sub new_cloners_dom_row {
|
Line 1501 sub new_cloners_dom_row {
|
} |
} |
|
|
sub can_modify_catsettings { |
sub can_modify_catsettings { |
my ($dom) = @_; |
my ($dom,$crstype) = @_; |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom); |
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom); |
my ($can_toggle_cat,$can_categorize); |
my ($can_toggle_cat,$can_categorize); |
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') { |
if ($crstype eq 'Community') { |
$can_toggle_cat = 1; |
if ($domconf{'coursecategories'}{'togglecatscomm'} eq 'comm') { |
} |
$can_toggle_cat = 1; |
if ($domconf{'coursecategories'}{'categorize'} eq 'crs') { |
} |
$can_categorize = 1; |
if ($domconf{'coursecategories'}{'categorizecomm'} eq 'comm') { |
|
$can_categorize = 1; |
|
} |
|
} else { |
|
if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') { |
|
$can_toggle_cat = 1; |
|
} |
|
if ($domconf{'coursecategories'}{'categorize'} eq 'crs') { |
|
$can_categorize = 1; |
|
} |
} |
} |
} |
} |
return ($can_toggle_cat,$can_categorize); |
return ($can_toggle_cat,$can_categorize); |
Line 1531 sub assign_course_categories {
|
Line 1534 sub assign_course_categories {
|
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
$cathash = $domconf{'coursecategories'}{'cats'}; |
$cathash = $domconf{'coursecategories'}{'cats'}; |
if (ref($cathash) eq 'HASH') { |
if (ref($cathash) eq 'HASH') { |
$hascats = 1; |
foreach my $cat (keys(%{$cathash})) { |
|
next if ($cat eq 'instcode::0'); |
|
unless ($crstype eq 'Community') { |
|
next if ($cat eq 'communities::0'); |
|
} |
|
$hascats ++; |
|
} |
} |
} |
} |
} |
my $catwin_js; |
my $catwin_js; |
Line 1597 ENDSCRIPT
|
Line 1606 ENDSCRIPT
|
if ($hascats) { |
if ($hascats) { |
my %currsettings = |
my %currsettings = |
&Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum); |
&Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum); |
$categoriesform .= $assign.'<br /><br />'. |
my $cattable = &Apache::loncommon::assign_categories_table($cathash, |
'<form name="chgcats" action="/adm/courseprefs" method="post">'."\n". |
$currsettings{'categories'},$crstype); |
&Apache::loncommon::assign_categories_table($cathash, |
if ($cattable eq '') { |
$currsettings{'categories'})."\n". |
$categoriesform .= &mt('No suitable categories defined for this course type in this domain.'); |
'<br /><input type="button" name="changes" value="'. |
} else { |
&mt('Copy to main window').'" '. |
$categoriesform .= $assign.'<br /><br />'. |
'onclick="javascript:updateCategories()" /></form><br />'; |
'<form name="chgcats" action="/adm/courseprefs" method="post">'."\n". |
|
$cattable."\n". |
|
'<br /><input type="button" name="changes" value="'. |
|
&mt('Copy to main window').'" '. |
|
'onclick="javascript:updateCategories()" /></form><br />'; |
|
} |
} else { |
} else { |
$categoriesform .= &mt('No categories defined for this domain'); |
$categoriesform .= &mt('No categories defined in this domain.'); |
} |
} |
$r->print($start_page.$categoriesform.$end_page); |
$r->print($start_page.$categoriesform.$end_page); |
return; |
return; |
Line 2201 sub print_grading {
|
Line 2215 sub print_grading {
|
input => 'selectbox', |
input => 'selectbox', |
options => { |
options => { |
standard => &mt('Standard: shows points'), |
standard => &mt('Standard: shows points'), |
external => &mt('External: shows number of completed parts'), |
external => &mt('External: shows number of completed parts and totals'), |
|
externalnototals => &mt('External: shows only number of completed parts'), |
spreadsheet => &mt('Spreadsheet: (with link to detailed scores)'), |
spreadsheet => &mt('Spreadsheet: (with link to detailed scores)'), |
}, |
}, |
order => ['standard','external','spreadsheet'], |
order => ['standard','external','externalnototals','spreadsheet'], |
}, |
}, |
'rndseed' => { |
'rndseed' => { |
text => '<b>'.&mt($itemtext->{'rndseed'}).'</b>'. |
text => '<b>'.&mt($itemtext->{'rndseed'}).'</b>'. |
Line 2280 sub print_printouts {
|
Line 2295 sub print_printouts {
|
text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>', |
text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>', |
input => 'radio', |
input => 'radio', |
}, |
}, |
|
canuse_pdfforms => { |
|
text => '<b>'.&mt($itemtext->{'canuse_pdfforms'}).'</b>', |
|
input => 'selectbox', |
|
options => { |
|
1 => &mt('Yes'), |
|
0 => &mt('No'), |
|
}, |
|
order => ['1','0'], |
|
nullval => 'None specified - use domain default', |
|
} |
); |
); |
return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype); |
return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype); |
} |
} |