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.948.2.33.2.2 and 1.1036

version 1.948.2.33.2.2, 2012/03/03 03:07:23	version 1.1036, 2011/12/12 00:13:43
Line 436 sub studentbrowser_javascript {	Line 436 sub studentbrowser_javascript {
ENDSTDBRW	ENDSTDBRW
}	}

	sub resourcebrowser_javascript {
	unless ($env{'request.course.id'}) { return ''; }
	return (<<'ENDRESBRW');
	<script type="text/javascript" language="Javascript">
	// <![CDATA[
	var reseditbrowser;
	function openresbrowser(formname,reslink) {
	var url = '/adm/pickresource?form='+formname+'&reslink='+reslink;
	var title = 'Resource_Browser';
	var options = 'scrollbars=1,resizable=1,menubar=0';
	options += ',width=700,height=500';
	reseditbrowser = open(url,title,options,'1');
	reseditbrowser.focus();
	}
	// ]]>
	</script>
	ENDRESBRW
	}

sub selectstudent_link {	sub selectstudent_link {
my ($form,$unameele,$udomele,$courseadvonly,$clickerid)=@_;	my ($form,$unameele,$udomele,$courseadvonly,$clickerid)=@_;
my $callargs = "'".&Apache::lonhtmlcommon::entity_encode($form)."','".	my $callargs = "'".&Apache::lonhtmlcommon::entity_encode($form)."','".
Line 456 sub selectstudent_link {	Line 475 sub selectstudent_link {
&mt('Select User').'</a></span>';	&mt('Select User').'</a></span>';
}	}
if ($env{'request.role'}=~/^(au\|dc\|su)/) {	if ($env{'request.role'}=~/^(au\|dc\|su)/) {
$callargs .= ",'',1";	$callargs .= ",'',1";
return '<span class="LC_nobreak">'.	return '<span class="LC_nobreak">'.
'<a href="javascript:openstdbrowser('.$callargs.');">'.	'<a href="javascript:openstdbrowser('.$callargs.');">'.
&mt('Select User').'</a></span>';	&mt('Select User').'</a></span>';
Line 464 sub selectstudent_link {	Line 483 sub selectstudent_link {
return '';	return '';
}	}

	sub selectresource_link {
	my ($form,$reslink,$arg)=@_;

	my $callargs = "'".&Apache::lonhtmlcommon::entity_encode($form)."','".
	&Apache::lonhtmlcommon::entity_encode($reslink)."'";
	unless ($env{'request.course.id'}) { return $arg; }
	return '<span class="LC_nobreak">'.
	'<a href="javascript:openresbrowser('.$callargs.');">'.
	$arg.'</a></span>';
	}



sub authorbrowser_javascript {	sub authorbrowser_javascript {
return <<"ENDAUTHORBRW";	return <<"ENDAUTHORBRW";
<script type="text/javascript" language="JavaScript">	<script type="text/javascript" language="JavaScript">
Line 1142 a new window using Javascript. (Default	Line 1174 a new window using Javascript. (Default

$width and $height are optional numerical parameters that will	$width and $height are optional numerical parameters that will
override the width and height of the popped up window, which may	override the width and height of the popped up window, which may
be useful for certain help topics with big pictures included.	be useful for certain help topics with big pictures included.

	$imgid is the id of the img tag used for the help icon. This may be
	used in a javascript call to switch the image src. See
	lonhtmlcommon::htmlareaselectactive() for an example.

=cut	=cut

Line 1150 sub help_open_topic {	Line 1186 sub help_open_topic {
my ($topic, $text, $stayOnPage, $width, $height, $imgid) = @_;	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 = 500 if (not defined $width);
$height = 400 if (not defined $height);	$height = 400 if (not defined $height);
my $filename = $topic;	my $filename = $topic;
$filename =~ s/ /_/g;	$filename =~ s/ /_/g;
Line 1161 sub help_open_topic {	Line 1197 sub help_open_topic {
$topic=~s/\W/\_/g;	$topic=~s/\W/\_/g;

if (!$stayOnPage) {	if (!$stayOnPage) {
$link = "javascript:void(open('/adm/help/${filename}.hlp', 'Help_for_$topic', 'menubar=0,toolbar=1,scrollbars=1,width=$width,height=$height,resizable=yes'))";	$link = "javascript:openMyModal('/adm/help/${filename}.hlp',$width,$height,'yes');";
} else {	} else {
$link = "/adm/help/${filename}.hlp";	$link = "/adm/help/${filename}.hlp";
}	}
Line 1182 sub help_open_topic {	Line 1218 sub help_open_topic {
$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.'" style="vertical-align:middle;"'.$imgid	.' title="'.$title.'" style="vertical-align:middle;"'.$imgid
.' /></a>';	.' /></a>';
if ($text ne "") {	if ($text ne "") {
$template.='</span>';	$template.='</span>';
}	}
return $template;	return $template;
Line 1257 ENDOUTPUT	Line 1293 ENDOUTPUT
sub help_open_menu {	sub help_open_menu {
my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text)	my ($topic,$component_help,$faq,$bug,$stayOnPage,$width,$height,$text)
= @_;	= @_;
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 1;
# only use pop-up help (stayOnPage == 0)
# if environment.remote is on (using remote control UI)
if ($env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;
}
my $output;	my $output;
if ($component_help) {	if ($component_help) {
if (!$text) {	if (!$text) {
Line 1283 sub help_open_menu {	Line 1314 sub help_open_menu {
sub top_nav_help {	sub top_nav_help {
my ($text) = @_;	my ($text) = @_;
$text = &mt($text);	$text = &mt($text);
my $stay_on_page =	my $stay_on_page = 1;
($env{'environment.remote'} eq 'off' );
my $link = ($stay_on_page) ? "javascript:helpMenu('display')"	my $link = ($stay_on_page) ? "javascript:helpMenu('display')"
: "javascript:helpMenu('open')";	: "javascript:helpMenu('open')";
my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);	my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);
Line 1299 END	Line 1330 END

sub help_menu_js {	sub help_menu_js {
my ($text) = @_;	my ($text) = @_;
	my $stayOnPage = 1;
my $stayOnPage =
($env{'environment.remote'} eq 'off' );

my $width = 620;	my $width = 620;
my $height = 600;	my $height = 600;
my $helptopic=&general_help();	my $helptopic=&general_help();
Line 1359 sub help_open_bug {	Line 1387 sub help_open_bug {
unless ($env{'user.adv'}) { return ''; }	unless ($env{'user.adv'}) { return ''; }
unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }	unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}
$width = 600 if (not defined $width);	$width = 600 if (not defined $width);
$height = 600 if (not defined $height);	$height = 600 if (not defined $height);

Line 1403 sub help_open_faq {	Line 1428 sub help_open_faq {
unless ($env{'user.adv'}) { return ''; }	unless ($env{'user.adv'}) { return ''; }
unless ($Apache::lonnet::perlvar{'FAQHost'}) { return ''; }	unless ($Apache::lonnet::perlvar{'FAQHost'}) { return ''; }
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);
if ($env{'environment.remote'} eq 'off' ) {
$stayOnPage=1;	$stayOnPage=1;
}
$width = 350 if (not defined $width);	$width = 350 if (not defined $width);
$height = 400 if (not defined $height);	$height = 400 if (not defined $height);

Line 1784 sub create_workbook {	Line 1806 sub create_workbook {
return (undef);	return (undef);
}	}
#	#
$workbook->set_tempdir('/home/httpd/perl/tmp');	$workbook->set_tempdir(LONCAPA::tempdir());
#	#
my $format = &Apache::loncommon::define_excel_formats($workbook);	my $format = &Apache::loncommon::define_excel_formats($workbook);
return ($workbook,$filename,$format);	return ($workbook,$filename,$format);
Line 1922 sub multiple_select_form {	Line 1944 sub multiple_select_form {
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 ref to a hash containing:	allow a user to select options from a ref to a hash containing:
option_name => displayed text. An optional $onchange can include	option_name => displayed text. An optional $onchange can include
a javascript onchange item, e.g., onchange="this.form.submit();"	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.

Line 1938 sub select_form {	Line 1960 sub select_form {
my $selectform = "<select name=\"$name\" size=\"1\"$onchange>\n";	my $selectform = "<select name=\"$name\" size=\"1\"$onchange>\n";
my @keys;	my @keys;
if (exists($hashref->{'select_form_order'})) {	if (exists($hashref->{'select_form_order'})) {
@keys=@{$hashref->{'select_form_order'}};	@keys=@{$hashref->{'select_form_order'}};
} else {	} else {
@keys=sort(keys(%{$hashref}));	@keys=sort(keys(%{$hashref}));
}	}
foreach my $key (@keys) {	foreach my $key (@keys) {
$selectform.=	$selectform.=
Line 2339 function set_auth_radio_buttons(newvalue	Line 2361 function set_auth_radio_buttons(newvalue
var numauthchoices = currentform.login.length;	var numauthchoices = currentform.login.length;
if (typeof numauthchoices == "undefined") {	if (typeof numauthchoices == "undefined") {
return;	return;
}	}
var i=0;	var i=0;
while (i < numauthchoices) {	while (i < numauthchoices) {
if (currentform.login[i].value == newvalue) { break; }	if (currentform.login[i].value == newvalue) { break; }
Line 3312 sub filemimetype {	Line 3334 sub filemimetype {
sub filecategoryselect {	sub filecategoryselect {
my ($name,$value)=@_;	my ($name,$value)=@_;
return &select_form($value,$name,	return &select_form($value,$name,
{'' => &mt('Any category'), map { $_,$_ } sort(keys(%category_extensions))});	{'' => &mt('Any category'), map { $_,$_ } sort(keys(%category_extensions))});
}	}

=pod	=pod
Line 3485 sub get_previous_attempt {	Line 3507 sub get_previous_attempt {
my $data=$parts[-1];	my $data=$parts[-1];
next if ($data eq 'foilorder');	next if ($data eq 'foilorder');
pop(@parts);	pop(@parts);
	$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>';
if ($data eq 'type') {	if ($data eq 'type') {
unless ($showsurv) {	unless ($showsurv) {
my $id = join(',',@parts);	my $id = join(',',@parts);
Line 3493 sub get_previous_attempt {	Line 3516 sub get_previous_attempt {
$lasthidden{$ign.'.'.$id} = 1;	$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 3613 sub get_previous_attempt {	Line 3633 sub get_previous_attempt {

sub format_previous_attempt_value {	sub format_previous_attempt_value {
my ($key,$value) = @_;	my ($key,$value) = @_;
if ($key =~ /timestamp/) {	if (($key =~ /timestamp/) \|\| ($key=~/duedate/)) {
$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 }).')';
Line 3627 sub format_previous_attempt_value {	Line 3647 sub format_previous_attempt_value {
}	}
my $tag_internal_answer_name = 'INTERNAL';	my $tag_internal_answer_name = 'INTERNAL';
if ($anskeys[0] eq $tag_internal_answer_name) {	if ($anskeys[0] eq $tag_internal_answer_name) {
$value = $answer;	$value = $answer;
} else {	} else {
$value = $anskeys[0].'='.$answer;	$value = $anskeys[0].'='.$answer;
}	}
Line 3638 sub format_previous_attempt_value {	Line 3658 sub format_previous_attempt_value {
$answer =~ s{\0}{,}g;	$answer =~ s{\0}{,}g;
}	}
$value .= $ans.'='.$answer.'<br />';;	$value .= $ans.'='.$answer.'<br />';;
}	}
}	}
} else {	} else {
$value = &unescape($value);	$value = &unescape($value);
Line 4426 sub get_legacy_domconf {	Line 4446 sub get_legacy_domconf {
close($fh);	close($fh);
}	}
}	}
if (-e '/home/httpd/html/adm/lonDomLogos/'.$udom.'.gif') {	if (-e $Apache::lonnet::perlvar{'lonDocRoot'}.'/adm/lonDomLogos/'.$udom.'.gif') {
$legacyhash{$udom.'.login.domlogo'} = "/adm/lonDomLogos/$udom.gif";	$legacyhash{$udom.'.login.domlogo'} = "/adm/lonDomLogos/$udom.gif";
}	}
return %legacyhash;	return %legacyhash;
Line 4512 sub designparm {	Line 4532 sub designparm {

=item * &authorspace()	=item * &authorspace()

Inputs: ./.	Inputs: $url (usually will be undef).

Returns: Path to the Construction Space of the current user's	Returns: Path to Construction Space containing the resource or
accessed author space	directory being viewed (or for which action is being taken).
The author space will be that of the current user	If $url is provided, and begins /priv/<domain>/<uname>
when accessing the own author space	the path will be that portion of the $context argument.
and that of the co-author/assistent co-author	Otherwise the path will be for the author space of the current
when accessing the co-author's/assistent co-author's	user when the current role is author, or for that of the
space	co-author/assistant co-author space when the current role
	is co-author or assistant co-author.

=cut	=cut

sub authorspace {	sub authorspace {
	my ($url) = @_;
	if ($url ne '') {
	if ($url =~ m{^(/priv/$match_domain/$match_username/)}) {
	return $1;
	}
	}
my $caname = '';	my $caname = '';
if ($env{'request.role'} =~ /^ca\|^aa/) {	my $cadom = '';
(undef,$caname) =	if ($env{'request.role'} =~ /^(?:ca\|aa)/) {
	($cadom,$caname) =
($env{'request.role'}=~/($match_domain)\/($match_username)$/);	($env{'request.role'}=~/($match_domain)\/($match_username)$/);
} else {	} elsif ($env{'request.role'} =~ m{^au\./($match_domain)/}) {
$caname = $env{'user.name'};	$caname = $env{'user.name'};
	$cadom = $env{'user.domain'};
}	}
return '/priv/'.$caname.'/';	if (($caname ne '') && ($cadom ne '')) {
	return "/priv/$cadom/$caname/";
	}
	return;
}	}

##############################################	##############################################
Line 4561 sub head_subbox {	Line 4593 sub head_subbox {
=item * &CSTR_pageheader()	=item * &CSTR_pageheader()

Input: (optional) filename from which breadcrumb trail is built.	Input: (optional) filename from which breadcrumb trail is built.
In most cases no input is needed, as $env{'request.filename'}	In most cases no input as needed, as $env{'request.filename'}
is appropriate for use in building the breadcrumb trail.	is appropriate for use in building the breadcrumb trail.

Returns: HTML div with CSTR path and recent box	Returns: HTML div with CSTR path and recent box
Line 4576 sub CSTR_pageheader {	Line 4608 sub CSTR_pageheader {
}	}

# this is for resources; directories have customtitle, and crumbs	# this is for resources; directories have customtitle, and crumbs
# and select recent are created in lonpubdir.pm	# and select recent are created in lonpubdir.pm

my ($uname,$thisdisfn)=	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
($trailfile =~ m\|^/home/([^/]+)/public_html/(.*)\|);	my ($udom,$uname,$thisdisfn)=
my $formaction='/priv/'.$uname.'/'.$thisdisfn;	($trailfile =~ m{^\Q$londocroot\E/priv/([^/]+)/([^/]+)/(.*)$});
$formaction=~s/\/+/\//g;	my $formaction = "/priv/$udom/$uname/$thisdisfn";
	$formaction =~ s{/+}{/}g;

my $parentpath = '';	my $parentpath = '';
my $lastitem = '';	my $lastitem = '';
Line 4598 sub CSTR_pageheader {	Line 4631 sub CSTR_pageheader {
.'<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">' #FIXME lonpubdir: target="_parent"	.'" target="_top">' #FIXME lonpubdir: target="_parent"
.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv',undef,undef);	.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv/'.$udom,undef,undef);

if ($lastitem) {	if ($lastitem) {
$output .=	$output .=
Line 4654 Inputs:	Line 4687 Inputs:

=item * $bgcolor, used to override the bgcolor on a webpage to a specific value	=item * $bgcolor, used to override the bgcolor on a webpage to a specific value

=item * $no_inline_link, if true and in remote mode, don't show the
'Switch To Inline Menu' link

=item * $args, optional argument valid values are	=item * $args, optional argument valid values are
no_auto_mt_title -> prevents &mt()ing the title arg	no_auto_mt_title -> prevents &mt()ing the title arg
inherit_jsmath -> when creating popup window in a page,	inherit_jsmath -> when creating popup window in a page,
Line 4674 other decorations will be returned.	Line 4704 other decorations will be returned.

sub bodytag {	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,$args)=@_;

my $public;	my $public;
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))	if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
Line 4716 sub bodytag {	Line 4746 sub bodytag {
}	}

if (!$realm) { $realm=' '; }	if (!$realm) { $realm=' '; }
# Set messages
my $messages=&domainlogo($domain);

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

Line 4735 sub bodytag {	Line 4763 sub bodytag {
} 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 4751 sub bodytag {	Line 4779 sub bodytag {
$role = '<span class="LC_nobreak">('.$role.')</span>' 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'} ne 'on') {
# No Remote
if ($no_nav_bar \|\| $env{'form.inhibitmenu'} eq 'yes') {	if ($no_nav_bar \|\| $env{'form.inhibitmenu'} eq 'yes') {
return $bodytag;	return $bodytag;
}	}

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

Line 4773 sub bodytag {	Line 4799 sub bodytag {
<em>$realm</em> $dc_info</div>\|;	<em>$realm</em> $dc_info</div>\|;
return $bodytag;	return $bodytag;
}	}
if (($env{'request.noversionuri'} =~ m{^/adm/navmaps}) &&
($env{'environment.remotenavmap'} eq 'on')) {
return $bodytag;
}

unless ($env{'request.symb'} =~ m/\.page___\d+___/) {	unless ($env{'request.symb'} =~ m/\.page___\d+___/) {
$bodytag .= qq\|<div id="LC_nav_bar">$name $role</div>\|;	$bodytag .= qq\|<div id="LC_nav_bar">$name $role</div>\|;
Line 4798 sub bodytag {	Line 4820 sub bodytag {
$bodytag .= Apache::lonmenu::serverform();	$bodytag .= Apache::lonmenu::serverform();
$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');	$bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
$bodytag .= &Apache::lonmenu::innerregister($forcereg,'',	$bodytag .= &Apache::lonmenu::innerregister($forcereg,
$args->{'bread_crumbs'});	$args->{'bread_crumbs'});
} elsif ($forcereg) {	} elsif ($forcereg) {
$bodytag .= &Apache::lonmenu::innerregister($forcereg);	$bodytag .= &Apache::lonmenu::innerregister($forcereg);
Line 4811 sub bodytag {	Line 4833 sub bodytag {
}	}

return $bodytag;	return $bodytag;
}

#
# Top frame rendering, Remote is up
#

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

# Explicit link to get inline menu
my $menu= ($no_inline_link?''
:'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');

if ($dc_info) {
$dc_info = qq\|<span class="LC_cusr_subheading">($dc_info)</span>\|;
}

unless ($env{'form.inhibitmenu'}) {
$bodytag .= qq\|<div id="LC_nav_bar">$name $role</div>
<ol class="LC_primary_menu LC_right">
<li>$menu</li>
</ol><div id="LC_realm"> $realm $dc_info</div>\|;
}

return(<<ENDBODY);
$bodytag
<table id="LC_title_bar" class="LC_with_remote">
<tr><td>$upperleft</td>
<td>$messages </td>
</tr>
<tr><td>$titleinfo $dc_info $menu</td>
</tr>
</table>
ENDBODY
}	}

sub dc_courseid_toggle {	sub dc_courseid_toggle {
Line 4879 sub make_attr_string {	Line 4864 sub make_attr_string {
delete($attr_ref->{$key});	delete($attr_ref->{$key});
}	}
}	}
$attr_ref->{'onload'} =	$attr_ref->{'onload'} = $on_load;
&Apache::lonmenu::loadevents(). $on_load;	$attr_ref->{'onunload'}= $on_unload;
$attr_ref->{'onunload'}=
&Apache::lonmenu::unloadevents().$on_unload;
}

# Accessibility font enhance
if ($env{'browser.fontenhance'} eq 'on') {
my $style;
foreach my $key (keys(%{$attr_ref})) {
if (lc($key) eq 'style') {
$style.=$attr_ref->{$key}.';';
delete($attr_ref->{$key});
}
}
$attr_ref->{'style'}=$style.'; font-size: x-large;';
}	}

my $attr_string;	my $attr_string;
Line 4992 sub standard_css {	Line 4963 sub standard_css {
$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;

/* needed for iframe to allow 100% height in FF */	/* needed for iframe to allow 100% height in FF */
Line 5058 form, .inline {	Line 5030 form, .inline {
text-decoration:none;	text-decoration:none;
}	}

	.LC_setting {
	text-decoration:underline;
	}

.LC_error {	.LC_error {
color: red;	color: red;
font-size: larger;	font-size: larger;
Line 5225 td.LC_table_cell_checkbox {	Line 5201 td.LC_table_cell_checkbox {
text-align: left;	text-align: left;
}	}

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

.LC_head_subbox {	.LC_head_subbox {
clear:both;	clear:both;
background: #F8F8F8; /* $sidebg; */	background: #F8F8F8; /* $sidebg; */
Line 5307 table.LC_nested {	Line 5278 table.LC_nested {
width: 100%;	width: 100%;
}	}

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

table.LC_data_table tr th,	table.LC_data_table tr th,
table.LC_calendar tr th,	table.LC_calendar tr th,
table.LC_prior_tries tr th,	table.LC_prior_tries tr th,
Line 5430 table.LC_nested tr td.LC_right_item {	Line 5393 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 5577 span.LC_current_location {	Line 5524 span.LC_current_location {
background: $pgbg;	background: $pgbg;
}	}

	span.LC_current_nav_location {
	font-weight:bold;
	background: $sidebg;
	}

span.LC_parm_menu_item {	span.LC_parm_menu_item {
font-size: larger;	font-size: larger;
}	}
Line 5772 table.LC_group_priv td {	Line 5724 table.LC_group_priv td {
padding: 0;	padding: 0;
}	}

table.LC_notify_front_page {
background: white;
border: 1px solid black;
padding: 8px;
}

table.LC_notify_front_page td {
padding: 8px;
}

.LC_navbuttons {	.LC_navbuttons {
margin: 2ex 0ex 2ex 0ex;	margin: 2ex 0ex 2ex 0ex;
}	}
Line 6232 fieldset > legend {	Line 6174 fieldset > legend {
font-style: normal;	font-style: normal;
}	}

/* Preliminary fix to hide nav_bar inside bookmarks window */
#LC_bookmarks #LC_nav_bar {
display:none;
}

ol.LC_primary_menu {	ol.LC_primary_menu {
float: right;	float: right;
margin: 0;	margin: 0;
background-color: $pgbg_or_bgcolor;	background-color: $pgbg_or_bgcolor;
}	}

ol.LC_primary_menu a.LC_new_message {
font-weight:bold;
color: darkred;
}

ol#LC_PathBreadcrumbs {	ol#LC_PathBreadcrumbs {
margin: 0;	margin: 0;
}	}
Line 6268 ol.LC_primary_menu a {	Line 6200 ol.LC_primary_menu a {
text-decoration: none;	text-decoration: none;
}	}

	ol.LC_primary_menu a.LC_new_message {
	font-weight:bold;
	color: darkred;
	}

ol.LC_docs_parameters {	ol.LC_docs_parameters {
margin-left: 0;	margin-left: 0;
padding: 0;	padding: 0;
Line 6317 ul.LC_TabContent {	Line 6254 ul.LC_TabContent {
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: -1px -10px 0 -10px;
padding: 0;	padding: 0;
}	}

Line 6340 ul.LC_TabContent li {	Line 6277 ul.LC_TabContent li {
padding: 0 16px 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;	border-left: solid 1px $font;
}	}

ul.LC_TabContent .right {	ul.LC_TabContent .right {
Line 6410 ul.LC_TabContentBigger li a {	Line 6347 ul.LC_TabContentBigger li a {
text-align: center;	text-align: center;
display: block;	display: block;
text-decoration: none;	text-decoration: none;
outline: none;	outline: none;
}	}

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


ul.LC_CourseBreadcrumbs {	ul.LC_CourseBreadcrumbs {
background: $sidebg;	background: $sidebg;
line-height: 32px;	height: 2em;
padding-left: 10px;	padding-left: 10px;
margin: 0 0 10px 0;	margin: 0;
list-style-position: inside;	list-style-position: inside;

}	}

ol#LC_MenuBreadcrumbs,	ol#LC_MenuBreadcrumbs,
Line 6485 ol#LC_PathBreadcrumbs li a {	Line 6421 ol#LC_PathBreadcrumbs li a {
padding: 0 10px 10px 10px;	padding: 0 10px 10px 10px;
}	}

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

.LC_AboutMe_Image {	.LC_AboutMe_Image {
float:left;	float:left;
margin-right:10px;	margin-right:10px;
Line 6605 a#LC_content_toolbar_firsthomework {	Line 6546 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 {
background-image:url(/res/adm/pages/start-navigation.gif);
}

a#LC_content_toolbar_closenav {
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);
}	}
Line 6697 ul.LC_funclist li {	Line 6630 ul.LC_funclist li {
line-height: 150%;	line-height: 150%;
}	}

.ui-accordion .LC_advanced_toggle {	.LC_hidden {
float: right;	display: none;
font-size: 90%;	}
padding: 0px 4px
	.LCmodal-overlay {
	position:fixed;
	top:0;
	right:0;
	bottom:0;
	left:0;
	height:100%;
	width:100%;
	margin:0;
	padding:0;
	background:#999;
	opacity:.75;
	filter: alpha(opacity=75);
	-moz-opacity: 0.75;
	z-index:101;
	}

	* html .LCmodal-overlay {
	position: absolute;
	height: expression(document.body.scrollHeight > document.body.offsetHeight ? document.body.scrollHeight : document.body.offsetHeight + 'px');
	}

	.LCmodal-window {
	position:fixed;
	top:50%;
	left:50%;
	margin:0;
	padding:0;
	z-index:102;
	}

	* html .LCmodal-window {
	position:absolute;
	}

	.LCclose-window {
	position:absolute;
	width:32px;
	height:32px;
	right:8px;
	top:8px;
	background:transparent url('/res/adm/pages/process-stop.png') no-repeat scroll right top;
	text-indent:-99999px;
	overflow:hidden;
	cursor:pointer;
}	}

END	END
Line 6754 sub headtag {	Line 6732 sub headtag {
if (!$args->{'frameset'}) {	if (!$args->{'frameset'}) {
$result .= &Apache::lonhtmlcommon::htmlareaheaders();	$result .= &Apache::lonhtmlcommon::htmlareaheaders();
}	}
if ($args->{'force_register'}) {	if ($args->{'force_register'} && $env{'request.noversionuri'} !~ m{^/res/adm/pages/}) {
$result .= &Apache::lonmenu::registerurl(1);	$result .= Apache::lonxml::display_title();
}	}
if (!$args->{'no_nav_bar'}	if (!$args->{'no_nav_bar'}
&& !$args->{'only_body'}	&& !$args->{'only_body'}
&& !$args->{'frameset'}) {	&& !$args->{'frameset'}) {
$result .= &help_menu_js();	$result .= &help_menu_js();
	$result.=&modal_window();
	$result.=&wishlist_window();
	} else {
	if ($args->{'add_modal'}) {
	$result.=&modal_window();
	}
	if ($args->{'add_wishlist'}) {
	$result.=&wishlist_window();
	}
}	}

if (ref($args->{'redirect'})) {	if (ref($args->{'redirect'})) {
my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};	my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};
$url = &Apache::lonenc::check_encrypt($url);	$url = &Apache::lonenc::check_encrypt($url);
Line 6780 ADDMETA	Line 6766 ADDMETA
if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }	if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }
$result .= '<title> LON-CAPA '.$title.'</title>'	$result .= '<title> LON-CAPA '.$title.'</title>'
.'<link rel="stylesheet" type="text/css" href="'.$url.'" />'	.'<link rel="stylesheet" type="text/css" href="'.$url.'" />'
.&printstyle()
.$head_extra;	.$head_extra;
return $result;	return $result.'</head>';
}	}

=pod	=pod
Line 6804 sub font_settings {	Line 6789 sub font_settings {
return $headerstring;	return $headerstring;
}	}

sub printstyle {
return <<"ENDSTYLE";
<style type="text/css" media="print">
#LC_breadcrumbs,
.LC_head_subbox,
#LC_secondary_menu,
.LC_discussion,
.LC_feedback_link,
.LC_primary_menu { display: none; }
form[name="lonhomework"] { clear: both; display: block; padding-top: 3em !important; }
</style>
ENDSTYLE

}

=pod	=pod

=item * &xml_begin()	=item * &xml_begin()
Line 6850 sub xml_begin {	Line 6820 sub xml_begin {

=pod	=pod

=item * &endheadtag()

Returns a uniform </head> for LON-CAPA web pages.

Inputs: none

=cut

sub endheadtag {
return '</head>';
}

=pod

=item * &head()

Returns a uniform complete <head>..</head> section for LON-CAPA web pages.

Inputs:

=over 4

$title - optional title for the page

$head_extra - optional extra HTML to put inside the <head>

=back

=cut

sub head {
my ($title,$head_extra,$args) = @_;
return &headtag($title,$head_extra,$args).&endheadtag();
}

=pod

=item * &start_page()	=item * &start_page()

Returns a complete <html> .. <body> section for LON-CAPA web pages.	Returns a complete <html> .. <body> section for LON-CAPA web pages.
Line 6924 $args - additional optional args support	Line 6857 $args - additional optional args support
skip_phases -> hash ref of	skip_phases -> hash ref of
head -> skip the <html><head> generation	head -> skip the <html><head> generation
body -> skip all <body> generation	body -> skip all <body> generation
no_inline_link -> if true and in remote mode, don't show the
'Switch To Inline Menu' link
no_auto_mt_title -> prevent &mt()ing the title arg	no_auto_mt_title -> prevent &mt()ing the title arg
inherit_jsmath -> when creating popup window in a page,	inherit_jsmath -> when creating popup window in a page,
should it have jsmath forced on by the	should it have jsmath forced on by the
Line 6942 $args - additional optional args support	Line 6873 $args - additional optional args support
sub start_page {	sub start_page {
my ($title,$head_extra,$args) = @_;	my ($title,$head_extra,$args) = @_;
#&Apache::lonnet::logthis("start_page ".join(':',caller(0)));	#&Apache::lonnet::logthis("start_page ".join(':',caller(0)));
my %head_args;
foreach my $arg ('redirect','force_register','domain','function',
'bgcolor','frameset','no_nav_bar','only_body',
'no_auto_mt_title') {
if (defined($args->{$arg})) {
$head_args{$arg} = $args->{$arg};
}
}

$env{'internal.start_page'}++;	$env{'internal.start_page'}++;
my $result;	my $result;

if (! exists($args->{'skip_phases'}{'head'}) ) {	if (! exists($args->{'skip_phases'}{'head'}) ) {
$result.=	$result .= &xml_begin() . &headtag($title, $head_extra, $args);
&xml_begin().
&headtag($title,$head_extra,\%head_args).&endheadtag();
}	}

if (! exists($args->{'skip_phases'}{'body'}) ) {	if (! exists($args->{'skip_phases'}{'body'}) ) {
Line 6970 sub start_page {	Line 6892 sub start_page {
$args->{'function'}, $args->{'add_entries'},	$args->{'function'}, $args->{'add_entries'},
$args->{'only_body'}, $args->{'domain'},	$args->{'only_body'}, $args->{'domain'},
$args->{'force_register'}, $args->{'no_nav_bar'},	$args->{'force_register'}, $args->{'no_nav_bar'},
$args->{'bgcolor'}, $args->{'no_inline_link'},	$args->{'bgcolor'}, $args);
$args);
}	}
}	}

Line 6987 sub start_page {	Line 6908 sub start_page {
# $result .= &build_functionlist();	# $result .= &build_functionlist();
#}	#}

# Don't add anything more if only_body wanted	# Don't add anything more if only_body wanted or in const space
return $result if $args->{'only_body'};	return $result if $args->{'only_body'}
	\|\| $env{'request.state'} eq 'construct';

#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 7015 sub start_page {	Line 6932 sub start_page {
return $result;	return $result;
}	}


=pod

=item * &head()

Returns a complete </body></html> section for LON-CAPA web pages.

Inputs: $args - additional optional args supported are:
js_ready -> return a string ready for being used in
a javascript writeln
html_encode -> return a string ready for being used in
a html attribute
frameset -> if true will start with a <frameset>
rather than <body>
dicsussion -> if true will get discussion from
lonxml::xmlend
(you can pass the target and parser arguments
through optional 'target' and 'parser' args
to this routine)

=cut

sub end_page {	sub end_page {
my ($args) = @_;	my ($args) = @_;
$env{'internal.end_page'}++;	$env{'internal.end_page'}++;
Line 7049 sub end_page {	Line 6944 sub end_page {
}	}
$result .= &Apache::lonxml::xmlend($target,$parser);	$result .= &Apache::lonxml::xmlend($target,$parser);
}	}

if ($args->{'frameset'}) {	if ($args->{'frameset'}) {
$result .= '</frameset>';	$result .= '</frameset>';
} else {	} else {
Line 7068 sub end_page {	Line 6962 sub end_page {
return $result;	return $result;
}	}

	sub wishlist_window {
	return(<<'ENDWISHLIST');
	<script type="text/javascript" lang="javascript">
	// <![CDATA[
	// <!-- BEGIN LON-CAPA Internal
	function set_wishlistlink(title, path) {
	if (!title) {
	title = document.title;
	title = title.replace(/^LON-CAPA /,'');
	}
	if (!path) {
	path = location.pathname;
	}
	Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path,
	'wishlistNewLink','width=560,height=350,scrollbars=0');
	}
	// END LON-CAPA Internal -->
	// ]]>
	</script>
	ENDWISHLIST
	}

	sub modal_window {
	return(<<'ENDMODAL');
	<script type="text/javascript" lang="javascript">
	// <![CDATA[
	// <!-- BEGIN LON-CAPA Internal
	var modalWindow = {
	parent:"body",
	windowId:null,
	content:null,
	width:null,
	height:null,
	close:function()
	{
	$(".LCmodal-window").remove();
	$(".LCmodal-overlay").remove();
	},
	open:function()
	{
	var modal = "";
	modal += "<div class=\"LCmodal-overlay\"></div>";
	modal += "<div id=\"" + this.windowId + "\" class=\"LCmodal-window\" style=\"width:" + this.width + "px; height:" + this.height + "px; margin-top:-" + (this.height / 2) + "px; margin-left:-" + (this.width / 2) + "px;\">";
	modal += this.content;
	modal += "</div>";

	$(this.parent).append(modal);

	$(".LCmodal-window").append("<a class=\"LCclose-window\"></a>");
	$(".LCclose-window").click(function(){modalWindow.close();});
	$(".LCmodal-overlay").click(function(){modalWindow.close();});
	}
	};
	var openMyModal = function(source,width,height,scrolling)
	{
	modalWindow.windowId = "myModal";
	modalWindow.width = width;
	modalWindow.height = height;
	modalWindow.content = "<iframe width='"+width+"' height='"+height+"' frameborder='0' scrolling='"+scrolling+"' allowtransparency='true' src='" + source + "'>&lt/iframe>";
	modalWindow.open();
	};
	// END LON-CAPA Internal -->
	// ]]>
	</script>
	ENDMODAL
	}

	sub modal_link {
	my ($link,$linktext,$width,$height,$target,$scrolling)=@_;
	unless ($width) { $width=480; }
	unless ($height) { $height=400; }
	unless ($scrolling) { $scrolling='yes'; }
	return '<a href="'.$link.'" target="'.$target.'" onclick="openMyModal(\''.$link.'\','.$width.','.$height.',\''.$scrolling.'\'); return false;">'.
	$linktext.'</a>';
	}

	sub modal_adhoc_script {
	my ($funcname,$width,$height,$content)=@_;
	return (<<ENDADHOC);
	<script type="text/javascript" lang="javascript">
	// <![CDATA[
	var $funcname = function()
	{
	modalWindow.windowId = "myModal";
	modalWindow.width = $width;
	modalWindow.height = $height;
	modalWindow.content = '$content';
	modalWindow.open();
	};
	// ]]>
	</script>
	ENDADHOC
	}

	sub modal_adhoc_window {
	my ($funcname,$width,$height,$content,$linktext)=@_;
	my $innerwidth=$width-20;
	$content=&js_ready(
	&start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).
	&start_scrollbox($width.'px',$innerwidth.'px',$height.'px').
	$content.
	&end_scrollbox().
	&end_page()
	);
	return &modal_adhoc_script($funcname,$width,$height,$content).
	"<a href=\"javascript:$funcname();void(0);\">".$linktext."</a>";
	}

sub html_encode {	sub html_encode {
my ($result) = @_;	my ($result) = @_;

Line 7111 sub validate_page {	Line 7113 sub validate_page {
}	}
}	}


	sub start_scrollbox {
	my ($outerwidth,$width,$height,$id)=@_;
	unless ($outerwidth) { $outerwidth='520px'; }
	unless ($width) { $width='500px'; }
	unless ($height) { $height='200px'; }
	my ($table_id,$div_id);
	if ($id ne '') {
	$table_id = " id='table_$id'";
	$div_id = " id='div_$id'";
	}
	return "<table style='width: $outerwidth; border: 1px solid none;'$table_id><tr><td style='width: $width;' bgcolor='#FFFFFF'><div style='overflow:auto; width:$width; height: $height;'$div_id>";
	}

	sub end_scrollbox {
	return '</div></td></tr></table>';
	}

sub simple_error_page {	sub simple_error_page {
my ($r,$title,$msg) = @_;	my ($r,$title,$msg) = @_;
my $page =	my $page =
Line 7138 sub simple_error_page {	Line 7158 sub simple_error_page {
}	}

sub start_data_table {	sub start_data_table {
my ($add_class) = @_;	my ($add_class,$id) = @_;
my $css_class = (join(' ','LC_data_table',$add_class));	my $css_class = (join(' ','LC_data_table',$add_class));
&start_data_table_count();	my $table_id;
return '<table class="'.$css_class.'">'."\n";	if (defined($id)) {
	$table_id = ' id="'.$id.'"';
	}
	&start_data_table_count();
	return '<table class="'.$css_class.'"'.$table_id.'>'."\n";
}	}

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

sub start_data_table_row {	sub start_data_table_row {
my ($add_class) = @_;	my ($add_class, $id) = @_;
$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)) unless ($add_class eq '');	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
return '<tr class="'.$css_class.'">'."\n";;	$id = (' id="'.$id.'"') unless ($id eq '');
	return '<tr class="'.$css_class.'"'.$id.'>'."\n";
}	}

sub continue_data_table_row {	sub continue_data_table_row {
my ($add_class) = @_;	my ($add_class, $id) = @_;
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)) unless ($add_class eq '');	$css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
return '<tr class="'.$css_class.'">'."\n";;	$id = (' id="'.$id.'"') unless ($id eq '');
	return '<tr class="'.$css_class.'"'.$id.'>'."\n";
}	}

sub end_data_table_row {	sub end_data_table_row {
Line 7266 sub get_users_function {	Line 7292 sub get_users_function {
$function='admin';	$function='admin';
}	}
if (($env{'request.role'}=~/^(au\|ca\|aa)/) \|\|	if (($env{'request.role'}=~/^(au\|ca\|aa)/) \|\|
($ENV{'REQUEST_URI'}=~/^(\/priv\|\~)/)) {	($ENV{'REQUEST_URI'}=~ m{/^(/priv)})) {
$function='author';	$function='author';
}	}
return $function;	return $function;
Line 8001 sub user_picker {	Line 8027 sub user_picker {
my ($newuserscript,$new_user_create);	my ($newuserscript,$new_user_create);
my $context_dom = $env{'request.role.domain'};	my $context_dom = $env{'request.role.domain'};
if ($context eq 'requestcrs') {	if ($context eq 'requestcrs') {
if ($env{'form.coursedom'} ne '') {	if ($env{'form.coursedom'} ne '') {
$context_dom = $env{'form.coursedom'};	$context_dom = $env{'form.coursedom'};
}	}
}	}
Line 8018 sub user_picker {	Line 8044 sub user_picker {
);	);
$new_user_create = '<p class="LC_warning">'	$new_user_create = '<p class="LC_warning">'
.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.")	.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.")
.'<br />'	.' '
.&mt('Enter a valid e-mail address as the username for the new user.').' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.'	.&mt('Please contact the [_1]helpdesk[_2] for assistance.'
,'<a href="'.$helplink.'">','</a>')	,'<a href="'.$helplink.'">','</a>')
.'</p><br />';	.'</p><br />';
}	}
}	}
Line 8589 sub ask_for_embedded_content {	Line 8615 sub ask_for_embedded_content {
$url .= $current_path;	$url .= $current_path;
$getpropath = 1;	$getpropath = 1;
} elsif (($actionurl eq '/adm/upload') \|\| ($actionurl eq '/adm/testbank') \|\|	} elsif (($actionurl eq '/adm/upload') \|\| ($actionurl eq '/adm/testbank') \|\|
($actionurl eq '/adm/imsimport')) {	($actionurl eq '/adm/imsimport')) {
($uname,my $rest) = ($args->{'current_path'} =~ m{/priv/($match_username)/?(.*)$});	my ($udom,$uname,$rest) = ($args->{'current_path'} =~ m{/priv/($match_domain)/($match_username)/?(.*)$});
$url = '/home/'.$uname.'/public_html/';	$url = $Apache::lonnet::perlvar{'lonDocRoot'}."/priv/$udom/$uname/";
$toplevel = $url;	$toplevel = $url;
if ($rest ne '') {	if ($rest ne '') {
$url .= $rest;	$url .= $rest;
Line 8640 sub ask_for_embedded_content {	Line 8666 sub ask_for_embedded_content {
}	}
foreach my $path (keys(%subdependencies)) {	foreach my $path (keys(%subdependencies)) {
my %currsubfile;	my %currsubfile;
if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {	if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {
my @subdir_list = &Apache::lonnet::dirlist($url.$path,$udom,$uname,$getpropath);	my ($sublistref,$listerror) =
foreach my $line (@subdir_list) {	&Apache::lonnet::dirlist($url.$path,$udom,$uname,$getpropath);
my ($file_name,$rest) = split(/\&/,$line,2);	if (ref($sublistref) eq 'ARRAY') {
$currsubfile{$file_name} = 1;	foreach my $line (@{$sublistref}) {
	my ($file_name,$rest) = split(/\&/,$line,2);
	$currsubfile{$file_name} = 1;
	}
}	}
} elsif (($actionurl eq '/adm/upload') \|\| ($actionurl eq '/adm/testbank')) {	} elsif (($actionurl eq '/adm/upload') \|\| ($actionurl eq '/adm/testbank')) {
if (opendir(my $dir,$url.'/'.$path)) {	if (opendir(my $dir,$url.'/'.$path)) {
Line 8667 sub ask_for_embedded_content {	Line 8696 sub ask_for_embedded_content {
}	}
my %currfile;	my %currfile;
if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {	if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {
my @dir_list = &Apache::lonnet::dirlist($url,$udom,$uname,$getpropath);	my ($dirlistref,$listerror) =
foreach my $line (@dir_list) {	&Apache::lonnet::dirlist($url,$udom,$uname,$getpropath);
my ($file_name,$rest) = split(/\&/,$line,2);	if (ref($dirlistref) eq 'ARRAY') {
$currfile{$file_name} = 1;	foreach my $line (@{$dirlistref}) {
	my ($file_name,$rest) = split(/\&/,$line,2);
	$currfile{$file_name} = 1;
	}
}	}
} elsif (($actionurl eq '/adm/upload') \|\| ($actionurl eq '/adm/testbank')) {	} elsif (($actionurl eq '/adm/upload') \|\| ($actionurl eq '/adm/testbank')) {
if (opendir(my $dir,$url)) {	if (opendir(my $dir,$url)) {
Line 8748 sub ask_for_embedded_content {	Line 8780 sub ask_for_embedded_content {
} elsif ($applies) {	} elsif ($applies) {
$output = '<b>'.&mt('Referenced files').'</b>:<br />';	$output = '<b>'.&mt('Referenced files').'</b>:<br />';
if ($applies > 1) {	if ($applies > 1) {
$output .=	$output .=
&mt('No files need to be uploaded, as one of the following applies to each reference:').'<ul>';	&mt('No files need to be uploaded, as one of the following applies to each reference:').'<ul>';
if ($numremref) {	if ($numremref) {
$output .= '<li>'.&mt('reference is to a URL which points to another server').'</li>'."\n";	$output .= '<li>'.&mt('reference is to a URL which points to another server').'</li>'."\n";
Line 8778 sub ask_for_embedded_content {	Line 8810 sub ask_for_embedded_content {
$embed_file,\%mapping,	$embed_file,\%mapping,
$allfiles,$codebase);	$allfiles,$codebase);
} else {	} else {
$pathchange_output .=	$pathchange_output .=
&start_data_table_row().	&start_data_table_row().
'<td><input type ="checkbox" name="namechange" value="'.	'<td><input type ="checkbox" name="namechange" value="'.
$chgcount.'" checked="checked" /></td>'.	$chgcount.'" checked="checked" /></td>'.
Line 8797 sub ask_for_embedded_content {	Line 8829 sub ask_for_embedded_content {
$output .= '<input type ="hidden" name="number_pathchange_items" value="'.	$output .= '<input type ="hidden" name="number_pathchange_items" value="'.
$numpathchg.'" />'."\n";	$numpathchg.'" />'."\n";
}	}
if (($actionurl eq '/adm/upload') \|\| ($actionurl eq '/adm/testbank') \|\|	if (($actionurl eq '/adm/upload') \|\| ($actionurl eq '/adm/testbank') \|\|
($actionurl eq '/adm/imsimport')) {	($actionurl eq '/adm/imsimport')) {
$output .= '<input type="hidden" name="phase" value="three" />'."\n";	$output .= '<input type="hidden" name="phase" value="three" />'."\n";
} elsif ($actionurl eq '/adm/portfolio' \|\| $actionurl eq '/adm/coursegrp_portfolio') {	} elsif ($actionurl eq '/adm/portfolio' \|\| $actionurl eq '/adm/coursegrp_portfolio') {
Line 8809 sub ask_for_embedded_content {	Line 8841 sub ask_for_embedded_content {
my %pathchange = ();	my %pathchange = ();
$output .= &modify_html_form('pathchange',$actionurl,$state,\%pathchange,$pathchange_output);	$output .= &modify_html_form('pathchange',$actionurl,$state,\%pathchange,$pathchange_output);
if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {	if (($actionurl eq '/adm/portfolio') \|\| ($actionurl eq '/adm/coursegrp_portfolio')) {
$output .= '<p>'.&mt('or').'</p>';	$output .= '<p>'.&mt('or').'</p>';
}	}
}	}
return ($output,$num,$numpathchg);	return ($output,$num,$numpathchg);
}	}
Line 8825 sub embedded_file_element {	Line 8857 sub embedded_file_element {
}	}
$output .= '<input name="embedded_orig_'.$num.'" type="hidden" value="'.	$output .= '<input name="embedded_orig_'.$num.'" type="hidden" value="'.
&escape($embed_file).'" />';	&escape($embed_file).'" />';
unless (($context eq 'upload_embedded') &&	unless (($context eq 'upload_embedded') &&
($mapping->{$embed_file} eq $embed_file)) {	($mapping->{$embed_file} eq $embed_file)) {
$output .='	$output .='
<input name="embedded_ref_'.$num.'" type="hidden" value="'.&escape($mapping->{$embed_file}).'" />';	<input name="embedded_ref_'.$num.'" type="hidden" value="'.&escape($mapping->{$embed_file}).'" />';
Line 8926 sub upload_embedded {	Line 8958 sub upload_embedded {
next;	next;
} else {	} else {
$output .= &mt('Uploaded [_1]','<span class="LC_filename">'.	$output .= &mt('Uploaded [_1]','<span class="LC_filename">'.
$path.$fname.'</span>').'<br />';	$path.$fname.'</span>').'<br />';
}	}
}	}
} elsif ($context eq 'coursedoc') {	} elsif ($context eq 'coursedoc') {
Line 8949 sub upload_embedded {	Line 8981 sub upload_embedded {
my $fullpath = $dir_root.$dirpath.'/'.$path;	my $fullpath = $dir_root.$dirpath.'/'.$path;
my $dest = $fullpath.$fname;	my $dest = $fullpath.$fname;
my $url = $url_root.$dirpath.'/'.$path.$fname;	my $url = $url_root.$dirpath.'/'.$path.$fname;
my @parts=split(/\//,$fullpath);	my @parts=split(/\//,"$dirpath/$path");
my $count;	my $count;
my $filepath = $dir_root;	my $filepath = $dir_root;
for ($count=4;$count<=$#parts;$count++) {	foreach my $subdir (@parts) {
$filepath .= "/$parts[$count]";	$filepath .= "/$subdir";
if ((-e $filepath)!=1) {	if (!-e $filepath) {
mkdir($filepath,0770);	mkdir($filepath,0770);
}	}
}	}
Line 9033 sub modify_html_form {	Line 9065 sub modify_html_form {
'<input type="hidden" name="embedded_orig_'.$i.'" value="'.	'<input type="hidden" name="embedded_orig_'.$i.'" value="'.
&escape($env{'form.embedded_orig_'.$i}).'" /></td>'.	&escape($env{'form.embedded_orig_'.$i}).'" /></td>'.
&end_data_table_row();	&end_data_table_row();
}	}
}	}
} else {	} else {
$modifyform = $pathchgtable;	$modifyform = $pathchgtable;
Line 9073 sub modify_html_refs {	Line 9105 sub modify_html_refs {
} elsif ($context eq 'coursedoc') {	} elsif ($context eq 'coursedoc') {
$container = $env{'form.primaryurl'};	$container = $env{'form.primaryurl'};
} else {	} else {
$container = $env{'form.filename'};	$container = $Apache::lonnet::perlvar{'lonDocRoot'}.$env{'form.filename'};
$container =~ s{^/priv/(\Q$uname\E)/(.*)}{/home/$1/public_html/$2};
}	}
my (%allfiles,%codebase,$output,$content);	my (%allfiles,%codebase,$output,$content);
my @changes = &get_env_multiple('form.namechange');	my @changes = &get_env_multiple('form.namechange');
Line 9084 sub modify_html_refs {	Line 9115 sub modify_html_refs {
$content = &Apache::lonnet::getfile($container);	$content = &Apache::lonnet::getfile($container);
return if ($content eq '-1');	return if ($content eq '-1');
} else {	} else {
return unless ($container =~ /^\Q$dir_root\E/);	return unless ($container =~ /^\Q$dir_root\E/);
if (open(my $fh,"<$container")) {	if (open(my $fh,"<$container")) {
$content = join('', <$fh>);	$content = join('', <$fh>);
close($fh);	close($fh);
Line 9096 sub modify_html_refs {	Line 9127 sub modify_html_refs {
my $mm = new File::MMagic;	my $mm = new File::MMagic;
my $mime_type = $mm->checktype_contents($content);	my $mime_type = $mm->checktype_contents($content);
if ($mime_type eq 'text/html') {	if ($mime_type eq 'text/html') {
my $parse_result =	my $parse_result =
&Apache::lonnet::extract_embedded_items($container,\%allfiles,	&Apache::lonnet::extract_embedded_items($container,\%allfiles,
\%codebase,\$content);	\%codebase,\$content);
if ($parse_result eq 'ok') {	if ($parse_result eq 'ok') {
Line 9129 sub modify_html_refs {	Line 9160 sub modify_html_refs {
my ($fname) = ($container =~ m{/([^/]+)$});	my ($fname) = ($container =~ m{/([^/]+)$});
$output = '<p>'.&mt('Updated [quant,_1,reference] in [_2].',	$output = '<p>'.&mt('Updated [quant,_1,reference] in [_2].',
$count,'<span class="LC_filename">'.	$count,'<span class="LC_filename">'.
$fname.'</span>').'</p>';	$fname.'</span>').'</p>';
} else {	} else {
$output = '<p class="LC_error">'.	$output = '<p class="LC_error">'.
&mt('Error: update failed for: [_1].',	&mt('Error: update failed for: [_1].',
Line 9181 sub check_for_upload {	Line 9212 sub check_for_upload {
my $filesize = length($env{'form.'.$element});	my $filesize = length($env{'form.'.$element});
if (!$filesize) {	if (!$filesize) {
my $msg = '<span class="LC_error">'.	my $msg = '<span class="LC_error">'.
&mt('Unable to upload [_1]. (size = [_2] bytes)',	&mt('Unable to upload [_1]. (size = [_2] bytes)',
'<span class="LC_filename">'.$fname.'</span>',	'<span class="LC_filename">'.$fname.'</span>',
$filesize).'<br />'.	$filesize).'<br />'.
&mt('Either the file you attempted to upload was empty, or your web browser was unable to read its contents.').'<br />'.	&mt('Either the file you attempted to upload was empty, or your web browser was unable to read its contents.').'<br />'.
Line 9190 sub check_for_upload {	Line 9221 sub check_for_upload {
}	}
$filesize = $filesize/1000; #express in k (1024?)	$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 ($dirlistref,$listerror) =
$getpropath);	&Apache::lonnet::dirlist($portfolio_root.$path,$udom,$uname,$getpropath);
my $found_file = 0;	my $found_file = 0;
my $locked_file = 0;	my $locked_file = 0;
my @lockers;	my @lockers;
Line 9199 sub check_for_upload {	Line 9230 sub check_for_upload {
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
$navmap = Apache::lonnavmaps::navmap->new();	$navmap = Apache::lonnavmaps::navmap->new();
}	}
foreach my $line (@dir_list) {	if (ref($dirlistref) eq 'ARRAY') {
my ($file_name,$rest)=split(/\&/,$line,2);	foreach my $line (@{$dirlistref}) {
if ($file_name eq $fname){	my ($file_name,$rest)=split(/\&/,$line,2);
$file_name = $path.$file_name;	if ($file_name eq $fname){
if ($group ne '') {	$file_name = $path.$file_name;
$file_name = $group.$file_name;	if ($group ne '') {
}	$file_name = $group.$file_name;
$found_file = 1;	}
if (&Apache::lonnet::is_locked($file_name,$udom,$uname,\@lockers) eq 'true') {	$found_file = 1;
foreach my $lock (@lockers) {	if (&Apache::lonnet::is_locked($file_name,$udom,$uname,\@lockers) eq 'true') {
if (ref($lock) eq 'ARRAY') {	foreach my $lock (@lockers) {
my ($symb,$crsid) = @{$lock};	if (ref($lock) eq 'ARRAY') {
if ($crsid eq $env{'request.course.id'}) {	my ($symb,$crsid) = @{$lock};
if (ref($navmap)) {	if ($crsid eq $env{'request.course.id'}) {
my $res = $navmap->getBySymb($symb);	if (ref($navmap)) {
foreach my $part (@{$res->parts()}) {	my $res = $navmap->getBySymb($symb);
my ($slot_status,$slot_time,$slot_name)=$res->check_for_slot($part);	foreach my $part (@{$res->parts()}) {
unless (($slot_status == $res->RESERVED) \|\|	my ($slot_status,$slot_time,$slot_name)=$res->check_for_slot($part);
($slot_status == $res->RESERVED_LOCATION)) {	unless (($slot_status == $res->RESERVED) \|\|
$locked_file = 1;	($slot_status == $res->RESERVED_LOCATION)) {
	$locked_file = 1;
	}
}	}
	} else {
	$locked_file = 1;
}	}
} else {	} else {
$locked_file = 1;	$locked_file = 1;
}	}
} else {
$locked_file = 1;
}	}
}	}
}	} else {
} else {	my @info = split(/\&/,$rest);
my @info = split(/\&/,$rest);	my $currsize = $info[6]/1000;
my $currsize = $info[6]/1000;	if ($currsize < $filesize) {
if ($currsize < $filesize) {	my $extra = $filesize - $currsize;
my $extra = $filesize - $currsize;	if (($current_disk_usage + $extra) > $disk_quota) {
if (($current_disk_usage + $extra) > $disk_quota) {	my $msg = '<span class="LC_error">'.
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.',
&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>'.
'<span class="LC_filename">'.$fname.'</span>',$filesize,$currsize).'</span>'.	'<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',
'<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',	$disk_quota,$current_disk_usage);
$disk_quota,$current_disk_usage);	return ('will_exceed_quota',$msg);
return ('will_exceed_quota',$msg);	}
}	}
}	}
}	}
Line 9312 sub check_for_traversal {	Line 9345 sub check_for_traversal {

=pod	=pod

	=item * &get_turnedin_filepath()

	Determines path in a user's portfolio file for storage of files uploaded
	to a specific essayresponse or dropbox item.

	Inputs: 3 required + 1 optional.
	$symb is symb for resource, $uname and $udom are for current user (required).
	$caller is optional (can be "submission", if routine is called when storing
	an upoaded file when "Submit Answer" button was pressed).

	Returns array containing $path and $multiresp.
	$path is path in portfolio. $multiresp is 1 if this resource contains more
	than one file upload item. Callers of routine should append partid as a
	subdirectory to $path in cases where $multiresp is 1.

	Called by: homework/essayresponse.pm and homework/structuretags.pm

	=cut

	sub get_turnedin_filepath {
	my ($symb,$uname,$udom,$caller) = @_;
	my ($map,$resid,$resurl)=&Apache::lonnet::decode_symb($symb);
	my $turnindir;
	my %userhash = &Apache::lonnet::userenvironment($udom,$uname,'turnindir');
	$turnindir = $userhash{'turnindir'};
	my ($path,$multiresp);
	if ($turnindir eq '') {
	if ($caller eq 'submission') {
	$turnindir = &mt('turned in');
	$turnindir =~ s/\W+/_/g;
	my %newhash = (
	'turnindir' => $turnindir,
	);
	&Apache::lonnet::put('environment',\%newhash,$udom,$uname);
	}
	}
	if ($turnindir ne '') {
	$path = '/'.$turnindir.'/';
	my ($multipart,$turnin,@pathitems);
	my $navmap = Apache::lonnavmaps::navmap->new();
	if (defined($navmap)) {
	my $mapres = $navmap->getResourceByUrl($map);
	if (ref($mapres)) {
	my $pcslist = $mapres->map_hierarchy();
	if ($pcslist ne '') {
	foreach my $pc (split(/,/,$pcslist)) {
	my $res = $navmap->getByMapPc($pc);
	if (ref($res)) {
	my $title = $res->compTitle();
	$title =~ s/\W+/_/g;
	if ($title ne '') {
	push(@pathitems,$title);
	}
	}
	}
	}
	my $maptitle = $mapres->compTitle();
	$maptitle =~ s/\W+/_/g;
	if ($maptitle ne '') {
	push(@pathitems,$maptitle);
	}
	unless ($env{'request.state'} eq 'construct') {
	my $res = $navmap->getBySymb($symb);
	if (ref($res)) {
	my $partlist = $res->parts();
	my $totaluploads = 0;
	if (ref($partlist) eq 'ARRAY') {
	foreach my $part (@{$partlist}) {
	my @types = $res->responseType($part);
	my @ids = $res->responseIds($part);
	for (my $i=0; $i < scalar(@ids); $i++) {
	if ($types[$i] eq 'essay') {
	my $partid = $part.'_'.$ids[$i];
	if (&Apache::lonnet::EXT("resource.$partid.uploadedfiletypes") ne '') {
	$totaluploads ++;
	}
	}
	}
	}
	if ($totaluploads > 1) {
	$multiresp = 1;
	}
	}
	}
	}
	} else {
	return;
	}
	} else {
	return;
	}
	my $restitle=&Apache::lonnet::gettitle($symb);
	$restitle =~ s/\W+/_/g;
	if ($restitle eq '') {
	$restitle = ($resurl =~ m{/[^/]+$});
	if ($restitle eq '') {
	$restitle = time;
	}
	}
	push(@pathitems,$restitle);
	$path .= join('/',@pathitems);
	}
	return ($path,$multiresp);
	}

	=pod

=back	=back

=head1 CSV Upload/Handling functions	=head1 CSV Upload/Handling functions
Line 11231 sub construct_course {	Line 11371 sub construct_course {
############################################################	############################################################
############################################################	############################################################

	#SD
	# only Community and Course, or anything else?
sub course_type {	sub course_type {
my ($cid) = @_;	my ($cid) = @_;
if (!defined($cid)) {	if (!defined($cid)) {
Line 11396 sub init_user_environment {	Line 11538 sub init_user_environment {
my %userenv = &Apache::lonnet::dump('environment',$domain,$username);	my %userenv = &Apache::lonnet::dump('environment',$domain,$username);
my ($tmp) = keys(%userenv);	my ($tmp) = keys(%userenv);
if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {	if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {
# default remote control to off
if ($userenv{'remote'} ne 'on') { $userenv{'remote'} = 'off'; }
} else {	} else {
undef(%userenv);	undef(%userenv);
}	}
if (($userenv{'interface'}) && (!$form->{'interface'})) {	if (($userenv{'interface'}) && (!$form->{'interface'})) {
$form->{'interface'}=$userenv{'interface'};	$form->{'interface'}=$userenv{'interface'};
}	}
$env{'environment.remote'}=$userenv{'remote'};
if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }	if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }

# --------------- Do not trust query string to be put directly into environment	# --------------- Do not trust query string to be put directly into environment
Line 11436 sub init_user_environment {	Line 11575 sub init_user_environment {
$initial_env{"browser.localres"} = $form->{'localres'};	$initial_env{"browser.localres"} = $form->{'localres'};
}	}

if ($public) {
$initial_env{"environment.remote"} = "off";
}
if ($form->{'interface'}) {	if ($form->{'interface'}) {
$form->{'interface'}=~s/\W//gs;	$form->{'interface'}=~s/\W//gs;
$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 %is_adv = ( is_adv => $env{'user.adv'} );
my %domdef;	my %domdef;
unless ($domain eq 'public') {	unless ($domain eq 'public') {

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

Removed from v.1.948.2.33.2.2
changed lines
	Added in v.1.1036