loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/courseprefs.pm between versions 1.9 and 1.21

version 1.9, 2009/10/29 14:57:18	version 1.21, 2010/01/18 20:14: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 161 sub handler {	Line 161 sub handler {
'courseinfo' =>	'courseinfo' =>
{ text => $lt{'gens'},	{ text => $lt{'gens'},
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Setting',
col2 => 'Value'}],
ordered => ['description','courseid','categories',	ordered => ['description','courseid','categories',
'hidefromcat','cloners','externalsyllabus',	'hidefromcat','externalsyllabus',
'url','rolenames'],	'cloners','url','rolenames'],
itemtext => {	itemtext => {
description => $lt{'desc'},	description => $lt{'desc'},
courseid => $lt{'idnu'},	courseid => $lt{'idnu'},
Line 178 sub handler {	Line 176 sub handler {
},	},
},	},
'localization' =>	'localization' =>
{ text => 'Language/TimeZone/Locale',	{ text => 'Language & Time Localization',
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Setting',
col2 => 'Value',}],
ordered => ['languages','timezone','datelocale'],	ordered => ['languages','timezone','datelocale'],
itemtext => {	itemtext => {
languages => 'Languages used',	languages => 'Languages used',
Line 193 sub handler {	Line 189 sub handler {
{ text => 'Feedback messages',	{ text => 'Feedback messages',
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Questions about:',	header => [{col1 => 'Questions about:',
col2 => 'Recipients'},	col2 => 'Recipients'}],
{col1 => 'Questions about:',
col2 => 'Custom Text'}],
ordered => ['question.email','comment.email','policy.email'],	ordered => ['question.email','comment.email','policy.email'],
itemtext => {	itemtext => {
'question.email' => 'Resource Content',	'question.email' => 'Resource Content',
Line 206 sub handler {	Line 200 sub handler {
'discussion' =>	'discussion' =>
{ text => 'Discussion and Chat',	{ text => 'Discussion and Chat',
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Setting',
col2 => 'Value',}],
ordered => ['plc.roles.denied','plc.users.denied',	ordered => ['plc.roles.denied','plc.users.denied',
'pch.roles.denied','pch.users.denied',	'pch.roles.denied','pch.users.denied',
'allow_limited_html_in_feedback',	'allow_limited_html_in_feedback',
Line 217 sub handler {	Line 209 sub handler {
'plc.users.denied' => 'No Resource Discussion',	'plc.users.denied' => 'No Resource Discussion',
'pch.roles.denied' => 'No Chat room use',	'pch.roles.denied' => 'No Chat room use',
'pch.users.denied' => 'No Chat room use',	'pch.users.denied' => 'No Chat room use',
allow_limited_html_in_feedback => 'Allow limited HTML in discussion posts',	allow_limited_html_in_feedback => 'Allow limited HTML in discussion',
allow_discussion_post_editing => 'Users can edit/delete own discussion posts',	allow_discussion_post_editing => 'Users can edit/delete own discussion posts',
},	},
},	},
Line 246 sub handler {	Line 238 sub handler {
'appearance' =>	'appearance' =>
{ text => 'Display of resources ',	{ text => 'Display of resources ',
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Setting',
col2 => 'Value'}],
ordered => ['default_xml_style','pageseparators',	ordered => ['default_xml_style','pageseparators',
'disable_receipt_display','texengine',	'disable_receipt_display','texengine',
'tthoptions'],	'tthoptions'],
itemtext => {	itemtext => {
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',
Line 262 sub handler {	Line 252 sub handler {
'grading' =>	'grading' =>
{ text => 'Grading',	{ text => 'Grading',
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Setting',
col2 => 'Value',}],
ordered => ['grading','rndseed',	ordered => ['grading','rndseed',
'receiptalg','disablesigfigs'],	'receiptalg','disablesigfigs'],
itemtext => {	itemtext => {
Line 277 sub handler {	Line 265 sub handler {
'printouts' =>	'printouts' =>
{ text => 'Printout generation',	{ text => 'Printout generation',
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Setting',
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' =>
{ text => 'Spreadsheets',	{ text => 'Spreadsheets',
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Setting',
col2 => 'Value'}],
ordered => ['spreadsheet_default_classcalc',	ordered => ['spreadsheet_default_classcalc',
'spreadsheet_default_studentcalc',	'spreadsheet_default_studentcalc',
'spreadsheet_default_assesscalc','hideemptyrows'],	'spreadsheet_default_assesscalc','hideemptyrows'],
Line 308 sub handler {	Line 293 sub handler {
'bridgetasks' =>	'bridgetasks' =>
{ text => 'Bridge tasks',	{ text => 'Bridge tasks',
help => 'Course_Environment',	help => 'Course_Environment',
header => [{col1 => 'Setting',
col2 => 'Value'}],
ordered => ['task_messages','task_grading',	ordered => ['task_messages','task_grading',
'suppress_embed_prompt'],	'suppress_embed_prompt'],
itemtext => {	itemtext => {
Line 332 sub handler {	Line 315 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 348 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>	<table class="LC_nested">';
<td>	if (exists $item->{'header'}->[0]->{'col1'} \|\|
<table class="LC_nested">	exists $item->{'header'}->[0]->{'col2'}) {
<tr class="LC_info_row">	$output .= '
	<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>
<td class="LC_right_item">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>	<td class="LC_right_item">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>
</tr>';	</tr>';
	}
$rowtotal ++;	$rowtotal ++;
if ($action eq 'feedback') {	if ($action eq 'feedback') {
$output .= &print_feedback('top',$cdom,$settings,$ordered,$itemtext,\$rowtotal);	$output .= &print_feedback('top',$cdom,$settings,$ordered,$itemtext,\$rowtotal);
Line 388 sub print_config_box {	Line 370 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 380 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>	<table class="LC_nested">';
</tr>	if (exists $item->{'header'}->[0]->{'col1'} \|\|
<tr>	exists $item->{'header'}->[0]->{'col2'}) {
<td>	$output .= '
<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" valign="top">'.&mt($item->{'header'}->[2]->{'col1'}).'</td>	<td class="LC_right_item">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>
<td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[2]->{'col2'}).'</td>	</tr>';
</tr>';	}
}	}
} else {	} else {
$output .= '	$output .= '
<tr>	<table class="LC_nested">';
<td>	if (exists $item->{'header'}->[0]->{'col1'} \|\|
<table class="LC_nested">	exists $item->{'header'}->[0]->{'col2'}) {
<tr class="LC_info_row">	$output .= '
	<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>
<td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>	<td class="LC_right_item" valign="top">'.&mt($item->{'header'}->[0]->{'col2'}).'</td>
</tr>';	</tr>';
	}
}	}
$rowtotal ++;	$rowtotal ++;
if ($action eq 'courseinfo') {	if ($action eq 'courseinfo') {
Line 448 sub print_config_box {	Line 428 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 961 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 1021 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 1162 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 1282 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 1319 sub print_courseinfo {	Line 1307 sub print_courseinfo {
'</span>',	'</span>',
input => 'textbox',	input => 'textbox',
size => '40',	size => '40',
	advanced => 1
},	},
'description' => {	'description' => {
text => '<b>'.&mt($itemtext->{'description'}).'</b>',	text => '<b>'.&mt($itemtext->{'description'}).'</b>',
Line 1336 sub print_courseinfo {	Line 1325 sub print_courseinfo {
&mt('Coordinators included automatically'),	&mt('Coordinators included automatically'),
input => 'textbox',	input => 'textbox',
size => '40',	size => '40',
	advanced => 1
},	},
'rolenames' => {	'rolenames' => {
text => '<b>'.&mt($itemtext->{'rolenames'}).'</b><br />'.	text => '<b>'.&mt($itemtext->{'rolenames'}).'</b><br />'.
'('.$replace.')',	'('.$replace.')',
input => 'textbox',	input => 'textbox',
size => '20',	size => '20',
	advanced => 1
},	},
'externalsyllabus' => {	'externalsyllabus' => {
text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />('.	text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />('.
Line 1370 sub print_courseinfo {	Line 1361 sub print_courseinfo {
next if (!$can_categorize);	next if (!$can_categorize);
}	}
$count ++;	$count ++;
$datatable .= &item_table_row_start($items{$item}{text},$count);	if (exists $items{$item}{advanced} && $items{$item}{advanced} == 1) {
	$datatable .= &item_table_row_start($items{$item}{text},$count,"advanced");
	} else {
	$datatable .= &item_table_row_start($items{$item}{text},$count);
	}
if ($items{$item}{input} eq 'radio') {	if ($items{$item}{input} eq 'radio') {
$datatable .= &yesno_radio($item,$settings);	$datatable .= &yesno_radio($item,$settings);
} elsif ($item eq 'cloners') {	} elsif ($item eq 'cloners') {
Line 1507 sub new_cloners_dom_row {	Line 1502 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 1535 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 1607 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 1618 sub print_localization {	Line 1633 sub print_localization {
}	}
my %items = (	my %items = (
languages => {	languages => {
text => &mt($itemtext->{'languages'}).'<br />'.	text => '<b>'.&mt($itemtext->{'languages'}).'</b><br />'.
&mt("(will override user's preference)"),	&mt("(overrides individual user preference)"),
input => 'selectbox',	input => 'selectbox',
},	},
timezone => {	timezone => {
text => &mt($itemtext->{'timezone'}),	text => '<b>'.&mt($itemtext->{'timezone'}).'</b>',
input => 'selectbox',	input => 'selectbox',
},	},
datelocale => {	datelocale => {
text => &mt($itemtext->{'datelocale'}),	text => '<b>'.&mt($itemtext->{'datelocale'}).'</b>',
input => 'selectbox',	input => 'selectbox',
},	},
);	);
Line 1736 sub print_feedback {	Line 1751 sub print_feedback {
my %sections = &Apache::loncommon::get_sections($cdom,$cnum);	my %sections = &Apache::loncommon::get_sections($cdom,$cnum);
my @sections = sort( { $a <=> $b } keys(%sections));	my @sections = sort( { $a <=> $b } keys(%sections));
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
currone => 'Current recipient:',	currone => 'Current recipient:',
curmult => 'Current recipients:',	currmult => 'Current recipients:',
add => 'Additional recipient:',	add => 'Additional recipient:',
del => 'Delete?',	del => 'Delete?',
sec => 'Sections:',	sec => 'Sections:',
);	);

foreach my $item (@{$ordered}) {	foreach my $item (@{$ordered}) {
$count ++;	$count ++;
$datatable .= &item_table_row_start($items{$item}{text},$count);	if ($position eq 'top') {
	$datatable .= &item_table_row_start($items{$item}{text},$count);
	} else {
	$datatable .= &item_table_row_start($items{$item}{text}."<br/>(Custom text)",$count, "advanced");
	}
if ($position eq 'top') {	if ($position eq 'top') {
my $includeempty = 0;	my $includeempty = 0;
$datatable .= &user_table($cdom,$item,\@sections,	$datatable .= &user_table($cdom,$item,\@sections,
Line 1768 sub user_table {	Line 1787 sub user_table {
} else {	} else {
my $num = 0;	my $num = 0;
my @curr = split(/,/,$currvalue);	my @curr = split(/,/,$currvalue);
$output .= &Apache::loncommon::start_data_table();	$output .= '<table class="LC_nested_outer">';
my ($currusers);	my ($currusers);
foreach my $val (@curr) {	foreach my $val (@curr) {
next if ($val eq '');	next if ($val eq '');
Line 1799 sub user_table {	Line 1818 sub user_table {
$num ++;	$num ++;
}	}
if ($num) {	if ($num) {
$output .= &Apache::loncommon::start_data_table_row().	$output .= '<tr>'.
'<td align="left"><i>';	'<td align="left"><i>';
if ($num > 1) {	if ($num == 1) {
$output .= $lt->{'currone'};	$output .= $lt->{'currone'};
} else {	} else {
$output .= $lt->{'currmult'};	$output .= $lt->{'currmult'};
}	}
$output .= '</i><br />'.	$output .= '</i><br />'.
'<table>'.$currusers.'</table></td>'.	'<table>'.$currusers.'</table></td>'.
&Apache::loncommon::end_data_table_row();	'</tr>';
}	}
$output .= &Apache::loncommon::start_data_table_row().	$output .= '<tr>'.
'<td align="left"><span class="LC_nobreak"><i>'.	'<td align="left"><span class="LC_nobreak"><i>'.
$lt->{'add'}.'</i></span><br />'.	$lt->{'add'}.'</i></span><br />'.
&select_recipient($item,$num,$cdom,$sections).	&select_recipient($item,$num,$cdom,$sections).
'<input type="hidden" name="'.$item.'_total" value="'.$num.'" />'.	'<input type="hidden" name="'.$item.'_total" value="'.$num.'" />'.
'</td>'.&Apache::loncommon::end_data_table_row().	'</td></tr></table>';
&Apache::loncommon::end_data_table();
}	}
return $output;	return $output;
}	}
Line 1827 sub select_recipient {	Line 1845 sub select_recipient {
my $selectlink =	my $selectlink =
&Apache::loncommon::selectstudent_link('display',$item.'_uname_'.$num,	&Apache::loncommon::selectstudent_link('display',$item.'_uname_'.$num,
$item.'_udom_'.$num,1);	$item.'_udom_'.$num,1);
my $css_class = ($num % 2)?'LC_even_row':'LC_odd_row';
my $output =	my $output =
'<table><tr class="'.$css_class.'"><td align="center">'.&mt('Username').'<br />'.	'<table><tr><td align="center">'.&mt('Username').'<br />'.
'<input type="text" name="'.$item.'_uname_'.$num.'" value="" /></td>'.	'<input type="text" name="'.$item.'_uname_'.$num.'" value="" /></td>'.
'<td align="center">'.&mt('Domain').'<br />'.$domform.'</td>';	'<td align="center">'.&mt('Domain').'<br />'.$domform.'</td>';
if (ref($sections) eq 'ARRAY') {	if (ref($sections) eq 'ARRAY') {
Line 1883 sub print_discussion {	Line 1900 sub print_discussion {
}	}
my %items = (	my %items = (
'plc.roles.denied' => {	'plc.roles.denied' => {
text => '<b>'.&mt($itemtext->{'plc.roles.denied'}).'</b>'.	text => '<span class="LC_nobreak"><b>'.&mt($itemtext->{'plc.roles.denied'}).'</b>'.
&Apache::loncommon::help_open_topic("Course_Disable_Discussion").	&Apache::loncommon::help_open_topic("Course_Disable_Discussion").'</span><br />'.
&mt('(role-based)'),	&mt('(role-based)'),
input => 'checkbox',	input => 'checkbox',
},	},
Line 1896 sub print_discussion {	Line 1913 sub print_discussion {
},	},

'pch.roles.denied' => {	'pch.roles.denied' => {
text => '<b>'.&mt($itemtext->{'pch.roles.denied'}).'</b>'.	text => '<span class="LC_nobreak"><b>'.&mt($itemtext->{'pch.roles.denied'}).'</b>'.
&Apache::loncommon::help_open_topic("Course_Disable_Discussion").'<br />'.	&Apache::loncommon::help_open_topic("Course_Disable_Discussion").'</span><br />'.
&mt('(role-based)'),	&mt('(role-based)'),
input => 'checkbox',	input => 'checkbox',
},	},
Line 1923 sub print_discussion {	Line 1940 sub print_discussion {
my %sections = &Apache::loncommon::get_sections($cdom,$cnum);	my %sections = &Apache::loncommon::get_sections($cdom,$cnum);
my @sections = sort( { $a <=> $b } keys(%sections));	my @sections = sort( { $a <=> $b } keys(%sections));
my %lt = &Apache::lonlocal::texthash (	my %lt = &Apache::lonlocal::texthash (
currone => 'Disallowed:',	currone => 'Disallowed:',
curmult => 'Disallowed:',	currmult => 'Disallowed:',
add => 'Disallow more:',	add => 'Disallow more:',
del => 'Delete?',	del => 'Delete?',
sec => 'Sections:',	sec => 'Sections:',
);	);

foreach my $item (@{$ordered}) {	foreach my $item (@{$ordered}) {
Line 2203 sub print_grading {	Line 2220 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>'.
'<span class="LC_error">'.'<br />'.	'<span class="LC_warning">'.'<br />'.
&mt('Modifying this will make problems have different numbers and answers!').	&mt('Modifying this will make problems have different numbers and answers!').
'</span>',	'</span>',
input => 'selectbox',	input => 'selectbox',
Line 2282 sub print_printouts {	Line 2300 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);
}	}
Line 2412 sub get_other_items {	Line 2440 sub get_other_items {
}	}

sub item_table_row_start {	sub item_table_row_start {
my ($text,$count) = @_;	my ($text,$count,$add_class) = @_;
my $output;	my $output;
if ($count%2) {	my $css_class = ($count % 2) ? 'LC_odd_row' : 'LC_even_row';
$output .= '<tr class="LC_odd_row">';	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
} else {	$output .= '<tr class="'.$css_class.'">'."\n";;
$output .= '<tr>';
}
$output .= '<td class="LC_left_item">'.$text.	$output .= '<td class="LC_left_item">'.$text.
'</td><td class="LC_right_item" align="right">';	'</td><td class="LC_right_item">';
return $output;	return $output;
}	}

Line 2678 function getIndexByName(item) {	Line 2704 function getIndexByName(item) {
</script>	</script>

ENDJS	ENDJS
$output .= $currstr.&Apache::loncommon::start_data_table();	$output .= $currstr.'<table class="LC_nested_outer">';
if (@curr > 0) {	if (@curr > 0) {
for (my $i=0; $i<@curr; $i++) {	for (my $i=0; $i<@curr; $i++) {
my $pos = $i+1;	my $pos = $i+1;
$output .= &Apache::loncommon::start_data_table_row().	$output .= '<tr>'.
'<td align="left"><span class="LC_nobreak">'.	'<td align="left"><span class="LC_nobreak">'.
&position_selector($pos,$i,$maxnum).&mt('Delete:').	&position_selector($pos,$i,$maxnum).&mt('Delete:').
'<input type="checkbox" name="printfmthdr_del_'.$i.	'<input type="checkbox" name="printfmthdr_del_'.$i.
Line 2696 ENDJS	Line 2722 ENDJS
'<input type="textbox" name="printfmthdr_text_'.$i.'"'.	'<input type="textbox" name="printfmthdr_text_'.$i.'"'.
' value="'.$curr[$i].'" size="25" /></td>';	' value="'.$curr[$i].'" size="25" /></td>';
}	}
$output .= &Apache::loncommon::end_data_table_row();	$output .= '</tr>';
}	}
}	}
my $pos = $currnum+1;	my $pos = $currnum+1;
$output .= &Apache::loncommon::start_data_table_row().	$output .= '<tr>'.
'<td align="left"><span class="LC_nobreak">'.	'<td align="left"><span class="LC_nobreak">'.
&position_selector($pos,$currnum,$maxnum).	&position_selector($pos,$currnum,$maxnum).
'<b>'.&mt('New').'</b></span></td><td align="left">'.	'<b>'.&mt('New').'</b></span></td><td align="left">'.
&substitution_selector($currnum).'</td>'.	&substitution_selector($currnum).'</td>'.
&Apache::loncommon::end_data_table_row();	'</tr>';
$pos ++;	$pos ++;
$currnum ++;	$currnum ++;
$output .= &Apache::loncommon::start_data_table_row().	$output .= '<tr>'.
'<td align="left"><span class="LC_nobreak">'.	'<td align="left"><span class="LC_nobreak">'.
&position_selector($pos,$currnum,$maxnum).	&position_selector($pos,$currnum,$maxnum).
'<b>'.&mt('New').'</b></span></td>'.	'<b>'.&mt('New').'</b></span></td>'.
Line 2717 ENDJS	Line 2743 ENDJS
'" value="" size ="25" />'.	'" value="" size ="25" />'.
'<input type="hidden" name="printfmthdr_maxnum" value="'.	'<input type="hidden" name="printfmthdr_maxnum" value="'.
$maxnum.'" /></td>'.	$maxnum.'" /></td>'.
&Apache::loncommon::end_data_table_row().	'</tr>'.
&Apache::loncommon::end_data_table();	'</table>';
return $output;	return $output;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.9
changed lines
	Added in v.1.21