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.328 and 1.392

version 1.328, 2012/10/31 12:54:13	version 1.392, 2018/04/14 02:29:44
Line 61 use Time::HiRes;	Line 61 use Time::HiRes;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use HTML::Entities();	use HTML::Entities();
use LONCAPA;	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.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {
	$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 170 sub dragmath_js {	Line 180 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 209 dependencies for a web page uploaded dir	Line 219 dependencies for a web page uploaded dir
=cut	=cut

sub dependencycheck_js {	sub dependencycheck_js {
my ($symb,$title,$url) = @_;	my ($symb,$title,$url,$folderpath,$uri) = @_;
my $link = '/adm/dependencies?symb='.&HTML::Entities::encode($symb,'<>&"').	my $link;
'&title='.&HTML::Entities::encode($title,'<>&"').	if ($symb) {
'&url='.&HTML::Entities::encode($url,'<>&"');	$link = '/adm/dependencies?symb='.&HTML::Entities::encode($symb,'<>&"');
	} elsif ($folderpath) {
	$link = '/adm/dependencies?folderpath='.&HTML::Entities::encode($folderpath,'<>&"');
	$url = $uri;
	} elsif ($uri =~ m{^/public/$match_domain/$match_courseid/syllabus$}) {
	$link = '/adm/dependencies';
	}
	$link .= (($link=~/\?/)?'&':'?').'title='.
	&HTML::Entities::encode($title,'<>&"');
	if ($url) {
	$link .= '&url='.&HTML::Entities::encode($url,'<>&"');
	}
return <<ENDJS;	return <<ENDJS;
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 390 sub textbox {	Line 411 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 398 sub checkbox {	Line 419 sub checkbox {
if ($checked) {	if ($checked) {
$Str .= ' checked="checked"';	$Str .= ' checked="checked"';
}	}
$Str .= ' />';	$Str .= $special.' />';
return $Str;	return $Str;
}	}

Line 434 sub radio {	Line 455 sub radio {
&date_setter returns html and javascript for a compact date-setting form.	&date_setter returns html and javascript for a compact date-setting form.
To retrieve values from it, use &get_date_from_form.	To retrieve values from it, use &get_date_from_form.

Inputs

=over 4	=over 4

	=item Inputs

	=over

=item $dname	=item $dname

The name to prepend to the form elements.	The name to prepend to the form elements.
Line 465 the date/time fields are left empty.	Line 488 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

Bugs	=item Bugs

The method used to restrict user input will fail in the year 2400.	The method used to restrict user input will fail in the year 2400.

	=back

=cut	=cut

##############################################	##############################################
##############################################	##############################################
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 488 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 623 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 632 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 686 sub build_url {	Line 751 sub build_url {

get_date_from_form retrieves the date specified in an &date_setter form.	get_date_from_form retrieves the date specified in an &date_setter form.

Inputs:	=over

	=item Inputs:

=over 4	=over 4

Line 700 The unix time to use as the default in c	Line 767 The unix time to use as the default in c

=back	=back

	=back

Returns: Unix time represented in the form.	Returns: Unix time represented in the form.

=cut	=cut
Line 871 sub javascript_docopen {	Line 940 sub javascript_docopen {
Returns html for a selection box which allows the user to choose the	Returns html for a selection box which allows the user to choose the
enrollment status of students. The selection box name is 'Status'.	enrollment status of students. The selection box name is 'Status'.

Inputs:	=over

	=item Inputs:

$status: the currently selected status. If undefined the value of	$status: the currently selected status. If undefined the value of
$env{'form.Status'} is taken. If that is undefined, a value of 'Active'	$env{'form.Status'} is taken. If that is undefined, a value of 'Active'
Line 885 $size: the size (number of lines) of the	Line 956 $size: the size (number of lines) of the
$onchange: javascript to use when the value is changed. Enclosed in	$onchange: javascript to use when the value is changed. Enclosed in
double quotes, ""s, not single quotes.	double quotes, ""s, not single quotes.

	=back

Returns: a perl string as described.	Returns: a perl string as described.

=cut	=cut
Line 932 sub StatusOptions {	Line 1005 sub StatusOptions {

=pod	=pod

=item Progess Window Handling Routines	=item Progress Window Handling Routines

These routines handle the creation, update, increment, and closure of	These routines handle the creation, update, increment, and closure of
progress windows. The progress window reports to the user the number	progress windows. The progress window reports to the user the number
Line 946 of items completed and an estimate of th	Line 1019 of items completed and an estimate of th
Writes javascript to the client to open a progress window and returns a	Writes javascript to the client to open a progress window and returns a
data structure used for bookkeeping.	data structure used for bookkeeping.

Inputs	=over

=over 4	=item Inputs

	=over

=item $r Apache request	=item $r Apache request

=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.	=back

	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()

Updates the text in the progress indicator. Does not increment the count.	Updates the text in the progress indicator. Does not increment the count.
See &Increment_PrgWin.	See &Increment_PrgWin.

Inputs:	=over

	=item Inputs:

=over 4	=over 4

Line 976 Inputs:	Line 1058 Inputs:

=back	=back

	=back

Returns: none	Returns: none


=item Increment_PrgWin()	=item &Increment_PrgWin()

Increment the count of items completed for the progress window by $step or 1 if no step is provided.	Increment the count of items completed for the progress window by $step or 1 if no step is provided.

Inputs:	=over

	=item Inputs:

=over 4	=over 4

=item $r Apache request	=item $r

=item $prog_state Pointer to the data structure returned by Create_PrgWin	Apache request

	=item $prog_state

	Pointer to the data structure returned by Create_PrgWin

	=item $extraInfo

	A description of the items being iterated over. Typically 'student'.

=item $extraInfo A description of the items being iterated over. Typically	=item $step
'student'.

=item $step (optional) counter step. Will be set to default 1 if ommited. step must be greater than 0 or empty.	(optional) counter step. Will be set to default 1 if ommited. step must be greater than 0 or empty.

	=back

=back	=back

Line 1005 Returns: none	Line 1100 Returns: none

Closes the progress window.	Closes the progress window.

Inputs:	=over

	=item Inputs:

=over 4	=over 4

Line 1015 Inputs:	Line 1112 Inputs:

=back	=back

	=back

Returns: none	Returns: none

=back	=back
Line 1027 Returns: none	Line 1126 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 1090 sub Increment_PrgWin {	Line 1189 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 1105 sub Close_PrgWin {	Line 1204 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 1127 sub crumbs {	Line 1226 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 1204 sub htmlareaheaders {	Line 1309 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 1242 $(document).ready(function(){	Line 1348 $(document).ready(function(){
});';	});';
}	}

	sub countdown {

	# Code to put a due date countdown in 'duedatecountdown' span.
	# This is currently located in the breadcrumb headers.
	# note that the dueDateLayout is internatinoalized below.
	# Here document is used to support the substitution into the javascript below.
	# ..which unforunately necessitates escaping the $'s in the javascript.
	# There are several times of importance
	#
	# serverDueDate - The absolute time at which the problem expires.
	# serverTime - The server's time when the problem finished computing.
	# clientTime - The client's time...as close to serverTime as possible.
	# The clientTime will be slightly later due to
	# 1. The latency between problem computation and
	# the first network action.
	# 2. The time required between the page load-start and the actual
	# initial javascript execution that got clientTime.
	# These are used as follows:
	# The difference between clientTime and serverTime are used to
	# correct for differences in clock settings between the browser's system and the
	# server's.
	#
	# The difference between clientTime and the time at which the ready() method
	# starts executing is used to estimate latencies for page load and submission.
	# Since this is an estimate, it is doubled. The latency estimate + one minute
	# is used to determine when the countdown timer turns red to warn the user
	# to think about submitting.


	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 $pastdue = '- <b>'.&mt('Past Due').'</b>';
	return <<"JAVASCRIPT";

	var documentReadyTime;

	\$(document).ready(function() {
	if (typeof(dueDate) != "undefined") {
	documentReadyTime = (new Date()).getTime();
	\$("#duedatecountdown").countdown({until: dueDate, compact: true,
	layout: "$dueDateLayout",
	onTick: function (periods) {
	var latencyEstimate = (documentReadyTime - clientTime) * 2;
	if(\$.countdown.periodsToSeconds(periods) < (300 + latencyEstimate)) {
	\$("#submitearly").html("$early");
	if (\$.countdown.periodsToSeconds(periods) < 1) {
	\$("#submitearly").html("$pastdue");
	}
	}
	if(\$.countdown.periodsToSeconds(periods) < (60 + latencyEstimate)) {
	\$(this).css("color", "red"); //Highlight last minute.
	}
	}
	});
	}
	});

	JAVASCRIPT

	}

# ----------------------------------------- Script to activate only some fields	# ----------------------------------------- Script to activate only some fields

sub htmlareaselectactive {	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 1271 sub htmlareaselectactive {	Line 1440 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 1279 sub htmlareaselectactive {	Line 1456 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 1290 sub htmlareaselectactive {	Line 1502 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 1299 sub htmlareaselectactive {	Line 1573 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 1327 sub htmlareaselectactive {	Line 1601 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 1346 sub htmlareaselectactive {	Line 1620 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);
});	});


});	});
';	';
$output .= &color_picker;	$output .= &color_picker();

# Code to put a due date countdown in 'duedatecountdown' span.	$output .= &countdown();
# This is currently located in the breadcrumb headers.
# note that the dueDateLayout is internatinoalized below.
# Here document is used to support the substitution into the javascript below.
# ..which unforunately necessitates escaping the $'s in the javascript.
# There are several times of importance
#
# serverDueDate - The absolute time at which the problem expires.
# serverTime - The server's time when the problem finished computing.
# clientTime - The client's time...as close to serverTime as possible.
# The clientTime will be slightly later due to
# 1. The latency between problem computation and
# the first network action.
# 2. The time required between the page load-start and the actual
# initial javascript execution that got clientTime.
# These are used as follows:
# The difference between clientTime and serverTime are used to
# correct for differences in clock settings between the browser's system and the
# server's.
#
# The difference between clientTime and the time at which the ready() method
# starts executing is used to estimate latencies for page load and submission.
# Since this is an estimate, it is doubled. The latency estimate + one minute
# is used to determine when the countdown timer turns red to warn the user
# to think about submitting.

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

var documentReadyTime;

\$(document).ready(function() {
if (typeof(dueDate) != "undefined") {
documentReadyTime = (new Date()).getTime();
\$("#duedatecountdown").countdown({until: dueDate, compact: true,
layout: "$dueDateLayout",
onTick: function (periods) {
var latencyEstimate = (documentReadyTime - clientTime) * 2;
if(\$.countdown.periodsToSeconds(periods) < (300 + latencyEstimate)) {
\$("#submitearly").html("$early");
if (\$.countdown.periodsToSeconds(periods) < 1) {
\$("#submitearly").html("$pastdue");
}
}
if(\$.countdown.periodsToSeconds(periods) < (60 + latencyEstimate)) {
\$(this).css("color", "red"); //Highlight last minute.
}
}
});
}
});

/* This code describes the spellcheck options that will be used for	/* This code describes the spellcheck options that will be used for
items with class 'spellchecked'. It is necessary for those objects'	items with class 'spellchecked'. It is necessary for those objects'
Line 1478 JAVASCRIPT	Line 1702 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 1505 sub show_return_link {	Line 1730 sub show_return_link {
unless ($env{'request.course.id'}) { return 0; }	unless ($env{'request.course.id'}) { return 0; }
if ($env{'request.noversionuri'}=~m{^/priv/} \|\|	if ($env{'request.noversionuri'}=~m{^/priv/} \|\|
$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{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') &&
	(!$env{'request.role.adv'}));
if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist\|navmaps)($\|\?)})	if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist\|navmaps)($\|\?)})
\|\| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($\|\?)})) {	\|\| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($\|\?)})) {

Line 1519 sub show_return_link {	Line 1746 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 1593 A link to help for the component will be	Line 1820 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),	=over
$component_help
$menulink (boolean, controls whether to include a link to /adm/menu)	=item Inputs:
$helplink (if 'nohelp' don't include the orange help link)
$css_class (optional name for the class to apply to the table for CSS)	=over
$no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component
when including the text on the right.	=item $component

	the text on the right side of the breadcrumbs trail

	=item $component_help

	the help item filename (without .tex extension).

	=item $menulink

	boolean, controls whether to include a link to /adm/menu

	=item $helplink

	if 'nohelp' don't include the orange help link

	=item $css_class

	optional name for the class to apply to the table for CSS

	=item $no_mt

	optional flag, 1 if &mt() is _not_ to be applied to $component when including the text on the right

	=item $CourseBreadcrumbs

	optional flag, 1 if &breadcrumbs called from &docs_breadcrumbs, because breadcrumbs are being
	used to display hierarchy for current folder shown in the Course Editor.

	=item $topic_help

	optional help item to be displayed on right side of the breadcrumbs row, using
	loncommon::help_open_topic() to generate the link.

	=item $topic_help_text

	text to include in the link in the optional help item ($topic_help) on the right
	side of the breadcrumbs row.

	=back

	=back

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 1627 returns: nothing	Line 1896 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,$crstype) = @_;
#	#
$css_class \|\|= 'LC_breadcrumbs';	$css_class \|\|= 'LC_breadcrumbs';

Line 1651 returns: nothing	Line 1920 returns: nothing
$description =	$description =
$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'} =~
	m{^/?public/($match_domain)/($match_courseid)/syllabus$}) {
	unless (($env{'course.'.$env{'request.course.id'}.'.domain'} eq $1) &&
	($env{'course.'.$env{'request.course.id'}.'.num'} eq $2)) {
	$description = 'Menu';
	$no_mt_descr = 0;
	}
	}
	}
	my $target;
	unless (($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) {
	$target='_top';
}	}
$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 1666 returns: nothing	Line 1947 returns: nothing
}	}
}	}
my $links;	my $links;
if ((&show_return_link) && (!$CourseBreadcrumbs)) {	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 ($env{'request.noversionuri'} eq '/adm/searchcat') {
	$hashref->{'target'} = '_top';
	}
$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 1701 returns: nothing	Line 1986 returns: nothing
# last breadcrumb is the first order heading of a page	# last breadcrumb is the first order heading of a page
# for course breadcrumbs it's just bold	# for course breadcrumbs it's just bold

$links .= &htmltag( 'li', htmltag($CourseBreadcrumbs ? 'b' : 'h1',	if ($lasttext ne '') {
$lasttext), {title => $lasttext});	$links .= &htmltag( 'li', htmltag($CourseBreadcrumbs ? 'b' : 'h1',
	$lasttext), {title => $lasttext});
	}

my $icons = '';	my $icons = '';
$faq = $last->{'faq'} if (exists($last->{'faq'}));	$faq = $last->{'faq'} if (exists($last->{'faq'}));
Line 1720 returns: nothing	Line 2007 returns: nothing
$component_help,	$component_help,
$faq,$bug);	$faq,$bug);
}	}
	if ($topic_help && $topic_help_text) {
	$icons .= ' '.&Apache::loncommon::help_open_topic($topic_help,&mt($topic_help_text),'',
	undef,600);
	}
#	#


	if ($links ne '') {
unless ($CourseBreadcrumbs) {	unless ($CourseBreadcrumbs) {
$links = &htmltag('ol', $links, { id => "LC_MenuBreadcrumbs" });	$links = &htmltag('ol', $links, { id => "LC_MenuBreadcrumbs" });
} else {	} else {
$links = &htmltag('ul', $links, { class => "LC_CourseBreadcrumbs" });	$links = &htmltag('ul', $links, { class => "LC_CourseBreadcrumbs" });
	}
}	}


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 1739 returns: nothing	Line 2031 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 1773 Adds $html to $category of the breadcrum	Line 2078 Adds $html to $category of the breadcrum
$html is usually a link to a page that invokes a function on the currently	$html is usually a link to a page that invokes a function on the currently
displayed data (e.g. print when viewing a problem)	displayed data (e.g. print when viewing a problem)

Currently there are 3 possible values for $category:	=over

	=item Currently there are 3 possible values for $category:

=over	=over

Line 1787 remaining items in right of breadcrumbs	Line 2094 remaining items in right of breadcrumbs
advanced tools shown in a separate box below breadcrumbs line	advanced tools shown in a separate box below breadcrumbs line

=back	=back

	=back

returns: nothing	returns: nothing

=cut	=cut
Line 1821 returns: nothing	Line 2130 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
\$breadcrumbs at the correct position.	\$breadcrumbs at the correct position.

input: \$breadcrumbs - a reference to the string containing prepared	=over
breadcrumbs.
	=item input:

	=over

	=item \$breadcrumbs - a reference to the string containing prepared breadcrumbs.

	=back

	=back

returns: nothing	returns: nothing

Line 1853 returns: nothing	Line 2181 returns: nothing
Creates html for advanced tools (category advtools) and inserts \$breadcrumbs	Creates html for advanced tools (category advtools) and inserts \$breadcrumbs
at the correct position.	at the correct position.

input: \$breadcrumbs - a reference to the string containing prepared	=over
breadcrumbs (after render_tools call).
	=item input:

	=over

	=item \$breadcrumbs - a reference to the string containing prepared breadcrumbs (after render_tools call).

	=back

	=back

returns: nothing	returns: nothing

Line 1871 returns: nothing	Line 2208 returns: nothing

} # End of scope for @Crumbs	} # End of scope for @Crumbs

	sub docs_breadcrumbs {
	my ($allowed,$crstype,$contenteditor,$title,$precleared)=@_;
	my ($folderpath,@folders,$supplementalflag);
	@folders = split('&',$env{'form.folderpath'});
	if ($env{'form.folderpath'} =~ /^supplemental/) {
	$supplementalflag = 1;
	}
	my $plain='';
	my $container = 'sequence';
	my ($randompick,$isencrypted,$ishidden,$is_random_order) = (-1,0,0,0);
	my @docs_crumbs;
	while (@folders) {
	my $folder=shift(@folders);
	my $foldername=shift(@folders);
	if ($folderpath) {$folderpath.='&';}
	$folderpath.=$folder.'&'.$foldername;
	my $url = $env{'request.use_absolute'};
	if ($allowed) {
	$url .= '/adm/coursedocs?folderpath=';
	} else {
	$url .= '/adm/supplemental?folderpath=';
	}
	$url .= &escape($folderpath);
	my $name=&unescape($foldername);
	# each of randompick number, hidden, encrypted, random order, is_page
	# are appended with ":"s to the foldername
	$name=~s/\:(\d)\:(\w)\:(\w):(\d)\:?(\d*)$//;
	unless ($supplementalflag) {
	if ($contenteditor) {
	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 ($folder eq 'supplemental') {
	$name = &mt('Supplemental Content');
	}
	if ($contenteditor) {
	$plain.=$name.' > ';
	}
	push(@docs_crumbs,
	{'href' => $url,
	'title' => $name,
	'text' => $name,
	'no_mt' => 1,
	});
	}
	if ($title) {
	push(@docs_crumbs,
	{'title' => $title,
	'text' => $title,
	'no_mt' => 1,}
	);
	}
	if (wantarray) {
	unless ($precleared) {
	&clear_breadcrumbs();
	}
	&add_breadcrumb(@docs_crumbs);
	if ($contenteditor) {
	$plain=~s/\&gt\;\s*$//;
	}
	my $menulink = 0;
	if (!$allowed && !$contenteditor) {
	$menulink = 1;
	}
	return (&breadcrumbs(undef,undef,$menulink,'nohelp',undef,undef,
	$contenteditor),
	$randompick,$ishidden,$isencrypted,$plain,
	$is_random_order,$container);
	} else {
	return \@docs_crumbs;
	}
	}

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

Line 2098 sub course_selection {	Line 2516 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 2135 sub course_selection {	Line 2553 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 2143 sub course_selection {	Line 2561 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 2264 sub resource_info_box {	Line 2690 sub resource_info_box {
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 2508 sub set_form_elements {	Line 2981 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 2752 ENDSCRIPT	Line 3227 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 2762 sub resize_scrollbox_js {	Line 3237 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 2788 window.onresize=callResize;	Line 3263 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 2801 function resize_scrollbox(scrollboxname,	Line 3278 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 2837 FIRST	Line 3315 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 2848 FIRST	Line 3327 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 2922 PARAMSONE	Line 3402 PARAMSONE
}	}
}	}

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

if (itemid.offsetWidth != itemwstart) {	if (itemid.offsetWidth != itemwstart) {
listwchange = 1;	listwchange = 1;
}	}
THIRD
if ($context eq 'docs') {
$output .= <<"DOCSTWO";
if (activeTab == 'cc1') {
if (document.getElementById('cc_hrule') != null) {
document.getElementById('cc_hrule').style.width=actabw+"px";
}
} else {
if (activeTab == 'bb1') {
if (document.getElementById('bb_hrule') != null) {
document.getElementById('bb_hrule').style.width=actabw+"px";
}
} else {
if (activeTab == 'ee2') {
if (document.getElementById('ee_hrule') != null) {
document.getElementById('ee_hrule').style.width=actabw+"px";
}
}
}
}
DOCSTWO
}
$output .= <<"FOURTH";
}	}
if ((chkh == 1) \|\| (listwchange)) {	if ((chkh == 1) \|\| (listwchange)) {
	var itemid = document.getElementById("$names{'item'}");
	if (itemid != null) {
	itemh = itemid.offsetHeight;
	}
var primaryheight = document.getElementById('LC_nav_bar').offsetHeight;	var primaryheight = document.getElementById('LC_nav_bar').offsetHeight;
var secondaryheight = document.getElementById('LC_secondary_menu').offsetHeight;	var secondaryheight;
	if (document.getElementById('LC_secondary_menu') != null) {
	secondaryheight = document.getElementById('LC_secondary_menu').offsetHeight;
	}
var crumbsheight = document.getElementById('LC_breadcrumbs').offsetHeight;	var crumbsheight = document.getElementById('LC_breadcrumbs').offsetHeight;
var dccidheight = 0;	var dccidheight = 0;
if (document.getElementById('dccid') != null) {	if (document.getElementById('dccid') != null) {
Line 2967 DOCSTWO	Line 3435 DOCSTWO

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 2997 DOCSTWO	Line 3466 DOCSTWO
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 3007 function callResize() {	Line 3483 function callResize() {
timer=setTimeout('resize_scrollbox("$names{'scroll'}","1","1")',500);	timer=setTimeout('resize_scrollbox("$names{'scroll'}","1","1")',500);
}	}

FOURTH	THIRD
return $output;	return $output;
}	}

Line 3015 FOURTH	Line 3491 FOURTH
##############################################	##############################################

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?');
	&js_escape(\$confirm_switch);
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();
	window.location.href=lcHostname+url;
}	}
}	}

Line 3041 ENDUTILITY	Line 3519 ENDUTILITY
}	}

sub jump_to_editres {	sub jump_to_editres {
my ($cfile,$home,$switchserver,$uploaded,$symb) = @_;	my ($cfile,$home,$switchserver,$forceedit,$forcereg,$symb,$folderpath,
my $jscall;	$title,$hostname,$idx,$suppurl,$todocs,$suppanchor) = @_;
	my ($jscall,$anchor,$usehttp,$usehttps,$is_ext);
if ($switchserver) {	if ($switchserver) {
if ($symb && $home) {	if ($home) {
$cfile = '/adm/switchserver?otherserver='.$home.'&role='.	$cfile = '/adm/switchserver?otherserver='.$home.'&role='.
&HTML::Entities::encode($env{'request.role'},'"<>&').'&'.	&HTML::Entities::encode($env{'request.role'},'"<>&');
'symb='.&HTML::Entities::encode($env{'request.symb'},'"<>&');	if ($symb) {
if ($uploaded) {	$cfile .= '&symb='.&HTML::Entities::encode($symb,'"<>&');
	} elsif ($folderpath) {
	$cfile .= '&folderpath='.&HTML::Entities::encode($folderpath,'"<>&');
	}
	if ($forceedit) {
$cfile .= '&forceedit=1';	$cfile .= '&forceedit=1';
}	}
$jscall = "need_switchserver('$cfile');";	if ($forcereg) {
	$cfile .= '&register=1';
	}
	$jscall = "need_switchserver('".&Apache::loncommon::escape_single($cfile)."');";
}	}
} else {	} else {
if ($uploaded) {	unless ($cfile =~ m{^/priv/}) {
$cfile .= '?forceedit=1';	if ($cfile =~ m{^(/adm/wrapper/ext/([^#]+))#([^#]+)$}) {
	$cfile = $1;
	my $extlink = $2;
	$anchor = $3;
	$is_ext = 1;
	if (($extlink !~ /^https:/) && ($ENV{'SERVER_PORT'} == 443)) {
	$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://}) {
	$usehttp = 1;
	}
	}
	} elsif ($env{'request.use_absolute'}) {
	if ($env{'request.use_absolute'} =~ m{^https://}) {
	$usehttps = 1;
	}
	}
	}
	if ($symb) {
	if ($anchor ne '') {
	if ($symb =~ m{^([^#]+)\Q#$anchor\E$}) {
	$symb = $1.&escape(&escape('#')).$anchor;
	}
	}
	$cfile .= (($cfile=~/\?/)?'&':'?')."symb=$symb";
	} elsif ($folderpath) {
	$cfile .= (($cfile=~/\?/)?'&':'?').
	'folderpath='.&HTML::Entities::encode(&escape($folderpath),'"<>&');
	if ($title) {
	$cfile .= (($cfile=~/\?/)?'&':'?').
	'title='.&HTML::Entities::encode(&escape($title),'"<>&');
	}
	if ($idx) {
	$cfile .= (($cfile=~/\?/)?'&':'?').'idx='.$idx;
	}
	if ($suppurl) {
	$cfile .= (($cfile=~/\?/)?'&':'?').
	'suppurl='.&HTML::Entities::encode(&escape($suppurl));
	}
	}
	if ($forceedit) {
	$cfile .= (($cfile=~/\?/)?'&':'?').'forceedit=1';
	if ($usehttps) {
	$cfile = $env{'request.use_absolute'}.(($cfile =~ /^\//)? '':'/').$cfile;
	}
	} elsif ($usehttp) {
	if ($hostname ne '') {
	$cfile = 'http://'.$hostname.(($cfile =~ /^\//)? '':'/').$cfile;
	}
	unless ($is_ext) {
	$cfile .= (($cfile=~/\?/)?'&':'?').'usehttp=1';
	}
	} elsif ($usehttps) {
	$cfile = $env{'request.use_absolute'}.(($cfile =~ /^\//)? '':'/').$cfile;
	}
	if ($forcereg) {
	$cfile .= (($cfile=~/\?/)?'&':'?').'register=1';
	}
	if ($todocs) {
	$cfile .= (($cfile=~/\?/)?'&':'?').'todocs=1';
	}
	if ($suppanchor ne '') {
	$cfile .= (($cfile=~/\?/)?'&':'?').'anchor='.
	&HTML::Entities::encode($suppanchor,'"<>&');
	}
	}
	if ($anchor ne '') {
	$cfile .= '#'.$anchor;
}	}
$jscall = "go('$cfile')";	$jscall = "go('".&Apache::loncommon::escape_single($cfile)."')";
}	}
return $jscall;	return $jscall;
}	}
Line 3068 sub jump_to_editres {	Line 3631 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 3124 END	Line 3690 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 3186 sub scripttag {	Line 3752 sub scripttag {

Constructs a XHTML list from \@array.	Constructs a XHTML list from \@array.

input:	=over

	=item input:

=over	=over

Line 3200 Attributes for <ul> and <li> passed in a	Line 3768 Attributes for <ul> and <li> passed in a
See htmltag() for more details.	See htmltag() for more details.

=back	=back

	=back

returns: XHTML list as String.	returns: XHTML list as String.

=cut	=cut
Line 3319 should be included in this list.	Line 3889 should be included in this list.

If the optional headline text is not provided, a default text will be used.	If the optional headline text is not provided, a default text will be used.

	=over

	=item Related routines:

Related routines:
=over 4	=over 4
add_item_funclist
end_funclist	=item add_item_funclist

	=item end_funclist

=back	=back

	=back

Inputs: (optional) headline text	Inputs: (optional) headline text

Line 3352 sub start_funclist {	Line 3928 sub start_funclist {

Adds an item to the list of available functions	Adds an item to the list of available functions

Related routines:	=over

	=item Related routines:

=over 4	=over 4
start_funclist
end_funclist	=item start_funclist

	=item end_funclist

	=back

=back	=back

Inputs: content item with text and link to function	Inputs: content item with text and link to function
Line 3378 sub add_item_funclist {	Line 3962 sub add_item_funclist {

End list of available functions	End list of available functions

Related routines:	=over
=over 4
start_funclist	=item Related routines:
add_item_funclist
	start_funclist
	add_item_funclist

=back	=back

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 3413 A string that's used as visually highlig	Line 4001 A string that's used as visually highlig
it's value evaluates to false.	it's value evaluates to false.

=back	=back

returns: XHTML list as string.	returns: XHTML list as string.

=back	=back
Line 3426 sub funclist_from_array {	Line 4014 sub funclist_from_array {
$args->{legend} \|\|= mt('Functions');	$args->{legend} \|\|= mt('Functions');
return list_from_array( [$args->{legend}, @$items],	return list_from_array( [$args->{legend}, @$items],
{ listattr => {class => 'LC_funclist'} });	{ listattr => {class => 'LC_funclist'} });
}	}

	=pod

	=over

	=item &actionbox( \@array )

	Constructs a XHTML list from \@array with the first item being visually
	highlighted and set to the value 'Actions'. The list is wrapped in a division.

	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,
	e.g. a file operation in Authoring Space.

	=over

	=item \@array

	A reference to the array containing text. Details: sub funclist_from_array

	=back

	Returns: XHTML div as string.

	=back

	=cut

	sub actionbox {
	my ($items) = @_;
	return unless(ref($items) eq 'ARRAY');
	return
	'<div class="LC_actionbox">'
	.&funclist_from_array($items, {legend => &mt('Actions')})
	.'</div>';
	}

1;	1;

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

Removed from v.1.328
changed lines
	Added in v.1.392