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.259 and 1.285.2.2

version 1.259, 2010/01/07 16:15:59	version 1.285.2.2, 2011/10/11 13:12:23
Line 60 use Time::Local;	Line 60 use Time::Local;
use Time::HiRes;	use Time::HiRes;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use HTML::Entities();
use LONCAPA;	use LONCAPA;

	sub java_not_enabled {
	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 href="/adm/courseprefs?phase=display&actions='.$category.'">'.$text.'</a>';	return '<a href="'.&HTML::Entities::encode("/adm/courseprefs?phase=display&actions=$category",'<>&"').'">'.$text.'</a>';
} else {	} else {
return '';	return '';
}	}
Line 74 sub coursepreflink {	Line 80 sub coursepreflink {

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

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

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

=pod

=item confirm_success	=item confirm_success

Successful completion of an operation message	Successful completion of an operation message
Line 92 Successful completion of an operation me	Line 101 Successful completion of an operation me
sub confirm_success {	sub confirm_success {
my ($message,$failure)=@_;	my ($message,$failure)=@_;
if ($failure) {	if ($failure) {
return '<span class="LC_error">'."\n"	return '<span class="LC_error" style="font-size: inherit;">'."\n"
.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n"	.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n"
.$message."\n"	.$message."\n"
.'</span>'."\n";	.'</span>'."\n";
Line 123 sub dragmath_button {	Line 132 sub dragmath_button {
my ($textarea,$helpicon) = @_;	my ($textarea,$helpicon) = @_;
my $help_text;	my $help_text;
if ($helpicon) {	if ($helpicon) {
$help_text = &Apache::loncommon::help_open_topic('Authoring_Math_Editor');	$help_text = &Apache::loncommon::help_open_topic('Authoring_Math_Editor',undef,undef,undef,undef,'mathhelpicon_'.$textarea);
}	}
my $buttontext=&mt('Edit Math');	my $buttontext=&mt('Edit Math');
return <<ENDDRAGMATH;	return <<ENDDRAGMATH;
Line 139 ENDDRAGMATH	Line 148 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 930 Returns: none	Line 938 Returns: none

=item Increment_PrgWin	=item Increment_PrgWin

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

Inputs:	Inputs:

Line 943 Inputs:	Line 951 Inputs:
=item $extraInfo A description of the items being iterated over. Typically	=item $extraInfo A description of the items being iterated over. Typically
'student'.	'student'.

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

=back	=back

Returns: none	Returns: none
Line 1052 sub Update_PrgWin {	Line 1062 sub Update_PrgWin {

# increment progress state	# increment progress state
sub Increment_PrgWin {	sub Increment_PrgWin {
my ($r,$prog_state,$extraInfo)=@_;	my ($r,$prog_state,$extraInfo,$step)=@_;
$$prog_state{'done'}++;	$step = $step > 0 ? $step : 1;
	$$prog_state{'done'} += $step;

	# Catch (max modulo step) <> 0
	my $current = $$prog_state{'done'};
	my $last = ($$prog_state{'max'} - $current);
	if ($last <= 0) {
	$last = 1;
	$current = $$prog_state{'max'};
	}

my $time_est= (&Time::HiRes::time() - $$prog_state{'firststart'})/	my $time_est= (&Time::HiRes::time() - $$prog_state{'firststart'})/
$$prog_state{'done'} *	$current * $last;
($$prog_state{'max'}-$$prog_state{'done'});
$time_est = int($time_est);	$time_est = int($time_est);
#	#
my $min = int($time_est/60);	my $min = int($time_est/60);
my $sec = $time_est % 60;	my $sec = $time_est % 60;
#
my $str;
if ($min == 0 && $sec > 1) {
$str = '[_2] seconds';
} elsif ($min == 1 && $sec > 1) {
$str = '1 minute [_2] seconds';
} elsif ($min == 1 && $sec < 2) {
$str = '1 minute';
} elsif ($min < 10 && $sec > 1) {
$str = '[_1] minutes, [_2] seconds';
} elsif ($min >= 10 \|\| $sec < 2) {
$str = '[_1] minutes';
}
$time_est = &mt($str,$min,$sec);
#
my $lasttime = &Time::HiRes::time()-$$prog_state{'laststart'};	my $lasttime = &Time::HiRes::time()-$$prog_state{'laststart'};
if ($lasttime > 9) {	if ($lasttime > 9) {
$lasttime = int($lasttime);	$lasttime = int($lasttime);
Line 1084 sub Increment_PrgWin {	Line 1089 sub Increment_PrgWin {
} else {	} else {
$lasttime = sprintf("%3.2f",$lasttime);	$lasttime = sprintf("%3.2f",$lasttime);
}	}
if ($lasttime == 1) {
$lasttime = '('.$lasttime.' '.&mt('second for').' '.$extraInfo.')';	$sec = 0 if ($min >= 10); # Don't show seconds if remaining time >= 10 min.
} else {	$sec = 1 if ( ($min == 0) && ($sec == 0) ); # Little cheating: pretend to have 1 second remaining instead of 0 to have something to display
$lasttime = '('.$lasttime.' '.&mt('seconds for').' '.$extraInfo.')';
}	my $timeinfo =
#	&mt('[_1]/[_2]:'
my $user_browser = $env{'browser.type'} if (exists($env{'browser.type'}));	.' [quant,_3,minute,minutes,] [quant,_4,second ,seconds ,]remaining'
my $user_os = $env{'browser.os'} if (exists($env{'browser.os'}));	.' ([quant,_5,second] for '.$extraInfo.')',
if (! defined($user_browser) \|\| ! defined($user_os)) {	$current,
(undef,$user_browser,undef,undef,undef,$user_os) =	$$prog_state{'max'},
&Apache::loncommon::decode_user_agent();	$min,
}	$sec,
if ($user_browser eq 'explorer' && $user_os =~ 'mac') {	$lasttime);
$lasttime = '';
}
&r_print($r,&Apache::lonhtmlcommon::scripttag(	&r_print($r,&Apache::lonhtmlcommon::scripttag(
$$prog_state{'window'}.'.document.'.	$$prog_state{'window'}.'.document.'.
$$prog_state{'formname'}.'.'.	$$prog_state{'formname'}.'.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'inputname'}.'.value="'.$timeinfo.'";'
$$prog_state{'done'}.'/'.$$prog_state{'max'}.
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'
));	));
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}
Line 1221 sub spelllink {	Line 1223 sub spelllink {
ENDLINK	ENDLINK
}	}

# ------------------------------------------------- Output headers for HTMLArea	# ------------------------------------------------- Output headers for CKEditor

{
my @htmlareafields;
sub init_htmlareafields {
undef(@htmlareafields);
}

sub add_htmlareafields {
my (@newfields) = @_;
push(@htmlareafields,@newfields);
}

sub get_htmlareafields {
return @htmlareafields;
}
}

sub htmlareaheaders {	sub htmlareaheaders {
my $s="";	my $s="";
if (!&htmlareablocked() && &htmlareabrowser()) {	if (&htmlareabrowser()) {
$s.=(<<ENDEDITOR);	$s.=(<<ENDEDITOR);
<script type="text/javascript" src="/fckeditor/fckeditor.js"></script>
<script type="text/javascript" src="/ckeditor/ckeditor.js"></script>	<script type="text/javascript" src="/ckeditor/ckeditor.js"></script>
ENDEDITOR	ENDEDITOR
}	}
Line 1257 ENDJQUERY	Line 1242 ENDJQUERY

# ----------------------------------------------------------------- Preferences	# ----------------------------------------------------------------- Preferences

sub disablelink {
my @fields=@_;
if (defined($#fields)) {
unless ($#fields>=0) { return ''; }
}
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=off&returnurl=','<>&"').&escape($ENV{'REQUEST_URI'}).'">'.&mt('Disable WYSIWYG Editor').'</a>';
}

sub enablelink {
my @fields=@_;
if (defined($#fields)) {
unless ($#fields>=0) { return ''; }
}
return '<a href="'.&HTML::Entities::encode('/adm/preferences?action=set_wysiwyg&wysiwyg=on&returnurl=','<>&"').&escape($ENV{'REQUEST_URI'}).'">'.&mt('Enable WYSIWYG Editor').'</a>';
}

# ------------------------------------------------- lang to use in html editor	# ------------------------------------------------- lang to use in html editor
sub htmlarea_lang {	sub htmlarea_lang {
my $lang='en';	my $lang='en';
Line 1285 sub htmlarea_lang {	Line 1254 sub htmlarea_lang {
# ----------------------------------------- Script to activate only some fields	# ----------------------------------------- Script to activate only some fields

sub htmlareaselectactive {	sub htmlareaselectactive {
my @fields=@_;	my ($args) = @_;
unless (&htmlareabrowser()) { return ''; }	unless (&htmlareabrowser()) { return ''; }
if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); }	my $output='<script type="text/javascript" defer="defer">'."\n"
my $output='<script type="text/javascript" defer="1">'."\n"
.'// <![CDATA['."\n";	.'// <![CDATA['."\n";
my $lang = &htmlarea_lang();	my $lang = &htmlarea_lang();
	my $fullpage = 'false';
	my ($dragmath_prefix,$dragmath_helpicon,$dragmath_whitespace);
	if (ref($args) eq 'HASH') {
	if (exists($args->{'lang'})) {
	if ($args->{'lang'} ne '') {
	$lang = $args->{'lang'};
	}
	}
	if (exists($args->{'fullpage'})) {
	if ($args->{'fullpage'} eq 'true') {
	$fullpage = $args->{'fullpage'};
	}
	}
	if (exists($args->{'dragmath'})) {
	if ($args->{'dragmath'} ne '') {
	$dragmath_prefix = $args->{'dragmath'};
	$dragmath_helpicon=&Apache::loncommon::lonhttpdurl("/adm/help/help.png");
	$dragmath_whitespace=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/transparent1x1.gif");
	}
	}
	}
$output.='	$output.='

function containsBlockHtml(id) {	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);	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);	return (re >= 0);
}	}

function startRichEditor(id) {	function startRichEditor(id) {
CKEDITOR.replace(id,	CKEDITOR.replace(id,
{	{
customConfig: "/ckeditor/loncapaconfig.js"	customConfig: "/ckeditor/loncapaconfig.js",
	language : "'.$lang.'",
	fullPage : '.$fullpage.',
}	}
);	);
}	}
Line 1312 sub htmlareaselectactive {	Line 1303 sub htmlareaselectactive {

function editorHandler(event) {	function editorHandler(event) {
var rawid = $(this).attr("id");	var rawid = $(this).attr("id");
var id = new RegExp("LC_rt_(.*)").exec(rawid)[1]	var id = new RegExp("LC_rt_(.*)").exec(rawid)[1];
event.preventDefault();	event.preventDefault();
if ($(this).hasClass("LC_enable_rt")) {	var rt_enabled = $(this).hasClass("LC_enable_rt");
	if (rt_enabled) {
startRichEditor(id);	startRichEditor(id);
$("#LC_rt_"+id).html("<b>« Plain text</b>");	$("#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).attr("title", "Disable rich text formatting and edit in plain text");
Line 1326 sub htmlareaselectactive {	Line 1318 sub htmlareaselectactive {
$("#LC_rt_"+id).attr("title", "Enable rich text formatting (bold, italic, etc.)");	$("#LC_rt_"+id).attr("title", "Enable rich text formatting (bold, italic, etc.)");
$("#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");
}	}';
}	if ($dragmath_prefix ne '') {
	$output .= "\n var visible = '';
	if (rt_enabled) {
	visible = 'none';
	}
	editmath_visibility(id,visible);\n";
	}
	$output .= '
	}
$(document).ready(function(){	$(document).ready(function(){
$(".LC_richAlwaysOn").each(function() {	$(".LC_richAlwaysOn").each(function() {
startRichEditor($(this).attr("id"));	startRichEditor($(this).attr("id"));
});	});
$(".LC_richDetectHtml").each(function() {	$(".LC_richDetectHtml").each(function() {
var id = $(this).attr("id");	var id = $(this).attr("id");
if(containsBlockHtml(id)) {	var rt_enabled = containsBlockHtml(id);
	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=\"Disable rich text formatting and edit in plain text\" class=\"LC_disable_rt\"><b>« Plain text</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=\"Enable rich text formatting (bold, italic, etc.)\" class=\"LC_enable_rt\"><b>Rich formatting »</b></a></div>");
$("#LC_rt_"+id).click(editorHandler);	$("#LC_rt_"+id).click(editorHandler);
}	}';
	if ($dragmath_prefix ne '') {
	$output .= "\n var visible = '';
	if (rt_enabled) {
	visible = 'none';
	}
	editmath_visibility(id,visible);\n";
	}
	$output .= '
});	});
$(".LC_richDefaultOn").each(function() {	$(".LC_richDefaultOn").each(function() {
var id = $(this).attr("id");	var id = $(this).attr("id");
Line 1354 sub htmlareaselectactive {	Line 1362 sub htmlareaselectactive {
$(".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=\"Enable rich text formatting (bold, italic, etc.)\" class=\"LC_enable_rt\"><b>Rich formatting »</b></a></div>");
$("#LC_rt_"+id).click(editorHandler);	$("#LC_rt_"+id).click(editorHandler);
});	});

});	});
';	';
	if ($dragmath_prefix ne '') {
foreach my $field (@fields) {	$output .= '
$output.='
	function editmath_visibility(id,value) {
{
$(document).ready(function() {	if ((id == "") \|\| (id == null)) {
if (!($("#'.$field.'").hasClass("LC_richAlwaysOn"))) {	return;
if (!($("#'.$field.'").hasClass("LC_richAlwaysOff"))) {	}
if (!($("#'.$field.'").hasClass("LC_richDetectHtml"))) {	var mathid = "'.$dragmath_prefix.'_"+id;
if (!($("#'.$field.'").hasClass("LC_richDefaultOn"))) {	mathele = document.getElementById(mathid);
if (!($("#'.$field.'").hasClass("LC_richDefaultOff"))) {	if (mathele == null) {
var oFCKeditor = new FCKeditor("'.$field.'");	return;
oFCKeditor.Config["CustomConfigurationsPath"] =	}
"/fckeditor/loncapaconfig.js";	mathele.style.display = value;
oFCKeditor.ReplaceTextarea();	var mathhelpicon = "'.$dragmath_prefix.'helpicon'.'_"+id;
oFCKeditor.Config["AutoDetectLanguage"] = false;	mathhelpiconele = document.getElementById(mathhelpicon);
oFCKeditor.Config["DefaultLanguage"] = "'.$lang.'";	if (mathhelpiconele == null) {
}	return;
}	}
}	if (value == "none") {
}	mathhelpiconele.src = "'.$dragmath_whitespace.'";
}	} else {
});	mathhelpiconele.src = "'.$dragmath_helpicon.'";
}';	}
	}
	';

}	}
$output.="\nwindow.status='Activated Editfields';\n"	$output.="\nwindow.status='Activated Editfields';\n"
.'// ]]>'."\n"	.'// ]]>'."\n"
.'</script><br />'.	.'</script>';
&disablelink(@fields);
return $output;	return $output;
}	}

Line 1469 returns: nothing	Line 1478 returns: nothing
if ($menulink) {	if ($menulink) {
my $description = 'Menu';	my $description = 'Menu';
my $no_mt_descr = 0;	my $no_mt_descr = 0;
if (exists($env{'request.course.id'}) &&	if ((exists($env{'request.course.id'})) &&
$env{'request.course.id'} ne '') {	($env{'request.course.id'} ne '') &&
	($env{'course.'.$env{'request.course.id'}.'.description'} ne '')) {
$description =	$description =
$env{'course.'.$env{'request.course.id'}.'.description'};	$env{'course.'.$env{'request.course.id'}.'.description'};
$no_mt_descr = 1;	$no_mt_descr = 1;
Line 1489 returns: nothing	Line 1499 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'}) ));
	# last breadcrumb is the first order heading of a page
	# for course breadcrumbs it's just bold
	$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 1545 returns: nothing	Line 1559 returns: nothing
.$links;	.$links;
}	}

#SD START (work in progress!)	render_tools(\$links);
add_tools(\$links);
#SD END
$links = htmltag('div', $links,	$links = htmltag('div', $links,
{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;	{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;
add_advtools(\$links);	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 1568 returns: nothing	Line 1580 returns: nothing
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

#SD START (work in progress!)
sub add_breadcrumb_tool {	sub add_breadcrumb_tool {
my ($category, $html) = @_;	my ($category, @html) = @_;
return unless $html;	return unless @html;
if (!defined(%tools)) {	if (!keys(%tools)) {
my %tools = ( A => [], B => [], C => []);	%tools = ( navigation => [], tools => [], advtools => []);
}	}
push @{$tools{$category}}, $html;
	#this cleans data received from lonmenu::innerregister
	@html = grep {defined $_ && $_ ne ''} @html;
	for (@html) {
	s/align="(right\|left)"//;
	if (($category ne 'advtools') && ($category ne 'tools')) {
	s/<span.*?\/span>//;
	}
	}

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

	=item clear_breadcrumb_tools()

	Clears the breadcrumb toolbar container.

	returns: nothing

	=cut

sub clear_breadcrumb_tools {	sub clear_breadcrumb_tools {
undef(%tools);	undef(%tools);
}	}

sub add_tools {	=item render_tools(\$breadcrumbs)
my ($links) = @_;
return unless defined %tools;	Creates html for breadcrumb tools (categories navigation and tools) and inserts
my $html = '<ul class="LC_bct">';	\$breadcrumbs at the correct position.
for my $category ('A','B') {
$html .= '<li class="LC_breadcrumb_tools">'	input: \$breadcrumbs - a reference to the string containing prepared
. '<ul class="LC_breadcrumb_tools'	breadcrumbs.
. " LC_breadcrumb_tools_$category\">";
for my $item (@{$tools{$category}}){	returns: nothing
#SD ugly! I'll fix that later on	=cut
$item =~ s/align="(right\|left)"//;
$item =~ s/<span(.*?)\/span>//;	#TODO might split this in separate functions for each category
$html .= "<li>$item</li>";	sub render_tools {
}	my ($breadcrumbs) = @_;
$html .= '</ul></li>';	return unless (keys(%tools));
if ($category eq 'A') { $html .= "<li>$$links</li>"; }
}	my $navigation = list_from_array($tools{navigation},
$$links = $html.'</ul>';	{ listattr => { class=>"LC_breadcrumb_tools_navigation" } });
}	my $tools = list_from_array($tools{tools},
	{ listattr => { class=>"LC_breadcrumb_tools_tools" } });
sub add_advtools {	$$breadcrumbs = list_from_array([$navigation, $tools, $$breadcrumbs],
my ($links) = @_;	{ listattr => { class=>'LC_breadcrumb_tools_outerlist' } });
return unless (defined $tools{'C'}) and (scalar (@{$tools{'C'}}) > 0);	}
my $html = start_funclist();
for my $item (@{$tools{'C'}}){	=item render_advtools(\$breadcrumbs)
next unless $item;
$item =~ s/align="(right\|left)"//;	Creates html for advanced tools (category advtools) and inserts \$breadcrumbs
$html .= add_item_funclist($item);	at the correct position.
}
$html .= end_funclist();	input: \$breadcrumbs - a reference to the string containing prepared
$html = Apache::loncommon::head_subbox($html);	breadcrumbs (after render_tools call).
$$links .= $html;
	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'}) );
}	}
#SD END

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

Line 1749 ENDTWO	Line 1812 ENDTWO

} # End: row_count block for pick_box	} # End: row_count block for pick_box


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';	my $crstype = 'Course';
Line 1795 sub role_select_row {	Line 1857 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,$crstype) = @_;	$css_class,$crstype,$standardnames) = @_;
my $output = &row_title($title,$css_class);	my $output = &row_title($title,$css_class);
$output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype);	$output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype,$standardnames);
$output .= &row_closure();	$output .= &row_closure();
return $output;	return $output;
}	}

sub course_selection {	sub course_selection {
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype) = @_;	my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype,$standardnames) = @_;
my $output = qq\|	my $output = qq\|
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 1850 sub course_selection {	Line 1912 sub course_selection {
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 .= '<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 .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n".	$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n".
'<select name="'.$$codetitles[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 = ();
Line 1880 sub course_selection {	Line 1942 sub course_selection {
$output .= '</select></td>';	$output .= '</select></td>';
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="'.$$codetitles[$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".
Line 1972 sub course_custom_roles {	Line 2034 sub course_custom_roles {
}	}


	sub resource_info_box {
	my ($symb,$onlyfolderflag)=@_;
	my $return='';
	if ($symb) {
	$return=&Apache::loncommon::start_data_table();
	my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb);
	my $folder=&Apache::lonnet::gettitle($map);
	$return.=&Apache::loncommon::start_data_table_row().
	'<th>'.&mt('Folder:').'</th><td>'.$folder.'</td>'.
	&Apache::loncommon::end_data_table_row();
	unless ($onlyfolderflag) {
	$return.=&Apache::loncommon::start_data_table_row().
	'<th>'.&mt('Resource:').'</th><td>'.&Apache::lonnet::gettitle($symb).'</td>'.
	&Apache::loncommon::end_data_table_row();
	}
	$return.=&Apache::loncommon::end_data_table();
	} else {
	$return='<p><span class="LC_error">'.&mt('No context provided.').'</span></p>';
	}
	return $return;

	}

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

Line 1996 sub topic_bar {	Line 2081 sub topic_bar {

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

# 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 2029 sub echo_form_input {	Line 2113 sub echo_form_input {
if ($key =~ /^form\.(.+)$/) {	if ($key =~ /^form\.(.+)$/) {
my $name = $1;	my $name = $1;
my $match = 0;	my $match = 0;
if ((!@{$excluded}) \|\| (!grep/^$name$/,@{$excluded})) {	if (ref($excluded) eq 'ARRAY') {
if (defined($regexps)) {	next if (grep(/^\Q$name\E$/,@{$excluded}));
if (@{$regexps} > 0) {	}
foreach my $regexp (@{$regexps}) {	if (ref($regexps) eq 'ARRAY') {
if ($name =~ /\Q$regexp\E/) {	if (@{$regexps} > 0) {
$match = 1;	foreach my $regexp (@{$regexps}) {
last;	if ($name =~ /$regexp/) {
}	$match = 1;
	last;
}	}
}	}
}	}
if (!$match) {	}
if (ref($env{$key})) {	next if ($match);
foreach my $value (@{$env{$key}}) {	if (ref($env{$key}) eq 'ARRAY') {
$value = &HTML::Entities::encode($value,'<>&"');	foreach my $value (@{$env{$key}}) {
$output .= '<input type="hidden" name="'.$name.	$value = &HTML::Entities::encode($value,'<>&"');
'" value="'.$value.'" />'."\n";	$output .= '<input type="hidden" name="'.$name.
}	'" value="'.$value.'" />'."\n";
} else {
my $value = &HTML::Entities::encode($env{$key},'<>&"');
$output .= '<input type="hidden" name="'.$name.
'" value="'.$value.'" />'."\n";
}
}	}
	} else {
	my $value = &HTML::Entities::encode($env{$key},'<>&"');
	$output .= '<input type="hidden" name="'.$name.
	'" value="'.$value.'" />'."\n";
}	}
}	}
}	}
Line 2061 sub echo_form_input {	Line 2145 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 2279 sub htmltag{	Line 2362 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 2328 sub scripttag {	Line 2411 sub scripttag {
};	};


	=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) = @_;
	return unless (ref($items) eq 'ARRAY');
	return unless scalar @$items;
	my ($ul, $li) = inittags( qw(ul li) );
	my $listitems = join '', map { $li->($_, $args->{itemattr}) } @$items;
	return $ul->( $listitems, $args->{listattr} );
	}


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

Line 2357 sub scripttag {	Line 2474 sub scripttag {
#	#
# 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 2378 sub generate_menu {	Line 2489 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.
	my $src;
	if ($$link{icon} ne '') {
	$src = '/res/adm/pages/'.$$link{icon};
	}
push(@links,$li->(	push(@links,$li->(
$a->(	$a->(
$img->("", {	$img->("", {
class => "LC_noBorder LC_middle",	class => "LC_noBorder LC_middle",
src => "/res/adm/pages/$$link{icon}",	src => $src,
alt => mt(defined($$link{alttext}) ?	alt => mt(defined($$link{alttext}) ?
$$link{alttext} : $$link{linktext})	$$link{alttext} : $$link{linktext})
}), {	}), {
Line 2485 sub add_item_funclist {	Line 2600 sub add_item_funclist {
return '<li>'.$content.'</li>'."\n";	return '<li>'.$content.'</li>'."\n";
}	}

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

=pod	=pod

=item &end_funclist	=item &end_funclist
Line 2503 add_item_funclist	Line 2615 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 {
return "</ul>\n";	return "</ul>\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) = @_;
	return unless(ref($items) eq 'ARRAY');
	$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.259
changed lines
	Added in v.1.285.2.2