loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.335 and 1.358.2.19.2.6

version 1.335, 2012/11/30 11:28:51	version 1.358.2.19.2.6, 2023/01/23 05:47:50
Line 64 use HTML::Entities();	Line 64 use HTML::Entities();
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);

sub java_not_enabled {	sub java_not_enabled {
return "\n".'<span class="LC_error">'.	if (($env{'browser.mobile'}) && ($env{'browser.mobile'} =~ /^ipad\|ipod\|iphone$/i)) {
&mt('The required Java applet could not be started. Please make sure to have Java installed and active in your browser.').	return "\n".'<span class="LC_error">'.
"</span>\n";	&mt('The required Java applet could not be started, because Java is not supported by your mobile device.').
	"</span>\n";
	} else {
	return "\n".'<span class="LC_error">'.
	&mt('The required Java applet could not be started. Please make sure to have Java installed and active in your browser.').
	"</span>\n";
	}
}	}

sub coursepreflink {	sub coursepreflink {
my ($text,$category)=@_;	my ($text,$category)=@_;
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
return '<a target="_top" href="'.&HTML::Entities::encode("/adm/courseprefs?phase=display&actions=$category",'<>&"').'"><span class="LC_setting">'.$text.'</span></a>';	my $target =' target="_top"';
	if (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self')) {
	$target = '';
	}
	return '<a'.$target.' href="'.&HTML::Entities::encode("/adm/courseprefs?phase=display&actions=$category",'<>&"').'"><span class="LC_setting">'.$text.'</span></a>';
} else {	} else {
return '';	return '';
}	}
Line 86 sub raw_href_to_link {	Line 96 sub raw_href_to_link {

sub entity_encode {	sub entity_encode {
my ($text)=@_;	my ($text)=@_;
return &HTML::Entities::encode($text, '<>&"');	return &HTML::Entities::encode($text, '\'<>&"');
}	}

sub direct_parm_link {	sub direct_parm_link {
Line 95 sub direct_parm_link {	Line 105 sub direct_parm_link {
$filter=&entity_encode($filter);	$filter=&entity_encode($filter);
$part=&entity_encode($part);	$part=&entity_encode($part);
if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) {	if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) {
return "<a target='_top' href='/adm/parmset?symb=$symb&filter=$filter&part=$part'><span class='LC_setting'>$linktext</span></a>";	my $target=' target="_top"';
	if (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self')) {
	$target = '';
	}
	return "<a".$target." href='/adm/parmset?symb=$symb&filter=$filter&part=$part'><span class='LC_setting'>$linktext</span></a>";
} else {	} else {
return $linktext;	return $linktext;
}	}
Line 170 sub dragmath_js {	Line 184 sub dragmath_js {
function mathedit(textarea, doc) {	function mathedit(textarea, doc) {
targetEntry = textarea;	targetEntry = textarea;
targetDoc = doc;	targetDoc = doc;
newwin = window.open("/adm/dragmath/applet/$popup.html","","width=565,height=500,resizable");	newwin = window.open("/adm/dragmath/$popup.html","","width=565,height=500,resizable");
}	}
// ]]>	// ]]>
</script>	</script>
Line 216 sub dependencycheck_js {	Line 230 sub dependencycheck_js {
} elsif ($folderpath) {	} elsif ($folderpath) {
$link = '/adm/dependencies?folderpath='.&HTML::Entities::encode($folderpath,'<>&"');	$link = '/adm/dependencies?folderpath='.&HTML::Entities::encode($folderpath,'<>&"');
$url = $uri;	$url = $uri;
	} elsif ($uri =~ m{^/public/$match_domain/$match_courseid/syllabus$}) {
	$link = '/adm/dependencies';
}	}
$link .= (($link=~/\?/)?'&':'?').'title='.	$link .= (($link=~/\?/)?'&':'?').'title='.
&HTML::Entities::encode($title,'<>&"');	&HTML::Entities::encode($title,'<>&"');
Line 399 sub textbox {	Line 415 sub textbox {
##############################################	##############################################
##############################################	##############################################
sub checkbox {	sub checkbox {
my ($name,$checked,$value) = @_;	my ($name,$checked,$value,$special) = @_;
my $Str = '<input type="checkbox" name="'.$name.'" ';	my $Str = '<input type="checkbox" name="'.$name.'" ';
if (defined($value)) {	if (defined($value)) {
$Str .= 'value="'.$value.'"';	$Str .= 'value="'.$value.'"';
Line 407 sub checkbox {	Line 423 sub checkbox {
if ($checked) {	if ($checked) {
$Str .= ' checked="checked"';	$Str .= ' checked="checked"';
}	}
$Str .= ' />';	$Str .= $special.' />';
return $Str;	return $Str;
}	}

Line 474 the date/time fields are left empty.	Line 490 the date/time fields are left empty.
=item $state	=item $state

Specifies the initial state of the form elements. Either 'disabled' or empty.	Specifies the initial state of the form elements. Either 'disabled' or empty.
Defaults to empty, which indiciates the form elements are not disabled.	Defaults to empty, which indicates the form elements are not disabled.

	=item $no_hh_mm_ss

	If true, text boxes for hours, minutes and seconds are omitted.

	=item $defhour

	Default value for hours (a default of 0 is used otherwise).

	=item $defmin

	Default value for minutes (a default of 0 is used otherwise).

	=item defsec

	Default value for seconds (a default of 0 is used otherwise).

	=item $nolink

	If true, a "Select calendar" link (to pop-up a calendar) is not displayed
	to the right of the items.

	=item $no_mm_ss

	If true, text boxes for minutes and seconds are omitted.

	=item $no_ss

	If true, text boxes for seconds are omitted.

=back	=back

Line 488 The method used to restrict user input w	Line 533 The method used to restrict user input w
##############################################	##############################################
sub date_setter {	sub date_setter {
my ($formname,$dname,$currentvalue,$special,$includeempty,$state,	my ($formname,$dname,$currentvalue,$special,$includeempty,$state,
$no_hh_mm_ss,$defhour,$defmin,$defsec,$nolink) = @_;	$no_hh_mm_ss,$defhour,$defmin,$defsec,$nolink,$no_mm_ss,$no_ss) = @_;
my $now = time;	my $now = time;

my $tzname;	my $tzname;
Line 497 sub date_setter {	Line 542 sub date_setter {

if (! defined($state) \|\| $state ne 'disabled') {	if (! defined($state) \|\| $state ne 'disabled') {
$state = '';	$state = '';
	} else {
	$state = 'disabled="disabled"';
}	}
if (! defined($no_hh_mm_ss)) {	if (! defined($no_hh_mm_ss)) {
$no_hh_mm_ss = 0;	$no_hh_mm_ss = 0;
Line 632 ENDJS	Line 679 ENDJS
my $minuteselector = qq{<input type="text" name="$dname\_minute" $special $state value="$min" size="3" />};	my $minuteselector = qq{<input type="text" name="$dname\_minute" $special $state value="$min" size="3" />};
my $secondselector= qq{<input type="text" name="$dname\_second" $special $state value="$sec" size="3" />};	my $secondselector= qq{<input type="text" name="$dname\_second" $special $state value="$sec" size="3" />};
my $cal_link;	my $cal_link;
if (!$nolink) {	unless (($nolink) \|\| ($state eq 'disabled')) {
$cal_link = qq{<a href="javascript:$dname\_opencalendar()">};	$cal_link = qq{<a href="javascript:$dname\_opencalendar()">};
}	}
#	#
Line 641 ENDJS	Line 688 ENDJS
$result .= &mt('[_1] [_2] [_3] ',	$result .= &mt('[_1] [_2] [_3] ',
$monthselector,$dayselector,$yearselector).	$monthselector,$dayselector,$yearselector).
$tzone;	$tzone;
if (!$nolink) {	} elsif ($no_mm_ss) {
$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');	$result .= &mt('[_1] [_2] [_3] [_4]',
}	$monthselector,$dayselector,$yearselector,
	$hourselector).
	$tzone;
	} elsif ($no_ss) {
	$result .= &mt('[_1] [_2] [_3] [_4] [_5]m',
	$monthselector,$dayselector,$yearselector,
	$hourselector,$minuteselector).
	$tzone;
} else {	} else {
$result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s ',	$result .= &mt('[_1] [_2] [_3] [_4] [_5]m [_6]s ',
$monthselector,$dayselector,$yearselector,	$monthselector,$dayselector,$yearselector,
$hourselector,$minuteselector,$secondselector).	$hourselector,$minuteselector,$secondselector).
$tzone;	$tzone;
if (!$nolink) {	}
$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');	unless (($nolink) \|\| ($state eq 'disabled')) {
}	$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>');
}	}
$result .= "</span>\n<!-- end $dname date setting form -->\n";	$result .= "</span>\n<!-- end $dname date setting form -->\n";
return $result;	return $result;
Line 802 parameter setting wizard.	Line 856 parameter setting wizard.
##############################################	##############################################
sub pjump_javascript_definition {	sub pjump_javascript_definition {
my $Str = <<END;	my $Str = <<END;
function pjump(type,dis,value,marker,ret,call,hour,min,sec) {	function pjump(type,dis,value,marker,ret,call,hour,min,sec,extra) {
openMyModal("/adm/rat/parameter.html?type="+escape(type)	openMyModal("/adm/rat/parameter.html?type="+escape(type)
+"&value="+escape(value)+"&marker="+escape(marker)	+"&value="+escape(value)+"&marker="+escape(marker)
+"&return="+escape(ret)	+"&return="+escape(ret)
+"&call="+escape(call)+"&name="+escape(dis)	+"&call="+escape(call)+"&name="+escape(dis)
+"&defhour="+escape(hour)+"&defmin="+escape(min)	+"&defhour="+escape(hour)+"&defmin="+escape(min)
+"&defsec="+escape(sec)+"&modal=1",350,350,'no');	+"&defsec="+escape(sec)+"&extra="+escape(extra)
	+"&modal=1",350,350,'no');
}	}
END	END
return $Str;	return $Str;
Line 963 Inputs	Line 1018 Inputs

=item $number_to_do The total number of items being processed.	=item $number_to_do The total number of items being processed.

	=item $preamble Optional HTML to display before the progress bar.

=back	=back

Returns a hash containing the progress state data structure.	Returns a hash containing the progress state data structure.
	If $number_to_do is zero or null, an indeterminate progress bar will
	be used.

=item &Update_PrgWin()	=item &Update_PrgWin()

Line 1036 Returns: none	Line 1094 Returns: none

# Create progress	# Create progress
sub Create_PrgWin {	sub Create_PrgWin {
my ($r,$number_to_do)=@_;	my ($r,$number_to_do,$preamble)=@_;
my %prog_state;	my %prog_state;
$prog_state{'done'}=0;	$prog_state{'done'}=0;
$prog_state{'firststart'}=&Time::HiRes::time();	$prog_state{'firststart'}=&Time::HiRes::time();
$prog_state{'laststart'}=&Time::HiRes::time();	$prog_state{'laststart'}=&Time::HiRes::time();
$prog_state{'max'}=$number_to_do;	$prog_state{'max'}=$number_to_do;
&Apache::loncommon::LCprogressbar($r);	&Apache::loncommon::LCprogressbar($r,$prog_state{'max'},$preamble);
return %prog_state;	return %prog_state;
}	}

# update progress	# update progress
sub Update_PrgWin {	sub Update_PrgWin {
my ($r,$prog_state,$displayString)=@_;	my ($r,$prog_state,$displayString)=@_;
&Apache::loncommon::LCprogressbarUpdate($r,undef,$displayString);	&Apache::loncommon::LCprogressbarUpdate($r,undef,$displayString,$$prog_state{'max'});
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1099 sub Increment_PrgWin {	Line 1157 sub Increment_PrgWin {
if ($$prog_state{'max'}) {	if ($$prog_state{'max'}) {
$percent=int(100.*$current/$$prog_state{'max'});	$percent=int(100.*$current/$$prog_state{'max'});
}	}
&Apache::loncommon::LCprogressbarUpdate($r,$percent,$timeinfo);	&Apache::loncommon::LCprogressbarUpdate($r,$percent,$timeinfo,$$prog_state{'max'});
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1114 sub Close_PrgWin {	Line 1172 sub Close_PrgWin {
# ------------------------------------------------------- Puts directory header	# ------------------------------------------------------- Puts directory header

sub crumbs {	sub crumbs {
my ($uri,$target,$prefix,$form,$skiplast)=@_;	my ($uri,$target,$prefix,$form,$skiplast,$onclick)=@_;
# You cannot crumbnify uploaded or adm resources	# You cannot crumbnify uploaded or adm resources
if ($uri=~/^\/*(uploaded\|adm)\//) { return &mt('(Internal Course/Group Content)'); }	if ($uri=~/^\/*(uploaded\|adm)\//) { return &mt('(Internal Course/Community Content)'); }
if ($target) {	if ($target) {
$target = ' target="'.	$target = ' target="'.
&Apache::loncommon::escape_single($target).'"';	&Apache::loncommon::escape_single($target).'"';
Line 1136 sub crumbs {	Line 1194 sub crumbs {
} else {	} else {
$path.='/';	$path.='/';
}	}
	if ($path eq '/res/') {
	unless (&Apache::lonnet::allowed('bre',$path)) {
	$output.="$dir/";
	next;
	}
	}
my $href_path = &HTML::Entities::encode($path,'<>&"');	my $href_path = &HTML::Entities::encode($path,'<>&"');
&Apache::loncommon::inhibit_menu_check(\$href_path);	&Apache::loncommon::inhibit_menu_check(\$href_path);
if ($form) {	if ($form) {
my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();';	my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();';
$output.=qq{<a href="$href"$target>$dir</a>/};	$output.=qq{<a href="$href"$onclick$target>$dir</a>/};
} else {	} else {
$output.=qq{<a href="$href_path"$target>$dir</a>/};	$output.=qq{<a href="$href_path"$onclick$target>$dir</a>/};
}	}
}	}
} else {	} else {
Line 1213 sub htmlareaheaders {	Line 1277 sub htmlareaheaders {
ENDEDITOR	ENDEDITOR
}	}
$s.=(<<ENDJQUERY);	$s.=(<<ENDJQUERY);
<script type="text/javascript" src="/adm/jQuery/js/jquery-1.6.2.min.js"></script>	<script type="text/javascript" src="/adm/jQuery/js/jquery-3.2.1.min.js"></script>
<script type="text/javascript" src="/adm/jQuery/js/jquery-ui-1.8.16.custom.min.js"></script>	<script type="text/javascript" src="/adm/jQuery/js/jquery-ui-1.12.1.custom.min.js"></script>
<link rel="stylesheet" type="text/css" href="/adm/jQuery/css/smoothness/jquery-ui-1.8.16.custom.css" />	<link rel="stylesheet" type="text/css" href="/adm/jQuery/css/smoothness/jquery-ui-1.12.1.custom.min.css" />
<script type="text/javascript" src="/adm/jpicker/js/jpicker-1.1.6.min.js" >	<script type="text/javascript" src="/adm/jpicker/js/jpicker-1.1.6.min.js" >
</script>	</script>
<link rel="stylesheet" type="text/css" href="/adm/jpicker/css/jPicker-1.1.6.min.css" />	<link rel="stylesheet" type="text/css" href="/adm/jpicker/css/jPicker-1.1.6.min.css" />
<script type="text/javascript" src="/adm/countdown/js/jquery.countdown.js"></script>	<script type="text/javascript" src="/adm/countdown/js/jquery.countdown.min.js"></script>
<link rel="stylesheet" type="text/css" href="/adm/countdown/css/jquery.countdown.css" />	<link rel="stylesheet" type="text/css" href="/adm/countdown/css/jquery.countdown.css" />

<script type="text/javascript" src="/adm/spellchecker/js/jquery.spellchecker.min.js"></script>	<script type="text/javascript" src="/adm/spellchecker/js/jquery.spellchecker.min.js"></script>
<link rel="stylesheet" type="text/css" href="/adm/spellchecker/css/spellchecker.css" />	<link rel="stylesheet" type="text/css" href="/adm/spellchecker/css/spellchecker.css" />
	<script type="text/javascript" src="/adm/nicescroll/jquery.nicescroll.min.js"></script>

ENDJQUERY	ENDJQUERY
return $s;	return $s;
Line 1257 sub htmlareaselectactive {	Line 1322 sub htmlareaselectactive {
my ($args) = @_;	my ($args) = @_;
unless (&htmlareabrowser()) { return ''; }	unless (&htmlareabrowser()) { return ''; }
my $output='<script type="text/javascript" defer="defer">'."\n"	my $output='<script type="text/javascript" defer="defer">'."\n"
.'// <![CDATA['."\n";	.'// <![CDATA['."\n"
	.'//<!-- BEGIN LON-CAPA Internal'."\n";
my $lang = &htmlarea_lang();	my $lang = &htmlarea_lang();
my $fullpage = 'false';	my $fullpage = 'false';
my ($dragmath_prefix,$dragmath_helpicon,$dragmath_whitespace);	my ($dragmath_prefix,$dragmath_helpicon,$dragmath_whitespace);
Line 1280 sub htmlareaselectactive {	Line 1346 sub htmlareaselectactive {
}	}
}	}
}	}

	my %lt = &Apache::lonlocal::texthash(
	'plain' => 'Plain text',
	'rich' => 'Rich formatting',
	'plain_title' => 'Disable rich text formatting and edit in plain text',
	'rich_title' => 'Enable rich text formatting (bold, italic, etc.)',
	);

$output.='	$output.='

function containsBlockHtml(id) {	function containsBlockHtml(id) {
Line 1288 sub htmlareaselectactive {	Line 1362 sub htmlareaselectactive {
}	}

function startRichEditor(id) {	function startRichEditor(id) {
	// fix character entities inside <m>
	// NOTE: this is not fixing characters inside <parse>
	// NOTE: < and > inside <chem> should fix automatically because there should not be a letter after <.
	var ta = document.getElementById(id);
	var value = ta.value;
	var in_m = false; // in the m element
	var in_text = false; // in the text inside the m element
	var im = -1; // position of <m>
	var it = -1; // position of the text inside
	for (var i=0; i<value.length; i++) {
	if (value.substr(i, 2) == "<m") {
	// ignore previous <m> if found twice
	in_m = true;
	in_text = false;
	im = i;
	it = -1;
	} else if (in_m) {
	if (!in_text) {
	if (value.charAt(i) == ">") {
	in_text = true;
	it = i+1;
	}
	} else if (value.substr(i, 4) == "</m>") {
	in_m = false;
	var text = value.substr(it, i-it);
	var l1 = text.length;
	text = text.replace(/</g, "<");
	text = text.replace(/>/g, ">");
	var l2 = text.length;
	value = value.substr(0, it) + text + "</m>" + value.substr(i+4);
	i = i + (l2-l1);
	}
	}
	}
	ta.value = value;
CKEDITOR.replace(id,	CKEDITOR.replace(id,
{	{
customConfig: "/ckeditor/loncapaconfig.js",	customConfig: "/ckeditor/loncapaconfig.js",
Line 1299 sub htmlareaselectactive {	Line 1408 sub htmlareaselectactive {

function destroyRichEditor(id) {	function destroyRichEditor(id) {
CKEDITOR.instances[id].destroy();	CKEDITOR.instances[id].destroy();
	// replace character entities < and > in <m> and <chem>
	// and "&fctname(" by "&fctname("
	// and the quotes inside functions: "&fct(1, "a")" -> "&fct(1, "a")"
	var ta = document.getElementById(id);
	var value = ta.value;
	var in_element = false; // in the m or chem element
	var tagname = ""; // m or chem
	var in_text = false; // in the text inside the element
	var im = -1; // position of start tag
	var it = -1; // position of the text inside
	for (var i=0; i<value.length; i++) {
	if (value.substr(i, 2) == "<m" \|\| value.substr(i, 5) == "<chem") {
	// ignore previous tags if found twice
	in_element = true;
	if (value.substr(i, 2) == "<m")
	tagname = "m";
	else
	tagname = "chem";
	in_text = false;
	im = i;
	it = -1;
	} else if (in_element) {
	if (!in_text) {
	if (value.charAt(i) == ">") {
	in_text = true;
	it = i+1;
	}
	} else if (value.substr(i, 3+tagname.length) == "</"+tagname+">") {
	in_element = false;
	var text = value.substr(it, i-it);
	var l1 = text.length;
	text = text.replace(/</g, "<");
	text = text.replace(/>/g, ">");
	var l2 = text.length;
	value = value.substr(0, it) + text + value.substr(i);
	i = i + (l2-l1);
	}
	}
	}
	// fix function names
	value = value.replace(/&([a-zA-Z_]+)\(/g, "&$1(");
	// fix quotes in functions
	var pos_next_fct = value.search(/&[a-zA-Z_]+\(/);
	var depth = 0;
	for (var i=0; i<value.length; i++) {
	if (i == pos_next_fct) {
	depth++;
	var sub = value.substring(i+1);
	var pos2 = sub.search(/&[a-zA-Z_]+\(/);
	if (pos2 == -1)
	pos_next_fct = -1;
	else
	pos_next_fct = i + 1 + pos2;
	} else if (depth > 0) {
	if (value.charAt(i) == ")")
	depth--;
	else if (value.substr(i, 6) == """)
	value = value.substr(0, i) + "\"" + value.substr(i+6);
	}
	}
	// replace the text value
	ta.value = value;
}	}

function editorHandler(event) {	function editorHandler(event) {
Line 1308 sub htmlareaselectactive {	Line 1479 sub htmlareaselectactive {
var rt_enabled = $(this).hasClass("LC_enable_rt");	var rt_enabled = $(this).hasClass("LC_enable_rt");
if (rt_enabled) {	if (rt_enabled) {
startRichEditor(id);	startRichEditor(id);
$("#LC_rt_"+id).html("<b>« Plain text</b>");	$("#LC_rt_"+id).html("<b>« '.$lt{'plain'}.'</b>");
$("#LC_rt_"+id).attr("title", "Disable rich text formatting and edit in plain text");	$("#LC_rt_"+id).attr("title", "'.$lt{'plain_title'}.'");
$("#LC_rt_"+id).addClass("LC_disable_rt");	$("#LC_rt_"+id).addClass("LC_disable_rt");
$("#LC_rt_"+id).removeClass("LC_enable_rt");	$("#LC_rt_"+id).removeClass("LC_enable_rt");
} else {	} else {
destroyRichEditor(id);	destroyRichEditor(id);
$("#LC_rt_"+id).html("<b>Rich formatting »</b>");	$("#LC_rt_"+id).html("<b>'.$lt{'rich'}.' »</b>");
$("#LC_rt_"+id).attr("title", "Enable rich text formatting (bold, italic, etc.)");	$("#LC_rt_"+id).attr("title", "'.$lt{'rich_title'}.'");
$("#LC_rt_"+id).addClass("LC_enable_rt");	$("#LC_rt_"+id).addClass("LC_enable_rt");
$("#LC_rt_"+id).removeClass("LC_disable_rt");	$("#LC_rt_"+id).removeClass("LC_disable_rt");
}';	}';
Line 1336 sub htmlareaselectactive {	Line 1507 sub htmlareaselectactive {
var id = $(this).attr("id");	var id = $(this).attr("id");
var rt_enabled = containsBlockHtml(id);	var rt_enabled = containsBlockHtml(id);
if(rt_enabled) {	if(rt_enabled) {
$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"Disable rich text formatting and edit in plain text\" class=\"LC_disable_rt\"><b>« Plain text</b></a></div>");	$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"'.$lt{'plain_title'}.'\" class=\"LC_disable_rt\"><b>« '.$lt{'plain'}.'</b></a></div>");
startRichEditor(id);	startRichEditor(id);
$("#LC_rt_"+id).click(editorHandler);	$("#LC_rt_"+id).click(editorHandler);
}	}
else {	else {
$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"Enable rich text formatting (bold, italic, etc.)\" class=\"LC_enable_rt\"><b>Rich formatting »</b></a></div>");	$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"'.$lt{'rich_title'}.'\" class=\"LC_enable_rt\"><b>'.$lt{'rich'}.' »</b></a></div>");
$("#LC_rt_"+id).click(editorHandler);	$("#LC_rt_"+id).click(editorHandler);
}';	}';
if ($dragmath_prefix ne '') {	if ($dragmath_prefix ne '') {
Line 1355 sub htmlareaselectactive {	Line 1526 sub htmlareaselectactive {
});	});
$(".LC_richDefaultOn").each(function() {	$(".LC_richDefaultOn").each(function() {
var id = $(this).attr("id");	var id = $(this).attr("id");
$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"Disable rich text formatting and edit in plain text\" class=\"LC_disable_rt\"><b>« Plain text</b></a></div>");	$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"'.$lt{'plain_title'}.'\" class=\"LC_disable_rt\"><b>« '.$lt{'plain'}.'</b></a></div>");
startRichEditor(id);	startRichEditor(id);
$("#LC_rt_"+id).click(editorHandler);	$("#LC_rt_"+id).click(editorHandler);
});	});
$(".LC_richDefaultOff").each(function() {	$(".LC_richDefaultOff").each(function() {
var id = $(this).attr("id");	var id = $(this).attr("id");
$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"Enable rich text formatting (bold, italic, etc.)\" class=\"LC_enable_rt\"><b>Rich formatting »</b></a></div>");	$(this).before("<div><a href=\"#\" id=\"LC_rt_"+id+"\" title=\"'.$lt{'rich_title'}.'\" class=\"LC_enable_rt\"><b>'.$lt{'rich'}.' »</b></a></div>");
$("#LC_rt_"+id).click(editorHandler);	$("#LC_rt_"+id).click(editorHandler);
});	});

Line 1396 sub htmlareaselectactive {	Line 1567 sub htmlareaselectactive {
# is used to determine when the countdown timer turns red to warn the user	# is used to determine when the countdown timer turns red to warn the user
# to think about submitting.	# to think about submitting.

my $dueDateLayout = &mt('Due in: {dn} {dl} {hnn}{sep}{mnn}{sep}{snn} [_1]',"<span id='submitearly'></span>");	my $dueDateLayout = &mt('Due in: {dn} {dl} {hnn}{sep}{mnn}{sep}{snn} [_1]',
	"<span id='submitearly'></span>");
my $early = '- <b>'.&mt('Submit Early').'</b>';	my $early = '- <b>'.&mt('Submit Early').'</b>';
my $pastdue = '- <b>'.&mt('Past Due').'</b>';	my $pastdue = '- <b>'.&mt('Past Due').'</b>';
$output .= <<JAVASCRIPT;	$output .= <<JAVASCRIPT;
Line 1487 JAVASCRIPT	Line 1659 JAVASCRIPT

}	}
$output.="\nwindow.status='Activated Editfields';\n"	$output.="\nwindow.status='Activated Editfields';\n"
	.'// END LON-CAPA Internal -->'."\n"
.'// ]]>'."\n"	.'// ]]>'."\n"
.'</script>';	.'</script>';
return $output;	return $output;
Line 1516 sub show_return_link {	Line 1689 sub show_return_link {
$env{'request.uri'}=~m{^/priv/}) { return 1; }	$env{'request.uri'}=~m{^/priv/}) { return 1; }
return if ($env{'request.noversionuri'} eq '/adm/supplemental');	return if ($env{'request.noversionuri'} eq '/adm/supplemental');

if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist\|navmaps)($\|\?)})	if (($env{'request.noversionuri'} =~ m{^/adm/viewclasslist($\|\?)})
\|\| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($\|\?)})) {	\|\| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($\|\?)})) {

return if ($env{'form.register'});	return if ($env{'form.register'});
Line 1529 sub show_return_link {	Line 1702 sub show_return_link {
(($env{'request.noversionuri'}=~/^\/adm\//) &&	(($env{'request.noversionuri'}=~/^\/adm\//) &&
($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&	($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
($env{'request.noversionuri'}!~	($env{'request.noversionuri'}!~
m{^/adm/.*/(smppg\|bulletinboard)($\|\?)})	m{^/adm/.*/(smppg\|bulletinboard\|ext\.tool)($\|\?)})
));	));
}	}

Line 1604 A link to help for the component will be	Line 1777 A link to help for the component will be
All inputs can be undef without problems.	All inputs can be undef without problems.

Inputs: $component (the text on the right side of the breadcrumbs trail),	Inputs: $component (the text on the right side of the breadcrumbs trail),
$component_help	$component_help (the help item filename (without .tex extension).
$menulink (boolean, controls whether to include a link to /adm/menu)	$menulink (boolean, controls whether to include a link to /adm/menu)
$helplink (if 'nohelp' don't include the orange help link)	$helplink (if 'nohelp' don't include the orange help link)
$css_class (optional name for the class to apply to the table for CSS)	$css_class (optional name for the class to apply to the table for CSS)
$no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component	$no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component
when including the text on the right.	when including the text on the right.
	$CourseBreadcrumbs (optional flag, 1 if &breadcrumbs called from &docs_breadcrumbs,
	because breadcrumbs are being)
	$topic_help (optional help item to be displayed on right side of the breadcrumbs
	row, using loncommon::help_open_topic() to generate the link.
	$topic_help_text (text to include in the link in the optional help item
	on the right side of the breadcrumbs row.
	$links_target optionally includes the target (_top, _parent or _self)

Returns a string containing breadcrumbs for the current page.	Returns a string containing breadcrumbs for the current page.

=item &clear_breadcrumbs()	=item &clear_breadcrumbs()
Line 1637 returns: nothing	Line 1818 returns: nothing

sub breadcrumbs {	sub breadcrumbs {
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt,	my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt,
$CourseBreadcrumbs) = @_;	$CourseBreadcrumbs,$topic_help,$topic_help_text,$links_target) = @_;
#	#
$css_class \|\|= 'LC_breadcrumbs';	$css_class \|\|= 'LC_breadcrumbs';

Line 1653 returns: nothing	Line 1834 returns: nothing
# The first one should be the course or a menu link	# The first one should be the course or a menu link
if (!defined($menulink)) { $menulink=1; }	if (!defined($menulink)) { $menulink=1; }
if ($menulink) {	if ($menulink) {
	if ($env{'request.course.id'}) {
	my ($menucoll,$deeplinkmenu,$menuref) = &Apache::loncommon::menucoll_in_effect();
	if (($menucoll) && (ref($menuref) eq 'HASH')) {
	if ($menuref->{'main'} eq 'n') {
	undef($menulink);
	}
	}
	}
	}
	if ($menulink) {
my $description = 'Menu';	my $description = 'Menu';
my $no_mt_descr = 0;	my $no_mt_descr = 0;
if ((exists($env{'request.course.id'})) &&	if ((exists($env{'request.course.id'})) &&
Line 1662 returns: nothing	Line 1853 returns: nothing
$env{'course.'.$env{'request.course.id'}.'.description'};	$env{'course.'.$env{'request.course.id'}.'.description'};
$no_mt_descr = 1;	$no_mt_descr = 1;
if ($env{'request.noversionuri'} =~	if ($env{'request.noversionuri'} =~
m{^/public/($match_domain)/($match_courseid)/syllabus$}) {	m{^/?public/($match_domain)/($match_courseid)/syllabus$}) {
unless (($env{'course.'.$env{'request.course.id'}.'.domain'} eq $1) &&	unless (($env{'course.'.$env{'request.course.id'}.'.domain'} eq $1) &&
($env{'course.'.$env{'request.course.id'}.'.num'} eq $2)) {	($env{'course.'.$env{'request.course.id'}.'.num'} eq $2)) {
$description = 'Menu';	$description = 'Menu';
Line 1670 returns: nothing	Line 1861 returns: nothing
}	}
}	}
}	}
	my $target = '_top';
	if ($links_target) {
	$target = $links_target;
	} elsif (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self')) {
	$target = '';
	}
$menulink = { href =>'/adm/menu',	$menulink = { href =>'/adm/menu',
title =>'Go to main menu',	title =>'Go to main menu',
target =>'_top',	target =>$target,
text =>$description,	text =>$description,
no_mt =>$no_mt_descr, };	no_mt =>$no_mt_descr, };
if($last) {	if($last) {
Line 1686 returns: nothing	Line 1883 returns: nothing
my $links;	my $links;
if ((&show_return_link) && (!$CourseBreadcrumbs) && (ref($last) eq 'HASH')) {	if ((&show_return_link) && (!$CourseBreadcrumbs) && (ref($last) eq 'HASH')) {
my $alttext = &mt('Go Back');	my $alttext = &mt('Go Back');
	my $hashref = { href => '/adm/flip?postdata=return:',
	title => &mt('Back to most recent content resource'),
	class => 'LC_menubuttons_link',
	};
	if ($links_target) {
	$hashref->{'target'} = $links_target;
	}
$links=&htmltag( 'a','<img src="/res/adm/pages/tolastloc.png" alt="'.$alttext.'" class="LC_icon" />',	$links=&htmltag( 'a','<img src="/res/adm/pages/tolastloc.png" alt="'.$alttext.'" class="LC_icon" />',
{ href => '/adm/flip?postdata=return:',	$hashref);
title => &mt('Back to most recent content resource'),
class => 'LC_menubuttons_link',
});
$links=&htmltag('li',$links);	$links=&htmltag('li',$links);
}	}
$links.= join "",	$links.= join "",
Line 1738 returns: nothing	Line 1939 returns: nothing
if ($faq ne '' \|\| $component_help ne '' \|\| $bug ne '') {	if ($faq ne '' \|\| $component_help ne '' \|\| $bug ne '') {
$icons .= &Apache::loncommon::help_open_menu($component,	$icons .= &Apache::loncommon::help_open_menu($component,
$component_help,	$component_help,
$faq,$bug);	$faq,$bug,'','','','',
	$links_target);
	}
	if ($topic_help && $topic_help_text) {
	$icons .= ' '.&Apache::loncommon::help_open_topic($topic_help,&mt($topic_help_text),'',
	undef,600,'',$links_target);
}	}
#	#

Line 1752 returns: nothing	Line 1958 returns: nothing
}	}


if ($component) {	if (($component) \|\| ($topic_help && $topic_help_text)) {
$links = &htmltag('span',	$links = &htmltag('span',
( $no_mt ? $component : mt($component) ).	( $no_mt ? $component : mt($component) ).
( $icons ? $icons : '' ),	( $icons ? $icons : '' ),
Line 1760 returns: nothing	Line 1966 returns: nothing
.$links	.$links
;	;
}	}
	my $nav_and_tools = 0;
&render_tools(\$links);	foreach my $item ('navigation','tools') {
$links = &htmltag('div', $links,	if (ref($tools{$item}) eq 'ARRAY') {
{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;	$nav_and_tools += scalar(@{$tools{$item}})
&render_advtools(\$links);	}
	}
	if (($links ne '') \|\| ($nav_and_tools)) {
	&render_tools(\$links);
	$links = &htmltag('div', $links,
	{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;
	}
	my $adv_tools = 0;
	if (ref($tools{'advtools'}) eq 'ARRAY') {
	$adv_tools = scalar(@{$tools{'advtools'}});
	}
	if (($links ne '') \|\| ($adv_tools)) {
	&render_advtools(\$links);
	}

# Return the @Crumbs stack to what we started with	# Return the @Crumbs stack to what we started with
push(@Crumbs,$last);	push(@Crumbs,$last);
Line 1842 returns: nothing	Line 2061 returns: nothing
undef(%tools);	undef(%tools);
}	}

	=item &current_breadcrumb_tools()

	returns: a hash containing the current breadcrumb tools.

	=cut

	sub current_breadcrumb_tools {
	return %tools;
	}

=item &render_tools(\$breadcrumbs)	=item &render_tools(\$breadcrumbs)

Creates html for breadcrumb tools (categories navigation and tools) and inserts	Creates html for breadcrumb tools (categories navigation and tools) and inserts
Line 1893 returns: nothing	Line 2122 returns: nothing
} # End of scope for @Crumbs	} # End of scope for @Crumbs

sub docs_breadcrumbs {	sub docs_breadcrumbs {
my ($allowed,$crstype,$contenteditor,$title,$precleared)=@_;	my ($allowed,$crstype,$contenteditor,$title,$precleared,$checklinkprot)=@_;
my ($folderpath,@folders);	my ($folderpath,@folders,$supplementalflag);
if ($env{'form.pagepath'}) {	@folders = split('&',$env{'form.folderpath'});
@folders = split('&',$env{'form.pagepath'});	if ($env{'form.folderpath'} =~ /^supplemental/) {
} else {	$supplementalflag = 1;
@folders = split('&',$env{'form.folderpath'});
}	}
my $plain='';	my $plain='';
	my $container = 'sequence';
my ($randompick,$isencrypted,$ishidden,$is_random_order) = (-1,0,0,0);	my ($randompick,$isencrypted,$ishidden,$is_random_order) = (-1,0,0,0);
my @docs_crumbs;	my @docs_crumbs;
while (@folders) {	while (@folders) {
Line 1908 sub docs_breadcrumbs {	Line 2137 sub docs_breadcrumbs {
my $foldername=shift(@folders);	my $foldername=shift(@folders);
if ($folderpath) {$folderpath.='&';}	if ($folderpath) {$folderpath.='&';}
$folderpath.=$folder.'&'.$foldername;	$folderpath.=$folder.'&'.$foldername;
my $url;	my $url = $env{'request.use_absolute'};
if ($allowed) {	if ($allowed) {
$url = '/adm/coursedocs?folderpath=';	$url .= '/adm/coursedocs?folderpath=';
} else {	} else {
$url = '/adm/supplemental?folderpath=';	$url .= '/adm/supplemental?folderpath=';
}	}
$url .= &escape($folderpath);	$url .= &escape($folderpath);
my $name=&unescape($foldername);	my $name=&unescape($foldername);
# each of randompick number, hidden, encrypted, random order are	# each of randompick number, hidden, encrypted, random order, is_page
# appended with ":"s to the foldername	# are appended with ":"s to the foldername
$name=~s/\:(\d)\:(\w)\:(\w):(\d)$//;	$name=~s/\:(\d)\:(\w)\:(\w):(\d)\:?(\d*)$//;
if ($contenteditor) {	if ($contenteditor) {
if ($1 ne '') {	if ($supplementalflag) {
$randompick=$1;	if ($2) { $ishidden=1; }
} else {	} else {
$randompick=-1;	if ($1 ne '') {
	$randompick=$1;
	} else {
	$randompick=-1;
	}
	if ($2) { $ishidden=1; }
	if ($3) { $isencrypted=1; }
	if ($4 ne '') { $is_random_order = 1; }
	if ($5 == 1) {$container = 'page'; }
}	}
if ($2) { $ishidden=1; }
if ($3) { $isencrypted=1; }
if ($4 ne '') { $is_random_order = 1; }
}	}
if ($folder eq 'supplemental') {	if ($folder eq 'supplemental') {
$name = &mt('Supplemental '.$crstype.' Contents');	$name = &mt('Supplemental Content');
}	}
if ($contenteditor) {	if ($contenteditor) {
$plain.=$name.' > ';	$plain.=$name.' > ';
Line 1961 sub docs_breadcrumbs {	Line 2195 sub docs_breadcrumbs {
if (!$allowed && !$contenteditor) {	if (!$allowed && !$contenteditor) {
$menulink = 1;	$menulink = 1;
}	}
	if ($checklinkprot) {
	if ($env{'request.deeplink.login'}) {
	my $linkprotout = &Apache::lonmenu::linkprot_exit();
	if ($linkprotout) {
	&Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$linkprotout);
	}
	}
	}
return (&breadcrumbs(undef,undef,$menulink,'nohelp',undef,undef,	return (&breadcrumbs(undef,undef,$menulink,'nohelp',undef,undef,
$contenteditor),	$contenteditor),
$randompick,$ishidden,$isencrypted,$plain,	$randompick,$ishidden,$isencrypted,$plain,
$is_random_order);	$is_random_order,$container);
} else {	} else {
return \@docs_crumbs;	return \@docs_crumbs;
}	}
Line 2197 sub course_selection {	Line 2439 sub course_selection {

my $courseform='<b>'.&Apache::loncommon::selectcourse_link	my $courseform='<b>'.&Apache::loncommon::selectcourse_link
($formname,'pickcourse','pickdomain','coursedesc','',1,$crstype).'</b>';	($formname,'pickcourse','pickdomain','coursedesc','',1,$crstype).'</b>';
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.$allcrs.'<br />';	$output .= '<label><input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.$allcrs.'</label><br />';
if ($totcodes > 0) {	if ($totcodes > 0) {
my $numtitles = @$codetitles;	my $numtitles = @$codetitles;
if ($numtitles > 0) {	if ($numtitles > 0) {
$output .= '<input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').' <br />';	$output .= '<label><input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&html_escape(&mt('Choose categories, from left to right'))."'".')" />'.&mt('Pick courses by category:').'</label><br />';
$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n".	$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n".
'<select name="'.$standardnames->[0].	'<select name="'.$standardnames->[0].
'" onChange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n".	'" onchange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n".
' <option value="-1" />Select'."\n";	' <option value="-1" />Select'."\n";
my @items = ();	my @items = ();
my @longitems = ();	my @longitems = ();
Line 2234 sub course_selection {	Line 2476 sub course_selection {
for (my $i=1; $i<$numtitles; $i++) {	for (my $i=1; $i<$numtitles; $i++) {
$output .= '<td>'.$$codetitles[$i].'<br />'."\n".	$output .= '<td>'.$$codetitles[$i].'<br />'."\n".
'<select name="'.$standardnames->[$i].	'<select name="'.$standardnames->[$i].
'" onChange="courseSet('."'$$codetitles[$i]'".')">'."\n".	'" onchange="courseSet('."'$$codetitles[$i]'".')">'."\n".
'<option value="-1"><-Pick '.$$codetitles[$i-1].'</option>'."\n".	'<option value="-1"><-Pick '.$$codetitles[$i-1].'</option>'."\n".
'</select>'."\n".	'</select>'."\n".
'</td>';	'</td>';
Line 2242 sub course_selection {	Line 2484 sub course_selection {
$output .= '</tr></table><br />';	$output .= '</tr></table><br />';
}	}
}	}
$output .= '<input type="radio" name="coursepick" value="specific" onclick="coursePick(this.form);opencrsbrowser('."'".$formname."','dccourse','dcdomain','coursedesc','','1','$crstype'".')" />'.$pickspec.' '.$courseform.'  <input type="text" value="0" size="4" name="coursetotal" /><input type="hidden" name="courselist" value="" />selected.<br />'."\n";	$output .=
	'<label><input type="radio" name="coursepick" value="specific"'
	.' onclick="coursePick(this.form);opencrsbrowser('."'".$formname."','dccourse','dcdomain','coursedesc','','1','$crstype'".')" />'
	.$pickspec.'</label>'
	.' '.$courseform.'  '
	.&mt('[_1] selected.',
	'<input type="text" value="0" size="4" name="coursetotal" readonly="readonly" />'
	.'<input type="hidden" name="courselist" value="" />')
	.'<br />'."\n";
return $output;	return $output;
}	}

Line 2326 sub course_custom_roles {	Line 2576 sub course_custom_roles {


sub resource_info_box {	sub resource_info_box {
my ($symb,$onlyfolderflag,$stuvcurrent,$stuvdisp)=@_;	my ($symb,$onlyfolderflag,$stuvcurrent,$stuvdisp,$divforres)=@_;
my $return='';	my $return='';
if ($stuvcurrent ne '') {	if (($stuvcurrent ne '') \|\| ($divforres)) {
$return = '<div class="LC_left_float">';	$return = '<div class="LC_left_float">';
}	}
if ($symb) {	if ($symb) {
Line 2357 sub resource_info_box {	Line 2607 sub resource_info_box {
} else {	} else {
$return='<p><span class="LC_error">'.&mt('No context provided.').'</span></p>';	$return='<p><span class="LC_error">'.&mt('No context provided.').'</span></p>';
}	}
if ($stuvcurrent ne '') {	if (($stuvcurrent ne '') \|\| ($divforres)) {
$return .= '</div>';	$return .= '</div>';
}	}
return $return;	return $return;
}	}

	# display_usage
	#
	# Generates a div containing a block, filled to show percentage of current quota used
	#
	# Quotas available for user portfolios, group portfolios, authoring spaces, and course
	# content stored directly within a course (i.e., excluding published content).
	#

	sub display_usage {
	my ($current_disk_usage,$disk_quota,$context) = @_;
	my $usage = $current_disk_usage/1024;
	my $quota = $disk_quota/1024;
	my $percent;
	if ($disk_quota == 0) {
	$percent = 100.0;
	} else {
	$percent = 100*($current_disk_usage/$disk_quota);
	}
	$usage = sprintf("%.2f",$usage);
	$quota = sprintf("%.2f",$quota);
	$percent = sprintf("%.0f",$percent);
	my ($color,$cssclass);
	if ($percent <= 60) {
	$color = '#00A000';
	} elsif ($percent > 60 && $percent < 90) {
	$color = '#FFD300';
	$cssclass = 'class="LC_warning"';
	} elsif( $percent >= 90) {
	$color = '#FF0000';
	$cssclass = 'class="LC_error"';
	}
	my $prog_width = $percent;
	if ($prog_width > 100) {
	$prog_width = 100;
	}
	my $display = 'block';
	if ($context eq 'authoring') {
	$display = 'inline';
	}
	return '
	<div id="meter1" align="left" style="display:'.$display.'" '.$cssclass.'>'.&mt('Currently using [_1] of the [_2] available.',$usage.' MB <span style="font-weight:bold;">('.$percent.'%)</span>',$quota.' MB')."\n".
	' <div id="meter2" style="display:block; margin-top:3px; margin-bottom:3px; margin-left:0px; margin-right:0px; width:400px; border:1px solid #000000; height:10px;">'."\n".
	' <div id="meter3" style="display:block; background-color:'.$color.'; width:'.$prog_width.'%; height:10px; color:#000000; margin:0px;"></div>'."\n".
	' </div>'."\n".
	' </div>';
	}

##############################################	##############################################
##############################################	##############################################

Line 2607 sub set_form_elements {	Line 2904 sub set_form_elements {

sub file_submissionchk_js {	sub file_submissionchk_js {
my ($turninpaths,$multiples) = @_;	my ($turninpaths,$multiples) = @_;
my $overwritewarn = &mt('File(s) you uploaded for your submission will overwrite existing file(s) submitted for this item').'\\n'.	my $overwritewarn = &mt('File(s) you uploaded for your submission will overwrite existing file(s) submitted for this item')."\n".
&mt('Continue submission and overwrite the file(s)?');	&mt('Continue submission and overwrite the file(s)?');
my $delfilewarn = &mt('You have indicated you wish to remove some files previously included in your submission.').'\\n'.	&js_escape(\$overwritewarn);
	my $delfilewarn = &mt('You have indicated you wish to remove some files previously included in your submission.')."\n".
&mt('Continue submission with these files removed?');	&mt('Continue submission with these files removed?');
	&js_escape(\$delfilewarn);
my ($turninpathtext,$multtext,$arrayindexofjs);	my ($turninpathtext,$multtext,$arrayindexofjs);
if (ref($turninpaths) eq 'HASH') {	if (ref($turninpaths) eq 'HASH') {
foreach my $key (sort(keys(%{$turninpaths}))) {	foreach my $key (sort(keys(%{$turninpaths}))) {
Line 2851 ENDSCRIPT	Line 3150 ENDSCRIPT
##############################################	##############################################

sub resize_scrollbox_js {	sub resize_scrollbox_js {
my ($context,$tabidstr) = @_;	my ($context,$tabidstr,$tid) = @_;
my (%names,$paddingwfrac,$offsetwfrac,$offsetv,$minw,$minv);	my (%names,$paddingwfrac,$offsetwfrac,$offsetv,$minw,$minv);
if ($context eq 'docs') {	if ($context eq 'docs') {
%names = (	%names = (
Line 2861 sub resize_scrollbox_js {	Line 3160 sub resize_scrollbox_js {
scroll => 'contentscroll',	scroll => 'contentscroll',
boxh => 'contenteditor',	boxh => 'contenteditor',
);	);
$paddingwfrac = 0.09;	$paddingwfrac = 0.09;
$offsetwfrac = 0.015;	$offsetwfrac = 0.015;
$offsetv = 20;	$offsetv = 20;
$minw = 250;	$minw = 250;
Line 2887 window.onresize=callResize;	Line 3186 window.onresize=callResize;

';	';
if ($context eq 'docs') {	if ($context eq 'docs') {
$output .= '	if ($env{'form.active'}) {
var activeTab;	$output .= "\nvar activeTab = '$env{'form.active'}$tid';\n";
';	} else {
	$output .= "\nvar activeTab = '';\n";
	}
}	}
$output .= <<"FIRST";	$output .= <<"FIRST";

Line 2900 function resize_scrollbox(scrollboxname,	Line 3201 function resize_scrollbox(scrollboxname,
var scrolltableid = 'table_'+scrollboxname;	var scrolltableid = 'table_'+scrollboxname;
var scrollbox;	var scrollbox;
var scrolltable;	var scrolltable;
	var ismobile = '$env{'browser.mobile'}';

if (document.getElementById("$names{'boxw'}") == null) {	if (document.getElementById("$names{'boxw'}") == null) {
return;	return;
Line 2936 FIRST	Line 3238 FIRST
}	}
$output .= <<"SECOND";	$output .= <<"SECOND";
var listwchange;	var listwchange;
	var scrollchange;
if (chkw == 1) {	if (chkw == 1) {
var boxw = document.getElementById("$names{'boxw'}").offsetWidth;	var boxw = document.getElementById("$names{'boxw'}").offsetWidth;
var itemw;	var itemw;
Line 2947 FIRST	Line 3250 FIRST

var scrollboxw = scrollbox.offsetWidth;	var scrollboxw = scrollbox.offsetWidth;
var scrollboxscrollw = scrollbox.scrollWidth;	var scrollboxscrollw = scrollbox.scrollWidth;
	var scrollstart = scrollboxw;

var offsetw = parseInt(vpw * $offsetwfrac);	var offsetw = parseInt(vpw * $offsetwfrac);
var paddingw = parseInt(vpw * $paddingwfrac);	var paddingw = parseInt(vpw * $paddingwfrac);
Line 3021 PARAMSONE	Line 3325 PARAMSONE
}	}
}	}

	if (newscrollboxw != scrollboxw) {
	scrollchange = 1;
	}

if (itemid.offsetWidth != itemwstart) {	if (itemid.offsetWidth != itemwstart) {
listwchange = 1;	listwchange = 1;
}	}
}	}
if ((chkh == 1) \|\| (listwchange)) {	if ((chkh == 1) \|\| (listwchange)) {
var primaryheight = document.getElementById('LC_nav_bar').offsetHeight;	var itemid = document.getElementById("$names{'item'}");
var secondaryheight = document.getElementById('LC_secondary_menu').offsetHeight;	if (itemid != null) {
var crumbsheight = document.getElementById('LC_breadcrumbs').offsetHeight;	itemh = itemid.offsetHeight;
	}
	var primaryheight = 0;
	if (document.getElementById('LC_nav_bar') != null) {
	primaryheight = document.getElementById('LC_nav_bar').offsetHeight;
	}
	var secondaryheight = 0;
	if (document.getElementById('LC_secondary_menu') != null) {
	secondaryheight = document.getElementById('LC_secondary_menu').offsetHeight;
	}
	var crumbsheight = 0;
	if (document.getElementById('LC_breadcrumbs') != null) {
	crumbsheight = document.getElementById('LC_breadcrumbs').offsetHeight;
	}
var dccidheight = 0;	var dccidheight = 0;
if (document.getElementById('dccid') != null) {	if (document.getElementById('dccid') != null) {
dccidheight = document.getElementById('dccid').offsetHeight;	dccidheight = document.getElementById('dccid').offsetHeight;
Line 3043 PARAMSONE	Line 3364 PARAMSONE

var scrollboxheight = scrollbox.offsetHeight;	var scrollboxheight = scrollbox.offsetHeight;
var scrollboxscrollheight = scrollbox.scrollHeight;	var scrollboxscrollheight = scrollbox.scrollHeight;
	var scrollboxh = scrollboxheight;

var minvscrollbox = $minv;	var minvscrollbox = $minv;
var offsetv = $offsetv;	var offsetv = $offsetv;
Line 3073 PARAMSONE	Line 3395 PARAMSONE
scrollbox.style.height = newscrollheight+"px";	scrollbox.style.height = newscrollheight+"px";
}	}
}	}
	var newscrollboxh = scrollbox.offsetHeight;
	if (scrollboxh != newscrollboxh) {
	scrollchange = 1;
	}
	}
	if (ismobile && scrollchange) {
	\$("#div_$names{'scroll'}").getNiceScroll().onResize();
}	}
return;	return;
}	}
Line 3091 THIRD	Line 3420 THIRD
##############################################	##############################################

sub javascript_jumpto_resource {	sub javascript_jumpto_resource {
my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.	my $confirm_switch = &mt("Editing requires switching to the resource's home server.")."\n".
&mt('Switch server?');	&mt('Switch server?');
	my $confirm_new_tab = &mt("Editing requires using the resource's home server.")."\n".
	&mt('Open a new browser tab?');
	&js_escape(\$confirm_switch);
	&js_escape(\$confirm_new_tab);
return (<<ENDUTILITY)	return (<<ENDUTILITY)

function go(url) {	function go(url) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
currentURL = null;	currentURL = null;
currentSymb= null;	currentSymb= null;
window.location.href=url;	var lcHostname = setLCHost();
	if (lcHostname!='' && lcHostname!= null) {
	var RegExp = /^https?\:/;
	if (RegExp.test(url)) {
	window.location.href=url;
	} else {
	window.location.href=lcHostname+url;
	}
	} else {
	window.location.href=url;
	}
}	}
}	}

function need_switchserver(url) {	function need_switchserver(url,target) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
if (confirm("$confirm_switch")) {	if (target == '_blank') {
	if (confirm("$confirm_new_tab")) {
	window.open(url,target);
	}
	} else if (confirm("$confirm_switch")) {
go(url);	go(url);
}	}
}	}
Line 3117 ENDUTILITY	Line 3464 ENDUTILITY
}	}

sub jump_to_editres {	sub jump_to_editres {
my ($cfile,$home,$switchserver,$forceedit,$forcereg,$symb,$folderpath,	my ($cfile,$home,$switchserver,$forceedit,$forcereg,$symb,$shownsymb,
$title,$idx,$suppurl) = @_;	$folderpath,$title,$hostname,$idx,$suppurl,$todocs,$suppanchor) = @_;
my $jscall;	my ($jscall,$anchor,$usehttp,$usehttps,$is_ext,$target);
if ($switchserver) {	if ($switchserver) {
if ($home) {	if ($home) {
	my $resedit;
	if ($cfile =~ m{^/priv/($match_domain)/($match_username)/}) {
	my ($audom,$auname) = ($1,$2);
	unless (&Apache::lonnet::is_course($audom,$auname)) {
	unless ((&Apache::lonnet::will_trust('othcoau',$env{'user.domain'},$audom)) &&
	(&Apache::lonnet::will_trust('coaurem',$audom,$env{'user.domain'}))) {
	return;
	}
	if (($symb ne '') && ($env{'request.course.id'}) &&
	(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
	unless (&Apache::lonnet::can_switchserver($env{'user.domain'},$home)) {
	$target = '_blank';
	$resedit = 1;
	}
	}
	}
	}
$cfile = '/adm/switchserver?otherserver='.$home.'&role='.	$cfile = '/adm/switchserver?otherserver='.$home.'&role='.
&HTML::Entities::encode($env{'request.role'},'"<>&');	&HTML::Entities::encode($env{'request.role'},'"<>&');
if ($symb) {	if ($shownsymb) {
$cfile .= '&symb='.&HTML::Entities::encode($symb,'"<>&');	$cfile .= '&symb='.&HTML::Entities::encode($shownsymb,'"<>&');
	if ($resedit) {
	$cfile .= '&edit=1';
	}
} elsif ($folderpath) {	} elsif ($folderpath) {
$cfile .= '&folderpath='.&HTML::Entities::encode($folderpath,'"<>&');	$cfile .= '&folderpath='.&HTML::Entities::encode($folderpath,'"<>&');
}	}
Line 3135 sub jump_to_editres {	Line 3502 sub jump_to_editres {
if ($forcereg) {	if ($forcereg) {
$cfile .= '&register=1';	$cfile .= '&register=1';
}	}
$jscall = "need_switchserver('$cfile');";	$jscall = "need_switchserver('".&Apache::loncommon::escape_single($cfile)."','$target')";
}	}
} else {	} else {
unless ($cfile =~ m{^/priv/}) {	unless ($cfile =~ m{^/priv/}) {
	if ($cfile =~ m{^(/adm/wrapper/ext/([^#]+))(?:\|#([^#]+))$}) {
	$cfile = $1;
	my $extlink = $2;
	$anchor = $3;
	$is_ext = 1;
	if (($extlink !~ /^https:/) && ($ENV{'SERVER_PORT'} == 443)) {
	unless ((&Apache::lonnet::uses_sts()) \|\| (&Apache::lonnet::waf_allssl($hostname))) {
	$usehttp = 1;
	}
	} elsif ($env{'request.use_absolute'}) {
	if ($env{'request.use_absolute'} =~ m{^https://}) {
	$usehttps = 1;
	}
	}
	} elsif ($cfile =~ m{^/?public/($match_domain)/($match_courseid)/syllabus}) {
	if ($ENV{'SERVER_PORT'} == 443) {
	my ($cdom,$cnum) = ($1,$2);
	if (($env{'request.course.id'}) &&
	($env{'course.'.$env{'request.course.id'}.'.num'} eq $cnum) &&
	($env{'course.'.$env{'request.course.id'}.'.domain'} eq $cdom)) {
	if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {
	unless ((&Apache::lonnet::uses_sts()) \|\| (&Apache::lonnet::waf_allssl($hostname))) {
	$usehttp = 1;
	}
	}
	}
	} elsif ($env{'request.use_absolute'}) {
	if ($env{'request.use_absolute'} =~ m{^https://}) {
	$usehttps = 1;
	}
	}
	}
if ($symb) {	if ($symb) {
	if ($anchor ne '') {
	if ($symb =~ m{^([^#]+)\Q#$anchor\E$}) {
	$symb = $1.&escape(&escape('#')).$anchor;
	}
	}
$cfile .= (($cfile=~/\?/)?'&':'?')."symb=$symb";	$cfile .= (($cfile=~/\?/)?'&':'?')."symb=$symb";
} elsif ($folderpath) {	} elsif ($folderpath) {
$cfile .= (($cfile=~/\?/)?'&':'?').	$cfile .= (($cfile=~/\?/)?'&':'?').
Line 3158 sub jump_to_editres {	Line 3562 sub jump_to_editres {
}	}
if ($forceedit) {	if ($forceedit) {
$cfile .= (($cfile=~/\?/)?'&':'?').'forceedit=1';	$cfile .= (($cfile=~/\?/)?'&':'?').'forceedit=1';
	if ($usehttps) {
	$cfile = $env{'request.use_absolute'}.(($cfile =~ /^\//)? '':'/').$cfile;
	}
	} elsif ($usehttp) {
	if ($hostname ne '') {
	$cfile = 'http://'.$hostname.(($cfile =~ /^\//)? '':'/').$cfile;
	}
	$cfile .= (($cfile=~/\?/)?'&':'?').'usehttp=1';
	} elsif ($usehttps) {
	$cfile = $env{'request.use_absolute'}.(($cfile =~ /^\//)? '':'/').$cfile;
}	}
if ($forcereg) {	if ($forcereg) {
$cfile .= (($cfile=~/\?/)?'&':'?').'register=1';	$cfile .= (($cfile=~/\?/)?'&':'?').'register=1';
}	}
	if ($todocs) {
	$cfile .= (($cfile=~/\?/)?'&':'?').'todocs=1';
	}
	if ($suppanchor ne '') {
	$cfile .= (($cfile=~/\?/)?'&':'?').'anchor='.
	&HTML::Entities::encode($suppanchor,'"<>&');
	}
}	}
$jscall = "go('$cfile')";	if ($anchor ne '') {
	$cfile .= '#'.$anchor;
	}
	$jscall = "go('".&Apache::loncommon::escape_single($cfile)."')";
}	}
return $jscall;	return $jscall;
}	}
Line 3174 sub jump_to_editres {	Line 3598 sub jump_to_editres {
# javascript_valid_email	# javascript_valid_email
#	#
# Generates javascript to validate an e-mail address.	# Generates javascript to validate an e-mail address.
# Returns a javascript function which accetps a form field as argumnent, and	# Returns a javascript function which accepts a form field as argument, and
# returns false if field.value does not satisfy two regular expression matches	# returns false if field.value does not satisfy two regular expression matches
# for a valid e-mail address. Backwards compatible with old browsers without	# for a valid e-mail address. Backwards compatible with old browsers without
# support for javascript RegExp (just checks for @ in field.value in this case).	# support for javascript RegExp (just checks for @ in field.value in this case).

sub javascript_valid_email {	sub javascript_valid_email {
my $scripttag .= <<'END';	my $scripttag .= <<'END';
function validmail(field) {	function validmail(field,suffix) {
var str = field.value;	var str = field.value;
	if (suffix != '' && suffix != undefined) {
	str += suffix;
	}
if (window.RegExp) {	if (window.RegExp) {
var reg1str = "(@.*@)\|(\\.\\.)\|(@\\.)\|(\\.@)\|(^\\.)";	var reg1str = "(@.*@)\|(\\.\\.)\|(@\\.)\|(\\.@)\|(^\\.)";
var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}\|[0-9]{1,3})(\\]?)$"; //"	var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}\|[0-9]{1,3})(\\]?)$"; //"
Line 3230 END	Line 3657 END
sub htmltag{	sub htmltag{
return	return
qq\|<$_[0]\|	qq\|<$_[0]\|
. join( '', map { qq\| $_="${$_[2]}{$_}"\| if ${$_[2]}{$_} } keys %{ $_[2] } )	. join( '', map { qq\| $_="${$_[2]}{$_}"\| if ${$_[2]}{$_} } keys(%{ $_[2] }) )
. ($_[1] ? qq\|>$_[1]</$_[0]>\| : qq\|/>\|). "\n";	. ($_[1] ? qq\|>$_[1]</$_[0]>\| : qq\|/>\|). "\n";
};	};

Line 3493 add_item_funclist	Line 3920 add_item_funclist
Inputs: ./.	Inputs: ./.

Returns: HTML code with function list end	Returns: HTML code with function list end

=cut	=cut

sub end_funclist {	sub end_funclist {
Line 3536 sub funclist_from_array {	Line 3964 sub funclist_from_array {

=pod	=pod

	=over

=item &actionbox( \@array )	=item &actionbox( \@array )

Constructs a XHTML list from \@array with the first item being visually	Constructs a XHTML list from \@array with the first item being visually
Line 3543 highlighted and set to the value 'Action	Line 3973 highlighted and set to the value 'Action

The actionlist is used to offer contextual actions, mostly at the bottom	The actionlist is used to offer contextual actions, mostly at the bottom
of a page, on which the outcome of an processed action is shown,	of a page, on which the outcome of an processed action is shown,
e.g. a file operation in Construction Space.	e.g. a file operation in Authoring Space.

=over	=over

Line 3553 A reference to the array containing text	Line 3983 A reference to the array containing text

=back	=back

Returns: XHTML div as string.	Returns: XHTML div as string.

=back	=back

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

Removed from v.1.335
changed lines
	Added in v.1.358.2.19.2.6