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.224 and 1.262

version 1.224, 2009/06/11 16:48:33	version 1.262, 2010/01/24 03:56:09
Line 62 use Apache::lonlocal;	Line 62 use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use LONCAPA;	use LONCAPA;


	sub coursepreflink {
	my ($text,$category)=@_;
	if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
	return '<a href="'.&HTML::Entities::encode("/adm/courseprefs?phase=display&actions=$category",'<>&"').'">'.$text.'</a>';
	} else {
	return '';
	}
	}

	sub raw_href_to_link {
	my ($message)=@_;
	$message=~s/(https?\:\/\/[^\s\'\"]+)(\s\|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi;
	return $message;
	}

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

=pod

=item confirm_success	=item confirm_success

Successful completion of an operation message	Successful completion of an operation message
Line 82 sub confirm_success {	Line 96 sub confirm_success {
.'</span>'."\n";	.'</span>'."\n";
} else {	} else {
return '<span class="LC_success">'."\n"	return '<span class="LC_success">'."\n"
.'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('Ok').'" /> '."\n"	.'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('OK').'" /> '."\n"
.$message."\n"	.$message."\n"
.'</span>'."\n";	.'</span>'."\n";
}	}
Line 111 sub dragmath_button {	Line 125 sub dragmath_button {
}	}
my $buttontext=&mt('Edit Math');	my $buttontext=&mt('Edit Math');
return <<ENDDRAGMATH;	return <<ENDDRAGMATH;
<input type="button" value="$buttontext", onclick="javascript:mathedit('$textarea',document)" />$help_text	<input type="button" value="$buttontext" onclick="javascript:mathedit('$textarea',document)" />$help_text
ENDDRAGMATH	ENDDRAGMATH
}	}

Line 123 ENDDRAGMATH	Line 137 ENDDRAGMATH

Javascript used to open pop-up window containing dragmath applet which	Javascript used to open pop-up window containing dragmath applet which
can be used to paste LaTeX into a textarea.	can be used to paste LaTeX into a textarea.

=cut	=cut

sub dragmath_js {	sub dragmath_js {
Line 160 sub authorbombs {	Line 173 sub authorbombs {
$url=&Apache::lonnet::declutter($url);	$url=&Apache::lonnet::declutter($url);
my ($udom,$uname)=($url=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)/});	my ($udom,$uname)=($url=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)/});
my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);	my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
foreach (keys %bombs) {	foreach my $bomb (keys(%bombs)) {
if ($_=~/^$udom\/$uname\//) {	if ($bomb =~ /^$udom\/$uname\//) {
return '<a href="/adm/bombs/'.$url.	return '<a href="/adm/bombs/'.$url.
'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/bomb.gif').'" alt="'.&mt('Bomb').'" border="0" /></a>'.	'"><img src="'.&Apache::loncommon::lonhttpdurl('/adm/lonMisc/bomb.gif').'" alt="'.&mt('Bomb').'" border="0" /></a>'.
&Apache::loncommon::help_open_topic('About_Bombs');	&Apache::loncommon::help_open_topic('About_Bombs');
Line 222 sub select_recent {	Line 235 sub select_recent {
unless ($value =~/^error\:/) {	unless ($value =~/^error\:/) {
my $escaped = &Apache::loncommon::escape_url($value);	my $escaped = &Apache::loncommon::escape_url($value);
&Apache::loncommon::inhibit_menu_check(\$escaped);	&Apache::loncommon::inhibit_menu_check(\$escaped);
	if ($area eq 'residx') {
	next if ((!&Apache::lonnet::allowed('bre',$value)) && (!&Apache::lonnet::allowed('bro',$value)));
	}
$return.="\n<option value='$escaped'>".	$return.="\n<option value='$escaped'>".
&unescape((split(/\&/,$recent{$value}))[1]).	&unescape((split(/\&/,$recent{$value}))[1]).
'</option>';	'</option>';
Line 239 sub get_recent {	Line 255 sub get_recent {
# Begin filling return_hash with any 'always_include' option	# Begin filling return_hash with any 'always_include' option
my %time_hash = ();	my %time_hash = ();
my %return_hash = ();	my %return_hash = ();
foreach my $item (keys %recent) {	foreach my $item (keys(%recent)) {
my ($thistime,$thisvalue)=(split(/\&/,$recent{$item}));	my ($thistime,$thisvalue)=(split(/\&/,$recent{$item}));
if ($thistime eq 'always_include') {	if ($thistime eq 'always_include') {
$return_hash{$item} = &unescape($thisvalue);	$return_hash{$item} = &unescape($thisvalue);
Line 364 dname_hour, dname_min, and dname_sec.	Line 380 dname_hour, dname_min, and dname_sec.

The current setting for this time parameter. A unix format time	The current setting for this time parameter. A unix format time
(time in seconds since the beginning of Jan 1st, 1970, GMT.	(time in seconds since the beginning of Jan 1st, 1970, GMT.
An undefined value is taken to indicate the value is the current time.	An undefined value is taken to indicate the value is the current time
	unless it is requested to leave it empty. See $includeempty.
Also, to be explicit, a value of 'now' also indicates the current time.	Also, to be explicit, a value of 'now' also indicates the current time.

=item $special	=item $special
Line 374 the date_setter. See lonparmset for exa	Line 391 the date_setter. See lonparmset for exa

=item $includeempty	=item $includeempty

	If it is set (true) and no date/time value is provided,
	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.
Line 393 sub date_setter {	Line 413 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) = @_;
my $now = time;	my $now = time;
my $wasdefined=1;
	my $tzname;
	my ($sec,$min,$hour,$mday,$month,$year) = ('', '', undef,''.''.'');
	#other potentially useful values: wkday,yrday,is_daylight_savings

if (! defined($state) \|\| $state ne 'disabled') {	if (! defined($state) \|\| $state ne 'disabled') {
$state = '';	$state = '';
}	}
Line 401 sub date_setter {	Line 425 sub date_setter {
$no_hh_mm_ss = 0;	$no_hh_mm_ss = 0;
}	}
if ($currentvalue eq 'now') {	if ($currentvalue eq 'now') {
$currentvalue = $now;	$currentvalue = $now;
}	}
if ((!defined($currentvalue)) \|\| ($currentvalue eq '')) {
$wasdefined=0;	# Default value: Set empty date field to current time
if ($includeempty) {	# unless empty inclusion is requested
$currentvalue = 0;	if ((!$includeempty) && (!$currentvalue)) {
} else {	$currentvalue = $now;
$currentvalue = $now;
}
}	}
# other potentially useful values: wkday,yrday,is_daylight_savings	# Do we have a date? Split it!
my $tzname;
my ($sec,$min,$hour,$mday,$month,$year)=('','',undef,'','','');
if ($currentvalue) {	if ($currentvalue) {
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue);	($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue);
}
unless ($wasdefined) {	#No values provided for hour, min, sec? Use default 0
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now);	if (($defhour) \|\| ($defmin) \|\| ($defsec)) {
if (($defhour) \|\| ($defmin) \|\| ($defsec)) {	$sec = ($defsec ? $defsec : 0);
$sec=($defsec?$defsec:0);	$min = ($defmin ? $defmin : 0);
$min=($defmin?$defmin:0);	$hour = ($defhour ? $defhour : 0);
$hour=($defhour?$defhour:0);	}
} elsif (!$includeempty) {
$sec=0;
$min=0;
$hour=0;
}
}	}
my $result = "\n<!-- $dname date setting form -->\n";	my $result = "\n<!-- $dname date setting form -->\n";
$result .= <<ENDJS;	$result .= <<ENDJS;
Line 505 ENDJS	Line 520 ENDJS
unshift(@Months,'If you can read this an error occurred');	unshift(@Months,'If you can read this an error occurred');
if ($includeempty) { $monthselector.="<option value=''></option>"; }	if ($includeempty) { $monthselector.="<option value=''></option>"; }
for(my $m = 1;$m <=$#Months;$m++) {	for(my $m = 1;$m <=$#Months;$m++) {
$monthselector .= qq{ <option value="$m" };	$monthselector .= qq{ <option value="$m"};
$monthselector .= "selected " if ($m-1 eq $month);	$monthselector .= ' selected="selected"' if ($m-1 eq $month);
$monthselector .= '> '.&mt($Months[$m]).' </option>';	$monthselector .= '> '.&mt($Months[$m]).' </option>'."\n";
}	}
$monthselector.= ' </select>';	$monthselector.= ' </select>';
# Day	# Day
my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onchange="javascript:$dname\_checkday()" />};	my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onchange="javascript:$dname\_checkday()" />};
# Year	# Year
my $yearselector = qq{<input type="year" name="$dname\_year" $state value="$year" size="5" $special onchange="javascript:$dname\_checkday()" />};	my $yearselector = qq{<input type="text" name="$dname\_year" $state value="$year" size="5" $special onchange="javascript:$dname\_checkday()" />};
#	#
my $hourselector = qq{<select name="$dname\_hour" $special $state >};	my $hourselector = qq{<select name="$dname\_hour" $special $state >};
if ($includeempty) {	if ($includeempty) {
$hourselector.=qq{<option value=''></option>};	$hourselector.=qq{<option value=''></option>};
}	}
for (my $h = 0;$h<24;$h++) {	for (my $h = 0;$h<24;$h++) {
$hourselector .= qq{<option value="$h" };	$hourselector .= qq{<option value="$h"};
$hourselector .= "selected " if (defined($hour) && $hour == $h);	$hourselector .= ' selected="selected"' if (defined($hour) && $hour == $h);
$hourselector .= ">";	$hourselector .= ">";
my $timest='';	my $timest='';
if ($h == 0) {	if ($h == 0) {
Line 609 Inputs:	Line 624 Inputs:

=item $dname	=item $dname

The name passed to &datesetter, which prefixes the form elements.	The name passed to &date_setter, which prefixes the form elements.

=item $defaulttime	=item $defaulttime

Line 978 sub Create_PrgWin {	Line 993 sub Create_PrgWin {

#the whole function called through timeout is due to issues	#the whole function called through timeout is due to issues
#in mozilla Read BUG #2665 if you want to know the whole story	#in mozilla Read BUG #2665 if you want to know the whole story
&r_print($r,'<script type="text/javascript">'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
'// <![CDATA['.
"var popwin;	"var popwin;
function openpopwin () {	function openpopwin () {
popwin=open(\'\',\'popwin\',\'width=400,height=100\');".	popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
Line 990 sub Create_PrgWin {	Line 1004 sub Create_PrgWin {
&mt('Starting').'" /><\\/form>'.$end_page.	&mt('Starting').'" /><\\/form>'.$end_page.
"\');".	"\');".
"popwin.document.close();}".	"popwin.document.close();}".
"\nwindow.setTimeout(openpopwin,0)".	"\nwindow.setTimeout(openpopwin,0)"
'// ]]>'.	));
'</script>');
$prog_state{'formname'}='popremain';	$prog_state{'formname'}='popremain';
$prog_state{'inputname'}="remaining";	$prog_state{'inputname'}="remaining";
} elsif ($type eq 'inline') {	} elsif ($type eq 'inline') {
Line 1025 sub Create_PrgWin {	Line 1038 sub Create_PrgWin {
# update progress	# update progress
sub Update_PrgWin {	sub Update_PrgWin {
my ($r,$prog_state,$displayString)=@_;	my ($r,$prog_state,$displayString)=@_;
&r_print($r,'<script type="text/javascript">'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
'// <![CDATA['.
$$prog_state{'window'}.'.document.'.	$$prog_state{'window'}.'.document.'.
$$prog_state{'formname'}.'.'.	$$prog_state{'formname'}.'.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'inputname'}.'.value="'.
$displayString.'";'.	$displayString.'";'
'// ]]>'.	));
'</script>');
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1085 sub Increment_PrgWin {	Line 1096 sub Increment_PrgWin {
if ($user_browser eq 'explorer' && $user_os =~ 'mac') {	if ($user_browser eq 'explorer' && $user_os =~ 'mac') {
$lasttime = '';	$lasttime = '';
}	}
&r_print($r,'<script>'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
'// <![CDATA['.
$$prog_state{'window'}.'.document.'.	$$prog_state{'window'}.'.document.'.
$$prog_state{'formname'}.'.'.	$$prog_state{'formname'}.'.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'inputname'}.'.value="'.
$$prog_state{'done'}.'/'.$$prog_state{'max'}.	$$prog_state{'done'}.'/'.$$prog_state{'max'}.
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.	': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'
'// ]]>'.	));
'</script>');
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1101 sub Increment_PrgWin {	Line 1110 sub Increment_PrgWin {
sub Close_PrgWin {	sub Close_PrgWin {
my ($r,$prog_state)=@_;	my ($r,$prog_state)=@_;
if ($$prog_state{'type'} eq 'popup') {	if ($$prog_state{'type'} eq 'popup') {
&r_print($r,'<script>'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
'// <![CDATA['.	'popwin.close()'
'popwin.close()'.	));
'// ]]>'.
'</script>'."\n");
} elsif ($$prog_state{'type'} eq 'inline') {	} elsif ($$prog_state{'type'} eq 'inline') {
&Update_PrgWin($r,$prog_state,&mt('Done'));	&Update_PrgWin($r,$prog_state,&mt('Done'));
}	}
Line 1125 sub r_print {	Line 1132 sub r_print {
# ------------------------------------------------------- Puts directory header	# ------------------------------------------------------- Puts directory header

sub crumbs {	sub crumbs {
my ($uri,$target,$prefix,$form,$size,$noformat,$skiplast)=@_;	my ($uri,$target,$prefix,$form,$skiplast)=@_;
if (! defined($size)) {
$size = '+2';
}
if ($target) {	if ($target) {
$target = ' target="'.	$target = ' target="'.
&Apache::loncommon::escape_single($target).'"';	&Apache::loncommon::escape_single($target).'"';
}	}
my $output='';	my $output='<span class="LC_filename">';
unless ($noformat) { $output.='<br /><tt><b>'; }	$output.=$prefix.'/';
$output.='<font size="'.$size.'">'.$prefix.'/';	if (($env{'user.adv'}) \|\| ($env{'user.author'})) {
if ($env{'user.adv'}) {	my $path=$prefix.'/';
my $path=$prefix.'/';	foreach my $dir (split('/',$uri)) {
foreach my $dir (split('/',$uri)) {
if (! $dir) { next; }	if (! $dir) { next; }
$path .= $dir;	$path .= $dir;
if ($path eq $uri) {	if ($path eq $uri) {
if ($skiplast) {	if ($skiplast) {
$output.=$dir;	$output.=$dir;
last;	last;
}	}
} else {	} else {
$path.='/';	$path.='/';
}	}
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"$target>$dir</a>/};
} else {	} else {
$output.=qq{<a href="$href_path" $target>$dir</a>/};	$output.=qq{<a href="$href_path"$target>$dir</a>/};
}	}
}	}
} else {	} else {
foreach my $dir (split('/',$uri)) {	foreach my $dir (split('/',$uri)) {
if (! $dir) { next; }	if (! $dir) { next; }
$output.=$dir.'/';	$output.=$dir.'/';
}	}
}	}
if ($uri !~ m\|/$\|) { $output=~s\|/$\|\|; }	if ($uri !~ m\|/$\|) { $output=~s\|/$\|\|; }
return $output.'</font>'.($noformat?'':'</b></tt><br />');	$output.='</span>';

	return $output;
}	}

# --------------------- A function that generates a window for the spellchecker	# --------------------- A function that generates a window for the spellchecker
Line 1232 ENDLINK	Line 1237 ENDLINK
}	}

sub htmlareaheaders {	sub htmlareaheaders {
return if (&htmlareablocked());	my $s="";
return if (!&htmlareabrowser());	if (&htmlareabrowser()) {
return (<<ENDHEADERS);	$s.=(<<ENDEDITOR);
<script type="text/javascript" src="/fckeditor/fckeditor.js"></script>	<script type="text/javascript" src="/fckeditor/fckeditor.js"></script>
ENDHEADERS	<script type="text/javascript" src="/ckeditor/ckeditor.js"></script>
	ENDEDITOR
	}
	$s.=(<<ENDJQUERY);
	<script type="text/javascript" src="/adm/jQuery/js/jquery-1.3.2.min.js"></script>
	<script type="text/javascript" src="/adm/jQuery/js/jquery-ui-1.7.2.custom.min.js"></script>
	<link rel="stylesheet" type="text/css" href="/adm/jQuery/css/smoothness/jquery-ui-1.7.2.custom.css" />
	ENDJQUERY
	return $s;
}	}

# ----------------------------------------------------------------- Preferences	# ----------------------------------------------------------------- Preferences
Line 1271 sub htmlarea_lang {	Line 1284 sub htmlarea_lang {
sub htmlareaselectactive {	sub htmlareaselectactive {
my @fields=@_;	my @fields=@_;
unless (&htmlareabrowser()) { return ''; }	unless (&htmlareabrowser()) { return ''; }
if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); }	#if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); }
my $output='<script type="text/javascript" defer="1">'	my $output='<script type="text/javascript" defer="defer">'."\n"
.'// <![CDATA[';	.'// <![CDATA['."\n";
my $lang = &htmlarea_lang();	my $lang = &htmlarea_lang();
	$output.='

	function containsBlockHtml(id) {
	var re = $("#"+id).html().search(/(?:\&lt\;\|\<)(br\|h1\|h2\|h3\|h4\|h5\|h6\|p\|ol\|ul\|table\|pre\|address\|blockquote\|center\|div)[\s]((?:\/[\s](?:\&gt\;\|\>)\|(?:\&gt\;\|\>)[\s\S](?:\&lt\;\|\<)\/[\s]\1[\s]*\(?:\&gt\;\|\>))/im);
	return (re >= 0);
	}

	function startRichEditor(id) {
	CKEDITOR.replace(id,
	{
	customConfig: "/ckeditor/loncapaconfig.js"
	}
	);
	}

	function destroyRichEditor(id) {
	CKEDITOR.instances[id].destroy();
	}

	function editorHandler(event) {
	var rawid = $(this).attr("id");
	var id = new RegExp("LC_rt_(.*)").exec(rawid)[1]
	event.preventDefault();
	if ($(this).hasClass("LC_enable_rt")) {
	startRichEditor(id);
	$("#LC_rt_"+id).html("<b>« Plain text</b>");
	$("#LC_rt_"+id).attr("title", "Disable rich text formatting and edit in plain text");
	$("#LC_rt_"+id).addClass("LC_disable_rt");
	$("#LC_rt_"+id).removeClass("LC_enable_rt");
	} else {
	destroyRichEditor(id);
	$("#LC_rt_"+id).html("<b>Rich formatting »</b>");
	$("#LC_rt_"+id).attr("title", "Enable rich text formatting (bold, italic, etc.)");
	$("#LC_rt_"+id).addClass("LC_enable_rt");
	$("#LC_rt_"+id).removeClass("LC_disable_rt");
	}
	}

	$(document).ready(function(){
	$(".LC_richAlwaysOn").each(function() {
	startRichEditor($(this).attr("id"));
	});
	$(".LC_richDetectHtml").each(function() {
	var id = $(this).attr("id");
	if(containsBlockHtml(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>");
	startRichEditor(id);
	$("#LC_rt_"+id).click(editorHandler);
	}
	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>");
	$("#LC_rt_"+id).click(editorHandler);
	}
	});
	$(".LC_richDefaultOn").each(function() {
	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>");
	startRichEditor(id);
	$("#LC_rt_"+id).click(editorHandler);
	});
	$(".LC_richDefaultOff").each(function() {
	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>");
	$("#LC_rt_"+id).click(editorHandler);
	});

	});
	';

foreach my $field (@fields) {	foreach my $field (@fields) {
$output.="	$output.='

{	{
var oFCKeditor = new FCKeditor('$field');	$(document).ready(function() {
oFCKeditor.Config['CustomConfigurationsPath'] =	if (!($("#'.$field.'").hasClass("LC_richAlwaysOn"))) {
'/fckeditor/loncapaconfig.js';	if (!($("#'.$field.'").hasClass("LC_richAlwaysOff"))) {
oFCKeditor.ReplaceTextarea();	if (!($("#'.$field.'").hasClass("LC_richDetectHtml"))) {
oFCKeditor.Config['AutoDetectLanguage'] = false;	if (!($("#'.$field.'").hasClass("LC_richDefaultOn"))) {
oFCKeditor.Config['DefaultLanguage'] = '$lang';	if (!($("#'.$field.'").hasClass("LC_richDefaultOff"))) {
}";	var oFCKeditor = new FCKeditor("'.$field.'");
	oFCKeditor.Config["CustomConfigurationsPath"] =
	"/fckeditor/loncapaconfig.js";
	oFCKeditor.ReplaceTextarea();
	oFCKeditor.Config["AutoDetectLanguage"] = false;
	oFCKeditor.Config["DefaultLanguage"] = "'.$lang.'";
	}
	}
	}
	}
	}
	});
	}';
}	}
$output.="\nwindow.status='Activated Editfields';\n"	$output.="\nwindow.status='Activated Editfields';\n"
.'// ]]>'	.'// ]]>'."\n"
.'</script><br />'.	.'</script><br />'.
&disablelink(@fields);	&disablelink(@fields);
return $output;	return $output;
Line 1350 returns: nothing	Line 1445 returns: nothing
############################################################	############################################################
{	{
my @Crumbs;	my @Crumbs;
	my %tools = ();

sub breadcrumbs {	sub breadcrumbs {
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_;	my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_;
Line 1390 returns: nothing	Line 1486 returns: nothing
}	}
}	}
my $links = join "",	my $links = join "",
map {	map {
$faq = $_->{'faq'} if (exists($_->{'faq'}));	$faq = $_->{'faq'} if (exists($_->{'faq'}));
$bug = $_->{'bug'} if (exists($_->{'bug'}));	$bug = $_->{'bug'} if (exists($_->{'bug'}));
$help = $_->{'help'} if (exists($_->{'help'}));	$help = $_->{'help'} if (exists($_->{'help'}));

my $result = htmltag( 'a',	my $result = $_->{no_mt} ? $_->{text} : mt($_->{text});
$_->{no_mt} ?
$_->{text} : mt($_->{text}),	if ($_->{href}){
{	$result = htmltag( 'a', $result,
href => $_->{href},	{ href => $_->{href},
title => $_->{no_mt} ?	title => $_->{no_mt} ? $_->{title} : mt($_->{title}),
$_->{title} : mt($_->{title}),	target => $_->{target}, });
target => $_->{target},	}
});
$result = htmltag( 'li', "$result $crumbsymbol");	$result = htmltag( 'li', "$result $crumbsymbol");
} @Crumbs;	} @Crumbs;

#should the last Element be translated?	#should the last Element be translated?
$links .= htmltag( 'li',
htmltag( 'b',	my $lasttext = $last->{'no_mt'} ? $last->{'text'}
$last->{'no_mt'} ?	: mt( $last->{'text'} );
$last->{'text'} : mt($last->{'text'}) ));
	$links .= htmltag( 'li', htmltag('b', $lasttext), {title => $lasttext});

my $icons = '';	my $icons = '';
$faq = $last->{'faq'} if (exists($last->{'faq'}));	$faq = $last->{'faq'} if (exists($last->{'faq'}));
Line 1435 returns: nothing	Line 1532 returns: nothing
unless ($CourseBreadcrumbs) {	unless ($CourseBreadcrumbs) {
$links = htmltag('ol', $links, { id => "LC_MenuBreadcrumbs" });	$links = htmltag('ol', $links, { id => "LC_MenuBreadcrumbs" });
} else {	} else {
$links = htmltag('ul', $links, { id => "LC_CourseBreadcrumbs" });	$links = htmltag('ul', $links, { class => "LC_CourseBreadcrumbs" });
}	}

if ($component) {	if ($component) {
Line 1446 returns: nothing	Line 1543 returns: nothing
.$links;	.$links;
}	}

	render_tools(\$links);
$links = htmltag('div', $links,	$links = htmltag('div', $links,
{ id => "LC_head_subbox" }) unless ($CourseBreadcrumbs) ;	{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;
	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 1458 returns: nothing	Line 1557 returns: nothing

sub clear_breadcrumbs {	sub clear_breadcrumbs {
undef(@Crumbs);	undef(@Crumbs);
	undef(%tools);
}	}

sub add_breadcrumb {	sub add_breadcrumb {
push (@Crumbs,@_);	push(@Crumbs,@_);
	}

	=item add_breadcrumb_tool($category, $html)

	Adds $html to $category of the breadcrumb toolbar container.

	$html is usually a link to a page that invokes a function on the currently
	displayed data (e.g. print when viewing a problem)

	Currently there are 3 possible values for $category:

	=over

	=item navigation
	left of breadcrumbs line

	=item tools
	right of breadcrumbs line

	=item advtools
	advanced tools shown in a separate box below breadcrumbs line

	=back

	returns: nothing

	=cut

	sub add_breadcrumb_tool {
	my ($category, @html) = @_;
	return unless @html;
	if (!defined(%tools)) {
	%tools = ( navigation => [], tools => [], advtools => []);
	}

	#this cleans data received from lonmenu::innerregister
	@html = grep {defined $_ && $_ ne ''} @html;
	for (@html) {
	s/align="(right\|left)"//;
	s/<span.*?\/span>// if $category ne 'advtools';
	}

	push @{$tools{$category}}, @html;
	}

	=item clear_breadcrumb_tools()

	Clears the breadcrumb toolbar container.

	returns: nothing

	=cut

	sub clear_breadcrumb_tools {
	undef(%tools);
	}

	=item render_tools(\$breadcrumbs)

	Creates html for breadcrumb tools (categories navigation and tools) and inserts
	\$breadcrumbs at the correct position.

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

	returns: nothing
	=cut

	#TODO might split this in separate functions for each category
	sub render_tools {
	my ($breadcrumbs) = @_;
	return unless defined %tools;

	my $navigation = list_from_array($tools{navigation},
	{ listattr => { class=>"LC_breadcrumb_tools_navigation" } });
	my $tools = list_from_array($tools{tools},
	{ listattr => { class=>"LC_breadcrumb_tools_tools" } });
	$$breadcrumbs = list_from_array([$navigation, $tools, $$breadcrumbs],
	{ listattr => { class=>'LC_breadcrumb_tools_outerlist' } });
	}

	=item render_advtools(\$breadcrumbs)

	Creates html for advanced tools (category advtools) and inserts \$breadcrumbs
	at the correct position.

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

	returns: nothing
	=cut

	sub render_advtools {
	my ($breadcrumbs) = @_;
	return unless (defined $tools{'advtools'})
	and (scalar(@{$tools{'advtools'}}) > 0);

	$$breadcrumbs .= Apache::loncommon::head_subbox(
	funclist_from_array($tools{'advtools'}) );
}	}

} # End of scope for @Crumbs	} # End of scope for @Crumbs
Line 1555 END	Line 1754 END
}	}

sub row_title {	sub row_title {
my ($title,$css_title_class,$css_value_class) = @_;	my ($title,$css_title_class,$css_value_class, $css_value_furtherAttributes) = @_;
$row_count[0]++;	$row_count[0]++;
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
$css_title_class \|\|= 'LC_pick_box_title';	$css_title_class \|\|= 'LC_pick_box_title';
Line 1567 sub row_title {	Line 1766 sub row_title {
$title .= ':';	$title .= ':';
}	}
my $output = <<"ENDONE";	my $output = <<"ENDONE";
<tr class="LC_pick_box_row">	<tr class="LC_pick_box_row" $css_value_furtherAttributes>
<td $css_title_class>	<td $css_title_class>
$title	$title
</td>	</td>
Line 1598 ENDTWO	Line 1797 ENDTWO

sub role_select_row {	sub role_select_row {
my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_;	my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_;
	my $crstype = 'Course';
	if ($cdom ne '' && $cnum ne '') {
	$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
	}
my $output;	my $output;
if (defined($title)) {	if (defined($title)) {
$output = &row_title($title,$css_class);	$output = &row_title($title,$css_class);
Line 1622 sub role_select_row {	Line 1825 sub role_select_row {
$plrole = &mt('Custom Role');	$plrole = &mt('Custom Role');
}	}
} else {	} else {
$plrole=&Apache::lonnet::plaintext($role);	$plrole=&Apache::lonnet::plaintext($role,$crstype);
}	}
if (($role ne 'cr') \|\| (!$show_separate_custom)) {	if (($role ne 'cr') \|\| (!$show_separate_custom)) {
$output .= ' <option value="'.$role.'">'.$plrole.'</option>';	$output .= ' <option value="'.$role.'">'.$plrole.'</option>';
Line 1637 sub role_select_row {	Line 1840 sub role_select_row {

sub course_select_row {	sub course_select_row {
my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles,	my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles,
$css_class) = @_;	$css_class,$crstype) = @_;
my $output = &row_title($title,$css_class);	my $output = &row_title($title,$css_class);
$output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles);	$output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype);
$output .= &row_closure();	$output .= &row_closure();
return $output;	return $output;
}	}

sub course_selection {	sub course_selection {
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_;	my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype) = @_;
my $output = qq\|	my $output = qq\|
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 1674 sub course_selection {	Line 1877 sub course_selection {
// ]]>	// ]]>
</script>	</script>
\|;	\|;

	my ($allcrs,$pickspec);
	if ($crstype eq 'Community') {
	$allcrs = &mt('All communities');
	$pickspec = &mt('Pick specific communities:');
	} else {
	$allcrs = &mt('All courses');
	$pickspec = &mt('Pick specific course(s):');
	}

my $courseform='<b>'.&Apache::loncommon::selectcourse_link	my $courseform='<b>'.&Apache::loncommon::selectcourse_link
($formname,'pickcourse','pickdomain','coursedesc','',1).'</b>';	($formname,'pickcourse','pickdomain','coursedesc','',1,$crstype).'</b>';
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses').'<br />';	$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.$allcrs.'<br />';
if ($totcodes > 0) {	if ($totcodes > 0) {
my $numtitles = @$codetitles;	my $numtitles = @$codetitles;
if ($numtitles > 0) {	if ($numtitles > 0) {
Line 1721 sub course_selection {	Line 1934 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'".')" />'.&mt('Pick specific course(s):').' '.$courseform.'  <input type="text" value="0" size="4" name="coursetotal" /><input type="hidden" name="courselist" value="" />selected.<br />'."\n";	$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";
return $output;	return $output;
}	}

Line 1809 sub course_custom_roles {	Line 2022 sub course_custom_roles {

# topic_bar	# topic_bar
#	#
# Generates a div containing a numbered (static image) followed by a title	# Generates a div containing an (optional) number with a white background followed by a
# with a background color defined in the corresponding CSS: LC_topic_bar	# title with a background color defined in the corresponding CSS: LC_topic_bar
#	# Inputs:
	# 1. number to display.
	# If input for number is empty only the title will be displayed.
	# 2. title text to display.
	# Outputs - a scalar containing html mark-up for the div.

sub topic_bar {	sub topic_bar {
my ($imgnum,$title) = @_;	my ($num,$title) = @_;
return '<div class="LC_topic_bar">'	my $number = '';
.'<img src="/res/adm/pages/bl_step'.$imgnum.'.gif"'	if ($num ne '') {
.' alt="'.&mt('Step [_1]',$imgnum).'" />'	$number = '<span>'.$num.'</span>';
.' '.$title	}
.'</div>';	return '<div class="LC_topic_bar">'.$number.$title.'</div>';
}	}

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

# echo_form_input	# echo_form_input
#	#
# Generates html markup to add form elements from the referrer page	# Generates html markup to add form elements from the referrer page
Line 1888 sub echo_form_input {	Line 2105 sub echo_form_input {

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

# set_form_elements	# set_form_elements
#	#
# Generates javascript to set form elements to values based on	# Generates javascript to set form elements to values based on
Line 1953 sub set_form_elements {	Line 2169 sub set_form_elements {
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g;	$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g;
$values{$name}[$i] =~ s/"/\\"/g;	$values{$name}[$i] =~ s/"/\\"/g;
}	}
if ($$elements{$name} eq 'text') {	if (($$elements{$name} eq 'text') \|\| ($$elements{$name} eq 'hidden')) {
my $numvalues = @{$values{$name}};	my $numvalues = @{$values{$name}};
if ($numvalues > 1) {	if ($numvalues > 1) {
my $valuestring = join('","',@{$values{$name}});	my $valuestring = join('","',@{$values{$name}});
Line 1988 sub set_form_elements {	Line 2204 sub set_form_elements {
$output .= qq\|	$output .= qq\|
if (courseForm.elements['$name'].value == "$value") {	if (courseForm.elements['$name'].value == "$value") {
courseForm.elements['$name'].checked = true;	courseForm.elements['$name'].checked = true;
	} else {
	courseForm.elements['$name'].checked = false;
}\|;	}\|;
}	}
}	}
Line 2029 sub set_form_elements {	Line 2247 sub set_form_elements {
}	}
}	}
$output .= "	$output .= "
	return;
}\n";	}\n";
return $output;	return $output;
}	}
Line 2103 sub htmltag{	Line 2322 sub htmltag{
# USAGE: inittags(@tags);	# USAGE: inittags(@tags);
#	#
# EXAMPLES:	# EXAMPLES:
# - my ($h1, $h2, $h3) = initTags( qw( h1 h2 h3 ) )	# - my ($h1, $h2, $h3) = inittags( qw( h1 h2 h3 ) )
# $h1->("This is a headline") #Returns: <h1>This is a headline</h1>	# $h1->("This is a headline") #Returns: <h1>This is a headline</h1>
#	#
# NOTES: See sub htmltag for further information.	# NOTES: See sub htmltag for further information.
Line 2117 sub inittags {	Line 2336 sub inittags {
}	}


	# USAGE: scripttag(scriptcode, [start\|end\|both]);
	#
	# EXAMPLES:
	# - scripttag("alert('Hello World!')", 'both')
	# returns:
	# <script type="text/javascript">
	# // BEGIN LON-CAPA Internal
	# alert(Hello World!')
	# // END LON-CAPA Internal
	# </script>
	#
	# NOTES:
	# - works currently only for javascripts
	#
	# OUTPUT:
	# Scriptcode properly enclosed in <script> and CDATA tags (and LC
	# Internal markers if 2nd argument is given)
	sub scripttag {
	my ( $content, $marker ) = @_;
	return unless defined $content;

	my $begin = "\n// BEGIN LON-CAPA Internal\n";
	my $end = "\n// END LON-CAPA Internal\n";

	if ($marker) {
	$content = $begin . $content if $marker eq 'start' or $marker eq 'both';
	$content .= $end if $marker eq 'end' or $marker eq 'both';
	}

	$content = "\n// <![CDATA[\n$content\n// ]]>\n";

	return htmltag('script', $content, {type => 'text/javascript'});
	};


	=item list_from_array( \@array, { listattr =>{}, itemattr =>{} } )

	Constructs a XHTML list from \@array.

	input:

	=over

	=item \@array

	A reference to the array containing text that will be wrapped in <li></li> tags.

	=item { listattr => {}, itemattr =>{} }

	Attributes for <ul> and <li> passed in as hash references.
	See htmltag() for more details.

	=back

	returns: XHTML list as String.

	=cut

	# \@items, {listattr => { class => 'abc', id => 'xyx' }, itemattr => {class => 'abc', id => 'xyx'}}
	sub list_from_array {
	my ($items, $args) = @_;
	my ($ul, $li) = inittags( qw(ul li) );
	my $listitems = join '', map { $li->($_, $args->{itemattr}) } @$items;
	return $ul->( $listitems, $args->{listattr} );
	}


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

Line 2146 sub inittags {	Line 2432 sub inittags {
#	#
# Outputs: A scalar containing the html markup for the menu.	# Outputs: A scalar containing the html markup for the menu.

# ---- Remove when done ----
# This routine is part of the redesign of LON-CAPA and it's
# subject to change during this project.
# Don't rely on its current functionality as it might be
# changed or removed.
# --------------------------
sub generate_menu {	sub generate_menu {
my @menu = @_;	my @menu = @_;
# subs for specific html elements	# subs for specific html elements
Line 2167 sub generate_menu {	Line 2447 sub generate_menu {
# create the markup for the current $link and push it into @links.	# create the markup for the current $link and push it into @links.
# each entry consists of an image and a text optionally followed	# each entry consists of an image and a text optionally followed
# by a help link.	# by a help link.
push @links, $li->(	push(@links,$li->(
$a->(	$a->(
$img->("", {	$img->("", {
class => "LC_noBorder LC_middle",	class => "LC_noBorder LC_middle",
Line 2185 sub generate_menu {	Line 2465 sub generate_menu {
}).	}).
(defined($$link{help}) ?	(defined($$link{help}) ?
Apache::loncommon::help_open_topic($$link{help}) : ''),	Apache::loncommon::help_open_topic($$link{help}) : ''),
{class => "LC_menubuttons_inline_text"});	{class => "LC_menubuttons_inline_text"}));
}	}

# wrap categorytitle in <h3>, concatenate with	# wrap categorytitle in <h3>, concatenate with
Line 2195 sub generate_menu {	Line 2475 sub generate_menu {
# such that each element looks like:	# such that each element looks like:
# <div><h3>title</h3><ul><li>...</li>...</ul></div>	# <div><h3>title</h3><ul><li>...</li>...</ul></div>
# the category won't be added if there aren't any links	# the category won't be added if there aren't any links
push @categories,	push(@categories,
$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).	$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),	$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),
{class=>"LC_Box LC_400Box"}) if scalar(@links);	{class=>"LC_Box LC_400Box"})) if scalar(@links);
}	}

# wrap the joined @categories in another <div> (column layout)	# wrap the joined @categories in another <div> (column layout)
Line 2241 Returns: HTML code with function list st	Line 2521 Returns: HTML code with function list st
sub start_funclist {	sub start_funclist {
my($legendtext)=@_;	my($legendtext)=@_;
$legendtext=&mt('Functions') if !$legendtext;	$legendtext=&mt('Functions') if !$legendtext;
return "<fieldset>\n<legend>$legendtext</legend>\n"	return '<ul class="LC_funclist"><li style="font-weight:bold; margin-left:0.8em;">'.$legendtext.'</li>'."\n";
.'<ul class="LC_funclist">'."\n";
}	}


Line 2275 sub add_item_funclist {	Line 2554 sub add_item_funclist {
return '<li>'.$content.'</li>'."\n";	return '<li>'.$content.'</li>'."\n";
}	}

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

=pod	=pod

=item &end_funclist	=item &end_funclist
Line 2293 add_item_funclist	Line 2569 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 {
my($r)=@_;	return "</ul>\n";
return "</ul>\n</fieldset>\n";
}	}

	=pod

	=item funclist_from_array( \@array, {legend => 'text for legend'} )

	Constructs a XHTML list from \@array with the first item being visually
	highlighted and set to the value of legend or 'Functions' if legend is
	empty.

	=over

	=item \@array

	A reference to the array containing text that will be wrapped in <li></li> tags.

	=item { legend => 'text' }

	A string that's used as visually highlighted first item. 'Functions' is used if
	it's value evaluates to false.

	=back

	returns: XHTML list as string.

	=back

	=cut

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

1;	1;

__END__	__END__

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

Removed from v.1.224
changed lines
	Added in v.1.262