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.897 and 1.948.2.16

version 1.897, 2009/10/13 13:18:24	version 1.948.2.16, 2010/12/24 17:30:35
Line 482 ENDAUTHORBRW	Line 482 ENDAUTHORBRW
}	}

sub coursebrowser_javascript {	sub coursebrowser_javascript {
my ($domainfilter,$sec_element,$formname)=@_;	my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_;
my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Community - for which you wish to add/modify a user role.');	my $wintitle = 'Course_Browser';
	if ($crstype eq 'Community') {
	$wintitle = 'Community_Browser';
	}
my $id_functions = &javascript_index_functions();	my $id_functions = &javascript_index_functions();
my $output = '	my $output = '
<script type="text/javascript" language="JavaScript">	<script type="text/javascript" language="JavaScript">
Line 491 sub coursebrowser_javascript {	Line 494 sub coursebrowser_javascript {
var stdeditbrowser;'."\n";	var stdeditbrowser;'."\n";

$output .= <<"ENDSTDBRW";	$output .= <<"ENDSTDBRW";
function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,crstype) {	function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,type,type_elem) {
var url = '/adm/pickcourse?';	var url = '/adm/pickcourse?';
var formid = getFormIdByName(formname);	var formid = getFormIdByName(formname);
var domainfilter = getDomainFromSelectbox(formname,udom);	var domainfilter = getDomainFromSelectbox(formname,udom);
Line 520 sub coursebrowser_javascript {	Line 523 sub coursebrowser_javascript {
}	}
}	}
}	}
	if (type != null && type != '') {
	url += '&type='+type;
	}
	if (type_elem != null && type_elem != '') {
	url += '&typeelement='+type_elem;
	}
if (formname == 'ccrs') {	if (formname == 'ccrs') {
var ownername = document.forms[formid].ccuname.value;	var ownername = document.forms[formid].ccuname.value;
var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value;	var ownerdom = document.forms[formid].ccdomain.options[document.forms[formid].ccdomain.selectedIndex].value;
Line 528 sub coursebrowser_javascript {	Line 537 sub coursebrowser_javascript {
if (multflag !=null && multflag != '') {	if (multflag !=null && multflag != '') {
url += '&multiple='+multflag;	url += '&multiple='+multflag;
}	}
if (crstype == 'Course/Community') {	var title = '$wintitle';
if (formname == 'cu') {
crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value;
if (crstype == "") {
alert("$crs_or_grp_alert");
return;
}
}
}
if (crstype !=null && crstype != '') {
url += '&type='+crstype;
}
var title = 'Course_Browser';
var options = 'scrollbars=1,resizable=1,menubar=0';	var options = 'scrollbars=1,resizable=1,menubar=0';
options += ',width=700,height=600';	options += ',width=700,height=600';
stdeditbrowser = open(url,title,options,'1');	stdeditbrowser = open(url,title,options,'1');
Line 548 sub coursebrowser_javascript {	Line 545 sub coursebrowser_javascript {
}	}
$id_functions	$id_functions
ENDSTDBRW	ENDSTDBRW
if ($sec_element ne '') {	if (($sec_element ne '') \|\| ($role_element ne '')) {
$output .= &setsec_javascript($sec_element,$formname);	$output .= &setsec_javascript($sec_element,$formname,$role_element);
}	}
$output .= '	$output .= '
// ]]>	// ]]>
Line 661 ENDUSERBRW	Line 658 ENDUSERBRW
}	}

sub setsec_javascript {	sub setsec_javascript {
my ($sec_element,$formname) = @_;	my ($sec_element,$formname,$role_element) = @_;
	my (@courserolenames,@communityrolenames,$rolestr,$courserolestr,
	$communityrolestr);
	if ($role_element ne '') {
	my @allroles = ('st','ta','ep','in','ad');
	foreach my $crstype ('Course','Community') {
	if ($crstype eq 'Community') {
	foreach my $role (@allroles) {
	push(@communityrolenames,&Apache::lonnet::plaintext($role,$crstype));
	}
	push(@communityrolenames,&Apache::lonnet::plaintext('co'));
	} else {
	foreach my $role (@allroles) {
	push(@courserolenames,&Apache::lonnet::plaintext($role,$crstype));
	}
	push(@courserolenames,&Apache::lonnet::plaintext('cc'));
	}
	}
	$rolestr = '"'.join('","',@allroles).'"';
	$courserolestr = '"'.join('","',@courserolenames).'"';
	$communityrolestr = '"'.join('","',@communityrolenames).'"';
	}
my $setsections = qq\|	my $setsections = qq\|
function setSect(sectionlist) {	function setSect(sectionlist) {
var sectionsArray = new Array();	var sectionsArray = new Array();
Line 695 function setSect(sectionlist) {	Line 713 function setSect(sectionlist) {
}	}
}	}
}	}

	function setRole(crstype) {
\|;	\|;
	if ($role_element eq '') {
	$setsections .= ' return;
	}
	';
	} else {
	$setsections .= qq\|
	var elementLength = document.$formname.$role_element.length;
	var allroles = Array($rolestr);
	var courserolenames = Array($courserolestr);
	var communityrolenames = Array($communityrolestr);
	if (elementLength != undefined) {
	if (document.$formname.$role_element.options[5].value == 'cc') {
	if (crstype == 'Course') {
	return;
	} else {
	allroles[5] = 'co';
	for (var i=0; i<6; i++) {
	document.$formname.$role_element.options[i].value = allroles[i];
	document.$formname.$role_element.options[i].text = communityrolenames[i];
	}
	}
	} else {
	if (crstype == 'Community') {
	return;
	} else {
	allroles[5] = 'cc';
	for (var i=0; i<6; i++) {
	document.$formname.$role_element.options[i].value = allroles[i];
	document.$formname.$role_element.options[i].text = courserolenames[i];
	}
	}
	}
	}
	return;
	}
	\|;
	}
return $setsections;	return $setsections;
}	}


sub selectcourse_link {	sub selectcourse_link {
my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_;	my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype,
	$typeelement) = @_;
	my $type = $selecttype;
my $linktext = &mt('Select Course');	my $linktext = &mt('Select Course');
if ($selecttype eq 'Community') {	if ($selecttype eq 'Community') {
$linktext = &mt('Select Community');	$linktext = &mt('Select Community');
	} elsif ($selecttype eq 'Course/Community') {
	$linktext = &mt('Select Course/Community');
	$type = '';
}	}
return '<span class="LC_nobreak">'	return '<span class="LC_nobreak">'
."<a href='"	."<a href='"
.'javascript:opencrsbrowser("'.$form.'","'.$unameele	.'javascript:opencrsbrowser("'.$form.'","'.$unameele
.'","'.$udomele.'","'.$desc.'","'.$extra_element	.'","'.$udomele.'","'.$desc.'","'.$extra_element
.'","'.$multflag.'","'.$selecttype.'");'	.'","'.$multflag.'","'.$type.'","'.$typeelement.'");'
."'>".$linktext.'</a>'	."'>".$linktext.'</a>'
.'</span>';	.'</span>';
}	}
Line 839 sub select_language {	Line 900 sub select_language {
$langchoices{$code} = &plainlanguagedescription($id);	$langchoices{$code} = &plainlanguagedescription($id);
}	}
}	}
return &select_form($selected,$name,%langchoices);	return &select_form($selected,$name,\%langchoices);
}	}

=pod	=pod
Line 1011 END	Line 1072 END

=pod	=pod

=item * &help_open_topic($topic,$text,$stayOnPage,$width,$height)	=item * &help_open_topic($topic,$text,$stayOnPage,$width,$height,$imgid)

Returns a string corresponding to an HTML link to the given help	Returns a string corresponding to an HTML link to the given help
$topic, where $topic corresponds to the name of a .tex file in	$topic, where $topic corresponds to the name of a .tex file in
Line 1034 be useful for certain help topics with b	Line 1095 be useful for certain help topics with b
=cut	=cut

sub help_open_topic {	sub help_open_topic {
my ($topic, $text, $stayOnPage, $width, $height) = @_;	my ($topic, $text, $stayOnPage, $width, $height, $imgid) = @_;
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 0 if (not defined $stayOnPage);
$width = 350 if (not defined $width);	$width = 350 if (not defined $width);
Line 1063 sub help_open_topic {	Line 1124 sub help_open_topic {
# (Always) Add the graphic	# (Always) Add the graphic
my $title = &mt('Online Help');	my $title = &mt('Online Help');
my $helpicon=&lonhttpdurl("/adm/help/help.png");	my $helpicon=&lonhttpdurl("/adm/help/help.png");
	if ($imgid ne '') {
	$imgid = ' id="'.$imgid.'"';
	}
$template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'	$template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'
.'<img src="'.$helpicon.'" border="0"'	.'<img src="'.$helpicon.'" border="0"'
.' alt="'.&mt('Help: [_1]',$topic).'"'	.' alt="'.&mt('Help: [_1]',$topic).'"'
.' title="'.$title.'"'	.' title="'.$title.'" style="vertical-align:middle;"'.$imgid
.' /></a>';	.' /></a>';
if ($text ne "") {	if ($text ne "") {
$template.='</span>';	$template.='</span>';
}	}
return $template;	return $template;
Line 1109 sub general_help {	Line 1173 sub general_help {
my $helptopic='Student_Intro';	my $helptopic='Student_Intro';
if ($env{'request.role'}=~/^(ca\|au)/) {	if ($env{'request.role'}=~/^(ca\|au)/) {
$helptopic='Authoring_Intro';	$helptopic='Authoring_Intro';
} elsif ($env{'request.role'}=~/^cc/) {	} elsif ($env{'request.role'}=~/^(cc\|co)/) {
$helptopic='Course_Coordination_Intro';	$helptopic='Course_Coordination_Intro';
} elsif ($env{'request.role'}=~/^dc/) {	} elsif ($env{'request.role'}=~/^dc/) {
$helptopic='Domain_Coordination_Intro';	$helptopic='Domain_Coordination_Intro';
Line 1658 sub create_workbook {	Line 1722 sub create_workbook {
my $workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);	my $workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
if (! defined($workbook)) {	if (! defined($workbook)) {
$r->log_error("Error creating excel spreadsheet $filename: $!");	$r->log_error("Error creating excel spreadsheet $filename: $!");
$r->print('<p>'.&mt("Unable to create new Excel file. ".	$r->print(
"This error has been logged. ".	'<p class="LC_error">'
"Please alert your LON-CAPA administrator").	.&mt('Problems occurred in creating the new Excel file.')
'</p>');	.' '.&mt('This error has been logged.')
	.' '.&mt('Please alert your LON-CAPA administrator.')
	.'</p>'
	);
return (undef);	return (undef);
}	}
#	#
Line 1701 sub create_text_file {	Line 1768 sub create_text_file {
$fh = Apache::File->new('>/home/httpd'.$filename);	$fh = Apache::File->new('>/home/httpd'.$filename);
if (! defined($fh)) {	if (! defined($fh)) {
$r->log_error("Couldn't open $filename for output $!");	$r->log_error("Couldn't open $filename for output $!");
$r->print(&mt('Problems occurred in creating the output file. '	$r->print(
.'This error has been logged. '	'<p class="LC_error">'
.'Please alert your LON-CAPA administrator.'));	.&mt('Problems occurred in creating the output file.')
	.' '.&mt('This error has been logged.')
	.' '.&mt('Please alert your LON-CAPA administrator.')
	.'</p>'
	);
}	}
return ($fh,$filename)	return ($fh,$filename)
}	}
Line 1732 sub domain_select {	Line 1803 sub domain_select {
return &multiple_select_form($name,$value,4,\%domains);	return &multiple_select_form($name,$value,4,\%domains);
} else {	} else {
$domains{'select_form_order'} = [sort {lc($a) cmp lc($b) } (keys(%domains))];	$domains{'select_form_order'} = [sort {lc($a) cmp lc($b) } (keys(%domains))];
return &select_form($name,$value,%domains);	return &select_form($name,$value,\%domains);
}	}
}	}

Line 1794 sub multiple_select_form {	Line 1865 sub multiple_select_form {

=pod	=pod

=item * &select_form($defdom,$name,%hash)	=item * &select_form($defdom,$name,$hashref,$onchange)

Returns a string containing a <select name='$name' size='1'> form to	Returns a string containing a <select name='$name' size='1'> form to
allow a user to select options from a hash option_name => displayed text.	allow a user to select options from a ref to a hash containing:
	option_name => displayed text. An optional $onchange can include
	a javascript onchange item, e.g., onchange="this.form.submit();"

See lonrights.pm for an example invocation and use.	See lonrights.pm for an example invocation and use.

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub select_form {	sub select_form {
my ($def,$name,%hash) = @_;	my ($def,$name,$hashref,$onchange) = @_;
my $selectform = "<select name=\"$name\" size=\"1\">\n";	return unless (ref($hashref) eq 'HASH');
	if ($onchange) {
	$onchange = ' onchange="'.$onchange.'"';
	}
	my $selectform = "<select name=\"$name\" size=\"1\"$onchange>\n";
my @keys;	my @keys;
if (exists($hash{'select_form_order'})) {	if (exists($hashref->{'select_form_order'})) {
@keys=@{$hash{'select_form_order'}};	@keys=@{$hashref->{'select_form_order'}};
} else {	} else {
@keys=sort(keys(%hash));	@keys=sort(keys(%{$hashref}));
}	}
foreach my $key (@keys) {	foreach my $key (@keys) {
$selectform.=	$selectform.=
'<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.	'<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.
($key eq $def ? 'selected="selected" ' : '').	($key eq $def ? 'selected="selected" ' : '').
">".&mt($hash{$key})."</option>\n";	">".$hashref->{$key}."</option>\n";
}	}
$selectform.="</select>";	$selectform.="</select>";
return $selectform;	return $selectform;
Line 1834 sub display_filter {	Line 1912 sub display_filter {
&mt('Filter [_1]',	&mt('Filter [_1]',
&select_form($env{'form.displayfilter'},	&select_form($env{'form.displayfilter'},
'displayfilter',	'displayfilter',
('currentfolder' => 'Current folder/page',	{'currentfolder' => 'Current folder/page',
'containing' => 'Containing phrase',	'containing' => 'Containing phrase',
'none' => 'None'))).	'none' => 'None'})).
'<input type="text" name="containingphrase" size="30" value="'.&HTML::Entities::encode($env{'form.containingphrase'}).'" /></span>';	'<input type="text" name="containingphrase" size="30" value="'.&HTML::Entities::encode($env{'form.containingphrase'}).'" /></span>';
}	}

Line 1881 sub select_level_form {	Line 1959 sub select_level_form {

=pod	=pod

=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$onchange)	=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms)

Returns a string containing a <select name='$name' size='1'> form to	Returns a string containing a <select name='$name' size='1'> form to
allow a user to select the domain to preform an operation in.	allow a user to select the domain to preform an operation in.
Line 1892 selected");	Line 1970 selected");

If the $showdomdesc flag is set, the domain name is followed by the domain description.	If the $showdomdesc flag is set, the domain name is followed by the domain description.

The optional $onchange argumnet specifies what should occur if the domain selector is changed, e.g., 'this.form.submit()' if the form is to be automatically submitted.	The optional $onchange argument specifies what should occur if the domain selector is changed, e.g., 'this.form.submit()' if the form is to be automatically submitted.

	The optional $incdoms is a reference to an array of domains which will be the only available options.

=cut	=cut

#-------------------------------------------	#-------------------------------------------
sub select_dom_form {	sub select_dom_form {
my ($defdom,$name,$includeempty,$showdomdesc,$onchange) = @_;	my ($defdom,$name,$includeempty,$showdomdesc,$onchange,$incdoms) = @_;
if ($onchange) {	if ($onchange) {
$onchange = ' onchange="'.$onchange.'"';	$onchange = ' onchange="'.$onchange.'"';
}	}
my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains());	my @domains;
	if (ref($incdoms) eq 'ARRAY') {
	@domains = sort {lc($a) cmp lc($b)} (@{$incdoms});
	} else {
	@domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains());
	}
if ($includeempty) { @domains=('',@domains); }	if ($includeempty) { @domains=('',@domains); }
my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n";	my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n";
foreach my $dom (@domains) {	foreach my $dom (@domains) {
Line 2199 function changed_text(choice,currentform	Line 2284 function changed_text(choice,currentform
}	}

function set_auth_radio_buttons(newvalue,currentform) {	function set_auth_radio_buttons(newvalue,currentform) {
	var numauthchoices = currentform.login.length;
	if (typeof numauthchoices == "undefined") {
	return;
	}
var i=0;	var i=0;
while (i < currentform.login.length) {	while (i < numauthchoices) {) {
if (currentform.login[i].value == newvalue) { break; }	if (currentform.login[i].value == newvalue) { break; }
i++;	i++;
}	}
if (i == currentform.login.length) {	if (i == numauthchoices) {
return;	return;
}	}
current.radiovalue = newvalue;	current.radiovalue = newvalue;
Line 3172 sub filecategoryselect {	Line 3261 sub filecategoryselect {
my ($name,$value)=@_;	my ($name,$value)=@_;
return &select_form($value,$name,	return &select_form($value,$name,
'' => &mt('Any category'),	'' => &mt('Any category'),
map { $_,$_ } sort(keys(%category_extensions)));	{'' => &mt('Any category'), map { $_,$_ } sort(keys(%category_extensions))});
}	}

=pod	=pod
Line 3337 sub get_previous_attempt {	Line 3426 sub get_previous_attempt {
}	}
$prevattempts=&start_data_table().&start_data_table_header_row();	$prevattempts=&start_data_table().&start_data_table_header_row();
$prevattempts.='<th>'.&mt('History').'</th>';	$prevattempts.='<th>'.&mt('History').'</th>';
	my (%typeparts,%lasthidden);
	my $showsurv=&Apache::lonnet::allowed('vas',$env{'request.course.id'});
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];
	next if ($data eq 'foilorder');
pop(@parts);	pop(@parts);
$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>';	if ($data eq 'type') {
	unless ($showsurv) {
	my $id = join(',',@parts);
	$typeparts{$ign.'.'.$id} = $lasthash{$key};
	if (($lasthash{$key} eq 'anonsurvey') \|\| ($lasthash{$key} eq 'anonsurveycred')) {
	$lasthidden{$ign.'.'.$id} = 1;
	}
	}
	delete($lasthash{$key});
	} else {
	$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 3354 sub get_previous_attempt {	Line 3457 sub get_previous_attempt {
$prevattempts.=&end_data_table_header_row();	$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.=&start_data_table_row().	my @hidden;
'<td>'.&mt('Transaction [_1]',$version).'</td>';	if (%typeparts) {
foreach my $key (sort(keys(%lasthash))) {	foreach my $id (keys(%typeparts)) {
my $value = &format_previous_attempt_value($key,	if (($returnhash{$version.':'.$id.'.type'} eq 'anonsurvey') \|\| ($returnhash{$version.':'.$id.'.type'} eq 'anonsurveycred')) {
$returnhash{$version.':'.$key});	push(@hidden,$id);
$prevattempts.='<td>'.$value.' </td>';	}
}	}
$prevattempts.=&end_data_table_row();	}
	$prevattempts.=&start_data_table_row().
	'<td>'.&mt('Transaction [_1]',$version).'</td>';
	if (@hidden) {
	foreach my $key (sort(keys(%lasthash))) {
	next if ($key =~ /\.foilorder$/);
	my $hide;
	foreach my $id (@hidden) {
	if ($key =~ /^\Q$id\E/) {
	$hide = 1;
	last;
	}
	}
	if ($hide) {
	my ($id,$data) = ($key =~ /^(.+)\.([^.]+)$/);
	if (($data eq 'award') \|\| ($data eq 'awarddetail')) {
	my $value = &format_previous_attempt_value($key,
	$returnhash{$version.':'.$key});
	$prevattempts.='<td>'.$value.' </td>';
	} else {
	$prevattempts.='<td> </td>';
	}
	} else {
	if ($key =~ /\./) {
	my $value = &format_previous_attempt_value($key,
	$returnhash{$version.':'.$key});
	$prevattempts.='<td>'.$value.' </td>';
	} else {
	$prevattempts.='<td> </td>';
	}
	}
	}
	} else {
	foreach my $key (sort(keys(%lasthash))) {
	next if ($key =~ /\.foilorder$/);
	my $value = &format_previous_attempt_value($key,
	$returnhash{$version.':'.$key});
	$prevattempts.='<td>'.$value.' </td>';
	}
	}
	$prevattempts.=&end_data_table_row();
}	}
}	}
	my @currhidden = keys(%lasthidden);
$prevattempts.=&start_data_table_row().'<td>'.&mt('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 = &format_previous_attempt_value($key,$lasthash{$key});	next if ($key =~ /\.foilorder$/);
if ($key =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}	if (%typeparts) {
$prevattempts.='<td>'.$value.' </td>';	my $hidden;
	foreach my $id (@currhidden) {
	if ($key =~ /^\Q$id\E/) {
	$hidden = 1;
	last;
	}
	}
	if ($hidden) {
	my ($id,$data) = ($key =~ /^(.+)\.([^.]+)$/);
	if (($data eq 'award') \|\| ($data eq 'awarddetail')) {
	my $value = &format_previous_attempt_value($key,$lasthash{$key});
	if ($key =~/$regexp$/ && (defined &$gradesub)) {
	$value = &$gradesub($value);
	}
	$prevattempts.='<td>'.$value.' </td>';
	} else {
	$prevattempts.='<td> </td>';
	}
	} else {
	my $value = &format_previous_attempt_value($key,$lasthash{$key});
	if ($key =~/$regexp$/ && (defined &$gradesub)) {
	$value = &$gradesub($value);
	}
	$prevattempts.='<td>'.$value.' </td>';
	}
	} else {
	my $value = &format_previous_attempt_value($key,$lasthash{$key});
	if ($key =~/$regexp$/ && (defined &$gradesub)) {
	$value = &$gradesub($value);
	}
	$prevattempts.='<td>'.$value.' </td>';
	}
}	}
$prevattempts.= &end_data_table_row().&end_data_table();	$prevattempts.= &end_data_table_row().&end_data_table();
} else {	} else {
Line 3391 sub format_previous_attempt_value {	Line 3566 sub format_previous_attempt_value {
$value = &Apache::lonlocal::locallocaltime($value);	$value = &Apache::lonlocal::locallocaltime($value);
} elsif (ref($value) eq 'ARRAY') {	} elsif (ref($value) eq 'ARRAY') {
$value = '('.join(', ', @{ $value }).')';	$value = '('.join(', ', @{ $value }).')';
	} elsif ($key =~ /answerstring$/) {
	my %answers = &Apache::lonnet::str2hash($value);
	my @anskeys = sort(keys(%answers));
	if (@anskeys == 1) {
	my $answer = $answers{$anskeys[0]};
	if ($answer =~ m{\Q\0\E}) {
	$answer =~ s{\Q\0\E}{, }g;
	}
	my $tag_internal_answer_name = 'INTERNAL';
	if ($anskeys[0] eq $tag_internal_answer_name) {
	$value = $answer;
	} else {
	$value = $anskeys[0].'='.$answer;
	}
	} else {
	foreach my $ans (@anskeys) {
	my $answer = $answers{$ans};
	if ($answer =~ m{\Q\0\E}) {
	$answer =~ s{\Q\0\E}{, }g;
	}
	$value .= $ans.'='.$answer.'<br />';;
	}
	}
} else {	} else {
$value = &unescape($value);	$value = &unescape($value);
}	}
Line 3541 sub submlink {	Line 3739 sub submlink {
}	}
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/grades?&command=submission&'.	return
'symb='.$symb.'&student='.$uname.	'<a href="/adm/grades?command=submission'.
'&userdom='.$udom.'" '.$target.'>'.$text.'</a>';	'&symb='.$symb.
	'&student='.$uname.
	'&userdom='.$udom.'"'.
	$target.'>'.$text.'</a>';
}	}
##############################################	##############################################

Line 3666 sub findallcourses {	Line 3867 sub findallcourses {
$udom = $env{'user.domain'};	$udom = $env{'user.domain'};
}	}
if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {	if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname);	my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
	my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,'.',undef,
	$extra);
if (!%roles) {	if (!%roles) {
%roles = (	%roles = (
cc => 1,	cc => 1,
	co => 1,
in => 1,	in => 1,
ep => 1,	ep => 1,
ta => 1,	ta => 1,
Line 4070 sub get_domainconf {	Line 4274 sub get_domainconf {
if (defined($cached)) { return %{$result}; }	if (defined($cached)) { return %{$result}; }

my %domconfig = &Apache::lonnet::get_dom('configuration',	my %domconfig = &Apache::lonnet::get_dom('configuration',
['login','rolecolors'],$udom);	['login','rolecolors','autoenroll'],$udom);
my (%designhash,%legacy);	my (%designhash,%legacy);
if (keys(%domconfig) > 0) {	if (keys(%domconfig) > 0) {
if (ref($domconfig{'login'}) eq 'HASH') {	if (ref($domconfig{'login'}) eq 'HASH') {
if (keys(%{$domconfig{'login'}})) {	if (keys(%{$domconfig{'login'}})) {
foreach my $key (keys(%{$domconfig{'login'}})) {	foreach my $key (keys(%{$domconfig{'login'}})) {
if (ref($domconfig{'login'}{$key}) eq 'HASH') {	if (ref($domconfig{'login'}{$key}) eq 'HASH') {
foreach my $img (keys(%{$domconfig{'login'}{$key}})) {	if ($key eq 'loginvia') {
$designhash{$udom.'.login.'.$key.'_'.$img} =	if (ref($domconfig{'login'}{'loginvia'}) eq 'HASH') {
$domconfig{'login'}{$key}{$img};	my @ids = &Apache::lonnet::current_machine_ids();
	foreach my $hostname (@ids) {
	if (ref($domconfig{'login'}{'loginvia'}{$hostname}) eq 'HASH') {
	if ($domconfig{'login'}{'loginvia'}{$hostname}{'server'}) {
	my $server = $domconfig{'login'}{'loginvia'}{$hostname}{'server'};
	$designhash{$udom.'.login.loginvia'} = $server;
	if ($domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'} eq 'custom') {

	$designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'custompath'};
	} else {
	$designhash{$udom.'.login.loginvia_'.$hostname} = $server.':'.$domconfig{'login'}{'loginvia'}{$hostname}{'serverpath'};
	}
	if ($domconfig{'login'}{'loginvia'}{$hostname}{'exempt'}) {
	$designhash{$udom.'.login.loginvia_exempt_'.$hostname} = $domconfig{'login'}{'loginvia'}{$hostname}{'exempt'};
	}
	}
	}
	}
	}
	} else {
	foreach my $img (keys(%{$domconfig{'login'}{$key}})) {
	$designhash{$udom.'.login.'.$key.'_'.$img} =
	$domconfig{'login'}{$key}{$img};
	}
}	}
} else {	} else {
$designhash{$udom.'.login.'.$key}=$domconfig{'login'}{$key};	$designhash{$udom.'.login.'.$key}=$domconfig{'login'}{$key};
Line 4106 sub get_domainconf {	Line 4333 sub get_domainconf {
} else {	} else {
$legacy{'rolecolors'} = 1;	$legacy{'rolecolors'} = 1;
}	}
	if (ref($domconfig{'autoenroll'}) eq 'HASH') {
	if ($domconfig{'autoenroll'}{'co-owners'}) {
	$designhash{$udom.'.autoassign.co-owners'}=$domconfig{'autoenroll'}{'co-owners'};
	}
	}
if (keys(%legacy) > 0) {	if (keys(%legacy) > 0) {
my %legacyhash = &get_legacy_domconf($udom);	my %legacyhash = &get_legacy_domconf($udom);
foreach my $item (keys(%legacyhash)) {	foreach my $item (keys(%legacyhash)) {
Line 4298 sub CSTR_pageheader {	Line 4530 sub CSTR_pageheader {
} else {	} else {
$lastitem = $thisdisfn;	$lastitem = $thisdisfn;
}	}
return
	my $output =
'<div>'	'<div>'
.&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it?	.&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it?
.'<b>'.&mt('Construction Space:').'</b> '	.'<b>'.&mt('Construction Space:').'</b> '
.'<form name="dirs" method="post" action="'.$formaction	.'<form name="dirs" method="post" action="'.$formaction
.'" target="_top"><tt><b>' #FIXME lonpubdir: target="_parent"	.'" target="_top">' #FIXME lonpubdir: target="_parent"
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."$lastitem</b></tt><br />"	.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv',undef,undef);

	if ($lastitem) {
	$output .=
	'<span class="LC_filename">'
	.$lastitem
	.'</span>';
	}
	$output .=
	'<br />'
#FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />"	#FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />"
.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')	.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
.'</form>'	.'</form>'
.&Apache::lonmenu::constspaceform()	.&Apache::lonmenu::constspaceform()
.'</div>';	.'</div>';

	return $output;
}	}

###############################################	###############################################
Line 4371 sub bodytag {	Line 4615 sub bodytag {
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,	my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,
$no_nav_bar,$bgcolor,$no_inline_link,$args)=@_;	$no_nav_bar,$bgcolor,$no_inline_link,$args)=@_;

	my $public;
	if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
	\|\| ($env{'user.name'} eq '') && ($env{'user.domain'} eq '')) {
	$public = 1;
	}
if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }	if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }

$function = &get_users_function() if (!$function);	$function = &get_users_function() if (!$function);
Line 4397 sub bodytag {	Line 4646 sub bodytag {
if ($env{'request.role'} !~ /^cr/) {	if ($env{'request.role'} !~ /^cr/) {
$role = &Apache::lonnet::plaintext($role,&course_type());	$role = &Apache::lonnet::plaintext($role,&course_type());
}	}
	if ($env{'request.course.sec'}) {
	$role .= (' 'x2).'- '.&mt('section:').' '.$env{'request.course.sec'};
	}
$realm = $env{'course.'.$env{'request.course.id'}.'.description'};	$realm = $env{'course.'.$env{'request.course.id'}.'.description'};
} else {	} else {
$role = &Apache::lonnet::plaintext($role);	$role = &Apache::lonnet::plaintext($role);
Line 4417 sub bodytag {	Line 4669 sub bodytag {
}	}

my $name = &plainname($env{'user.name'},$env{'user.domain'});	my $name = &plainname($env{'user.name'},$env{'user.domain'});
if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {	if ($public) {
undef($role);	undef($role);
} else {	} else {
$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'});	$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'});
}	}

my $titleinfo = '<h1>'.$title.'</h1>';	my $titleinfo = '<h1>'.$title.'</h1>';
#	#
# Extra info if you are the DC	# Extra info if you are the DC
Line 4431 sub bodytag {	Line 4683 sub bodytag {
$env{'course.'.$env{'request.course.id'}.	$env{'course.'.$env{'request.course.id'}.
'.domain'}.'/'})) {	'.domain'}.'/'})) {
my $cid = $env{'request.course.id'};	my $cid = $env{'request.course.id'};
$dc_info.= $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};	$dc_info = $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};
$dc_info =~ s/\s+$//;	$dc_info =~ s/\s+$//;
$dc_info = '('.$dc_info.')';
}	}

$role = "($role)" if $role;	$role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
&get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);	&get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);

if ($env{'environment.remote'} eq 'off') {	if ($env{'environment.remote'} eq 'off') {
# No Remote	# No Remote
if ($env{'request.state'} eq 'construct') {	if ($no_nav_bar \|\| $env{'form.inhibitmenu'} eq 'yes') {
$forcereg=1;	return $bodytag;
	}

	if ($env{'request.state'} eq 'construct') { $forcereg=1; }

	# if ($env{'request.state'} eq 'construct') {
	# $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
	# }



	if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
	if ($dc_info) {
	$dc_info = qq\|<span class="LC_cusr_subheading">$dc_info</span>\|;
	}
	$bodytag .= qq\|<div id="LC_nav_bar">$name $role<br />
	<em>$realm</em> $dc_info</div>\|;
	return $bodytag;
}	}

# if ($env{'request.state'} eq 'construct') {	unless ($env{'request.symb'} =~ m/\.page___\d+___/) {
# $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls	$bodytag .= qq\|<div id="LC_nav_bar">$name $role</div>\|;
# }	}

my $titletable = '<table id="LC_title_bar">'	$bodytag .= Apache::lonhtmlcommon::scripttag(
."<tr><td> $titleinfo $dc_info</td>"	Apache::lonmenu::utilityfunctions(), 'start');
.'</tr></table>';

if ($no_nav_bar) {	$bodytag .= Apache::lonmenu::primary_menu();
$bodytag .= $titletable;
} else {
$bodytag .= qq\|<div id="LC_nav_bar">$name $role<br />
<em>$realm</em> $dc_info</div>\| unless $env{'form.inhibitmenu'};

#SD $titletable is obsolete	if ($dc_info) {
#SD if ($env{'request.state'} eq 'construct') {	$dc_info = &dc_courseid_toggle($dc_info);
#SD $bodytag .= &Apache::lonmenu::menubuttons($forcereg,$titletable);	}
#SD } else {	$bodytag .= qq\|<div id="LC_realm">$realm $dc_info</div>\|;
#SD $bodytag .= &Apache::lonmenu::menubuttons($forcereg).$titletable;
#SD }
if ( $env{'form.inhibitmenu'} eq 'yes'
\|\| $ENV{'REQUEST_URI'} eq '/adm/logout'
\|\| $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {

return $bodytag;
}

$bodytag .= Apache::lonhtmlcommon::scripttag(	#don't show menus for public users
Apache::lonmenu::utilityfunctions(),	if (!$public){
'start');	$bodytag .= Apache::lonmenu::secondary_menu();
$bodytag .= Apache::lonmenu::primary_menu();	$bodytag .= Apache::lonmenu::serverform();
$bodytag .= Apache::lonmenu::secondary_menu();	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
#SD remove next line	if ($env{'request.state'} eq 'construct') {
#$bodytag .= Apache::lonmenu::menubuttons($forcereg);	$bodytag .= &Apache::lonmenu::innerregister($forcereg,'',
$bodytag .= Apache::lonmenu::serverform();	$args->{'bread_crumbs'});
$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');	} elsif ($forcereg) {
$bodytag .= Apache::lonmenu::innerregister($forcereg) if $forcereg;	$bodytag .= &Apache::lonmenu::innerregister($forcereg);
	}
	}else{
	# this is to seperate menu from content when there's no secondary
	# menu. Especially needed for public accessible ressources.
	$bodytag .= '<hr style="clear:both" />';
	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
}	}

return $bodytag;	return $bodytag;
}	}

Line 4499 sub bodytag {	Line 4761 sub bodytag {
# Explicit link to get inline menu	# Explicit link to get inline menu
my $menu= ($no_inline_link?''	my $menu= ($no_inline_link?''
:'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');	:'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
$bodytag .= qq\|<div id="LC_nav_bar">$name $role
<em>$realm</em> $dc_info </div>	if ($dc_info) {
	$dc_info = qq\|<span class="LC_cusr_subheading">($dc_info)</span>\|;
	}

	$bodytag .= qq\|<div id="LC_nav_bar">$name $role</div>
<ol class="LC_primary_menu LC_right">	<ol class="LC_primary_menu LC_right">
<li>$menu</li>	<li>$menu</li>
</ol>\| unless $env{'form.inhibitmenu'};	</ol><div id="LC_realm"> $realm $dc_info</div>\| unless $env{'form.inhibitmenu'};
#
return(<<ENDBODY);	return(<<ENDBODY);
$bodytag	$bodytag
<table id="LC_title_bar" class="LC_with_remote">	<table id="LC_title_bar" class="LC_with_remote">
Line 4517 $bodytag	Line 4782 $bodytag
ENDBODY	ENDBODY
}	}

	sub dc_courseid_toggle {
	my ($dc_info) = @_;
	return ' <span id="dccidtext" class="LC_cusr_subheading LC_nobreak">'.
	'<a href="javascript:showCourseID();">'.
	&mt('(More ...)').'</a></span>'.
	'<div id="dccid" class="LC_dccid">'.$dc_info.'</div>';
	}

sub make_attr_string {	sub make_attr_string {
my ($register,$attr_ref) = @_;	my ($register,$attr_ref) = @_;

Line 4627 sub standard_css {	Line 4900 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 $loginbg = &designparm('login.sidebg',$domain);
my $bgcol = &designparm('login.bgcol',$domain);
my $textcol = &designparm('login.textcol',$domain);

my $sans = 'Verdana,Arial,Helvetica,sans-serif';	my $sans = 'Verdana,Arial,Helvetica,sans-serif';
my $mono = 'monospace';	my $mono = 'monospace';
my $data_table_head = $sidebg;	my $data_table_head = $sidebg;
Line 4648 sub standard_css {	Line 4917 sub standard_css {
my $mail_other_hover = '#669999';	my $mail_other_hover = '#669999';
my $table_header = '#DDDDDD';	my $table_header = '#DDDDDD';
my $feedback_link_bg = '#BBBBBB';	my $feedback_link_bg = '#BBBBBB';
my $lg_border_color = '#C8C8C8';	my $lg_border_color = '#C8C8C8';
	my $button_hover = '#BF2317';

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


return <<END;	return <<END;
body {
font-family: $sans;	/* needed for iframe to allow 100% height in FF */
line-height:130%;	body, html {
font-size:0.83em;	margin: 0;
color:$font;	padding: 0 0.5%;
	height: 99%; /* to avoid scrollbars */
}	}

a:link, a:visited {	body {
font-size:100%;	font-family: $sans;
	line-height:130%;
	font-size:0.83em;
	color:$font;
}	}

a:focus {	a:focus,
	a:focus img {
color: red;	color: red;
background: yellow	background: yellow;
}	}

form, .inline {	form, .inline {
display: inline;	display: inline;
}	}

.LC_right {	.LC_right {
text-align:right;	text-align:right;
}	}

.LC_middle {	.LC_middle {
vertical-align:middle;	vertical-align:middle;
}	}

/* just for tests */	.LC_400Box {
.LC_400Box {width:400px; }	width:400px;
/* end */	}

	.LC_iframecontainer {
	width: 98%;
	margin: 0;
	position: fixed;
	top: 8.5em;
	bottom: 0;
	}

	.LC_iframecontainer iframe{
	border: none;
	width: 100%;
	height: 100%;
	}

.LC_filename {	.LC_filename {
font-family: $mono;	font-family: $mono;
white-space:pre;	white-space:pre;
	font-size: 120%;
}	}

.LC_fileicon {	.LC_fileicon {
Line 4745 div.LC_confirm_box .LC_success img {	Line 5034 div.LC_confirm_box .LC_success img {
}	}

.LC_discussion {	.LC_discussion {
background: $tabbg;	background: $tabbg;
border: 1px solid black;	border: 1px solid black;
margin: 2px;	margin: 2px;
}	}

.LC_disc_action_links_bar {	.LC_disc_action_links_bar {
background: $tabbg;	background: $tabbg;
border: none;	border: none;
margin: 4px;	margin: 4px;
}	}

.LC_disc_action_left {	.LC_disc_action_left {
text-align: left;	text-align: left;
}	}

.LC_disc_action_right {	.LC_disc_action_right {
text-align: right;	text-align: right;
}	}

.LC_disc_new_item {	.LC_disc_new_item {
background: white;	background: white;
border: 2px solid red;	border: 2px solid red;
margin: 2px;	margin: 2px;
}	}

.LC_disc_old_item {	.LC_disc_old_item {
background: white;	background: white;
border: 1px solid black;	border: 1px solid black;
margin: 2px;	margin: 2px;
}	}

table.LC_pastsubmission {	table.LC_pastsubmission {
Line 4781 table.LC_pastsubmission {	Line 5070 table.LC_pastsubmission {
margin: 2px;	margin: 2px;
}	}

table#LC_top_nav,	table#LC_menubuttons {
table#LC_menubuttons,
table#LC_nav_location {
width: 100%;	width: 100%;
background: $pgbg;	background: $pgbg;
border: 2px;	border: 2px;
Line 4801 table#LC_title_bar {	Line 5088 table#LC_title_bar {
}	}

table#LC_title_bar,	table#LC_title_bar,
table.LC_breadcrumbs,	table.LC_breadcrumbs, /* obsolete? */
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 4814 table#LC_title_bar.LC_with_remote {	Line 5101 table#LC_title_bar.LC_with_remote {
margin: 0;	margin: 0;
}	}

table#LC_title_bar td {	ul.LC_breadcrumb_tools_outerlist {
background: $tabbg;	margin: 0;
	padding: 0;
	position: relative;
	list-style: none;
}	}
	ul.LC_breadcrumb_tools_outerlist li {
table#LC_menubuttons img{	display: inline;
border: none;
}	}

table#LC_top_nav td {	.LC_breadcrumb_tools_navigation {
background: $tabbg;	padding: 0;
border: none;	margin: 0;
font-size: small;	float: left;
vertical-align:top;
padding:2px 5px 2px 5px;
}	}
	.LC_breadcrumb_tools_tools {
table#LC_top_nav td a,	padding: 0;
div#LC_top_nav a {	margin: 0;
color: $font;	float: right;
}	}

table#LC_top_nav td.LC_top_nav_logo {	table#LC_title_bar td {
background: $tabbg;	background: $tabbg;
text-align: left;
white-space: nowrap;
width: 31px;
}	}

table#LC_top_nav td.LC_top_nav_logo img {	table#LC_menubuttons img {
border: none;	border: none;
vertical-align: bottom;
}

table#LC_top_nav td.LC_top_nav_exit,
table#LC_top_nav td.LC_top_nav_help {
width: 2.0em;
}

table#LC_top_nav td.LC_top_nav_login {
width: 4.0em;
text-align: center;
}	}

.LC_breadcrumbs_component {	.LC_breadcrumbs_component {
float: right;	float: right;
margin: 0 1em;	margin: 0 1em;
}	}
.LC_breadcrumbs_component img {	.LC_breadcrumbs_component img {
vertical-align: middle;	vertical-align: middle;
}	}

td.LC_table_cell_checkbox {	td.LC_table_cell_checkbox {
text-align: center;	text-align: center;
}	}

table#LC_mainmenu td.LC_mainmenu_column {
vertical-align: top;
}

.LC_fontsize_small {	.LC_fontsize_small {
font-size: 70%;	font-size: 70%;
}	}

#LC_breadcrumbs {	#LC_breadcrumbs {
clear:both;	clear:both;
background: $sidebg;	background: $sidebg;
border-bottom: 1px solid $lg_border_color;	border-bottom: 1px solid $lg_border_color;
line-height: 32px;	line-height: 2.5em;
margin: 0;	overflow: hidden;
padding: 0;	margin: 0;
	padding: 0;
}	}

/* Preliminary fix to hide breadcrumbs inside remote control window */	/* Preliminary fix to hide breadcrumbs inside remote control window */
#LC_remote #LC_breadcrumbs {	#LC_remote #LC_breadcrumbs {
display:none;	display:none;
}	}

#LC_head_subbox {	#LC_head_subbox {
clear:both;	clear:both;
background: #F8F8F8; /* $sidebg; */	background: #F8F8F8; /* $sidebg; */
border-bottom: 1px solid $lg_border_color;	border: 1px solid $sidebg;
margin: 0 0 10px 0;	margin: 0 0 10px 0;
padding: 5px;	padding: 3px;
}	}

.LC_fontsize_medium {	.LC_fontsize_medium {
font-size: 85%;	font-size: 85%;
}	}

.LC_fontsize_large {	.LC_fontsize_large {
font-size: 120%;	font-size: 120%;
}	}

.LC_menubuttons_inline_text {	.LC_menubuttons_inline_text {
Line 4913 table#LC_mainmenu td.LC_mainmenu_column	Line 5183 table#LC_mainmenu td.LC_mainmenu_column
padding-left:3px;	padding-left:3px;
}	}

	.LC_menubuttons_inline_text img{
	vertical-align: middle;
	}

	li.LC_menubuttons_inline_text img,a {
	cursor:pointer;
	}

.LC_menubuttons_link {	.LC_menubuttons_link {
text-decoration: none;	text-decoration: none;
}	}
Line 4925 table#LC_mainmenu td.LC_mainmenu_column	Line 5203 table#LC_mainmenu td.LC_mainmenu_column
}	}

td.LC_menubuttons_text {	td.LC_menubuttons_text {
color: $font;	color: $font;
}	}

.LC_current_location {	.LC_current_location {
background: $tabbg;	background: $tabbg;
}	}

.LC_new_mail {	table.LC_data_table {
background: $tabbg;
font-weight: bold;
}

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;
Line 4964 table.LC_nested {	Line 5236 table.LC_nested {
width: 100%;	width: 100%;
}	}

table.LC_data_table tr th,	.ui-accordion,
table.LC_calendar tr th,	.ui-accordion table.LC_data_table,
table.LC_mail_list tr th,	.ui-accordion table.LC_nested_outer{
	border: 0px;
	border-spacing: 0px;
	margin: 3px;
	}

	table.LC_data_table tr th,
	table.LC_calendar tr th,
table.LC_prior_tries tr th,	table.LC_prior_tries tr th,
table.LC_innerpickbox tr th {	table.LC_innerpickbox tr th {
font-weight: bold;	font-weight: bold;
Line 4986 table.LC_data_table tr.LC_info_row > td	Line 5265 table.LC_data_table tr.LC_info_row > td
text-align: left;	text-align: left;
}	}

table.LC_data_table tr.LC_odd_row > td,	table.LC_data_table tr.LC_odd_row > td {
	background-color: $data_table_light;
	padding: 2px;
	vertical-align: top;
	}

table.LC_pick_box tr > td.LC_odd_row {	table.LC_pick_box tr > td.LC_odd_row {
background-color: $data_table_light;	background-color: $data_table_light;
	vertical-align: top;
	}

	table.LC_data_table tr.LC_even_row > td {
	background-color: $data_table_dark;
padding: 2px;	padding: 2px;
	vertical-align: top;
}	}

table.LC_data_table tr.LC_even_row > td,
table.LC_pick_box tr > td.LC_even_row {	table.LC_pick_box tr > td.LC_even_row {
background-color: $data_table_dark;	background-color: $data_table_dark;
padding: 2px;	vertical-align: top;
}	}

table.LC_data_table tr.LC_data_table_highlight td {	table.LC_data_table tr.LC_data_table_highlight td {
Line 5009 table.LC_data_table tr td.LC_leftcol_hea	Line 5298 table.LC_data_table tr td.LC_leftcol_hea

table.LC_data_table tr.LC_empty_row td,	table.LC_data_table tr.LC_empty_row td,
table.LC_nested tr.LC_empty_row td {	table.LC_nested tr.LC_empty_row td {
background-color: #FFFFFF;
font-weight: bold;	font-weight: bold;
font-style: italic;	font-style: italic;
text-align: center;	text-align: center;
padding: 8px;	padding: 8px;
}	}

	table.LC_data_table tr.LC_empty_row td {
	background-color: $sidebg;
	}

	table.LC_nested tr.LC_empty_row td {
	background-color: #FFFFFF;
	}

table.LC_caption {	table.LC_caption {
}	}

Line 5063 table.LC_nested tr td.LC_right_item {	Line 5359 table.LC_nested tr td.LC_right_item {
text-align: right;	text-align: right;
}	}

	.ui-accordion table.LC_nested tr.LC_odd_row td.LC_left_item,
	.ui-accordion table.LC_nested tr.LC_even_row td.LC_left_item {
	text-align: right;
	width: 40%;
	padding-right:10px;
	vertical-align: top;
	padding: 5px;
	}

	.ui-accordion table.LC_nested tr.LC_odd_row td.LC_right_item,
	.ui-accordion table.LC_nested tr.LC_even_row td.LC_right_item {
	text-align: left;
	width: 60%;
	padding: 2px 4px;
	}

table.LC_nested tr.LC_odd_row td {	table.LC_nested tr.LC_odd_row td {
background-color: #EEEEEE;	background-color: #EEEEEE;
}	}
Line 5083 table.LC_createuser tr.LC_info_row td {	Line 5395 table.LC_createuser tr.LC_info_row td {
table.LC_calendar {	table.LC_calendar {
border: 1px solid #000000;	border: 1px solid #000000;
border-collapse: collapse;	border-collapse: collapse;
	width: 98%;
}	}

table.LC_calendar_pickdate {	table.LC_calendar_pickdate {
Line 5092 table.LC_calendar_pickdate {	Line 5405 table.LC_calendar_pickdate {
table.LC_calendar tr td {	table.LC_calendar tr td {
border: 1px solid #000000;	border: 1px solid #000000;
vertical-align: top;	vertical-align: top;
	width: 14%;
}	}

table.LC_calendar tr td.LC_calendar_day_empty {	table.LC_calendar tr td.LC_calendar_day_empty {
Line 5102 table.LC_calendar tr td.LC_calendar_day_	Line 5416 table.LC_calendar tr td.LC_calendar_day_
background-color: $data_table_highlight;	background-color: $data_table_highlight;
}	}

table.LC_mail_list tr.LC_mail_new {	table.LC_data_table tr td.LC_mail_new {
background-color: $mail_new;	background-color: $mail_new;
}	}

table.LC_mail_list tr.LC_mail_new:hover {	table.LC_data_table tr.LC_mail_new:hover {
background-color: $mail_new_hover;	background-color: $mail_new_hover;
}	}

table.LC_mail_list tr.LC_mail_even {	table.LC_data_table tr td.LC_mail_read {
}

table.LC_mail_list tr.LC_mail_odd {
}

table.LC_mail_list tr.LC_mail_read {
background-color: $mail_read;	background-color: $mail_read;
}	}

table.LC_mail_list tr.LC_mail_read:hover {	/*
	table.LC_data_table tr.LC_mail_read:hover {
background-color: $mail_read_hover;	background-color: $mail_read_hover;
}	}
	*/

table.LC_mail_list tr.LC_mail_replied {	table.LC_data_table tr td.LC_mail_replied {
background-color: $mail_replied;	background-color: $mail_replied;
}	}

table.LC_mail_list tr.LC_mail_replied:hover {	/*
	table.LC_data_table tr.LC_mail_replied:hover {
background-color: $mail_replied_hover;	background-color: $mail_replied_hover;
}	}
	*/

table.LC_mail_list tr.LC_mail_other {	table.LC_data_table tr td.LC_mail_other {
background-color: $mail_other;	background-color: $mail_other;
}	}

table.LC_mail_list tr.LC_mail_other:hover {	/*
	table.LC_data_table tr.LC_mail_other:hover {
background-color: $mail_other_hover;	background-color: $mail_other_hover;
}	}
	*/

table.LC_data_table tr > td.LC_browser_file,	table.LC_data_table tr > td.LC_browser_file,
table.LC_data_table tr > td.LC_browser_file_published {	table.LC_data_table tr > td.LC_browser_file_published {
background: #CCFF88;	background: #AAEE77;
}	}

table.LC_data_table tr > td.LC_browser_file_locked,	table.LC_data_table tr > td.LC_browser_file_locked,
Line 5151 table.LC_data_table tr > td.LC_browser_f	Line 5465 table.LC_data_table tr > td.LC_browser_f
}	}

table.LC_data_table tr > td.LC_browser_file_obsolete {	table.LC_data_table tr > td.LC_browser_file_obsolete {
background: #AAAAAA;	background: #888888;
}	}

table.LC_data_table tr > td.LC_browser_file_modified,	table.LC_data_table tr > td.LC_browser_file_modified,
table.LC_data_table tr > td.LC_browser_file_metamodified {	table.LC_data_table tr > td.LC_browser_file_metamodified {
background: #FFFF77;	background: #F8F866;
}	}

table.LC_data_table tr.LC_browser_folder > td {	table.LC_data_table tr.LC_browser_folder > td {
background: #CCCCFF;	background: #E0E8FF;
}	}

table.LC_data_table tr > td.LC_roles_is {	table.LC_data_table tr > td.LC_roles_is {
/* background: #77FF77; */	/* background: #77FF77; */
}	}

table.LC_data_table tr > td.LC_roles_future {	table.LC_data_table tr > td.LC_roles_future {
background: #FFFF77;	border-right: 8px solid #FFFF77;
}	}

table.LC_data_table tr > td.LC_roles_will {	table.LC_data_table tr > td.LC_roles_will {
background: #FFAA77;	border-right: 8px solid #FFAA77;
}	}

table.LC_data_table tr > td.LC_roles_expired {	table.LC_data_table tr > td.LC_roles_expired {
background: #FF7777;	border-right: 8px solid #FF7777;
}	}

table.LC_data_table tr > td.LC_roles_will_not {	table.LC_data_table tr > td.LC_roles_will_not {
background: #AAFF77;	border-right: 8px solid #AAFF77;
}	}

table.LC_data_table tr > td.LC_roles_selected {	table.LC_data_table tr > td.LC_roles_selected {
background: #11CC55;	border-right: 8px solid #11CC55;
}	}

span.LC_current_location {	span.LC_current_location {
Line 5212 span.LC_parm_part {	Line 5526 span.LC_parm_part {
color: blue;	color: blue;
}	}

span.LC_parm_folder, span.LC_parm_symb {	span.LC_parm_folder,
	span.LC_parm_symb {
font-size: x-small;	font-size: x-small;
font-family: $mono;	font-family: $mono;
color: #AAAAAA;	color: #AAAAAA;
}	}

	ul.LC_parm_parmlist li {
	display: inline-block;
	padding: 0.3em 0.8em;
	vertical-align: top;
	width: 150px;
	border-top:1px solid $lg_border_color;
	}

td.LC_parm_overview_level_menu,	td.LC_parm_overview_level_menu,
td.LC_parm_overview_map_menu,	td.LC_parm_overview_map_menu,
td.LC_parm_overview_parm_selectors,	td.LC_parm_overview_parm_selectors,
Line 5302 table.LC_pick_box {	Line 5625 table.LC_pick_box {
table.LC_pick_box td.LC_pick_box_title {	table.LC_pick_box td.LC_pick_box_title {
background: $sidebg;	background: $sidebg;
font-weight: bold;	font-weight: bold;
text-align: right;	text-align: left;
vertical-align: top;	vertical-align: top;
width: 184px;	width: 184px;
padding: 8px;	padding: 8px;
Line 5340 table.LC_pick_box td.LC_oddrow_value {	Line 5663 table.LC_pick_box td.LC_oddrow_value {
background-color: $data_table_light;	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: 0;
height: 1px;
background: black;
}

span.LC_helpform_receipt_cat {	span.LC_helpform_receipt_cat {
font-weight: bold;	font-weight: bold;
}	}
Line 5428 table.LC_notify_front_page td {	Line 5717 table.LC_notify_front_page td {

.LC_topic_bar {	.LC_topic_bar {
font-weight: bold;	font-weight: bold;
width: 100%;
background: $tabbg;	background: $tabbg;
vertical-align: middle;	margin: 1em 0em 1em 2em;
margin: 2ex 0ex 2ex 0ex;
padding: 3px;	padding: 3px;
	font-size: 1.2em;
}	}

.LC_topic_bar span {	.LC_topic_bar span {
	left: 0.5em;
	position: absolute;
vertical-align: middle;	vertical-align: middle;
}	font-size: 1.2em;

.LC_topic_bar img {
vertical-align: bottom;
}	}

table.LC_course_group_status {	table.LC_course_group_status {
Line 5469 div.LC_feedback_link img {	Line 5756 div.LC_feedback_link img {
vertical-align:middle;	vertical-align:middle;
}	}

div.LC_feedback_link a{	div.LC_feedback_link a {
text-decoration: none;	text-decoration: none;
}	}

div.LC_comblock {	div.LC_comblock {
display:inline;	display:inline;
color:$font;	color:$font;
font-size:90%;	font-size:90%;
}	}
Line 5552 span.LC_prior_string,	Line 5839 span.LC_prior_string,
span.LC_prior_custom,	span.LC_prior_custom,
span.LC_prior_reaction,	span.LC_prior_reaction,
span.LC_prior_math {	span.LC_prior_math {
font-family: monospace;	font-family: $mono;
white-space: pre;	white-space: pre;
}	}

span.LC_prior_string {	span.LC_prior_string {
font-family: monospace;	font-family: $mono;
white-space: pre;	white-space: pre;
}	}

Line 5566 table.LC_prior_option {	Line 5853 table.LC_prior_option {
border-collapse: collapse;	border-collapse: collapse;
}	}

table.LC_prior_rank,	table.LC_prior_rank,
table.LC_prior_match {	table.LC_prior_match {
border-collapse: collapse;	border-collapse: collapse;
}	}
Line 5590 span.LC_cusr_subheading {	Line 5877 span.LC_cusr_subheading {
font-size: 85%;	font-size: 85%;
}	}

table.LC_docs_documents {
background: #BBBBBB;
border-width: 0;
border-collapse: collapse;
}

table.LC_docs_documents td.LC_docs_document {
border: 2px solid black;
padding: 4px;
}

div.LC_docs_entry_move {	div.LC_docs_entry_move {
border: 1px solid #BBBBBB;	border: 1px solid #BBBBBB;
background: #DDDDDD;	background: #DDDDDD;
Line 5692 div.LC_clear_float_footer {	Line 5968 div.LC_clear_float_footer {
}	}

div.LC_grade_show_user {	div.LC_grade_show_user {
margin-top: 20px;	/* border-left: 5px solid $sidebg; */
border: 1px solid black;	border-top: 5px solid #000000;
	margin: 50px 0 0 0;
	padding: 15px 0 5px 10px;
}	}

div.LC_grade_user_name {	div.LC_grade_show_user_odd_row {
background: #DDDDEE;	/* border-left: 5px solid #000000; */
border-bottom: 1px solid black;
font-weight: bold;
font-size: large;
}	}

div.LC_grade_show_user_odd_row div.LC_grade_user_name {	div.LC_grade_show_user div.LC_Box {
background: #DDEEDD;	margin-right: 50px;
}	}

div.LC_grade_show_problem,
div.LC_grade_submissions,	div.LC_grade_submissions,
div.LC_grade_message_center,	div.LC_grade_message_center,
div.LC_grade_info_links,	div.LC_grade_info_links {
div.LC_grade_assign {
margin: 5px;	margin: 5px;
width: 99%;	width: 99%;
background: #FFFFFF;	background: #FFFFFF;
}	}

div.LC_grade_show_problem_header,
div.LC_grade_submissions_header,	div.LC_grade_submissions_header,
div.LC_grade_message_center_header,	div.LC_grade_message_center_header {
div.LC_grade_assign_header {
font-weight: bold;	font-weight: bold;
font-size: large;	font-size: large;
}	}

div.LC_grade_show_problem_problem,
div.LC_grade_submissions_body,	div.LC_grade_submissions_body,
div.LC_grade_message_center_body,	div.LC_grade_message_center_body {
div.LC_grade_assign_body {
border: 1px solid black;	border: 1px solid black;
width: 99%;	width: 99%;
background: #FFFFFF;	background: #FFFFFF;
}	}

span.LC_grade_check_note {
font-weight: normal;
font-size: medium;
display: inline;
position: absolute;
right: 1em;
}

table.LC_scantron_action {	table.LC_scantron_action {
width: 100%;	width: 100%;
}	}
Line 5775 div.LC_edit_problem_header_title {	Line 6036 div.LC_edit_problem_header_title {
}	}

table.LC_edit_problem_header_title {	table.LC_edit_problem_header_title {
font-size: larger;
font-weight: bold;
width: 100%;	width: 100%;
border-color: $pgbg;
border-style: solid;
border-width: $border;
background: $tabbg;	background: $tabbg;
border-collapse: collapse;
padding: 0;
}	}

div.LC_edit_problem_discards {	div.LC_edit_problem_discards {
Line 5796 div.LC_edit_problem_saves {	Line 6050 div.LC_edit_problem_saves {
padding-bottom: 5px;	padding-bottom: 5px;
}	}

img.stift{	img.stift {
border-width: 0;	border-width: 0;
vertical-align: middle;	vertical-align: middle;
}	}

table#LC_mainmenu{	table td.LC_mainmenu_col_fieldset {
margin-top:10px;
width:80%;
}

table#LC_mainmenu td.LC_mainmenu_col_fieldset{
vertical-align: top;	vertical-align: top;
width: 45%;
}

.LC_mainmenu_fieldset_category {
color: $font;
background: $pgbg;
font-size: small;
font-weight: bold;
}	}

div.LC_createcourse {	div.LC_createcourse {
margin: 10px 10px 10px 10px;	margin: 10px 10px 10px 10px;
}	}

/* ---- Remove when done ----	.LC_dccid {
# The following styles is part of the redesign of LON-CAPA and are	margin: 0.2em 0 0 0;
# subject to change during this project.	padding: 0;
# Don't rely on their current functionality as they might be	font-size: 90%;
# changed or removed.	display:none;
# --------------------------*/	}

a:hover,	a:hover,
ol.LC_primary_menu a:hover,	ol.LC_primary_menu a:hover,
Line 5836 ol#LC_PathBreadcrumbs a:hover,	Line 6077 ol#LC_PathBreadcrumbs a:hover,
ul#LC_secondary_menu a:hover,	ul#LC_secondary_menu a:hover,
.LC_FormSectionClearButton input:hover	.LC_FormSectionClearButton input:hover
ul.LC_TabContent li:hover a {	ul.LC_TabContent li:hover a {
color:#BF2317;	color:$button_hover;
text-decoration:none;	text-decoration:none;
}	}

h1 {	h1 {
padding: 0;	padding: 0;
line-height:130%;	line-height:130%;
}	}

h2,h3,h4,h5,h6 {	h2,
margin: 5px 0 5px 0;	h3,
padding: 0;	h4,
line-height:130%;	h5,
	h6 {
	margin: 5px 0 5px 0;
	padding: 0;
	line-height:130%;
}	}

.LC_hcell {	.LC_hcell {
padding:3px 15px 3px 15px;	padding:3px 15px 3px 15px;
margin: 0;	margin: 0;
background-color:$tabbg;	background-color:$tabbg;
color:$fontmenu;	color:$fontmenu;
border-bottom:solid 1px $lg_border_color;	border-bottom:solid 1px $lg_border_color;
}	}

.LC_Box > .LC_hcell {	.LC_Box > .LC_hcell {
margin: 0 -10px 10px -10px;	margin: 0 -10px 10px -10px;
}	}

.LC_noBorder {	.LC_noBorder {
border: 0;	border: 0;
}

.LC_Right {
float: right;
margin: 0;
padding: 0;
}	}

.LC_FormSectionClearButton input {	.LC_FormSectionClearButton input {
background-color:transparent;	background-color:transparent;
border: none;	border: none;
cursor:pointer;	cursor:pointer;
text-decoration:underline;	text-decoration:underline;
}	}

.LC_help_open_topic {	.LC_help_open_topic {
color: #FFFFFF;	color: #FFFFFF;
background-color: #EEEEFF;	background-color: #EEEEFF;
margin: 1px;	margin: 1px;
padding: 4px;	padding: 4px;
border: 1px solid #000033;	border: 1px solid #000033;
white-space: nowrap;	white-space: nowrap;
/* vertical-align: middle; */	/* vertical-align: middle; */
}	}

dl,ul,div,fieldset {	dl,
margin: 10px 10px 10px 0;	ul,
/* overflow: hidden; */	div,
	fieldset {
	margin: 10px 10px 10px 0;
	/* overflow: hidden; */
}	}

fieldset > legend {	fieldset > legend {
font-weight: bold;	font-weight: bold;
padding: 0 5px 0 5px;	padding: 0 5px 0 5px;
}	}

#LC_nav_bar {	#LC_nav_bar {
float: left;	float: left;
margin: 0.2em 0 0 0;	margin: 0 0 2px 0;
	}

	#LC_realm {
	margin: 0.2em 0 0 0;
	padding: 0;
	font-weight: bold;
	text-align: center;
	}

	#LC_nav_bar em {
	font-weight: bold;
	font-style: normal;
}	}

#LC_nav_bar em{	/* Preliminary fix to hide nav_bar inside bookmarks window */
font-weight: bold;	#LC_bookmarks #LC_nav_bar {
font-style: normal;	display:none;
}	}

ol.LC_primary_menu {	ol.LC_primary_menu {
float: right;	float: right;
margin: 0.2em 0 0 0;	margin: 0;
	}

	span.LC_new_message{
	font-weight:bold;
	color: darkred;
}	}

ol#LC_PathBreadcrumbs {	ol#LC_PathBreadcrumbs {
margin: 0;	margin: 0;
}	}

ol.LC_primary_menu li {	ol.LC_primary_menu li {
display: inline;	display: inline;
padding: 5px 5px 0 10px;	padding: 5px 5px 0 10px;
vertical-align: top;	vertical-align: top;
}	}

ol.LC_primary_menu li img {	ol.LC_primary_menu li img {
vertical-align: bottom;	vertical-align: bottom;
	height: 1.1em;
}	}

ol.LC_primary_menu a {	ol.LC_primary_menu a {
font-size: 90%;	color: RGB(80, 80, 80);
color: RGB(80, 80, 80);	text-decoration: none;
text-decoration: none;	}

	ol.LC_docs_parameters {
	margin-left: 0;
	padding: 0;
	list-style: none;
	}

	ol.LC_docs_parameters li {
	margin: 0;
	padding-right: 20px;
	display: inline;
	}

	ol.LC_docs_parameters li:before {
	content: "\\002022 \\0020";
	}

	li.LC_docs_parameters_title {
	font-weight: bold;
	}

	ol.LC_docs_parameters li.LC_docs_parameters_title:before {
	content: "";
}	}

ul#LC_secondary_menu {	ul#LC_secondary_menu {
clear: both;	clear: both;
color: $fontmenu;	color: $fontmenu;
background: $tabbg;	background: $tabbg;
list-style: none;	list-style: none;
padding: 0;	padding: 0;
margin: 0;	margin: 0;
width: 100%;	width: 100%;
}	}

ul#LC_secondary_menu li {	ul#LC_secondary_menu li {
font-weight: bold;	font-weight: bold;
line-height: 1.8em;	line-height: 1.8em;
padding: 0 0.8em;	padding: 0 0.8em;
border-right: 1px solid black;	border-right: 1px solid black;
display: inline;	display: inline;
vertical-align: middle;	vertical-align: middle;
}	}

ul.LC_TabContent {	ul.LC_TabContent {
display:block;	display:block;
background: $sidebg;	background: $sidebg;
border-bottom: solid 1px $lg_border_color;	border-bottom: solid 1px $lg_border_color;
list-style:none;	list-style:none;
margin: 0 -10px;	margin: 0 -10px;
padding: 0;	padding: 0;
}	}

ul.LC_TabContent li,	ul.LC_TabContent li,
ul.LC_TabContentBigger li {	ul.LC_TabContentBigger li {
float:left;	float:left;
}	}

ul#LC_secondary_menu li a {	ul#LC_secondary_menu li a {
color: $fontmenu;	color: $fontmenu;
text-decoration: none;	text-decoration: none;
}	}

ul.LC_TabContent {	ul.LC_TabContent {
min-height:1.5em;	min-height:20px;
}	}

ul.LC_TabContent li {	ul.LC_TabContent li {
vertical-align:middle;	vertical-align:middle;
padding: 0 10px 0 10px;	padding: 0 16px 0 10px;
background-color:$tabbg;	background-color:$tabbg;
border-bottom:solid 1px $lg_border_color;	border-bottom:solid 1px $lg_border_color;
	border-right: solid 1px $font;
}	}

ul.LC_TabContent .right {	ul.LC_TabContent .right {
float:right;	float:right;
}	}

ul.LC_TabContent li a, ul.LC_TabContent li {	ul.LC_TabContent li a,
color:rgb(47,47,47);	ul.LC_TabContent li {
text-decoration:none;	color:rgb(47,47,47);
font-size:95%;	text-decoration:none;
font-weight:bold;	font-size:95%;
padding-right: 16px;	font-weight:bold;
	min-height:20px;
}	}

ul.LC_TabContent li:hover, ul.LC_TabContent li.active {	ul.LC_TabContent li a:hover,
background:#FFFFFF url(/adm/lonIcons/open.gif) no-repeat scroll right center;	ul.LC_TabContent li a:focus {
border-bottom:solid 2px #FFFFFF;	color: $button_hover;
padding-right: 16px;	background:none;
	outline:none;
}	}

	ul.LC_TabContent li:hover {
	color: $button_hover;
	cursor:pointer;
	}

	ul.LC_TabContent li.active {
	color: $font;
	background:#FFFFFF url(/adm/lonIcons/open.gif) no-repeat scroll right center;
	border-bottom:solid 1px #FFFFFF;
	cursor: default;
	}

	ul.LC_TabContent li.active a {
	color:$font;
	background:#FFFFFF;
	outline: none;
	}
#maincoursedoc {	#maincoursedoc {
clear:both;	clear:both;
}	}

ul.LC_TabContentBigger {	ul.LC_TabContentBigger {
display:block;	display:block;
list-style:none;	list-style:none;
padding: 0;	padding: 0;
}	}

ul.LC_TabContentBigger li {	ul.LC_TabContentBigger li {
vertical-align:bottom;	vertical-align:bottom;
height: 30px;	height: 30px;
font-size:110%;	font-size:110%;
font-weight:bold;	font-weight:bold;
color: #737373;	color: #737373;
}	}

	ul.LC_TabContentBigger li.active {
	position: relative;
	top: 1px;
	}

ul.LC_TabContentBigger li a {	ul.LC_TabContentBigger li a {
background:url('/adm/lonIcons/tabbgleft.gif') left bottom no-repeat;	background:url('/adm/lonIcons/tabbgleft.gif') left bottom no-repeat;
height: 30px;	height: 30px;
line-height: 30px;	line-height: 30px;
text-align: center;	text-align: center;
display: block;	display: block;
text-decoration: none;	text-decoration: none;
	outline: none;
}	}

ul.LC_TabContentBigger li:hover a,
ul.LC_TabContentBigger li.active a {	ul.LC_TabContentBigger li.active a {
background:url('/adm/lonIcons/tabbgleft.gif') left top no-repeat;	background:url('/adm/lonIcons/tabbgleft.gif') left top no-repeat;
color:$font;	color:$font;
text-decoration: underline;
}	}


ul.LC_TabContentBigger li b {	ul.LC_TabContentBigger li b {
background: url('/adm/lonIcons/tabbgright.gif') no-repeat right bottom;	background: url('/adm/lonIcons/tabbgright.gif') no-repeat right bottom;
display: block;	display: block;
float: left;	float: left;
padding: 0 30px;	padding: 0 30px;
	border-bottom: 1px solid $lg_border_color;
}	}

ul.LC_TabContentBigger li:hover b,	ul.LC_TabContentBigger li:hover b {
ul.LC_TabContentBigger li.active b {	color:$button_hover;
background:url('/adm/lonIcons/tabbgright.gif') right top no-repeat;
color:$font;
border-bottom: 1px solid #FFFFFF;
}	}

	ul.LC_TabContentBigger li.active b {
	background:url('/adm/lonIcons/tabbgright.gif') right top no-repeat;
	color:$font;
	border: 0;
	cursor:default;
	}

ul.LC_CourseBreadcrumbs {	ul.LC_CourseBreadcrumbs {
background: $sidebg;	background: $sidebg;
Line 6062 ul.LC_CourseBreadcrumbs {	Line 6371 ul.LC_CourseBreadcrumbs {

}	}

ol#LC_MenuBreadcrumbs,	ol#LC_MenuBreadcrumbs,
ol#LC_PathBreadcrumbs {	ol#LC_PathBreadcrumbs {
padding-left: 10px;	padding-left: 10px;
margin: 0;	margin: 0;
list-style-position: inside;	height: 2.5em; /* equal to #LC_breadcrumbs line-height */
}	}

ol#LC_MenuBreadcrumbs li,	ol#LC_MenuBreadcrumbs li,
ol#LC_PathBreadcrumbs li,	ol#LC_PathBreadcrumbs li,
ul.LC_CourseBreadcrumbs li {	ul.LC_CourseBreadcrumbs li {
display: inline;	display: inline;
white-space: nowrap;	white-space: normal;
}	}

ol#LC_MenuBreadcrumbs li a,	ol#LC_MenuBreadcrumbs li a,
ul.LC_CourseBreadcrumbs li a {	ul.LC_CourseBreadcrumbs li a {
text-decoration: none;	text-decoration: none;
font-size:90%;	font-size:90%;
	}

	ol#LC_MenuBreadcrumbs h1 {
	display: inline;
	font-size: 90%;
	line-height: 2.5em;
	margin: 0;
	padding: 0;
}	}

ol#LC_PathBreadcrumbs li a {	ol#LC_PathBreadcrumbs li a {
text-decoration:none;	text-decoration:none;
font-size:100%;	font-size:100%;
font-weight:bold;	font-weight:bold;
}	}

.LC_Box {	.LC_Box {
border: solid 1px $lg_border_color;	border: solid 1px $lg_border_color;
padding: 0 10px 10px 10px;	padding: 0 10px 10px 10px;
}	}

.LC_AboutMe_Image {	.LC_AboutMe_Image {
float:left;	float:left;
margin-right:10px;	margin-right:10px;
}	}

.LC_Clear_AboutMe_Image {	.LC_Clear_AboutMe_Image {
clear:left;	clear:left;
}	}

dl.LC_ListStyleClean dt {	dl.LC_ListStyleClean dt {
padding-right: 5px;	padding-right: 5px;
display: table-header-group;	display: table-header-group;
}	}

dl.LC_ListStyleClean dd {	dl.LC_ListStyleClean dd {
display: table-row;	display: table-row;
}	}

.LC_ListStyleClean,	.LC_ListStyleClean,
.LC_ListStyleSimple,	.LC_ListStyleSimple,
.LC_ListStyleNormal,	.LC_ListStyleNormal,
.LC_ListStyle_Border,
.LC_ListStyleSpecial {	.LC_ListStyleSpecial {
/display:block; /	/* display:block; */
list-style-position: inside;	list-style-position: inside;
list-style-type: none;	list-style-type: none;
overflow: hidden;	overflow: hidden;
padding: 0;	padding: 0;
}	}

.LC_ListStyleSimple li,	.LC_ListStyleSimple li,
Line 6129 dl.LC_ListStyleClean dd {	Line 6445 dl.LC_ListStyleClean dd {
.LC_ListStyleNormal dd,	.LC_ListStyleNormal dd,
.LC_ListStyleSpecial li,	.LC_ListStyleSpecial li,
.LC_ListStyleSpecial dd {	.LC_ListStyleSpecial dd {
margin: 0;	margin: 0;
padding: 5px 5px 5px 10px;	padding: 5px 5px 5px 10px;
clear: both;	clear: both;
}	}

.LC_ListStyleClean li,	.LC_ListStyleClean li,
.LC_ListStyleClean dd {	.LC_ListStyleClean dd {
padding-top: 0;	padding-top: 0;
padding-bottom: 0;	padding-bottom: 0;
}	}

.LC_ListStyleSimple dd,	.LC_ListStyleSimple dd,
.LC_ListStyleSimple li {	.LC_ListStyleSimple li {
border-bottom: solid 1px $lg_border_color;	border-bottom: solid 1px $lg_border_color;
}	}

.LC_ListStyleSpecial li,	.LC_ListStyleSpecial li,
.LC_ListStyleSpecial dd {	.LC_ListStyleSpecial dd {
list-style-type: none;	list-style-type: none;
background-color: RGB(220, 220, 220);	background-color: RGB(220, 220, 220);
margin-bottom: 4px;	margin-bottom: 4px;
}	}

table.LC_SimpleTable {	table.LC_SimpleTable {
margin:5px;	margin:5px;
border:solid 1px $lg_border_color;	border:solid 1px $lg_border_color;
}	}

table.LC_SimpleTable tr {	table.LC_SimpleTable tr {
padding: 0;	padding: 0;
border:solid 1px $lg_border_color;	border:solid 1px $lg_border_color;
}	}

table.LC_SimpleTable thead {	table.LC_SimpleTable thead {
background:rgb(220,220,220);	background:rgb(220,220,220);
}	}

div.LC_columnSection {	div.LC_columnSection {
display: block;	display: block;
clear: both;	clear: both;
overflow: hidden;	overflow: hidden;
margin: 0;	margin: 0;
}	}

div.LC_columnSection>* {	div.LC_columnSection>* {
float: left;	float: left;
margin: 10px 20px 10px 0;	margin: 10px 20px 10px 0;
overflow:hidden;	overflow:hidden;
}

.LC_loginpage_container {
text-align:left;
margin : 0 auto;
width:90%;
padding: 10px;
height: auto;
background-color:#FFFFFF;
border:1px solid #CCCCCC;
}


.LC_loginpage_loginContainer {
float:left;
width: 182px;
padding: 2px;
border:1px solid #CCCCCC;
background-color:$loginbg;
}

.LC_loginpage_loginContainer h2 {
margin-top: 0;
display:block;
background:$bgcol;
color:$textcol;
padding-left:5px;
}

.LC_loginpage_loginInfo {
float:left;
width:182px;
border:1px solid #CCCCCC;
padding:2px;
}

.LC_loginpage_space {
clear: both;
margin-bottom: 20px;
border-bottom: 1px solid #CCCCCC;
}

.LC_loginpage_floatLeft {
float: left;
width: 200px;
margin: 0;
}	}

table em {	table em {
font-weight: bold;	font-weight: bold;
font-style: normal;	font-style: normal;
}	}

table.LC_tableBrowseRes,	table.LC_tableBrowseRes,
table.LC_tableOfContent {	table.LC_tableOfContent {
border:none;	border:none;
border-spacing: 1px;	border-spacing: 1px;
padding: 3px;	padding: 3px;
background-color: #FFFFFF;	background-color: #FFFFFF;
font-size: 90%;	font-size: 90%;
}	}

table.LC_tableOfContent{	table.LC_tableOfContent {
border-collapse: collapse;	border-collapse: collapse;
}	}

table.LC_tableBrowseRes a,	table.LC_tableBrowseRes a,
table.LC_tableOfContent a {	table.LC_tableOfContent a {
background-color: transparent;	background-color: transparent;
text-decoration: none;	text-decoration: none;
}

table.LC_tableBrowseRes tr.LC_trOdd,
table.LC_tableOfContent tr.LC_trOdd{
background-color: #EEEEEE;
}	}

table.LC_tableOfContent img {	table.LC_tableOfContent img {
border: none;	border: none;
height: 1.3em;	height: 1.3em;
vertical-align: text-bottom;	vertical-align: text-bottom;
margin-right: 0.3em;	margin-right: 0.3em;
}	}

a#LC_content_toolbar_firsthomework {	a#LC_content_toolbar_firsthomework {
background-image:url(/res/adm/pages/open-first-problem.gif);	background-image:url(/res/adm/pages/open-first-problem.gif);
}	}

a#LC_content_toolbar_launchnav {	a#LC_content_toolbar_launchnav {
background-image:url(/res/adm/pages/start-navigation.gif);	background-image:url(/res/adm/pages/start-navigation.gif);
}	}

a#LC_content_toolbar_closenav {	a#LC_content_toolbar_closenav {
background-image:url(/res/adm/pages/close-navigation.gif);	background-image:url(/res/adm/pages/close-navigation.gif);
}	}

a#LC_content_toolbar_everything {	a#LC_content_toolbar_everything {
background-image:url(/res/adm/pages/show-all.gif);	background-image:url(/res/adm/pages/show-all.gif);
}	}

a#LC_content_toolbar_uncompleted {	a#LC_content_toolbar_uncompleted {
background-image:url(/res/adm/pages/show-incomplete-problems.gif);	background-image:url(/res/adm/pages/show-incomplete-problems.gif);
}	}

#LC_content_toolbar_clearbubbles {	#LC_content_toolbar_clearbubbles {
background-image:url(/res/adm/pages/mark-discussionentries-read.gif);	background-image:url(/res/adm/pages/mark-discussionentries-read.gif);
}	}

a#LC_content_toolbar_changefolder {	a#LC_content_toolbar_changefolder {
background : url(/res/adm/pages/close-all-folders.gif) top center ;	background : url(/res/adm/pages/close-all-folders.gif) top center ;
}	}

a#LC_content_toolbar_changefolder_toggled {	a#LC_content_toolbar_changefolder_toggled {
background-image:url(/res/adm/pages/open-all-folders.gif);	background-image:url(/res/adm/pages/open-all-folders.gif);
}	}

ul#LC_toolbar li a:hover {	ul#LC_toolbar li a:hover {
background-position: bottom center;	background-position: bottom center;
}	}

ul#LC_toolbar {	ul#LC_toolbar {
padding: 0;	padding: 0;
margin: 2px;	margin: 2px;
list-style:none;	list-style:none;
position:relative;	position:relative;
background-color:white;	background-color:white;
}	}

ul#LC_toolbar li {	ul#LC_toolbar li {
border:1px solid white;	border:1px solid white;
padding: 0;	padding: 0;
margin: 0;	margin: 0;
float: left;	float: left;
display:inline;	display:inline;
vertical-align:middle;	vertical-align:middle;
}	}


a.LC_toolbarItem {	a.LC_toolbarItem {
display:block;	display:block;
padding: 0;	padding: 0;
margin: 0;	margin: 0;
height: 32px;	height: 32px;
width: 32px;	width: 32px;
color:white;	color:white;
border: none;	border: none;
background-repeat:no-repeat;	background-repeat:no-repeat;
background-color:transparent;	background-color:transparent;
	}

	ul.LC_funclist {
	margin: 0;
	padding: 0.5em 1em 0.5em 0;
	}

	ul.LC_funclist > li:first-child {
	font-weight:bold;
	margin-left:0.8em;
	}

	ul.LC_funclist + ul.LC_funclist {
	/*
	left border as a seperator if we have more than
	one list
	*/
	border-left: 1px solid $sidebg;
	/*
	this hides the left border behind the border of the
	outer box if element is wrapped to the next 'line'
	*/
	margin-left: -1px;
}	}

ul.LC_funclist li {	ul.LC_funclist li {
float: left;	display: inline;
white-space: nowrap;	white-space: nowrap;
height: 35px; /* at least as high as heighest list item */	margin: 0 0 0 25px;
margin: 0 15px 15px 10px;	line-height: 150%;
}	}

	.ui-accordion .LC_advanced_toggle {
	float: right;
	font-size: 90%;
	padding: 0px 4px
	}

END	END
}	}
Line 6448 Inputs: none	Line 6741 Inputs: none
sub xml_begin {	sub xml_begin {
my $output='';	my $output='';

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"?>'
#.'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>'."\n"	#.'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>'."\n"
Line 6551 $args - additional optional args support	Line 6840 $args - additional optional args support
should it have jsmath forced on by the	should it have jsmath forced on by the
current page	current page
bread_crumbs -> Array containing breadcrumbs	bread_crumbs -> Array containing breadcrumbs
bread_crumbs_components -> if exists show it as headline else show only the breadcrumbs	bread_crumbs_component -> if exists show it as headline else show only the breadcrumbs

=back	=back

Line 6610 sub start_page {	Line 6899 sub start_page {
# Don't add anything more if only_body wanted	# Don't add anything more if only_body wanted
return $result if $args->{'only_body'};	return $result if $args->{'only_body'};

	#Breadcrumbs for Construction Space provided by &bodytag.
	if (($env{'environment.remote'} eq 'off') && ($env{'request.state'} eq 'construct')) {
	return $result;
	}

#Breadcrumbs	#Breadcrumbs
if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {	if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
Line 6741 sub simple_error_page {	Line 7035 sub simple_error_page {

{	{
my @row_count;	my @row_count;

	sub start_data_table_count {
	unshift(@row_count, 0);
	return;
	}

	sub end_data_table_count {
	shift(@row_count);
	return;
	}

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));
unshift(@row_count,0);	&start_data_table_count();
return '<table class="'.$css_class.'">'."\n";	return '<table class="'.$css_class.'">'."\n";
}	}

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

Line 6757 sub simple_error_page {	Line 7062 sub simple_error_page {
my ($add_class) = @_;	my ($add_class) = @_;
$row_count[0]++;	$row_count[0]++;
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'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)) unless ($add_class eq '');
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[0] % 2)?'LC_odd_row':'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)) unless ($add_class eq '');;
return '<tr class="'.$css_class.'">'."\n";;	return '<tr class="'.$css_class.'">'."\n";;
}	}

Line 6863 sub get_users_function {	Line 7168 sub get_users_function {
if ($env{'request.role'}=~/^(st)/) {	if ($env{'request.role'}=~/^(st)/) {
$function='student';	$function='student';
}	}
if ($env{'request.role'}=~/^(cc\|in\|ta\|ep)/) {	if ($env{'request.role'}=~/^(cc\|co\|in\|ta\|ep)/) {
$function='coordinator';	$function='coordinator';
}	}
if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {	if ($env{'request.role'}=~/^(su\|dc\|ad\|li)/) {
Line 6928 role status: active, previous or future.	Line 7233 role status: active, previous or future.

sub check_user_status {	sub check_user_status {
my ($udom,$uname,$cdom,$crs,$role,$sec) = @_;	my ($udom,$uname,$cdom,$crs,$role,$sec) = @_;
my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname);	my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
	my %userinfo = &Apache::lonnet::dump('roles',$udom,$uname,'.',undef,$extra);
my @uroles = keys %userinfo;	my @uroles = keys %userinfo;
my $srchstr;	my $srchstr;
my $active_chk = 'none';	my $active_chk = 'none';
my $now = time;	my $now = time;
if (@uroles > 0) {	if (@uroles > 0) {
if (($role eq 'cc') \|\| ($sec eq '') \|\| (!defined($sec))) {	if (($role eq 'cc') \|\| ($role eq 'co') \|\| ($sec eq '') \|\| (!defined($sec))) {
$srchstr = '/'.$cdom.'/'.$crs.'_'.$role;	$srchstr = '/'.$cdom.'/'.$crs.'_'.$role;
} else {	} else {
$srchstr = '/'.$cdom.'/'.$crs.'/'.$sec.'_'.$role;	$srchstr = '/'.$cdom.'/'.$crs.'/'.$sec.'_'.$role;
Line 7967 sub get_institutional_codes {	Line 8273 sub get_institutional_codes {
return;	return;
}	}

	sub get_standard_codeitems {
	return ('Year','Semester','Department','Number','Section');
	}

=pod	=pod

=head1 Slot Helpers	=head1 Slot Helpers
Line 8158 sub get_env_multiple {	Line 8468 sub get_env_multiple {

sub ask_for_embedded_content {	sub ask_for_embedded_content {
my ($actionurl,$state,$allfiles,$codebase,$args)=@_;	my ($actionurl,$state,$allfiles,$codebase,$args)=@_;
my $upload_output = '	my (%subdependencies,%dependencies,%newfiles);
<form name="upload_embedded" action="'.$actionurl.'"
method="post" enctype="multipart/form-data">';
$upload_output .= $state;
$upload_output .= '<b>Upload embedded files</b>:<br />'.&start_data_table();

my $num = 0;	my $num = 0;
foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%{$allfiles})) {	my $upload_output;
	foreach my $embed_file (keys(%{$allfiles})) {
	unless ($embed_file =~ m{^\w+://} \|\| $embed_file =~ m{^/}) {
	my ($relpath,$fname);
	if ($embed_file =~ m{/}) {
	my ($path,$fname) = ($embed_file =~ m{^(.+)/([^/]*)$});
	$subdependencies{$path}{$fname} = 1;
	} else {
	$dependencies{$embed_file} = 1;
	}
	}
	}
	my ($url,$udom,$uname,$getpropath);
	if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {
	my $current_path='/';
	if ($env{'form.currentpath'}) {
	$current_path = $env{'form.currentpath'};
	}
	if ($actionurl eq '/adm/coursegrp_portfolio') {
	$udom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	$uname = $env{'course.'.$env{'request.course.id'}.'.num'};
	$url = '/userfiles/groups/'.$env{'form.group'}.'/portfolio';
	} else {
	$udom = $env{'user.domain'};
	$uname = $env{'user.name'};
	$url = '/userfiles/portfolio';
	}
	$url .= $current_path;
	$getpropath = 1;
	} elsif ($actionurl eq '/adm/upload') {
	($uname,my $rest) = ($args->{'current_path'} =~ m{/priv/($match_username)/?(.*)$});
	$url = '/home/'.$uname.'/public_html';
	if ($rest ne '') {
	$url .= '/'.$rest;
	}
	}
	foreach my $path (keys(%subdependencies)) {
	my %currsubfile;
	if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {
	my @subdir_list = &Apache::lonnet::dirlist($url.$path,$udom,$uname,$getpropath);
	foreach my $line (@subdir_list) {
	my ($file_name,$rest) = split(/\&/,$line,2);
	$currsubfile{$file_name} = 1;
	}
	} elsif ($actionurl eq '/adm/upload') {
	if (opendir(my $dir,$url.'/'.$path)) {
	my @subdir_list = grep(!/^\./,readdir($dir));
	map {$currsubfile{$_} = 1;} @subdir_list;
	}
	}
	foreach my $file (keys(%{$subdependencies{$path}})) {
	unless ($currsubfile{$file}) {
	$newfiles{$path.'/'.$file} = 1;
	}
	}
	}
	my (@dir_list,%currfile);
	if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {
	my @dir_list = &Apache::lonnet::dirlist($url,$udom,$uname,$getpropath);
	foreach my $line (@dir_list) {
	my ($file_name,$rest) = split(/\&/,$line,2);
	$currfile{$file_name} = 1;
	}
	} elsif ($actionurl eq '/adm/upload') {
	if (opendir(my $dir,$url)) {
	@dir_list = grep(!/^\./,readdir($dir));
	map {$currfile{$_} = 1;} @dir_list;
	}
	}
	foreach my $file (keys(%dependencies)) {
	unless ($currfile{$file}) {
	$newfiles{$file} = 1;
	}
	}
	foreach my $embed_file (sort {lc($a) cmp lc($b)} keys(%newfiles)) {
$upload_output .= &start_data_table_row().	$upload_output .= &start_data_table_row().
'<td>'.$embed_file.'</td><td>';	'<td>'.$embed_file.'</td><td>';
if ($args->{'ignore_remote_references'}	if ($args->{'ignore_remote_references'}
Line 8192 sub ask_for_embedded_content {	Line 8571 sub ask_for_embedded_content {
&escape($$codebase{$embed_file}).'" />';	&escape($$codebase{$embed_file}).'" />';
}	}
}	}
$upload_output .= '</td>'.&Apache::loncommon::end_data_table_row();	$upload_output .= '</td>'.&Apache::loncommon::end_data_table_row()."\n";
$num++;	$num++;
}	}
$upload_output .= &Apache::loncommon::end_data_table().'<br />	if ($num) {
<input type ="hidden" name="number_embedded_items" value="'.$num.'" />	$upload_output = '<form name="upload_embedded" action="'.$actionurl.'"'.
<input type ="submit" value="'.&mt('Upload Listed Files').'" />	' method="post" enctype="multipart/form-data">'."\n".
'.&mt('(only files for which a location has been provided will be uploaded)').'	$state.
</form>';	'<b>Upload embedded files</b>:<br />'.&start_data_table().
	$upload_output.
	&Apache::loncommon::end_data_table().'<br />'."\n".
	'<input type ="hidden" name="number_embedded_items" value="'.$num.'" />'."\n".
	'<input type ="submit" value="'.&mt('Upload Listed Files').'" />'."\n".
	&mt('(only files for which a location has been provided will be uploaded)')."\n".
	'</form>';
	}
return $upload_output;	return $upload_output;
}	}

Line 8235 sub upload_embedded {	Line 8621 sub upload_embedded {
$dir_root,$port_path,$disk_quota,	$dir_root,$port_path,$disk_quota,
$current_disk_usage,$uname,$udom);	$current_disk_usage,$uname,$udom);
if ($state eq 'will_exceed_quota'	if ($state eq 'will_exceed_quota'
\|\| $state eq 'file_locked'	\|\| $state eq 'file_locked') {
\|\| $state eq 'file_exists' ) {
$output .= $msg;	$output .= $msg;
next;	next;
}	}
Line 8263 sub upload_embedded {	Line 8648 sub upload_embedded {

$env{'form.embedded_item_'.$i.'.filename'}=$fname;	$env{'form.embedded_item_'.$i.'.filename'}=$fname;
if ($context eq 'portfolio') {	if ($context eq 'portfolio') {
my $result=	my $result;
&Apache::lonnet::userfileupload('embedded_item_'.$i,'',	if ($state eq 'existingfile') {
$dirpath.$path);	$result=
if ($result !~ m\|^/uploaded/\|) {	&Apache::lonnet::userfileupload('embedded_item_'.$i,'existingfile',
$output .= '<span class="LC_error">'	$dirpath.$path,);
.&mt('An error occurred ([_1]) while trying to upload [_2] for embedded element [_3].'
,$result,$orig_uploaded_filename,$env{'form.embedded_orig_'.$i})
.'</span><br />';
next;
} else {	} else {
$output .= '<p>'.&mt('Uploaded [_1]','<span class="LC_filename">'.	$result=
$path.$fname.'</span>').'</p>';	&Apache::lonnet::userfileupload('embedded_item_'.$i,'',
	$dirpath.$path);
	if ($result !~ m\|^/uploaded/\|) {
	$output .= '<span class="LC_error">'
	.&mt('An error occurred ([_1]) while trying to upload [_2] for embedded element [_3].'
	,$result,$orig_uploaded_filename,$env{'form.embedded_orig_'.$i})
	.'</span><br />';
	next;
	} else {
	$output .= '<p>'.&mt('Uploaded [_1]','<span class="LC_filename">'.
	$path.$fname.'</span>').'</p>';
	}
}	}
} else {	} else {
# Save the file	# Save the file
Line 8340 sub check_for_existing {	Line 8732 sub check_for_existing {
sub check_for_upload {	sub check_for_upload {
my ($path,$fname,$group,$element,$portfolio_root,$port_path,	my ($path,$fname,$group,$element,$portfolio_root,$port_path,
$disk_quota,$current_disk_usage,$uname,$udom) = @_;	$disk_quota,$current_disk_usage,$uname,$udom) = @_;
my $filesize = (length($env{'form.'.$element})) / 1000; #express in k (1024?)	my $filesize = length($env{'form.'.$element});
	if (!$filesize) {
	my $msg = '<span class="LC_error">'.
	&mt('Unable to upload [_1]. (size = [_2] bytes)',
	'<span class="LC_filename">'.$fname.'</span>',
	$filesize).'<br />'.
	&mt('Either the file you uploaded was empty, or your web browser was unable to read its contents.').'<br />';
	'</span>';
	return ('zero_bytes',$msg);
	}
	$filesize = $filesize/1000; #express in k (1024?)
my $getpropath = 1;	my $getpropath = 1;
my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$path,$udom,$uname,	my @dir_list = &Apache::lonnet::dirlist($portfolio_root.$path,$udom,$uname,
$getpropath);	$getpropath);
my $found_file = 0;	my $found_file = 0;
my $locked_file = 0;	my $locked_file = 0;
foreach my $line (@dir_list) {	foreach my $line (@dir_list) {
my ($file_name)=split(/\&/,$line,2);	my ($file_name,$rest)=split(/\&/,$line,2);
if ($file_name eq $fname){	if ($file_name eq $fname){
$file_name = $path.$file_name;	$file_name = $path.$file_name;
if ($group ne '') {	if ($group ne '') {
Line 8356 sub check_for_upload {	Line 8758 sub check_for_upload {
$found_file = 1;	$found_file = 1;
if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {	if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
$locked_file = 1;	$locked_file = 1;
	} else {
	my @info = split(/\&/,$rest);
	my $currsize = $info[6]/1000;
	if ($currsize < $filesize) {
	my $extra = $filesize - $currsize;
	if (($current_disk_usage + $extra) > $disk_quota) {
	my $msg = '<span class="LC_error">'.
	&mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded if existing (smaller) file with same name (size = [_3] kilobytes) is replaced.',
	'<span class="LC_filename">'.$fname.'</span>',$filesize,$currsize).'</span>'.
	'<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',
	$disk_quota,$current_disk_usage);
	return ('will_exceed_quota',$msg);
	}
	}
}	}
}	}
}	}
Line 8373 sub check_for_upload {	Line 8789 sub check_for_upload {
return ('file_locked',$msg);	return ('file_locked',$msg);
} else {	} else {
my $msg = '<span class="LC_error">';	my $msg = '<span class="LC_error">';
$msg .= &mt('Unable to upload [_1]. A file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$port_path.$env{'form.currentpath'});	$msg .= &mt(' A file by that name: [_1] was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$port_path.$env{'form.currentpath'});
$msg .= '</span>';	$msg .= '</span>';
$msg .= '<br />';	return ('existingfile',$msg);
$msg .= &mt('To upload, rename or delete existing [_1] in [_2].','<span class="LC_filename">'.$fname.'</span>', $port_path.$env{'form.currentpath'});
return ('file_exists',$msg);
}	}
}	}
}	}
Line 9488 sub extract_categories {	Line 9902 sub extract_categories {
my $trailstr;	my $trailstr;
if ($name eq 'instcode') {	if ($name eq 'instcode') {
$trailstr = &mt('Official courses (with institutional codes)');	$trailstr = &mt('Official courses (with institutional codes)');
	} elsif ($name eq 'communities') {
	$trailstr = &mt('Communities');
} else {	} else {
$trailstr = $name;	$trailstr = $name;
}	}
Line 9600 cathash - reference to hash of categorie	Line 10016 cathash - reference to hash of categorie

currcat - scalar with an & separated list of categories assigned to a course.	currcat - scalar with an & separated list of categories assigned to a course.

	type - scalar contains course type (Course or Community).

Returns: $output (markup to be displayed)	Returns: $output (markup to be displayed)

=cut	=cut

sub assign_categories_table {	sub assign_categories_table {
my ($cathash,$currcat) = @_;	my ($cathash,$currcat,$type) = @_;
my $output;	my $output;
if (ref($cathash) eq 'HASH') {	if (ref($cathash) eq 'HASH') {
my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth);	my (@cats,@trails,%allitems,%idx,@jsarray,@path,$maxdepth);
Line 9614 sub assign_categories_table {	Line 10032 sub assign_categories_table {
if (@cats > 0) {	if (@cats > 0) {
my $itemcount = 0;	my $itemcount = 0;
if (ref($cats[0]) eq 'ARRAY') {	if (ref($cats[0]) eq 'ARRAY') {
$output = &Apache::loncommon::start_data_table();
my @currcategories;	my @currcategories;
if ($currcat ne '') {	if ($currcat ne '') {
@currcategories = split('&',$currcat);	@currcategories = split('&',$currcat);
}	}
	my $table;
for (my $i=0; $i<@{$cats[0]}; $i++) {	for (my $i=0; $i<@{$cats[0]}; $i++) {
my $parent = $cats[0][$i];	my $parent = $cats[0][$i];
my $css_class = $itemcount%2?' class="LC_odd_row"':'';
next if ($parent eq 'instcode');	next if ($parent eq 'instcode');
	if ($type eq 'Community') {
	next unless ($parent eq 'communities');
	} else {
	next if ($parent eq 'communities');
	}
	my $css_class = $itemcount%2?' class="LC_odd_row"':'';
my $item = &escape($parent).'::0';	my $item = &escape($parent).'::0';
my $checked = '';	my $checked = '';
if (@currcategories > 0) {	if (@currcategories > 0) {
Line 9630 sub assign_categories_table {	Line 10053 sub assign_categories_table {
$checked = ' checked="checked"';	$checked = ' checked="checked"';
}	}
}	}
$output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.	my $parent_title = $parent;
'<input type="checkbox" name="usecategory" value="'.	if ($parent eq 'communities') {
$item.'"'.$checked.' />'.$parent.'</span>'.	$parent_title = &mt('Communities');
'<input type="hidden" name="catname" value="'.$parent.'" /></td>';	}
	$table .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.
	'<input type="checkbox" name="usecategory" value="'.
	$item.'"'.$checked.' />'.$parent_title.'</span>'.
	'<input type="hidden" name="catname" value="'.$parent.'" /></td>';
my $depth = 1;	my $depth = 1;
push(@path,$parent);	push(@path,$parent);
$output .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);	$table .= &assign_category_rows($itemcount,\@cats,$depth,$parent,\@path,\@currcategories);
pop(@path);	pop(@path);
$output .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';	$table .= '</tr><tr><td colspan="'.$maxdepth.'" class="LC_row_separator"></td></tr>';
$itemcount ++;	$itemcount ++;
}	}
$output .= &Apache::loncommon::end_data_table();	if ($itemcount) {
	$output = &Apache::loncommon::start_data_table().
	$table.
	&Apache::loncommon::end_data_table();
	}
}	}
}	}
}	}
Line 9886 sub check_clone {	Line 10317 sub check_clone {
my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);	my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);
my $clonemsg;	my $clonemsg;
my $can_clone = 0;	my $can_clone = 0;
	my $lctype = lc($args->{'crstype'});
	if ($lctype ne 'community') {
	$lctype = 'course';
	}
if ($clonehome eq 'no_host') {	if ($clonehome eq 'no_host') {
$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'});	if ($args->{'crstype'} eq 'Community') {
	$clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a non-existent community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
	} else {
	$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'});
	}
} else {	} else {
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});	my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});
	if ($args->{'crstype'} eq 'Community') {
	if ($clonedesc{'type'} ne 'Community') {
	$clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a course not a community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
	return ($can_clone, $clonemsg, $cloneid, $clonehome);
	}
	}
if (($env{'request.role.domain'} eq $args->{'clonedomain'}) &&	if (($env{'request.role.domain'} eq $args->{'clonedomain'}) &&
(&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) {	(&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) {
$can_clone = 1;	$can_clone = 1;
Line 9903 sub check_clone {	Line 10347 sub check_clone {
} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) {	} elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) {
$can_clone = 1;	$can_clone = 1;
} else {	} else {
	my $ccrole = 'cc';
	if ($args->{'crstype'} eq 'Community') {
	$ccrole = 'co';
	}
my %roleshash =	my %roleshash =
&Apache::lonnet::get_my_roles($args->{'ccuname'},	&Apache::lonnet::get_my_roles($args->{'ccuname'},
$args->{'ccdomain'},	$args->{'ccdomain'},
'userroles',['active'],['cc'],	'userroles',['active'],[$ccrole],
[$args->{'clonedomain'}]);	[$args->{'clonedomain'}]);
if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':cc'}) \|\| (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {	if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) \|\| (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {
$can_clone = 1;	$can_clone = 1;
} else {	} elsif (&Apache::lonnet::is_course_owner($args->{'clonedomain'},$args->{'clonecourse'},$args->{'ccuname'},$args->{'ccdomain'})) {
$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'});	$can_clone = 1;
	} else {
	if ($args->{'crstype'} eq 'Community') {
	$clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});
	} 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'});
	}
}	}
}	}
}	}
Line 9966 sub construct_course {	Line 10420 sub construct_course {
# if anyone ever decides to not show this, and Utils::Course::new	# if anyone ever decides to not show this, and Utils::Course::new
# will need to be suitably modified.	# will need to be suitably modified.
$outcome .= &mt('New LON-CAPA [_1] ID: [_2]',$crstype,$$courseid).$linefeed;	$outcome .= &mt('New LON-CAPA [_1] ID: [_2]',$crstype,$$courseid).$linefeed;
	if ($$courseid =~ /^error:/) {
	return (0,$outcome);
	}

#	#
# Check if created correctly	# Check if created correctly
#	#
($$crsudom,$$crsunum)= &LONCAPA::split_courseid($$courseid);	($$crsudom,$$crsunum)= &LONCAPA::split_courseid($$courseid);
my $crsuhome=&Apache::lonnet::homeserver($$crsunum,$$crsudom);	my $crsuhome=&Apache::lonnet::homeserver($$crsunum,$$crsudom);
	if ($crsuhome eq 'no_host') {
	$outcome .= &mt('Course creation failed, unrecognized course home server.').$linefeed;
	return (0,$outcome);
	}
$outcome .= &mt('Created on').': '.$crsuhome.$linefeed;	$outcome .= &mt('Created on').': '.$crsuhome.$linefeed;

#	#
Line 9989 sub construct_course {	Line 10451 sub construct_course {
$cenv{'url'}=$oldcenv{'url'};	$cenv{'url'}=$oldcenv{'url'};
# Restore title	# Restore title
$cenv{'description'}=$oldcenv{'description'};	$cenv{'description'}=$oldcenv{'description'};
	# Restore creation date, creator and creation context.
	$cenv{'internal.created'}=$oldcenv{'internal.created'};
	$cenv{'internal.creator'}=$oldcenv{'internal.creator'};
	$cenv{'internal.creationcontext'}=$oldcenv{'internal.creationcontext'};
# Mark as cloned	# Mark as cloned
$cenv{'clonedfrom'}=$cloneid;	$cenv{'clonedfrom'}=$cloneid;
# Need to clone grading mode	# Need to clone grading mode
Line 10235 sub construct_course {	Line 10701 sub construct_course {
$title=&mt('Syllabus');	$title=&mt('Syllabus');
$url='/public/'.$$crsudom.'/'.$$crsunum.'/syllabus';	$url='/public/'.$$crsudom.'/'.$$crsunum.'/syllabus';
} else {	} else {
$title=&mt('Navigate Contents');	$title=&mt('Table of Contents');
$url='/adm/navmaps';	$url='/adm/navmaps';
}	}

Line 10273 sub group_term {	Line 10739 sub group_term {
return $names{$crstype};	return $names{$crstype};
}	}

	sub course_types {
	my @types = ('official','unofficial','community');
	my %typename = (
	official => 'Official course',
	unofficial => 'Unofficial course',
	community => 'Community',
	);
	return (\@types,\%typename);
	}

sub icon {	sub icon {
my ($file)=@_;	my ($file)=@_;
my $curfext = lc((split(/\./,$file))[-1]);	my $curfext = lc((split(/\./,$file))[-1]);
Line 10455 sub init_user_environment {	Line 10931 sub init_user_environment {
$initial_env{"browser.interface"} = $form->{'interface'};	$initial_env{"browser.interface"} = $form->{'interface'};
$env{'browser.interface'}=$form->{'interface'};	$env{'browser.interface'}=$form->{'interface'};
}	}
	my %is_adv = ( is_adv => $env{'user.adv'} );
	my %domdef = &Apache::lonnet::get_domain_defaults($domain);

foreach my $tool ('aboutme','blog','portfolio') {	foreach my $tool ('aboutme','blog','portfolio') {
$userenv{'availabletools.'.$tool} =	$userenv{'availabletools.'.$tool} =
&Apache::lonnet::usertools_access($username,$domain,$tool,'reload');	&Apache::lonnet::usertools_access($username,$domain,$tool,'reload',
	undef,\%userenv,\%domdef,\%is_adv);
}	}

foreach my $crstype ('official','unofficial','community') {	foreach my $crstype ('official','unofficial','community') {
$userenv{'canrequest.'.$crstype} =	$userenv{'canrequest.'.$crstype} =
&Apache::lonnet::usertools_access($username,$domain,$crstype,	&Apache::lonnet::usertools_access($username,$domain,$crstype,
'reload','requestcourses');	'reload','requestcourses',
	\%userenv,\%domdef,\%is_adv);
}	}

$env{'user.environment'} = "$lonids/$cookie.id";	$env{'user.environment'} = "$lonids/$cookie.id";
Line 10543 sub clean_symb {	Line 11023 sub clean_symb {
return ($symb,$enc);	return ($symb,$enc);
}	}

	sub build_release_hashes {
	my ($checkparms,$checkresponsetypes,$checkcrstypes,$anonsurvey,$randomizetry) = @_;
	return unless((ref($checkparms) eq 'HASH') && (ref($checkresponsetypes) eq 'HASH') &&
	(ref($checkcrstypes) eq 'HASH') && (ref($anonsurvey) eq 'HASH') &&
	(ref($randomizetry) eq 'HASH'));
	foreach my $key (keys(%Apache::lonnet::needsrelease)) {
	my ($item,$name,$value) = split(/:/,$key);
	if ($item eq 'parameter') {
	if (ref($checkparms->{$name}) eq 'ARRAY') {
	unless(grep(/^\Q$name\E$/,@{$checkparms->{$name}})) {
	push(@{$checkparms->{$name}},$value);
	}
	} else {
	push(@{$checkparms->{$name}},$value);
	}
	} elsif ($item eq 'resourcetag') {
	if ($name eq 'responsetype') {
	$checkresponsetypes->{$value} = $Apache::lonnet::needsrelease{$key}
	}
	} elsif ($item eq 'course') {
	if ($name eq 'crstype') {
	$checkcrstypes->{$value} = $Apache::lonnet::needsrelease{$key};
	}
	}
	}
	($anonsurvey->{major},$anonsurvey->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:anonsurvey'});
	($randomizetry->{major},$randomizetry->{minor}) = split(/\./,$Apache::lonnet::needsrelease{'parameter:type:randomizetry'});
	return;
	}

=pod	=pod

=back	=back

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

Removed from v.1.897
changed lines
	Added in v.1.948.2.16