loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.564.2.2 and 1.617

version 1.564.2.2, 2007/08/24 18:41:50	version 1.617, 2007/12/01 03:42:47
Line 257 sub browser_and_searcher_javascript {	Line 257 sub browser_and_searcher_javascript {
}	}
url += 'catalogmode=interactive&';	url += 'catalogmode=interactive&';
url += 'mode=$mode&';	url += 'mode=$mode&';
	url += 'inhibitmenu=yes&';
url += 'form=' + formname + '&';	url += 'form=' + formname + '&';
if (only != null) {	if (only != null) {
url += 'only=' + only + '&';	url += 'only=' + only + '&';
Line 367 sub selectstudent_link {	Line 368 sub selectstudent_link {
return '';	return '';
}	}
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.	return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.
'","'.$udomele.'","","1");'."'>".&mt('Select User')."</a>";	'","'.$udomele.'");'."'>".&mt('Select User')."</a>";
}	}
if ($env{'request.role'}=~/^(au\|dc\|su)/) {	if ($env{'request.role'}=~/^(au\|dc\|su)/) {
return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.	return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.
Line 407 sub coursebrowser_javascript {	Line 408 sub coursebrowser_javascript {
'&cdomelement='+udom+	'&cdomelement='+udom+
'&cnameelement='+desc;	'&cnameelement='+desc;
if (extra_element !=null && extra_element != '') {	if (extra_element !=null && extra_element != '') {
if (formname == 'rolechoice') {	if (formname == 'rolechoice' \|\| formname == 'studentform') {
url += '&roleelement='+extra_element;	url += '&roleelement='+extra_element;
if (domainfilter == null \|\| domainfilter == '') {	if (domainfilter == null \|\| domainfilter == '') {
url += '&domainfilter='+extra_element;	url += '&domainfilter='+extra_element;
Line 544 linked_select_forms returns a string con	Line 545 linked_select_forms returns a string con
and html for two <select> menus. The select menus will be linked in that	and html for two <select> menus. The select menus will be linked in that
changing the value of the first menu will result in new values being placed	changing the value of the first menu will result in new values being placed
in the second menu. The values in the select menu will appear in alphabetical	in the second menu. The values in the select menu will appear in alphabetical
order.	order unless a defined order is provided.

linked_select_forms takes the following ordered inputs:	linked_select_forms takes the following ordered inputs:

Line 562 linked_select_forms takes the following	Line 563 linked_select_forms takes the following

=item * $hashref, a reference to a hash containing the data for the menus.	=item * $hashref, a reference to a hash containing the data for the menus.

	=item * $menuorder, the order of values in the first menu

=back	=back

Below is an example of such a hash. Only the 'text', 'default', and	Below is an example of such a hash. Only the 'text', 'default', and
Line 578 $menu{$choice1}->{'select2'}.	Line 581 $menu{$choice1}->{'select2'}.
B2 => "Choice B2",	B2 => "Choice B2",
B3 => "Choice B3",	B3 => "Choice B3",
B4 => "Choice B4"	B4 => "Choice B4"
}	},
	order => ['B4','B3','B1','B2'],
},	},
A2 => { text =>"Choice A2" ,	A2 => { text =>"Choice A2" ,
default => "C2",	default => "C2",
Line 586 $menu{$choice1}->{'select2'}.	Line 590 $menu{$choice1}->{'select2'}.
C1 => "Choice C1",	C1 => "Choice C1",
C2 => "Choice C2",	C2 => "Choice C2",
C3 => "Choice C3"	C3 => "Choice C3"
}	},
	order => ['C2','C1','C3'],
},	},
A3 => { text =>"Choice A3" ,	A3 => { text =>"Choice A3" ,
default => "D6",	default => "D6",
Line 598 $menu{$choice1}->{'select2'}.	Line 603 $menu{$choice1}->{'select2'}.
D5 => "Choice D5",	D5 => "Choice D5",
D6 => "Choice D6",	D6 => "Choice D6",
D7 => "Choice D7"	D7 => "Choice D7"
}	},
	order => ['D4','D3','D2','D1','D7','D6','D5'],
}	}
);	);

Line 610 sub linked_select_forms {	Line 616 sub linked_select_forms {
$firstdefault,	$firstdefault,
$firstselectname,	$firstselectname,
$secondselectname,	$secondselectname,
$hashref	$hashref,
	$menuorder,
) = @_;	) = @_;
my $second = "document.$formname.$secondselectname";	my $second = "document.$formname.$secondselectname";
my $first = "document.$formname.$firstselectname";	my $first = "document.$formname.$firstselectname";
Line 624 sub linked_select_forms {	Line 631 sub linked_select_forms {
$result.="select2data.d_$s1 = new Object();\n";	$result.="select2data.d_$s1 = new Object();\n";
$result.="select2data.d_$s1.def = new String('".	$result.="select2data.d_$s1.def = new String('".
$hashref->{$s1}->{'default'}."');\n";	$hashref->{$s1}->{'default'}."');\n";
$result.="select2data.d_$s1.values = new Array(";	$result.="select2data.d_$s1.values = new Array(";
my @s2values = sort(keys( %{ $hashref->{$s1}->{'select2'} } ));	my @s2values = sort(keys( %{ $hashref->{$s1}->{'select2'} } ));
	if (ref($hashref->{$s1}->{'order'}) eq 'ARRAY') {
	@s2values = @{$hashref->{$s1}->{'order'}};
	}
$result.="\"@s2values\");\n";	$result.="\"@s2values\");\n";
$result.="select2data.d_$s1.texts = new Array(";	$result.="select2data.d_$s1.texts = new Array(";
my @s2texts;	my @s2texts;
Line 663 function select1_changed() {	Line 673 function select1_changed() {
END	END
# output the initial values for the selection lists	# output the initial values for the selection lists
$result .= "<select size=\"1\" name=\"$firstselectname\" onchange=\"select1_changed()\">\n";	$result .= "<select size=\"1\" name=\"$firstselectname\" onchange=\"select1_changed()\">\n";
foreach my $value (sort(keys(%$hashref))) {	my @order = sort(keys(%{$hashref}));
	if (ref($menuorder) eq 'ARRAY') {
	@order = @{$menuorder};
	}
	foreach my $value (@order) {
$result.=" <option value=\"$value\" ";	$result.=" <option value=\"$value\" ";
$result.=" selected=\"selected\" " if ($value eq $firstdefault);	$result.=" selected=\"selected\" " if ($value eq $firstdefault);
$result.=">".&mt($hashref->{$value}->{'text'})."</option>\n";	$result.=">".&mt($hashref->{$value}->{'text'})."</option>\n";
Line 673 END	Line 687 END
$result .= $middletext;	$result .= $middletext;
$result .= "<select size=\"1\" name=\"$secondselectname\">\n";	$result .= "<select size=\"1\" name=\"$secondselectname\">\n";
my $seconddefault = $hashref->{$firstdefault}->{'default'};	my $seconddefault = $hashref->{$firstdefault}->{'default'};
foreach my $value (sort(keys(%select2))) {
	my @secondorder = sort(keys(%select2));
	if (ref($hashref->{$firstdefault}->{'order'}) eq 'ARRAY') {
	@secondorder = @{$hashref->{$firstdefault}->{'order'}};
	}
	foreach my $value (@secondorder) {
$result.=" <option value=\"$value\" ";	$result.=" <option value=\"$value\" ";
$result.=" selected=\"selected\" " if ($value eq $seconddefault);	$result.=" selected=\"selected\" " if ($value eq $seconddefault);
$result.=">".&mt($select2{$value})."</option>\n";	$result.=">".&mt($select2{$value})."</option>\n";
Line 721 sub help_open_topic {	Line 740 sub help_open_topic {

my $template = "";	my $template = "";
my $link;	my $link;

$topic=~s/\W/\_/g;	$topic=~s/\W/\_/g;

if (!$stayOnPage)	if (!$stayOnPage) {
{
$link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))";	$link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))";
}	} else {
else
{
$link = "/adm/help/${filename}.hlp";	$link = "/adm/help/${filename}.hlp";
}	}

# Add the text	# Add the text
if ($text ne "")	if ($text ne "") {
{
$template .=	$template .=
"<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>".	"<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>".
"<td bgcolor='#5555FF'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";	"<td bgcolor='#5555FF'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
}	}

# Add the graphic	# Add the graphic
Line 805 sub help_open_menu {	Line 820 sub help_open_menu {
my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text)	my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text)
= @_;	= @_;
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 0 if (not defined $stayOnPage);
# formerly only used pop-up help (stayOnPage = 0)	# only use pop-up help (stayOnPage == 0)
# if environment.remote is on (using remote control UI)	# if environment.remote is on (using remote control UI)
# if ($env{'browser.interface'} eq 'textual' \|\|	if ($env{'browser.interface'} eq 'textual' \|\|
# $env{'environment.remote'} eq 'off' ) {	$env{'environment.remote'} eq 'off' ) {
# $stayOnPage=1;
#}
# Now making pop-up help the default even with remote control
if ($env{'browser.interface'} eq 'textual') {
$stayOnPage=1;	$stayOnPage=1;
}	}
my $output;	my $output;
Line 834 sub help_open_menu {	Line 845 sub help_open_menu {

sub top_nav_help {	sub top_nav_help {
my ($text) = @_;	my ($text) = @_;

$text = &mt($text);	$text = &mt($text);
	my $stay_on_page =
my $stayOnPage =
($env{'browser.interface'} eq 'textual' \|\|	($env{'browser.interface'} eq 'textual' \|\|
$env{'environment.remote'} eq 'off' );	$env{'environment.remote'} eq 'off' );
my $link= ($stayOnPage) ? "javascript:helpMenu('display')"	my $link = ($stay_on_page) ? "javascript:helpMenu('display')"
: "javascript:helpMenu('open')";	: "javascript:helpMenu('open')";
my $banner_link = &update_help_link(undef,undef,undef,undef,$stayOnPage);	my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);

my $title = &mt('Get help');	my $title = &mt('Get help');

Line 870 sub help_menu_js {	Line 879 sub help_menu_js {
'js_ready' => 1,	'js_ready' => 1,
'add_entries' => {	'add_entries' => {
'border' => '0',	'border' => '0',
'rows' => "105,*",},});	'rows' => "110,*",},});
my $end_page =	my $end_page =
&Apache::loncommon::end_page({'frameset' => 1,	&Apache::loncommon::end_page({'frameset' => 1,
'js_ready' => 1,});	'js_ready' => 1,});
Line 1084 sub changable_area {	Line 1093 sub changable_area {

=pod	=pod

	=item * viewport_geometry_js {

	Provides javascript object (Geometry) which can provide information about the viewport geometry for the client browser.

	=cut


	sub viewport_geometry_js {
	return <<"GEOMETRY";
	var Geometry = {};
	function init_geometry() {
	if (Geometry.init) { return };
	Geometry.init=1;
	if (window.innerHeight) {
	Geometry.getViewportHeight = function() { return window.innerHeight; };
	Geometry.getViewportWidth = function() { return window.innerWidth; };
	Geometry.getHorizontalScroll = function() { return window.pageXOffset; };
	Geometry.getVerticalScroll = function() { return window.pageYOffset; };
	}
	else if (document.documentElement && document.documentElement.clientHeight) {
	Geometry.getViewportHeight =
	function() { return document.documentElement.clientHeight; };
	Geometry.getViewportWidth =
	function() { return document.documentElement.clientWidth; };

	Geometry.getHorizontalScroll =
	function() { return document.documentElement.scrollLeft; };
	Geometry.getVerticalScroll =
	function() { return document.documentElement.scrollTop; };
	}
	else if (document.body.clientHeight) {
	Geometry.getViewportHeight =
	function() { return document.body.clientHeight; };
	Geometry.getViewportWidth =
	function() { return document.body.clientWidth; };
	Geometry.getHorizontalScroll =
	function() { return document.body.scrollLeft; };
	Geometry.getVerticalScroll =
	function() { return document.body.scrollTop; };
	}
	}

	GEOMETRY
	}

	=pod

	=item * viewport_size_js {

	Provides a javascript function to set values of two form elements - width and height (elements are passed in as arguments to the javascript function) to the dimensions of the user's browser window.

	=cut

	sub viewport_size_js {
	my $geometry = &viewport_geometry_js();
	return <<"DIMS";

	$geometry

	function getViewportDims(width,height) {
	init_geometry();
	width.value = Geometry.getViewportWidth();
	height.value = Geometry.getViewportHeight();
	return;
	}

	DIMS
	}

	=pod

	=item * resize_textarea_js

	emits the needed javascript to resize a textarea to be as big as possible

	creates a function resize_textrea that takes two IDs first should be
	the id of the element to resize, second should be the id of a div that
	surrounds everything that comes after the textarea, this routine needs
	to be attached to the <body> for the onload and onresize events.


	=cut

	sub resize_textarea_js {
	my $geometry = &viewport_geometry_js();
	return <<"RESIZE";
	<script type="text/javascript">
	$geometry

	function getX(element) {
	var x = 0;
	while (element) {
	x += element.offsetLeft;
	element = element.offsetParent;
	}
	return x;
	}
	function getY(element) {
	var y = 0;
	while (element) {
	y += element.offsetTop;
	element = element.offsetParent;
	}
	return y;
	}


	function resize_textarea(textarea_id,bottom_id) {
	init_geometry();
	var textarea = document.getElementById(textarea_id);
	//alert(textarea);

	var textarea_top = getY(textarea);
	var textarea_height = textarea.offsetHeight;
	var bottom = document.getElementById(bottom_id);
	var bottom_top = getY(bottom);
	var bottom_height = bottom.offsetHeight;
	var window_height = Geometry.getViewportHeight();
	var fudge = 23;
	var new_height = window_height-fudge-textarea_top-bottom_height;
	if (new_height < 300) {
	new_height = 300;
	}
	textarea.style.height=new_height+'px';
	}
	</script>
	RESIZE

	}

	=pod

=back	=back

=head1 Excel and CSV file utility routines	=head1 Excel and CSV file utility routines
Line 1285 sub domain_select {	Line 1426 sub domain_select {

=over 4	=over 4

=cut

=item * multiple_select_form($name,$value,$size,$hash,$order)	=item * multiple_select_form($name,$value,$size,$hash,$order)

Returns a string containing a <select> element int multiple mode	Returns a string containing a <select> element int multiple mode
Line 1464 sub select_dom_form {	Line 1603 sub select_dom_form {

=pod	=pod

=item * home_server_option_list($domain)	=item * home_server_form_item($domain,$name,$defaultflag)

	input: 4 arguments (two required, two optional) -
	$domain - domain of new user
	$name - name of form element
	$default - Value of 'default' causes a default item to be first
	option, and selected by default.
	$hide - Value of 'hide' causes hiding of the name of the server,
	if 1 server found, or default, if 0 found.
	output: returns 2 items:
	(a) form element which contains either:
	(i) <select name="$name">
	<option value="$hostid1">$hostid $servers{$hostid}</option>
	<option value="$hostid2">$hostid $servers{$hostid}</option>
	</select>
	form item if there are multiple library servers in $domain, or
	(ii) an <input type="hidden" name="$name" value="$hostid" /> form item
	if there is only one library server in $domain.

	(b) number of library servers found.

returns a string which contains an <option> list to be used in a	See loncreateuser.pm for example of use.
<select> form input. See loncreateuser.pm for an example.

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub home_server_option_list {	sub home_server_form_item {
my $domain = shift;	my ($domain,$name,$default,$hide) = @_;
my %servers = &Apache::lonnet::get_servers($domain,'library');	my %servers = &Apache::lonnet::get_servers($domain,'library');
my $result = '';	my $result;
foreach my $hostid (sort(keys(%servers))) {	my $numlib = keys(%servers);
$result.=	if ($numlib > 1) {
'<option value="'.$hostid.'">'.	$result .= '<select name="'.$name.'" />'."\n";
$hostid.' '.$servers{$hostid}."</option>\n";	if ($default) {
	$result .= '<option value="default" selected>'.&mt('default').
	'</option>'."\n";
	}
	foreach my $hostid (sort(keys(%servers))) {
	$result.= '<option value="'.$hostid.'">'.
	$hostid.' '.$servers{$hostid}."</option>\n";
	}
	$result .= '</select>'."\n";
	} elsif ($numlib == 1) {
	my $hostid;
	foreach my $item (keys(%servers)) {
	$hostid = $item;
	}
	$result .= '<input type="hidden" name="'.$name.'" value="'.
	$hostid.'" />';
	if (!$hide) {
	$result .= $hostid.' '.$servers{$hostid};
	}
	$result .= "\n";
	} elsif ($default) {
	$result .= '<input type="hidden" name="'.$name.
	'" value="default" />';
	if (!$hide) {
	$result .= &mt('default');
	}
	$result .= "\n";
}	}
return $result;	return ($result,$numlib);
}	}

=pod	=pod
Line 1634 END	Line 1817 END
}	}

my $radioval = "'nochange'";	my $radioval = "'nochange'";
if (exists($in{'curr_authtype'}) &&	if (defined($in{'curr_authtype'})) {
defined($in{'curr_authtype'}) &&	if ($in{'curr_authtype'} ne '') {
$in{'curr_authtype'} ne '') {	$radioval = "'".$in{'curr_authtype'}."arg'";
$radioval = "'$in{'curr_authtype'}arg'";	}
}	}
my $argfield = 'null';	my $argfield = 'null';
if ( grep/^mode$/,(keys %in) ) {	if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifycourse') {	if ($in{'mode'} eq 'modifycourse') {
if ( grep/^curr_authtype$/,(keys %in) ) {	if (defined($in{'curr_autharg'})) {
$radioval = "'$in{'curr_authtype'}'";	if ($in{'curr_autharg'} ne '') {
}
if ( grep/^curr_autharg$/,(keys %in) ) {
unless ($in{'curr_autharg'} eq '') {
$argfield = "'$in{'curr_autharg'}'";	$argfield = "'$in{'curr_autharg'}'";
}	}
}	}
Line 1729 sub authform_nochange{	Line 1909 sub authform_nochange{
kerb_def_dom => 'MSU.EDU',	kerb_def_dom => 'MSU.EDU',
@_,	@_,
);	);
my $result = '<label>'.&mt('[_1] Do not change login data',	my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
'<input type="radio" name="login" value="nochange" '.	my $result;
'checked="checked" onclick="'.	if (keys(%can_assign) == 0) {
	$result = &mt('Under you current role you are not permitted to change login settings for this user');
	} else {
	$result = '<label>'.&mt('[_1] Do not change login data',
	'<input type="radio" name="login" value="nochange" '.
	'checked="checked" onclick="'.
"javascript:changed_radio('nochange',$in{'formname'});".'" />').	"javascript:changed_radio('nochange',$in{'formname'});".'" />').
'</label>';	'</label>';
	}
return $result;	return $result;
}	}

sub authform_kerberos{	sub authform_kerberos {
my %in = (	my %in = (
formname => 'document.cu',	formname => 'document.cu',
kerb_def_dom => 'MSU.EDU',	kerb_def_dom => 'MSU.EDU',
kerb_def_auth => 'krb4',	kerb_def_auth => 'krb4',
@_,	@_,
);	);
my ($check4,$check5,$krbarg);	my ($check4,$check5,$krbcheck,$krbarg,$krbver,$result,$authtype,
	$autharg,$jscall);
	my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
if ($in{'kerb_def_auth'} eq 'krb5') {	if ($in{'kerb_def_auth'} eq 'krb5') {
$check5 = " checked=\"on\"";	$check5 = ' checked="on"';
} else {	} else {
$check4 = " checked=\"on\"";	$check4 = ' checked="on"';
}	}
$krbarg = $in{'kerb_def_dom'};	$krbarg = $in{'kerb_def_dom'};
	if (defined($in{'curr_authtype'})) {
my $krbcheck = "";	if ($in{'curr_authtype'} eq 'krb') {
if ( grep/^curr_authtype$/,(keys %in) ) {	$krbcheck = ' checked="on"';
if ($in{'curr_authtype'} =~ m/^krb/) {	if (defined($in{'curr_kerb_ver'})) {
$krbcheck = " checked=\"on\"";	if ($in{'curr_krb_ver'} eq '5') {
if ( grep/^curr_autharg$/,(keys %in) ) {	$check5 = ' checked="on"';
	$check4 = '';
	} else {
	$check4 = ' checked="on"';
	$check5 = '';
	}
	}
	if (defined($in{'curr_autharg'})) {
$krbarg = $in{'curr_autharg'};	$krbarg = $in{'curr_autharg'};
}	}
	if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {
	if (defined($in{'curr_autharg'})) {
	$result =
	&mt('Currently Kerberos authenticated with domain [_1] Version [_2].',
	$in{'curr_autharg'},$krbver);
	} else {
	$result =
	&mt('Currently Kerberos authenticated, Version [_1].',$krbver);
	}
	return $result;
	}
	}
	} else {
	if ($authnum == 1) {
	$authtype = '<input type="hidden" name="login" value="krb">';
}	}
}	}
	if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {
my $jscall = "javascript:changed_radio('krb',$in{'formname'});";	return;
my $result .= &mt	} elsif ($authtype eq '') {
	if (defined($in{'mode'})) {
	if ($in{'mode'} eq 'modifycourse') {
	if ($authnum == 1) {
	$authtype = '<input type="hidden" name="login" value="krb">';
	}
	}
	}
	}
	$jscall = "javascript:changed_radio('krb',$in{'formname'});";
	if ($authtype eq '') {
	$authtype = '<input type="radio" name="login" value="krb" '.
	'onclick="'.$jscall.'" onchange="'.$jscall.'"'.
	$krbcheck.' />';
	}
	if (($can_assign{'krb4'} && $can_assign{'krb5'}) \|\|
	($can_assign{'krb4'} && !$can_assign{'krb5'} &&
	$in{'curr_authtype'} eq 'krb5') \|\|
	(!$can_assign{'krb4'} && $can_assign{'krb5'} &&
	$in{'curr_authtype'} eq 'krb4')) {
	$result .= &mt
('[_1] Kerberos authenticated with domain [_2] '.	('[_1] Kerberos authenticated with domain [_2] '.
'[_3] Version 4 [_4] Version 5 [_5]',	'[_3] Version 4 [_4] Version 5 [_5]',
'<label><input type="radio" name="login" value="krb" '.	'<label>'.$authtype,
'onclick="'.$jscall.'" onchange="'.$jscall.'"'.$krbcheck.' />',
'</label><input type="text" size="10" name="krbarg" '.	'</label><input type="text" size="10" name="krbarg" '.
'value="'.$krbarg.'" '.	'value="'.$krbarg.'" '.
'onchange="'.$jscall.'" />',	'onchange="'.$jscall.'" />',
'<label><input type="radio" name="krbver" value="4" '.$check4.' />',	'<label><input type="radio" name="krbver" value="4" '.$check4.' />',
'</label><label><input type="radio" name="krbver" value="5" '.$check5.' />',	'</label><label><input type="radio" name="krbver" value="5" '.$check5.' />',
'</label>');	'</label>');
	} elsif ($can_assign{'krb4'}) {
	$result .= &mt
	('[_1] Kerberos authenticated with domain [_2] '.
	'[_3] Version 4 [_4]',
	'<label>'.$authtype,
	'</label><input type="text" size="10" name="krbarg" '.
	'value="'.$krbarg.'" '.
	'onchange="'.$jscall.'" />',
	'<label><input type="hidden" name="krbver" value="4" />',
	'</label>');
	} elsif ($can_assign{'krb5'}) {
	$result .= &mt
	('[_1] Kerberos authenticated with domain [_2] '.
	'[_3] Version 5 [_4]',
	'<label>'.$authtype,
	'</label><input type="text" size="10" name="krbarg" '.
	'value="'.$krbarg.'" '.
	'onchange="'.$jscall.'" />',
	'<label><input type="hidden" name="krbver" value="5" />',
	'</label>');
	}
return $result;	return $result;
}	}

sub authform_internal{	sub authform_internal{
my %args = (	my %in = (
formname => 'document.cu',	formname => 'document.cu',
kerb_def_dom => 'MSU.EDU',	kerb_def_dom => 'MSU.EDU',
@_,	@_,
);	);
	my ($intcheck,$intarg,$result,$authtype,$autharg,$jscall);
my $intcheck = "";	my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
my $intarg = 'value=""';	if (defined($in{'curr_authtype'})) {
if ( grep/^curr_authtype$/,(keys %args) ) {	if ($in{'curr_authtype'} eq 'int') {
if ($args{'curr_authtype'} eq 'int') {	if ($can_assign{'int'}) {
$intcheck = " checked=\"on\"";	$intcheck = 'checked="on" ';
if ( grep/^curr_autharg$/,(keys %args) ) {	if (defined($in{'curr_autharg'})) {
$intarg = "value=\"$args{'curr_autharg'}\"";	$intarg = $in{'curr_autharg'};
	}
	} else {
	$result = &mt('Currently internally authenticated.');
	return $result;
}	}
}	}
	} else {
	if ($authnum == 1) {
	$authtype = '<input type="hidden" name="login" value="int">';
	}
}	}
	if (!$can_assign{'int'}) {
my $jscall = "javascript:changed_radio('int',$args{'formname'});";	return;
my $result.=&mt	} elsif ($authtype eq '') {
	if (defined($in{'mode'})) {
	if ($in{'mode'} eq 'modifycourse') {
	if ($authnum == 1) {
	$authtype = '<input type="hidden" name="login" value="int">';
	}
	}
	}
	}
	$jscall = "javascript:changed_radio('int',$in{'formname'});";
	if ($authtype eq '') {
	$authtype = '<input type="radio" name="login" value="int" '.$intcheck.
	' onchange="'.$jscall.'" onclick="'.$jscall.'" />';
	}
	$autharg = '<input type="password" size="10" name="intarg" value="'.
	$intarg.'" onchange="'.$jscall.'" />';
	$result = &mt
('[_1] Internally authenticated (with initial password [_2])',	('[_1] Internally authenticated (with initial password [_2])',
'<label><input type="radio" name="login" value="int" '.$intcheck.	'<label>'.$authtype,'</label>'.$autharg);
' onchange="'.$jscall.'" onclick="'.$jscall.'" />',
'</label><input type="text" size="10" name="intarg" '.$intarg.
' onchange="'.$jscall.'" />');
return $result;	return $result;
}	}

Line 1811 sub authform_local{	Line 2082 sub authform_local{
kerb_def_dom => 'MSU.EDU',	kerb_def_dom => 'MSU.EDU',
@_,	@_,
);	);
	my ($loccheck,$locarg,$result,$authtype,$autharg,$jscall);
my $loccheck = "";	my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
my $locarg = 'value=""';	if (defined($in{'curr_authtype'})) {
if ( grep/^curr_authtype$/,(keys %in) ) {
if ($in{'curr_authtype'} eq 'loc') {	if ($in{'curr_authtype'} eq 'loc') {
$loccheck = " checked=\"on\"";	if ($can_assign{'loc'}) {
if ( grep/^curr_autharg$/,(keys %in) ) {	$loccheck = 'checked="on" ';
$locarg = "value=\"$in{'curr_autharg'}\"";	if (defined($in{'curr_autharg'})) {
	$locarg = $in{'curr_autharg'};
	}
	} else {
	$result = &mt('Currently using local (institutional) authentication.');
	return $result;
}	}
}	}
	} else {
	if ($authnum == 1) {
	$authtype = '<input type="hidden" name="login" value="loc">';
	}
}	}
	if (!$can_assign{'loc'}) {
my $jscall = "javascript:changed_radio('loc',$in{'formname'});";	return;
my $result.=&mt('[_1] Local Authentication with argument [_2]',	} elsif ($authtype eq '') {
'<label><input type="radio" name="login" value="loc" '.$loccheck.	if (defined($in{'mode'})) {
' onchange="'.$jscall.'" onclick="'.$jscall.'" />',	if ($in{'mode'} eq 'modifycourse') {
'</label><input type="text" size="10" name="locarg" '.$locarg.	if ($authnum == 1) {
' onchange="'.$jscall.'" />');	$authtype = '<input type="hidden" name="login" value="loc">';
	}
	}
	}
	}
	$jscall = "javascript:changed_radio('loc',$in{'formname'});";
	if ($authtype eq '') {
	$authtype = '<input type="radio" name="login" value="loc" '.
	$loccheck.' onchange="'.$jscall.'" onclick="'.
	$jscall.'" />';
	}
	$autharg = '<input type="text" size="10" name="locarg" value="'.
	$locarg.'" onchange="'.$jscall.'" />';
	$result = &mt('[_1] Local Authentication with argument [_2]',
	'<label>'.$authtype,'</label>'.$autharg);
return $result;	return $result;
}	}

Line 1838 sub authform_filesystem{	Line 2131 sub authform_filesystem{
kerb_def_dom => 'MSU.EDU',	kerb_def_dom => 'MSU.EDU',
@_,	@_,
);	);
my $jscall = "javascript:changed_radio('fsys',$in{'formname'});";	my ($fsyscheck,$result,$authtype,$autharg,$jscall);
my $result.= &mt	my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
	if (defined($in{'curr_authtype'})) {
	if ($in{'curr_authtype'} eq 'fsys') {
	if ($can_assign{'fsys'}) {
	$fsyscheck = 'checked="on" ';
	} else {
	$result = &mt('Currently Filesystem Authenticated.');
	return $result;
	}
	}
	} else {
	if ($authnum == 1) {
	$authtype = '<input type="hidden" name="login" value="fsys">';
	}
	}
	if (!$can_assign{'fsys'}) {
	return;
	} elsif ($authtype eq '') {
	if (defined($in{'mode'})) {
	if ($in{'mode'} eq 'modifycourse') {
	if ($authnum == 1) {
	$authtype = '<input type="hidden" name="login" value="fsys">';
	}
	}
	}
	}
	$jscall = "javascript:changed_radio('fsys',$in{'formname'});";
	if ($authtype eq '') {
	$authtype = '<input type="radio" name="login" value="fsys" '.
	$fsyscheck.' onchange="'.$jscall.'" onclick="'.
	$jscall.'" />';
	}
	$autharg = '<input type="text" size="10" name="fsysarg" value=""'.
	' onchange="'.$jscall.'" />';
	$result = &mt
('[_1] Filesystem Authenticated (with initial password [_2])',	('[_1] Filesystem Authenticated (with initial password [_2])',
'<label><input type="radio" name="login" value="fsys" '.	'<label><input type="radio" name="login" value="fsys" '.
'onchange="'.$jscall.'" onclick="'.$jscall.'" />',	$fsyscheck.'onchange="'.$jscall.'" onclick="'.$jscall.'" />',
'</label><input type="text" size="10" name="fsysarg" value="" '.	'</label><input type="password" size="10" name="fsysarg" value="" '.
'onchange="'.$jscall.'" />');	'onchange="'.$jscall.'" />');
return $result;	return $result;
}	}

	sub get_assignable_auth {
	my ($dom) = @_;
	if ($dom eq '') {
	$dom = $env{'request.role.domain'};
	}
	my %can_assign = (
	krb4 => 1,
	krb5 => 1,
	int => 1,
	loc => 1,
	);
	my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);
	if (ref($domconfig{'usercreation'}) eq 'HASH') {
	if (ref($domconfig{'usercreation'}{'authtypes'}) eq 'HASH') {
	my $authhash = $domconfig{'usercreation'}{'authtypes'};
	my $context;
	if ($env{'request.role'} =~ /^au/) {
	$context = 'author';
	} elsif ($env{'request.role'} =~ /^dc/) {
	$context = 'domain';
	} elsif ($env{'request.course.id'}) {
	$context = 'course';
	}
	if ($context) {
	if (ref($authhash->{$context}) eq 'HASH') {
	%can_assign = %{$authhash->{$context}};
	}
	}
	}
	}
	my $authnum = 0;
	foreach my $key (keys(%can_assign)) {
	if ($can_assign{$key}) {
	$authnum ++;
	}
	}
	if ($can_assign{'krb4'} && $can_assign{'krb5'}) {
	$authnum --;
	}
	return ($authnum,%can_assign);
	}

###############################################################	###############################################################
## Get Authentication Defaults for Domain ##	## Get Authentication Defaults for Domain ##
###############################################################	###############################################################
Line 1973 sub initialize_keywords {	Line 2342 sub initialize_keywords {
# Remove special values from %Keywords.	# Remove special values from %Keywords.
foreach my $value ('total.count','average.count') {	foreach my $value ('total.count','average.count') {
delete($Keywords{$value}) if (exists($Keywords{$value}));	delete($Keywords{$value}) if (exists($Keywords{$value}));
}	}
return 1;	return 1;
}	}

Line 2484 sub preferred_languages {	Line 2853 sub preferred_languages {
@languages=(@languages,	@languages=(@languages,
split(/\s(\,\|\;\|\:)\s/,$env{'environment.languages'}));	split(/\s(\,\|\;\|\:)\s/,$env{'environment.languages'}));
}	}
my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0];	my $browser=$ENV{'HTTP_ACCEPT_LANGUAGE'};
if ($browser) {	if ($browser) {
@languages=(@languages,split(/\s(\,\|\;\|\:)\s/,$browser));	my @browser =
	map { (split(/\s;\s/,$_))[0] } (split(/\s,\s/,$browser));
	push(@languages,@browser);
}	}
if (&Apache::lonnet::domain($env{'user.domain'},'lang_def')) {	if (&Apache::lonnet::domain($env{'user.domain'},'lang_def')) {
@languages=(@languages,	@languages=(@languages,
Line 2508 sub preferred_languages {	Line 2879 sub preferred_languages {
my @genlanguages;	my @genlanguages;
foreach my $lang (@languages) {	foreach my $lang (@languages) {
unless ($lang=~/\w/) { next; }	unless ($lang=~/\w/) { next; }
push (@genlanguages,$lang);	push(@genlanguages,$lang);
if ($lang=~/(\-\|\_)/) {	if ($lang=~/(\-\|\_)/) {
push(@genlanguages,(split(/(\-\|\_)/,$lang))[0]);	push(@genlanguages,(split(/(\-\|\_)/,$lang))[0]);
}	}
}	}
	#uniqueify the languages list
	my %count;
	@genlanguages = map { $count{$_}++ == 0 ? $_ : () } @genlanguages;
return @genlanguages;	return @genlanguages;
}	}

	sub languages {
	my ($possible_langs) = @_;
	my @preferred_langs = &preferred_languages();
	if (!ref($possible_langs)) {
	if( wantarray ) {
	return @preferred_langs;
	} else {
	return $preferred_langs[0];
	}
	}
	my %possibilities = map { $_ => 1 } (@$possible_langs);
	my @preferred_possibilities;
	foreach my $preferred_lang (@preferred_langs) {
	if (exists($possibilities{$preferred_lang})) {
	push(@preferred_possibilities, $preferred_lang);
	}
	}
	if( wantarray ) {
	return @preferred_possibilities;
	}
	return $preferred_possibilities[0];
	}

###############################################################	###############################################################
## Student Answer Attempts ##	## Student Answer Attempts ##
###############################################################	###############################################################
Line 2570 sub get_previous_attempt {	Line 2967 sub get_previous_attempt {
$lasthash{$key}=$returnhash{$version.':'.$key};	$lasthash{$key}=$returnhash{$version.':'.$key};
}	}
}	}
$prevattempts='<table border="0" width="100%"><tr><td bgcolor="#777777">';	$prevattempts=&start_data_table().&start_data_table_header_row();
$prevattempts.='<table border="0" width="100%"><tr bgcolor="#e6ffff"><td>History</td>';	$prevattempts.='<th>'.&mt('History').'</th>';
foreach my $key (sort(keys(%lasthash))) {	foreach my $key (sort(keys(%lasthash))) {
my ($ign,@parts) = split(/\./,$key);	my ($ign,@parts) = split(/\./,$key);
if ($#parts > 0) {	if ($#parts > 0) {
my $data=$parts[-1];	my $data=$parts[-1];
pop(@parts);	pop(@parts);
$prevattempts.='<td>Part '.join('.',@parts).'<br />'.$data.' </td>';	$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>';
} else {	} else {
if ($#parts == 0) {	if ($#parts == 0) {
$prevattempts.='<th>'.$parts[0].'</th>';	$prevattempts.='<th>'.$parts[0].'</th>';
Line 2586 sub get_previous_attempt {	Line 2983 sub get_previous_attempt {
}	}
}	}
}	}
	$prevattempts.=&end_data_table_header_row();
if ($getattempt eq '') {	if ($getattempt eq '') {
for ($version=1;$version<=$returnhash{'version'};$version++) {	for ($version=1;$version<=$returnhash{'version'};$version++) {
$prevattempts.='</tr><tr bgcolor="#ffffe6"><td>Transaction '.$version.'</td>';	$prevattempts.=&start_data_table_row().
	'<td>'.&mt('Transaction [_1]',$version).'</td>';
foreach my $key (sort(keys(%lasthash))) {	foreach my $key (sort(keys(%lasthash))) {
my $value;	my $value = &format_previous_attempt_value($key,
if ($key =~ /timestamp/) {	$returnhash{$version.':'.$key});
$value=scalar(localtime($returnhash{$version.':'.$key}));	$prevattempts.='<td>'.$value.' </td>';
} else {
$value=$returnhash{$version.':'.$key};
}
$prevattempts.='<td>'.&unescape($value).' </td>';
}	}
	$prevattempts.=&end_data_table_row();
}	}
}	}
$prevattempts.='</tr><tr bgcolor="#ffffe6"><td>Current</td>';	$prevattempts.=&start_data_table_row().'<td>'.&mt('Current').'</td>';
foreach my $key (sort(keys(%lasthash))) {	foreach my $key (sort(keys(%lasthash))) {
my $value;	my $value = &format_previous_attempt_value($key,$lasthash{$key});
if ($key =~ /timestamp/) {
$value=scalar(localtime($lasthash{$key}));
} else {
$value=$lasthash{$key};
}
$value=&unescape($value);
if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}	if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}
$prevattempts.='<td>'.$value.' </td>';	$prevattempts.='<td>'.$value.' </td>';
}	}
$prevattempts.='</tr></table></td></tr></table>';	$prevattempts.= &end_data_table_row().&end_data_table();
} else {	} else {
$prevattempts='Nothing submitted - no attempts.';	$prevattempts=
	&start_data_table().&start_data_table_row().
	'<td>'.&mt('Nothing submitted - no attempts.').'</td>'.
	&end_data_table_row().&end_data_table();
}	}
} else {	} else {
$prevattempts='No data.';	$prevattempts=
	&start_data_table().&start_data_table_row().
	'<td>'.&mt('No data.').'</td>'.
	&end_data_table_row().&end_data_table();
}	}
}	}

	sub format_previous_attempt_value {
	my ($key,$value) = @_;
	if ($key =~ /timestamp/) {
	$value = &Apache::lonlocal::locallocaltime($value);
	} elsif (ref($value) eq 'ARRAY') {
	$value = '('.join(', ', @{ $value }).')';
	} else {
	$value = &unescape($value);
	}
	return $value;
	}


sub relative_to_absolute {	sub relative_to_absolute {
my ($url,$output)=@_;	my ($url,$output)=@_;
my $parser=HTML::TokeParser->new(\$output);	my $parser=HTML::TokeParser->new(\$output);
Line 2779 sub pprmlink {	Line 3188 sub pprmlink {
if (!$symb) { $symb=&Apache::lonnet::symbread(); }	if (!$symb) { $symb=&Apache::lonnet::symbread(); }
$symb=&escape($symb);	$symb=&escape($symb);
if ($target) { $target="target=\"$target\""; }	if ($target) { $target="target=\"$target\""; }
return '<a href="/adm/parmset?&command=set&'.	return '<a href="/adm/parmset?command=set&'.
'symb='.$symb.'&uname='.$uname.	'symb='.$symb.'&uname='.$uname.
'&udom='.$udom.'" '.$target.'>'.$text.'</a>';	'&udom='.$udom.'" '.$target.'>'.$text.'</a>';
}	}
##############################################	##############################################

Line 3458 sub bodytag {	Line 3867 sub bodytag {
if (!$realm) { $realm=' '; }	if (!$realm) { $realm=' '; }
# Set messages	# Set messages
my $messages=&domainlogo($domain);	my $messages=&domainlogo($domain);
# Port for miniserver
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }

my $extra_body_attr = &make_attr_string($forcereg,\%design);	my $extra_body_attr = &make_attr_string($forcereg,\%design);

Line 3578 ENDROLE	Line 3984 ENDROLE

my $imgsrc = $img;	my $imgsrc = $img;
if ($img =~ /^\/adm/) {	if ($img =~ /^\/adm/) {
$imgsrc = 'http://'.$ENV{'HTTP_HOST'}.':'.$lonhttpdPort.$img;	$imgsrc = &lonhttpdurl($img);
}	}
my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';	my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';

Line 3712 sub standard_css {	Line 4118 sub standard_css {
my $vlink = &designparm($function.'.vlink', $domain);	my $vlink = &designparm($function.'.vlink', $domain);
my $link = &designparm($function.'.link', $domain);	my $link = &designparm($function.'.link', $domain);

my $sans = 'Arial,Helvetica,sans-serif';	my $sans = 'Verdana,Arial,Helvetica,sans-serif';
my $mono = 'monospace';	my $mono = 'monospace';
my $data_table_head = $tabbg;	my $data_table_head = $tabbg;
my $data_table_light = '#EEEEEE';	my $data_table_light = '#EEEEEE';
Line 3730 sub standard_css {	Line 4136 sub standard_css {
my $table_header = '#DDDDDD';	my $table_header = '#DDDDDD';
my $feedback_link_bg = '#BBBBBB';	my $feedback_link_bg = '#BBBBBB';

my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px'	my $border = ($env{'browser.type'} eq 'explorer' \|\|
: '0px 3px 0px 4px';	$env{'browser.type'} eq 'safari' ) ? '0px 2px 0px 2px'
	: '0px 3px 0px 4px';


return <<END;	return <<END;
Line 3751 table.thinborder tr td {	Line 4158 table.thinborder tr td {

form, .inline { display: inline; }	form, .inline { display: inline; }
.center { text-align: center; }	.center { text-align: center; }
.LC_filename {font-family: $mono;}	.LC_filename {font-family: $mono; white-space:pre;}
.LC_error {	.LC_error {
color: red;	color: red;
font-size: larger;	font-size: larger;
Line 3792 table.LC_pastsubmission {	Line 4199 table.LC_pastsubmission {
margin: 2px;	margin: 2px;
}	}

table#LC_top_nav, table#LC_menubuttons {	table#LC_top_nav, table#LC_menubuttons,table#LC_nav_location {
width: 100%;	width: 100%;
background: $pgbg;	background: $pgbg;
border: 2px;	border: 2px;
Line 3800 table#LC_top_nav, table#LC_menubuttons {	Line 4207 table#LC_top_nav, table#LC_menubuttons {
padding: 0px;	padding: 0px;
}	}

table#LC_title_bar, table.LC_breadcrumbs, table#LC_nav_location,	table#LC_title_bar, table.LC_breadcrumbs,
table#LC_title_bar.LC_with_remote {	table#LC_title_bar.LC_with_remote {
width: 100%;	width: 100%;
border-color: $pgbg;	border-color: $pgbg;
Line 3991 table.LC_data_table, table.LC_mail_list	Line 4398 table.LC_data_table, table.LC_mail_list
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: separate;	border-collapse: separate;
border-spacing: 1px;	border-spacing: 1px;
	background: $pgbg;
}	}
.LC_data_table_dense {	.LC_data_table_dense {
font-size: small;	font-size: small;
}	}
table.LC_nested_outer {	table.LC_nested_outer {
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: separate;	border-collapse: collapse;
border-spacing: 0px;	border-spacing: 0px;
width: 100%;	width: 100%;
}	}
table.LC_nested {	table.LC_nested {
border: 0px;	border: 0px;
border-collapse: separate;	border-collapse: collapse;
border-spacing: 0px;	border-spacing: 0px;
width: 100%;	width: 100%;
}	}
Line 4013 table.LC_prior_tries tr th {	Line 4421 table.LC_prior_tries tr th {
background-color: $data_table_head;	background-color: $data_table_head;
font-size: smaller;	font-size: smaller;
}	}
table.LC_data_table tr td,	table.LC_data_table tr.LC_odd_row > td,
table.LC_aboutme_port tr td {	table.LC_aboutme_port tr td {
background-color: $data_table_light;	background-color: $data_table_light;
padding: 2px;	padding: 2px;
}	}
table.LC_data_table tr.LC_even_row td,	table.LC_data_table tr.LC_even_row > td,
table.LC_aboutme_port tr.LC_even_row td {	table.LC_aboutme_port tr.LC_even_row td {
background-color: $data_table_dark;	background-color: $data_table_dark;
}	}
Line 4055 table.LC_nested tr.LC_info_row td {	Line 4463 table.LC_nested tr.LC_info_row td {
font-size: small;	font-size: small;
text-align: center;	text-align: center;
}	}
table.LC_nested tr.LC_info_row td.LC_left_item {	table.LC_nested tr.LC_info_row td.LC_left_item,
	table.LC_nested_outer tr th.LC_left_item {
text-align: left;	text-align: left;
}	}
table.LC_nested td {	table.LC_nested td {
Line 4286 table#LC_helpmenu_links a:hover {	Line 4695 table#LC_helpmenu_links a:hover {
border: 1px solid #8888FF;	border: 1px solid #8888FF;
background: #CCCCFF;	background: #CCCCFF;
}	}

table.LC_pick_box {	table.LC_pick_box {
width: 100%;
border-collapse: separate;	border-collapse: separate;
background: white;	background: white;
border: 1px solid black;	border: 1px solid black;
Line 4301 table.LC_pick_box td.LC_pick_box_title {	Line 4708 table.LC_pick_box td.LC_pick_box_title {
width: 184px;	width: 184px;
padding: 8px;	padding: 8px;
}	}
	table.LC_pick_box td.LC_pick_box_value {
	text-align: left;
	padding: 8px;
	}
	table.LC_pick_box td.LC_pick_box_select {
	text-align: left;
	padding: 8px;
	}
table.LC_pick_box td.LC_pick_box_separator {	table.LC_pick_box td.LC_pick_box_separator {
padding: 0px;	padding: 0px;
height: 1px;	height: 1px;
Line 4309 table.LC_pick_box td.LC_pick_box_separat	Line 4724 table.LC_pick_box td.LC_pick_box_separat
table.LC_pick_box td.LC_pick_box_submit {	table.LC_pick_box td.LC_pick_box_submit {
text-align: right;	text-align: right;
}	}
	table.LC_pick_box td.LC_evenrow_value {
	text-align: left;
	padding: 8px;
	background-color: $data_table_light;
	}
	table.LC_pick_box td.LC_oddrow_value {
	text-align: left;
	padding: 8px;
	background-color: $data_table_light;
	}
	table.LC_helpform_receipt {
	width: 620px;
	border-collapse: separate;
	background: white;
	border: 1px solid black;
	border-spacing: 1px;
	}
	table.LC_helpform_receipt td.LC_pick_box_title {
	background: $tabbg;
	font-weight: bold;
	text-align: right;
	width: 184px;
	padding: 8px;
	}
	table.LC_helpform_receipt td.LC_evenrow_value {
	text-align: left;
	padding: 8px;
	background-color: $data_table_light;
	}
	table.LC_helpform_receipt td.LC_oddrow_value {
	text-align: left;
	padding: 8px;
	background-color: $data_table_light;
	}
	table.LC_helpform_receipt td.LC_pick_box_separator {
	padding: 0px;
	height: 1px;
	background: black;
	}
	span.LC_helpform_receipt_cat {
	font-weight: bold;
	}
table.LC_group_priv_box {	table.LC_group_priv_box {
background: white;	background: white;
border: 1px solid black;	border: 1px solid black;
Line 4377 table.LC_descriptive_input td.LC_descrip	Line 4833 table.LC_descriptive_input td.LC_descrip
text-align: right;	text-align: right;
font-weight: bold;	font-weight: bold;
}	}
table.LC_feedback_link {	div.LC_feedback_link {
background: $feedback_link_bg;	clear: both;
	background: white;
	width: 100%;
}	}
span.LC_feedback_link {	span.LC_feedback_link {
background: $feedback_link_bg;	background: $feedback_link_bg;
font-size: larger;	font-size: larger;
	}
	span.LC_message_link {
	background: $feedback_link_bg;
	font-size: larger;
	position: absolute;
	right: 1em;
}	}

table.LC_prior_tries {	table.LC_prior_tries {
Line 4454 span.LC_nobreak {	Line 4918 span.LC_nobreak {
white-space: nowrap;	white-space: nowrap;
}	}

	span.LC_cusr_emph {
	font-style: italic;
	}

table.LC_docs_documents {	table.LC_docs_documents {
background: #BBBBBB;	background: #BBBBBB;
border-width: 0px;	border-width: 0px;
Line 4521 table.LC_docs_adddocs th {	Line 4989 table.LC_docs_adddocs th {
background: #DDDDDD;	background: #DDDDDD;
}	}

	table.LC_sty_begin {
	background: #BBFFBB;
	}
	table.LC_sty_end {
	background: #FFBBBB;
	}

	table.LC_double_column {
	border-width: 0px;
	border-collapse: collapse;
	width: 100%;
	padding: 2px;
	}

	table.LC_double_column tr td.LC_left_col {
	top: 2px;
	left: 2px;
	width: 47%;
	vertical-align: top;
	}

	table.LC_double_column tr td.LC_right_col {
	top: 2px;
	right: 2px;
	width: 47%;
	vertical-align: top;
	}

	span.LC_role_level {
	font-weight: bold;
	}

	div.LC_left_float {
	float: left;
	padding-right: 5%;
	padding-bottom: 4px;
	}

	div.LC_clear_float_header {
	padding-bottom: 2px;
	}

	div.LC_clear_float_footer {
	padding-top: 10px;
	clear: both;
	}


	div.LC_grade_select_mode {
	float: left;
	font-family: $sans;
	}
	div.LC_grade_select_mode div div {
	margin: 5px;
	}
	div.LC_grade_select_mode_selector {
	margin: 5px;
	float: left;
	}
	div.LC_grade_select_mode_selector_header {
	font: bold medium $sans;
	}
	div.LC_grade_select_mode_type {
	clear: left;
	}

	div.LC_grade_show_user {
	margin-top: 20px;
	border: 1px solid black;
	}
	div.LC_grade_user_name {
	background: #DDDDEE;
	border-bottom: 1px solid black;
	font: bold large $sans;
	}
	div.LC_grade_show_user_odd_row div.LC_grade_user_name {
	background: #DDEEDD;
	}

	div.LC_grade_show_problem,
	div.LC_grade_submissions,
	div.LC_grade_message_center,
	div.LC_grade_info_links,
	div.LC_grade_assign {
	margin: 5px;
	width: 99%;
	background: #FFFFFF;
	}
	div.LC_grade_show_problem_header,
	div.LC_grade_submissions_header,
	div.LC_grade_message_center_header,
	div.LC_grade_assign_header {
	font: bold large $sans;
	}
	div.LC_grade_show_problem_problem,
	div.LC_grade_submissions_body,
	div.LC_grade_message_center_body,
	div.LC_grade_assign_body {
	border: 1px solid black;
	width: 99%;
	background: #FFFFFF;
	}
	span.LC_grade_check_note {
	font: normal medium $sans;
	display: inline;
	position: absolute;
	right: 1em;
	}

	table.LC_scantron_action {
	width: 100%;
	}
	table.LC_scantron_action tr th {
	font: normal bold $sans;
	}

	div.LC_edit_problem_header,
	div.LC_edit_problem_footer {
	font: normal medium $sans;
	margin: 2px;
	}
	div.LC_edit_problem_header,
	div.LC_edit_problem_header div,
	div.LC_edit_problem_footer,
	div.LC_edit_problem_footer div,
	div.LC_edit_problem_editxml_header,
	div.LC_edit_problem_editxml_header div {
	margin-top: 5px;
	}
	div.LC_edit_problem_header_edit_row {
	background: $tabbg;
	padding: 3px;
	margin-bottom: 5px;
	}
	div.LC_edit_problem_header_title {
	font: larger bold $sans;
	background: $tabbg;
	padding: 3px;
	}
	table.LC_edit_problem_header_title {
	font: larger bold $sans;
	width: 100%;
	border-color: $pgbg;
	border-style: solid;
	border-width: $border;

	background: $tabbg;
	border-collapse: collapse;
	padding: 0px
	}

	div.LC_edit_problem_discards {
	float: left;
	padding-bottom: 5px;
	}
	div.LC_edit_problem_saves {
	float: right;
	padding-bottom: 5px;
	}
	hr.LC_edit_problem_divide {
	clear: both;
	color: $tabbg;
	background-color: $tabbg;
	height: 3px;
	border: 0px;
	}
END	END
}	}

Line 4637 Inputs: none	Line 5271 Inputs: none
sub xml_begin {	sub xml_begin {
my $output='';	my $output='';

&Apache::lonhtmlcommon::init_htmlareafields();	if ($env{'internal.start_page'}==1) {
	&Apache::lonhtmlcommon::init_htmlareafields();
	}

if ($env{'browser.mathml'}) {	if ($env{'browser.mathml'}) {
$output='<?xml version="1.0"?>'	$output='<?xml version="1.0"?>'
Line 4886 sub simple_error_page {	Line 5522 sub simple_error_page {
}	}

{	{
my $row_count;	my @row_count;
sub start_data_table {	sub start_data_table {
my ($add_class) = @_;	my ($add_class) = @_;
my $css_class = (join(' ','LC_data_table',$add_class));	my $css_class = (join(' ','LC_data_table',$add_class));
undef($row_count);	unshift(@row_count,0);
return '<table class="'.$css_class.'">'."\n";	return '<table class="'.$css_class.'">'."\n";
}	}

sub end_data_table {	sub end_data_table {
undef($row_count);	shift(@row_count);
return '</table>'."\n";;	return '</table>'."\n";;
}	}

sub start_data_table_row {	sub start_data_table_row {
my ($add_class) = @_;	my ($add_class) = @_;
$row_count++;	$row_count[0]++;
my $css_class = ($row_count % 2)?'':'LC_even_row';	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
$css_class = (join(' ',$css_class,$add_class));	$css_class = (join(' ',$css_class,$add_class));
return '<tr class="'.$css_class.'">'."\n";;	return '<tr class="'.$css_class.'">'."\n";;
}	}

sub continue_data_table_row {	sub continue_data_table_row {
my ($add_class) = @_;	my ($add_class) = @_;
my $css_class = ($row_count % 2)?'':'LC_even_row';	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
$css_class = (join(' ',$css_class,$add_class));	$css_class = (join(' ',$css_class,$add_class));
return '<tr class="'.$css_class.'">'."\n";;	return '<tr class="'.$css_class.'">'."\n";;
}	}
Line 4919 sub simple_error_page {	Line 5555 sub simple_error_page {
}	}

sub start_data_table_empty_row {	sub start_data_table_empty_row {
$row_count++;	$row_count[0]++;
return '<tr class="LC_empty_row" >'."\n";;	return '<tr class="LC_empty_row" >'."\n";;
}	}

Line 5191 previous, future, or all.	Line 5827 previous, future, or all.
5. reference to array of section restrictions (optional)	5. reference to array of section restrictions (optional)
6. reference to results object (hash of hashes).	6. reference to results object (hash of hashes).
7. reference to optional userdata hash	7. reference to optional userdata hash
Keys of top level hash are roles.	8. reference to optional statushash
	Keys of top level results hash are roles.
Keys of inner hashes are username:domain, with	Keys of inner hashes are username:domain, with
values set to access type.	values set to access type.
Optional userdata hash returns an array with arguments in the	Optional userdata hash returns an array with arguments in the
same order as loncoursedata::get_classlist() for student data.	same order as loncoursedata::get_classlist() for student data.

	Optional statushash returns

Entries for end, start, section and status are blank because	Entries for end, start, section and status are blank because
of the possibility of multiple values for non-student roles.	of the possibility of multiple values for non-student roles.

Line 5205 of the possibility of multiple values fo	Line 5844 of the possibility of multiple values fo
###############################################	###############################################

sub get_course_users {	sub get_course_users {
my ($cdom,$cnum,$types,$roles,$sections,$users,$userdata) = @_;	my ($cdom,$cnum,$types,$roles,$sections,$users,$userdata,$statushash) = @_;
my %idx = ();	my %idx = ();
my %seclists;	my %seclists;

Line 5225 sub get_course_users {	Line 5864 sub get_course_users {
my $match = 0;	my $match = 0;
my $secmatch = 0;	my $secmatch = 0;
my $section = $$classlist{$student}[$idx{section}];	my $section = $$classlist{$student}[$idx{section}];
	my $status = $$classlist{$student}[$idx{status}];
if ($section eq '') {	if ($section eq '') {
$section = 'none';	$section = 'none';
}	}
Line 5244 sub get_course_users {	Line 5884 sub get_course_users {
next;	next;
}	}
}	}
push(@{$seclists{$student}},$section);
if (defined($$types{'active'})) {	if (defined($$types{'active'})) {
if ($$classlist{$student}[$idx{status}] eq 'Active') {	if ($$classlist{$student}[$idx{status}] eq 'Active') {
push(@{$$users{st}{$student}},'active');	push(@{$$users{st}{$student}},'active');
Line 5252 sub get_course_users {	Line 5891 sub get_course_users {
}	}
}	}
if (defined($$types{'previous'})) {	if (defined($$types{'previous'})) {
if ($$classlist{$student}[$idx{end}] <= $now) {	if ($$classlist{$student}[$idx{status}] eq 'Expired') {
push(@{$$users{st}{$student}},'previous');	push(@{$$users{st}{$student}},'previous');
$match = 1;	$match = 1;
}	}
}	}
if (defined($$types{'future'})) {	if (defined($$types{'future'})) {
if (($$classlist{$student}[$idx{start}] > $now) && ($$classlist{$student}[$idx{end}] > $now) \|\| ($$classlist{$student}[$idx{end}] == 0) \|\| ($$classlist{$student}[$idx{end}] eq '')) {	if ($$classlist{$student}[$idx{status}] eq 'Future') {
push(@{$$users{st}{$student}},'future');	push(@{$$users{st}{$student}},'future');
$match = 1;	$match = 1;
}	}
}	}
if ($match && ref($userdata) eq 'HASH') {	if ($match) {
$$userdata{$student} = $$classlist{$student};	push(@{$seclists{$student}},$section);
	if (ref($userdata) eq 'HASH') {
	$$userdata{$student} = $$classlist{$student};
	}
	if (ref($statushash) eq 'HASH') {
	$statushash->{$student}{'st'}{$section} = $status;
	}
}	}
}	}
}	}
if ((@{$roles} > 1) \|\| ((@{$roles} == 1) && ($$roles[0] ne "st"))) {	if ((@{$roles} > 1) \|\| ((@{$roles} == 1) && ($$roles[0] ne "st"))) {
my %coursepersonnel = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);	my %coursepersonnel = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
my $now = time;	my $now = time;
	my %displaystatus = ( previous => 'Expired',
	active => 'Active',
	future => 'Future',
	);
foreach my $person (sort(keys(%coursepersonnel))) {	foreach my $person (sort(keys(%coursepersonnel))) {
my $match = 0;	my $match = 0;
my $secmatch = 0;	my $secmatch = 0;
Line 5326 sub get_course_users {	Line 5975 sub get_course_users {
if (!grep(/^\Q$usec\E$/,@{$seclists{$uname.':'.$udom}})) {	if (!grep(/^\Q$usec\E$/,@{$seclists{$uname.':'.$udom}})) {
push(@{$seclists{$uname.':'.$udom}},$usec);	push(@{$seclists{$uname.':'.$udom}},$usec);
}	}
	if (ref($statushash) eq 'HASH') {
	$statushash->{$uname.':'.$udom}{$role}{$usec} = $displaystatus{$status};
	}
}	}
}	}
}	}
Line 5335 sub get_course_users {	Line 5987 sub get_course_users {
my %csettings = &Apache::lonnet::get('environment',['internal.courseowner'],$cdom,$cnum);	my %csettings = &Apache::lonnet::get('environment',['internal.courseowner'],$cdom,$cnum);
if ( defined($csettings{'internal.courseowner'}) ) {	if ( defined($csettings{'internal.courseowner'}) ) {
my $owner = $csettings{'internal.courseowner'};	my $owner = $csettings{'internal.courseowner'};
if ($owner !~ /^[^:]+:[^:]+$/) {	next if ($owner eq '');
$owner = $owner.':'.$cdom;	my ($ownername,$ownerdom);
	if ($owner =~ /^([^:]+):([^:]+)$/) {
	$ownername = $1;
	$ownerdom = $2;
	} else {
	$ownername = $owner;
	$ownerdom = $cdom;
	$owner = $ownername.':'.$ownerdom;
}	}
@{$$users{'ow'}{$owner}} = 'any';	@{$$users{'ow'}{$owner}} = 'any';
if (defined($userdata) &&	if (defined($userdata) &&
!exists($$userdata{$owner.':'.$cdom})) {	!exists($$userdata{$owner})) {
&get_user_info($cdom,$owner,\%idx,$userdata);	&get_user_info($ownerdom,$ownername,\%idx,$userdata);
if (!grep(/^none$/,@{$seclists{$owner.':'.$cdom}})) {	if (!grep(/^none$/,@{$seclists{$owner}})) {
push(@{$seclists{$owner.':'.$cdom}},'none');	push(@{$seclists{$owner}},'none');
	}
	if (ref($statushash) eq 'HASH') {
	$statushash->{$owner}{'ow'}{'none'} = 'Any';
}	}
}	}
}	}
Line 5363 sub get_user_info {	Line 6025 sub get_user_info {
&plainname($uname,$udom,'lastname');	&plainname($uname,$udom,'lastname');
$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname;	$$userdata{$uname.':'.$udom}[$$idx{uname}] = $uname;
$$userdata{$uname.':'.$udom}[$$idx{udom}] = $udom;	$$userdata{$uname.':'.$udom}[$$idx{udom}] = $udom;
	my %idhash = &Apache::lonnet::idrget($udom,($uname));
	$$userdata{$uname.':'.$udom}[$$idx{id}] = $idhash{$uname};
return;	return;
}	}

Line 5552 sub get_secgrprole_info {	Line 6216 sub get_secgrprole_info {
}	}

sub user_picker {	sub user_picker {
my ($dom,$srch,$forcenewuser) = @_;	my ($dom,$srch,$forcenewuser,$caller) = @_;
my $currdom = $dom;	my $currdom = $dom;
my %curr_selected = (	my %curr_selected = (
srchin => 'dom',	srchin => 'dom',
srchby => 'uname',	srchby => 'lastname',
);	);
my $srchterm;	my $srchterm;
if (ref($srch) eq 'HASH') {	if (ref($srch) eq 'HASH') {
Line 5575 sub user_picker {	Line 6239 sub user_picker {
$srchterm = $srch->{'srchterm'};	$srchterm = $srch->{'srchterm'};
}	}
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
	'usr' => 'Search criteria',
'doma' => 'Domain/institution to search',	'doma' => 'Domain/institution to search',
'uname' => 'username',	'uname' => 'username',
'lastname' => 'last name',	'lastname' => 'last name',
'lastfirst' => 'last name, first name',	'lastfirst' => 'last name, first name',
'crs' => 'in this course',	'crs' => 'in this course',
'dom' => 'in this domain',	'dom' => 'in selected LON-CAPA domain',
'alc' => 'all LON-CAPA',	'alc' => 'all LON-CAPA',
'instd' => 'in institutional directory',	'instd' => 'in institutional directory for selected domain',
'exact' => 'is',	'exact' => 'is',
'contains' => 'contains',	'contains' => 'contains',
	'begins' => 'begins with',
	'youm' => "You must include some text to search for.",
	'thte' => "The text you are searching for must contain at least two characters when using a 'begins' type search.",
	'thet' => "The text you are searching for must contain at least three characters when using a 'contains' type search.",
	'yomc' => "You must choose a domain when using an institutional directory search.",
	'ymcd' => "You must choose a domain when using a domain search.",
	'whus' => "When using searching by last,first you must include a comma as separator between last name and first name.",
	'whse' => "When searching by last,first you must include at least one character in the first name.",
	'thfo' => "The following need to be corrected before the search can be run:",
);	);
my $domform = &select_dom_form($currdom,'srchdomain',1,1);	my $domform = &select_dom_form($currdom,'srchdomain',1,1);
my $srchinsel = ' <select name="srchin">';	my $srchinsel = ' <select name="srchin">';
Line 5608 sub user_picker {	Line 6282 sub user_picker {
$srchinsel .= "\n </select>\n";	$srchinsel .= "\n </select>\n";

my $srchbysel = ' <select name="srchby">';	my $srchbysel = ' <select name="srchby">';
foreach my $option ('uname','lastname','lastfirst') {	foreach my $option ('lastname','lastfirst','uname') {
if ($curr_selected{'srchby'} eq $option) {	if ($curr_selected{'srchby'} eq $option) {
$srchbysel .= '	$srchbysel .= '
<option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';	<option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';
Line 5620 sub user_picker {	Line 6294 sub user_picker {
$srchbysel .= "\n </select>\n";	$srchbysel .= "\n </select>\n";

my $srchtypesel = ' <select name="srchtype">';	my $srchtypesel = ' <select name="srchtype">';
foreach my $option ('exact','contains') {	foreach my $option ('begins','contains','exact') {
if ($curr_selected{'srchtype'} eq $option) {	if ($curr_selected{'srchtype'} eq $option) {
$srchtypesel .= '	$srchtypesel .= '
<option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';	<option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';
Line 5634 sub user_picker {	Line 6308 sub user_picker {
my ($newuserscript,$new_user_create);	my ($newuserscript,$new_user_create);

if ($forcenewuser) {	if ($forcenewuser) {
$new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\');" /> </p>';	if (ref($srch) eq 'HASH') {
	if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $env{'request.role.domain'}) {
	$new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';
	}
	}

$newuserscript = <<"ENDSCRIPT";	$newuserscript = <<"ENDSCRIPT";

function setSearch(createnew) {	function setSearch(createnew,callingForm) {
if (createnew == 1) {	if (createnew == 1) {
for (var i=0; i<document.crtuser.srchby.length; i++) {	for (var i=0; i<callingForm.srchby.length; i++) {
if (document.crtuser.srchby.options[i].value == 'uname') {	if (callingForm.srchby.options[i].value == 'uname') {
document.crtuser.srchby.selectedIndex = i;	callingForm.srchby.selectedIndex = i;
}	}
}	}
for (var i=0; i<document.crtuser.srchin.length; i++) {	for (var i=0; i<callingForm.srchin.length; i++) {
if ( document.crtuser.srchin.options[i].value == 'dom') {	if ( callingForm.srchin.options[i].value == 'dom') {
document.crtuser.srchin.selectedIndex = i;	callingForm.srchin.selectedIndex = i;
}	}
}	}
for (var i=0; i<document.crtuser.srchtype.length; i++) {	for (var i=0; i<callingForm.srchtype.length; i++) {
if (document.crtuser.srchtype.options[i].value == 'exact') {	if (callingForm.srchtype.options[i].value == 'exact') {
document.crtuser.srchtype.selectedIndex = i;	callingForm.srchtype.selectedIndex = i;
}	}
}	}
for (var i=0; i<document.crtuser.srchdomain.length; i++) {	for (var i=0; i<callingForm.srchdomain.length; i++) {
if (document.crtuser.srchdomain.options[i].value == '$env{'request.role.domain'}') {	if (callingForm.srchdomain.options[i].value == '$env{'request.role.domain'}') {
document.crtuser.srchdomain.selectedIndex = i;	callingForm.srchdomain.selectedIndex = i;
}	}
}	}
}	}
Line 5667 ENDSCRIPT	Line 6346 ENDSCRIPT

my $output = <<"END_BLOCK";	my $output = <<"END_BLOCK";
<script type="text/javascript">	<script type="text/javascript">
function validateEntry() {	function validateEntry(callingForm) {

var checkok = 1;	var checkok = 1;
var srchin;	var srchin;
for (var i=0; i<document.crtuser.srchin.length; i++) {	for (var i=0; i<callingForm.srchin.length; i++) {
if ( document.crtuser.srchin[i].checked ) {	if ( callingForm.srchin[i].checked ) {
srchin = document.crtuser.srchin[i].value;	srchin = callingForm.srchin[i].value;
}	}
}	}

var srchtype = document.crtuser.srchtype.options[document.crtuser.srchtype.selectedIndex].value;	var srchtype = callingForm.srchtype.options[callingForm.srchtype.selectedIndex].value;
var srchby = document.crtuser.srchby.options[document.crtuser.srchby.selectedIndex].value;	var srchby = callingForm.srchby.options[callingForm.srchby.selectedIndex].value;
var srchdomain = document.crtuser.srchdomain.options[document.crtuser.srchdomain.selectedIndex].value;	var srchdomain = callingForm.srchdomain.options[callingForm.srchdomain.selectedIndex].value;
var srchterm = document.crtuser.srchterm.value;	var srchterm = callingForm.srchterm.value;
var srchin = document.crtuser.srchin.options[document.crtuser.srchin.selectedIndex].value;	var srchin = callingForm.srchin.options[callingForm.srchin.selectedIndex].value;
var msg = "";	var msg = "";

if (srchterm == "") {	if (srchterm == "") {
checkok = 0;	checkok = 0;
msg += "You must include some text to search for.\\n";	msg += "$lt{'youm'}\\n";
	}

	if (srchtype== 'begins') {
	if (srchterm.length < 2) {
	checkok = 0;
	msg += "$lt{'thte'}\\n";
	}
}	}

if (srchtype== 'contains') {	if (srchtype== 'contains') {
if (srchterm.length < 3) {	if (srchterm.length < 3) {
checkok = 0;	checkok = 0;
msg += "The text you are searching for must contain at least three characters when using a 'contains' type search.\\n";	msg += "$lt{'thet'}\\n";
}	}
}	}
if (srchin == 'instd') {	if (srchin == 'instd') {
if (srchdomain == '') {	if (srchdomain == '') {
checkok = 0;	checkok = 0;
msg += "You must choose a domain when using an institutional directory search.\\n";	msg += "$lt{'yomc'}\\n";
}	}
}	}
if (srchin == 'dom') {	if (srchin == 'dom') {
if (srchdomain == '') {	if (srchdomain == '') {
checkok = 0;	checkok = 0;
msg += "You must choose a domain when using a domain search.\\n";	msg += "$lt{'ymcd'}\\n";
}	}
}	}
if (srchby == 'lastfirst') {	if (srchby == 'lastfirst') {
if (srchterm.indexOf(",") == -1) {	if (srchterm.indexOf(",") == -1) {
checkok = 0;	checkok = 0;
msg += "When using searching by last,first you must include a comma as separator between last name and first name.\\n";	msg += "$lt{'whus'}\\n";
}	}
if (srchterm.indexOf(",") == srchterm.length -1) {	if (srchterm.indexOf(",") == srchterm.length -1) {
checkok = 0;	checkok = 0;
msg += "When searching by last,first you must include at least one character in the first name.\\n";	msg += "$lt{'whse'}\\n";
}	}
}	}
if (checkok == 0) {	if (checkok == 0) {
alert("The following need to be corrected before the search can be run:\\n"+msg);	alert("$lt{'thfo'}\\n"+msg);
return;	return;
}	}
if (checkok == 1) {	if (checkok == 1) {
document.crtuser.submit();	callingForm.submit();
}	}
}	}

Line 5734 $new_user_create	Line 6420 $new_user_create

<table>	<table>
<tr>	<tr>
	<td>$lt{'doma'}:</td>
	<td>$domform</td>
	</td>
	</tr>
	<tr>
	<td>$lt{'usr'}:</td>
<td>$srchbysel	<td>$srchbysel
$srchtypesel	$srchtypesel
<input type="text" size="15" name="srchterm" value="$srchterm" />	<input type="text" size="15" name="srchterm" value="$srchterm" />
$srchinsel	$srchinsel
</td>	</td>
</tr>	</tr>
<tr>
<td>$lt{'doma'}: $domform</td>
</td>
</tr>
</table>	</table>
<br />	<br />
END_BLOCK	END_BLOCK
Line 5751 END_BLOCK	Line 6439 END_BLOCK
return $output;	return $output;
}	}

	sub user_rule_check {
	my ($usershash,$checks,$alerts,$rulematch,$inst_results,$curr_rules,$got_rules) = @_;
	my $response;
	if (ref($usershash) eq 'HASH') {
	foreach my $user (keys(%{$usershash})) {
	my ($uname,$udom) = split(/:/,$user);
	next if ($udom eq '' \|\| $uname eq '');
	my ($id,$newuser);
	if (ref($usershash->{$user}) eq 'HASH') {
	$newuser = $usershash->{$user}->{'newuser'};
	$id = $usershash->{$user}->{'id'};
	}
	my $inst_response;
	if (ref($checks) eq 'HASH') {
	if (defined($checks->{'username'})) {
	($inst_response,%{$inst_results->{$user}}) =
	&Apache::lonnet::get_instuser($udom,$uname);
	} elsif (defined($checks->{'id'})) {
	($inst_response,%{$inst_results->{$user}}) =
	&Apache::lonnet::get_instuser($udom,undef,$id);
	}
	} else {
	($inst_response,%{$inst_results->{$user}}) =
	&Apache::lonnet::get_instuser($udom,$uname);
	return;
	}
	if (!$got_rules->{$udom}) {
	my %domconfig = &Apache::lonnet::get_dom('configuration',
	['usercreation'],$udom);
	if (ref($domconfig{'usercreation'}) eq 'HASH') {
	foreach my $item ('username','id') {
	if (ref($domconfig{'usercreation'}{$item.'_rule'}) eq 'ARRAY') {
	$$curr_rules{$udom}{$item} =
	$domconfig{'usercreation'}{$item.'_rule'};
	}
	}
	}
	$got_rules->{$udom} = 1;
	}
	foreach my $item (keys(%{$checks})) {
	if (ref($$curr_rules{$udom}) eq 'HASH') {
	if (ref($$curr_rules{$udom}{$item}) eq 'ARRAY') {
	if (@{$$curr_rules{$udom}{$item}} > 0) {
	my %rule_check = &Apache::lonnet::inst_rulecheck($udom,$uname,$id,$item,$$curr_rules{$udom}{$item});
	foreach my $rule (@{$$curr_rules{$udom}{$item}}) {
	if ($rule_check{$rule}) {
	$$rulematch{$user}{$item} = $rule;
	if ($inst_response eq 'ok') {
	if (ref($inst_results) eq 'HASH') {
	if (ref($inst_results->{$user}) eq 'HASH') {
	if (keys(%{$inst_results->{$user}}) == 0) {
	$$alerts{$item}{$udom}{$uname} = 1;
	}
	}
	}
	}
	last;
	}
	}
	}
	}
	}
	}
	}
	}
	return;
	}

	sub user_rule_formats {
	my ($domain,$domdesc,$curr_rules,$check) = @_;
	my %text = (
	'username' => 'Usernames',
	'id' => 'IDs',
	);
	my $output;
	my ($rules,$ruleorder) = &Apache::lonnet::inst_userrules($domain,$check);
	if ((ref($rules) eq 'HASH') && (ref($ruleorder) eq 'ARRAY')) {
	if (@{$ruleorder} > 0) {
	$output = '<br />'.&mt("$text{$check} with the following format(s) may <span class=\"LC_cusr_emph\">only</span> be used for verified users at [_1]:",$domdesc).' <ul>';
	foreach my $rule (@{$ruleorder}) {
	if (ref($curr_rules) eq 'ARRAY') {
	if (grep(/^\Q$rule\E$/,@{$curr_rules})) {
	if (ref($rules->{$rule}) eq 'HASH') {
	$output .= '<li>'.$rules->{$rule}{'name'}.': '.
	$rules->{$rule}{'desc'}.'</li>';
	}
	}
	}
	}
	$output .= '</ul>';
	}
	}
	return $output;
	}

	sub instrule_disallow_msg {
	my ($checkitem,$domdesc,$count,$mode) = @_;
	my $response;
	my %text = (
	item => 'username',
	items => 'usernames',
	match => 'matches',
	do => 'does',
	action => 'a username',
	one => 'one',
	);
	if ($count > 1) {
	$text{'item'} = 'usernames';
	$text{'match'} ='match';
	$text{'do'} = 'do';
	$text{'action'} = 'usernames',
	$text{'one'} = 'ones';
	}
	if ($checkitem eq 'id') {
	$text{'items'} = 'IDs';
	$text{'item'} = 'ID';
	$text{'action'} = 'an ID';
	if ($count > 1) {
	$text{'item'} = 'IDs';
	$text{'action'} = 'IDs';
	}
	}
	$response = &mt("The $text{'item'} you chose $text{'match'} the format of $text{'items'} defined for <span class=\"LC_cusr_emph\">[_1]</span>, but the $text{'item'} $text{'do'} not exist in the institutional directory.",$domdesc).'<br />';
	if ($mode eq 'upload') {
	if ($checkitem eq 'username') {
	$response .= &mt("You will need to modify your upload file so it will include $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}.");
	} elsif ($checkitem eq 'id') {
	$response .= &mt("Either upload a file which includes $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}, or when associating fields with data columns, omit an association for the ID/Student Number field.");
	}
	} else {
	if ($checkitem eq 'username') {
	$response .= &mt("You must choose $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}.");
	} elsif ($checkitem eq 'id') {
	$response .= &mt("You must either choose $text{'action'} with a different format -- $text{'one'} that will not conflict with 'official' institutional $text{'items'}, or leave the ID field blank.");
	}
	}
	return $response;
	}

=pod	=pod

Line 6124 sub csv_print_samples {	Line 6949 sub csv_print_samples {
my ($r,$records) = @_;	my ($r,$records) = @_;
my $samples = &get_samples($records,3);	my $samples = &get_samples($records,3);

$r->print(&mt('Samples').'<br /><table border="2"><tr>');	$r->print(&mt('Samples').'<br />'.&start_data_table().
	&start_data_table_header_row());
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {	foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {
$r->print('<th>'.&mt('Column [_1]',($sample+1)).'</th>'); }	$r->print('<th>'.&mt('Column [_1]',($sample+1)).'</th>'); }
$r->print('</tr>');	$r->print(&end_data_table_header_row());
foreach my $hash (@$samples) {	foreach my $hash (@$samples) {
$r->print('<tr>');	$r->print(&start_data_table_row());
foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {	foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {
$r->print('<td>');	$r->print('<td>');
if (defined($$hash{$sample})) { $r->print($$hash{$sample}); }	if (defined($$hash{$sample})) { $r->print($$hash{$sample}); }
$r->print('</td>');	$r->print('</td>');
}	}
$r->print('</tr>');	$r->print(&end_data_table_row());
}	}
$r->print('</tr></table><br />'."\n");	$r->print(&end_data_table().'<br />'."\n");
}	}

######################################################	######################################################
Line 6162 sub csv_print_select_table {	Line 6988 sub csv_print_select_table {
my $i=0;	my $i=0;
my $samples = &get_samples($records,1);	my $samples = &get_samples($records,1);
$r->print(&mt('Associate columns with student attributes.')."\n".	$r->print(&mt('Associate columns with student attributes.')."\n".
'<table border="2"><tr>'.	&start_data_table().&start_data_table_header_row().
'<th>'.&mt('Attribute').'</th>'.	'<th>'.&mt('Attribute').'</th>'.
'<th>'.&mt('Column').'</th></tr>'."\n");	'<th>'.&mt('Column').'</th>'.
	&end_data_table_header_row()."\n");
foreach my $array_ref (@$d) {	foreach my $array_ref (@$d) {
my ($value,$display,$defaultcol)=@{ $array_ref };	my ($value,$display,$defaultcol)=@{ $array_ref };
$r->print('<tr><td>'.$display.'</td>');	$r->print(&start_data_table_row().'<tr><td>'.$display.'</td>');

$r->print('<td><select name=f'.$i.	$r->print('<td><select name=f'.$i.
' onchange="javascript:flip(this.form,'.$i.');">');	' onchange="javascript:flip(this.form,'.$i.');">');
Line 6177 sub csv_print_select_table {	Line 7004 sub csv_print_select_table {
($sample eq $defaultcol ? ' selected="selected" ' : '').	($sample eq $defaultcol ? ' selected="selected" ' : '').
'>Column '.($sample+1).'</option>');	'>Column '.($sample+1).'</option>');
}	}
$r->print('</select></td></tr>'."\n");	$r->print('</select></td>'.&end_data_table_row()."\n");
$i++;	$i++;
}	}
	$r->print(&end_data_table());
$i--;	$i--;
return $i;	return $i;
}	}
Line 6206 sub csv_samples_select_table {	Line 7034 sub csv_samples_select_table {
my $i=0;	my $i=0;
#	#
my $samples = &get_samples($records,3);	my $samples = &get_samples($records,3);
$r->print('<table border=2><tr><th>'.	$r->print(&start_data_table().
&mt('Field').'</th><th>'.&mt('Samples').'</th></tr>');	&start_data_table_header_row().'<th>'.
	&mt('Field').'</th><th>'.&mt('Samples').'</th>'.
	&end_data_table_header_row());

foreach my $key (sort(keys(%{ $samples->[0] }))) {	foreach my $key (sort(keys(%{ $samples->[0] }))) {
$r->print('<tr><td><select name="f'.$i.'"'.	$r->print(&start_data_table_row().'<td><select name="f'.$i.'"'.
' onchange="javascript:flip(this.form,'.$i.');">');	' onchange="javascript:flip(this.form,'.$i.');">');
foreach my $option (@$d) {	foreach my $option (@$d) {
my ($value,$display,$defaultcol)=@{ $option };	my ($value,$display,$defaultcol)=@{ $option };
Line 6224 sub csv_samples_select_table {	Line 7054 sub csv_samples_select_table {
$r->print($samples->[$line]{$key}."<br />\n");	$r->print($samples->[$line]{$key}."<br />\n");
}	}
}	}
$r->print('</td></tr>');	$r->print('</td>'.&end_data_table_row());
$i++;	$i++;
}	}
	$r->print(&end_data_table());
$i--;	$i--;
return($i);	return($i);
}	}
Line 6913 sub commit_studentrole {	Line 7744 sub commit_studentrole {
############################################################	############################################################

sub check_clone {	sub check_clone {
my ($args) = @_;	my ($args,$linefeed) = @_;
my $cloneid='/'.$args->{'clonedomain'}.'/'.$args->{'clonecourse'};	my $cloneid='/'.$args->{'clonedomain'}.'/'.$args->{'clonecourse'};
my ($clonecrsudom,$clonecrsunum)= &LONCAPA::split_courseid($cloneid);	my ($clonecrsudom,$clonecrsunum)= &LONCAPA::split_courseid($cloneid);
my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);	my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);
Line 6921 sub check_clone {	Line 7752 sub check_clone {
my $can_clone = 0;	my $can_clone = 0;

if ($clonehome eq 'no_host') {	if ($clonehome eq 'no_host') {
$clonemsg = &mt('Attempting to clone non-existing [_1]',	$clonemsg = &mt('No new course created.').$linefeed.&mt('A new course could not be cloned from the specified original - [_1] - because it is a non-existent course.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
$args->{'crstype'});
} else {	} else {
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});	my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});
if ($env{'request.role.domain'} eq $args->{'clonedomain'}) {	if ($env{'request.role.domain'} eq $args->{'clonedomain'}) {
Line 6931 sub check_clone {	Line 7761 sub check_clone {
my %clonehash = &Apache::lonnet::get('environment',['cloners'],	my %clonehash = &Apache::lonnet::get('environment',['cloners'],
$args->{'clonedomain'},$args->{'clonecourse'});	$args->{'clonedomain'},$args->{'clonecourse'});
my @cloners = split(/,/,$clonehash{'cloners'});	my @cloners = split(/,/,$clonehash{'cloners'});
my %roleshash =	if (grep(/^\*$/,@cloners)) {
&Apache::lonnet::get_my_roles($args->{'ccuname'},	$can_clone = 1;
$args->{'ccdomain'},'userroles',['active'],['cc'],	} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) {
[$args->{'clonedomain'}]);	$can_clone = 1;
if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':cc'}) \|\| (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {	} else {
$can_clone = 1;	my %roleshash =
} else {	&Apache::lonnet::get_my_roles($args->{'ccuname'},
$clonemsg = &mt('The new course was not cloned from an existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});	$args->{'ccdomain'},
	'userroles',['active'],['cc'],
	[$args->{'clonedomain'}]);
	if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':cc'}) \|\| (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {
	$can_clone = 1;
	} else {
	$clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});
	}
}	}
}	}
}	}

return ($can_clone, $clonemsg, $cloneid, $clonehome);	return ($can_clone, $clonemsg, $cloneid, $clonehome);
}	}

Line 6959 sub construct_course {	Line 7795 sub construct_course {
#	#
my ($can_clone, $clonemsg, $cloneid, $clonehome);	my ($can_clone, $clonemsg, $cloneid, $clonehome);
if (($args->{'clonecourse'}) && ($args->{'clonedomain'})) {	if (($args->{'clonecourse'}) && ($args->{'clonedomain'})) {
($can_clone, $clonemsg, $cloneid, $clonehome) = &check_clone($args);	($can_clone, $clonemsg, $cloneid, $clonehome) = &check_clone($args,$linefeed);
if ($context ne 'auto') {	if ($context ne 'auto') {
$clonemsg = '<span class="LC_error">'.$clonemsg.'</span>';	if ($clonemsg ne '') {
	$clonemsg = '<span class="LC_error">'.$clonemsg.'</span>';
	}
}	}
$outcome .= $clonemsg.$linefeed;	$outcome .= $clonemsg.$linefeed;

Line 7305 sub icon {	Line 8143 sub icon {
return &lonhttpdurl($iconname);	return &lonhttpdurl($iconname);
}	}

sub lonhttpdurl {	sub lonhttpd_port {
my ($url)=@_;
my $lonhttpd_port=$Apache::lonnet::perlvar{'lonhttpdPort'};	my $lonhttpd_port=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpd_port)) { $lonhttpd_port='8080'; }	if (!defined($lonhttpd_port)) { $lonhttpd_port='8080'; }
	# IE doesn't like a secure page getting images from a non-secure
	# port (when logging we haven't parsed the browser type so default
	# back to secure
	if ((!exists($env{'browser.type'}) \|\| $env{'browser.type'} eq 'explorer')
	&& $ENV{'SERVER_PORT'} == 443) {
	return 443;
	}
	return $lonhttpd_port;

	}

	sub lonhttpdurl {
	my ($url)=@_;

	my $lonhttpd_port = &lonhttpd_port();
	if ($lonhttpd_port == 443) {
	return 'https://'.$ENV{'SERVER_NAME'}.$url;
	}
return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;	return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;
}	}

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

Removed from v.1.564.2.2
changed lines
	Added in v.1.617