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.204 and 1.253.2.1

version 1.204, 2009/03/31 21:09:36	version 1.253.2.1, 2009/12/07 17:30:01
Line 63 use Apache::lonnet;	Line 63 use Apache::lonnet;
use LONCAPA;	use LONCAPA;


	sub coursepreflink {
	my ($text,$category)=@_;
	if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
	return '<a href="/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

	Successful completion of an operation message

	=cut

	sub confirm_success {
	my ($message,$failure)=@_;
	if ($failure) {
	return '<span class="LC_error">'."\n"
	.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n"
	.$message."\n"
	.'</span>'."\n";
	} else {
	return '<span class="LC_success">'."\n"
	.'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('OK').'" /> '."\n"
	.$message."\n"
	.'</span>'."\n";
	}
	}

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

Line 86 sub dragmath_button {	Line 127 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 105 sub dragmath_js {	Line 146 sub dragmath_js {
my ($popup) = @_;	my ($popup) = @_;
return <<ENDDRAGMATHJS;	return <<ENDDRAGMATHJS;
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
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/applet/$popup.html","","width=565,height=500,resizable");
}	}
	// ]]>
</script>	</script>

ENDDRAGMATHJS	ENDDRAGMATHJS
Line 133 sub authorbombs {	Line 176 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').'" 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 195 sub select_recent {	Line 238 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 212 sub get_recent {	Line 258 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 285 sub checkbox {	Line 331 sub checkbox {
$Str .= 'value="'.$value.'"';	$Str .= 'value="'.$value.'"';
}	}
if ($checked) {	if ($checked) {
$Str .= ' checked="1"';	$Str .= ' checked="checked"';
}	}
$Str .= ' />';	$Str .= ' />';
return $Str;	return $Str;
Line 307 sub radio {	Line 353 sub radio {
$Str .= 'value="'.$value.'"';	$Str .= 'value="'.$value.'"';
}	}
if ($checked eq $value) {	if ($checked eq $value) {
$Str .= ' checked="1"';	$Str .= ' checked="checked"';
}	}
$Str .= ' />';	$Str .= ' />';
return $Str;	return $Str;
Line 405 sub date_setter {	Line 451 sub date_setter {
my $result = "\n<!-- $dname date setting form -->\n";	my $result = "\n<!-- $dname date setting form -->\n";
$result .= <<ENDJS;	$result .= <<ENDJS;
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
function $dname\_checkday() {	function $dname\_checkday() {
var day = document.$formname.$dname\_day.value;	var day = document.$formname.$dname\_day.value;
var month = document.$formname.$dname\_month.value;	var month = document.$formname.$dname\_month.value;
Line 465 document.$formname.$dname\_year.value,	Line 512 document.$formname.$dname\_year.value,
}	}

}	}
	// ]]>
</script>	</script>
ENDJS	ENDJS
$result .= ' <span class="LC_nobreak">';	$result .= ' <span class="LC_nobreak">';
Line 476 ENDJS	Line 524 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 580 Inputs:	Line 628 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 949 sub Create_PrgWin {	Line 997 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(
"var popwin;	"var popwin;
function openpopwin () {	function openpopwin () {
popwin=open(\'\',\'popwin\',\'width=400,height=100\');".	popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
"popwin.document.writeln(\'".$start_page.	"popwin.document.writeln(\'".$start_page.
"<h4>".&mt("$heading")."<\/h4>".	"<h4>".&mt("$heading")."<\/h4>".
"<form action= \"\" name=\"popremain\" method=\"post\">".	"<form action=\"\" name=\"popremain\" method=\"post\">".
'<input type="text" size="'.$width.'" name="remaining" value="'.	'<input type="text" size="'.$width.'" name="remaining" value="'.
&mt('Starting').'" /><\\/form>'.$end_page.	&mt('Starting').'" /><\\/form>'.$end_page.
"\');".	"\');".
"popwin.document.close();}".	"popwin.document.close();}".
"\nwindow.setTimeout(openpopwin,0)</script>");	"\nwindow.setTimeout(openpopwin,0)"
	));
$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 993 sub Create_PrgWin {	Line 1042 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">'.$$prog_state{'window'}.'.document.'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
$$prog_state{'formname'}.'.'.	$$prog_state{'window'}.'.document.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'formname'}.'.'.
$displayString.'";</script>');	$$prog_state{'inputname'}.'.value="'.
	$displayString.'";'
	));
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1049 sub Increment_PrgWin {	Line 1100 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>'.$$prog_state{'window'}.'.document.'.	&r_print($r,&Apache::lonhtmlcommon::scripttag(
$$prog_state{'formname'}.'.'.	$$prog_state{'window'}.'.document.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'formname'}.'.'.
$$prog_state{'done'}.'/'.$$prog_state{'max'}.	$$prog_state{'inputname'}.'.value="'.
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.'</script>');	$$prog_state{'done'}.'/'.$$prog_state{'max'}.
	': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'
	));
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1061 sub Increment_PrgWin {	Line 1114 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>popwin.close()</script>'."\n");	&r_print($r,&Apache::lonhtmlcommon::scripttag(
	'popwin.close()'
	));
} 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 1081 sub r_print {	Line 1136 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 1143 sub spellheader {	Line 1196 sub spellheader {
my $nothing=&javascript_nothing();	my $nothing=&javascript_nothing();
return (<<ENDCHECK);	return (<<ENDCHECK);
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
//<!-- BEGIN LON-CAPA Internal	//<!-- BEGIN LON-CAPA Internal
var checkwin;	var checkwin;

Line 1153 function spellcheckerwindow(string) {	Line 1207 function spellcheckerwindow(string) {
checkwin.document.close();	checkwin.document.close();
}	}
// END LON-CAPA Internal -->	// END LON-CAPA Internal -->
	// ]]>
</script>	</script>
ENDCHECK	ENDCHECK
}	}
Line 1226 sub htmlareaselectactive {	Line 1281 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="1">'."\n"
	.'// <![CDATA['."\n";
my $lang = &htmlarea_lang();	my $lang = &htmlarea_lang();
foreach my $field (@fields) {	foreach my $field (@fields) {
$output.="	$output.="
Line 1239 sub htmlareaselectactive {	Line 1295 sub htmlareaselectactive {
oFCKeditor.Config['DefaultLanguage'] = '$lang';	oFCKeditor.Config['DefaultLanguage'] = '$lang';
}";	}";
}	}
$output.="\nwindow.status='Activated Editfields';\n</script><br />".	$output.="\nwindow.status='Activated Editfields';\n"
	.'// ]]>'."\n"
	.'</script><br />'.
&disablelink(@fields);	&disablelink(@fields);
return $output;	return $output;
}	}
Line 1265 sub htmlareabrowser {	Line 1323 sub htmlareabrowser {
=item breadcrumbs	=item breadcrumbs

Compiles the previously registered breadcrumbs into an series of links.	Compiles the previously registered breadcrumbs into an series of links.
FAQ and BUG links will be placed on the left side of the table if they
are defined for the last registered breadcrumb.
Additionally supports a 'component', which will be displayed on the	Additionally supports a 'component', which will be displayed on the
right side of the table (without a link).	right side of the breadcrumbs enclosing div (without a link).
A link to help for the component will be included if one is specified.	A link to help for the component will be included if one is specified.

All inputs can be undef without problems.	All inputs can be undef without problems.

Inputs: $component (the large text on the right side of the table),	Inputs: $component (the text on the right side of the breadcrumbs trail),
$component_help	$component_help
$menulink (boolean, controls whether to include a link to /adm/menu)	$menulink (boolean, controls whether to include a link to /adm/menu)
$helplink (if 'nohelp' don't include the orange help link)	$helplink (if 'nohelp' don't include the orange help link)
Line 1303 returns: nothing	Line 1359 returns: nothing
############################################################	############################################################
{	{
my @Crumbs;	my @Crumbs;
	my %tools = ();

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) = @_;
#
$css_class \|\|= 'LC_breadcrumbs';
my $Str1 = '<ol id="LC_MenuBreadcrumbs">';
my $Str = '';
#	#
	$css_class \|\|= 'LC_breadcrumbs';

# Make the faq and bug data cascade	# Make the faq and bug data cascade
my $faq = '';	my $faq = '';
my $bug = '';	my $bug = '';
my $help='';	my $help = '';
# Crumb Symbol	# Crumb Symbol
my $crumbsymbol = '» ';	my $crumbsymbol = '»';
# The last breadcrumb does not have a link, so handle it separately.	# The last breadcrumb does not have a link, so handle it separately.
my $last = pop(@Crumbs);	my $last = pop(@Crumbs);
#	#
# The first one should be the course or a menu link	# The first one should be the course or a menu link
if (!defined($menulink)) { $menulink=1; }	if (!defined($menulink)) { $menulink=1; }
if ($menulink) {	if ($menulink) {
my $description = 'Menu';	unless ($menulink eq '_nomenu') {
my $no_mt_descr = 0;	my $description = 'Menu';
if (exists($env{'request.course.id'}) &&	my $no_mt_descr = 0;
$env{'request.course.id'} ne '') {	$menulink = { href =>'/adm/menu',
$description =	title =>'Go to main menu',
$env{'course.'.$env{'request.course.id'}.'.description'};	target =>'_top',
$no_mt_descr = 1;	text =>$description,
}	no_mt =>$no_mt_descr, };
unshift(@Crumbs,{	}
href =>'/adm/menu',	if($last) {
title =>'Go to main menu',	#$last set, so we have some crumbs
target =>'_top',	unshift(@Crumbs,$menulink);
text =>$description,	} else {
no_mt =>$no_mt_descr,	#only menulink crumb present
});	$last = $menulink;
	}
}	}
my $links .= '<li>'.	my $links = join "",
join('</li><li>'.$crumbsymbol,
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 = '<a href="'.$_->{'href'}.'" ';
if (defined($_->{'target'}) && $_->{'target'} ne '') {	my $result = htmltag( 'a',
$result .= 'target="'.$_->{'target'}.'" ';	$_->{no_mt} ?
}	$_->{text} : mt($_->{text}),
if ($_->{'no_mt'}) {	{
$result .='title="'.$_->{'title'}.'">'.	href => $_->{href},
$_->{'text'}.'</a>';	title => $_->{no_mt} ?
} else {	$_->{title} : mt($_->{title}),
$result .='title="'.&mt($_->{'title'}).'">'.	target => $_->{target},
&mt($_->{'text'}).'</a>';	});
}	$result = htmltag( 'li', "$result $crumbsymbol");
$result;	} @Crumbs;
} @Crumbs
).'</li>';	#should the last Element be translated?
$links .= '<li>'.$crumbsymbol if ($links ne '');	$links .= htmltag( 'li',
if ($last->{'no_mt'}) {	htmltag( 'b',
$links .= '<b>'.$last->{'text'}.'</b></li>';	$last->{'no_mt'} ?
} else {	$last->{'text'} : mt($last->{'text'}) ));
$links .= '<b>'.&mt($last->{'text'}).'</b></li>';
}
#
my $icons = '';	my $icons = '';
$faq = $last->{'faq'} if (exists($last->{'faq'}));	$faq = $last->{'faq'} if (exists($last->{'faq'}));
$bug = $last->{'bug'} if (exists($last->{'bug'}));	$bug = $last->{'bug'} if (exists($last->{'bug'}));
$help = $last->{'help'} if (exists($last->{'help'}));	$help = $last->{'help'} if (exists($last->{'help'}));
$component_help=($component_help?$component_help:$help);	$component_help=($component_help?$component_help:$help);
# if ($faq ne '') {	# if ($faq ne '') {
Line 1377 returns: nothing	Line 1430 returns: nothing
# if ($bug ne '') {	# if ($bug ne '') {
# $icons .= &Apache::loncommon::help_open_bug($bug);	# $icons .= &Apache::loncommon::help_open_bug($bug);
# }	# }
if ($faq ne '' \|\| $component_help ne '' \|\| $bug ne '') {	if ($faq ne '' \|\| $component_help ne '' \|\| $bug ne '') {
$icons .= &Apache::loncommon::help_open_menu($component,	$icons .= &Apache::loncommon::help_open_menu($component,
$component_help,	$component_help,
$faq,$bug);	$faq,$bug);
}
#
$Str1 .= $links.'</ol>';
#
if (defined($component)) {
$Str .= "\n".'<table class="'.$css_class.'">'
.'<tr><td class="'.$css_class.'_component">';
if ($no_mt) {
$Str .= $component;
} else {
$Str .= &mt($component);
}
if ($icons ne '') {
$Str .= ' '.$icons;
}
$Str .= '</td></tr></table>'."\n";
}	}
#	#


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

	if ($component) {
	$links = htmltag('span',
	( $no_mt ? $component : mt($component) ).
	( $icons ? $icons : '' ),
	{ class => 'LC_breadcrumbs_component' } )
	.$links;
	}

	#SD START (work in progress!)
	add_tools(\$links);
	#SD END
	$links = htmltag('div', $links,
	{ id => "LC_breadcrumbs" }) unless ($CourseBreadcrumbs) ;
	add_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);
shift(@Crumbs);	shift(@Crumbs);
#	# Return the breadcrumb's line
return "$Str\n$Str1";	return "$links";
}	}

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

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


	#SD START (work in progress!)
	sub add_breadcrumb_tool {
	my ($category, $html) = @_;
	return unless $html;
	if (!defined(%tools)) {
	my %tools = ( A => [], B => [], C => []);
	}
	push @{$tools{$category}}, $html;
	}

	sub clear_breadcrumb_tools {
	undef(%tools);
	}

	sub add_tools {
	my ($links) = @_;
	return unless defined %tools;
	my $html = '<ul class="LC_bct">';
	for my $category ('A','B') {
	$html .= '<li class="LC_breadcrumb_tools">'
	. '<ul class="LC_breadcrumb_tools'
	. " LC_breadcrumb_tools_$category\">";
	for my $item (@{$tools{$category}}){
	#SD ugly! I'll fix that later on
	$item =~ s/align="(right\|left)"//;
	$item =~ s/<span(.*?)\/span>//;
	$html .= "<li>$item</li>";
	}
	$html .= '</ul></li>';
	if ($category eq 'A') { $html .= "<li>$$links</li>"; }
	}
	$$links = $html.'</ul>';
	}

	sub add_advtools {
	my ($links) = @_;
	return unless (defined $tools{'C'}) and (scalar (@{$tools{'C'}}) > 0);
	my $html = start_funclist();
	for my $item (@{$tools{'C'}}){
	next unless $item;
	$item =~ s/align="(right\|left)"//;
	$html .= add_item_funclist($item);
	}
	$html .= end_funclist();
	$html = Apache::loncommon::head_subbox($html);
	$$links .= $html;
}	}
	#SD END

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

Line 1505 END	Line 1616 END
}	}

sub row_title {	sub row_title {
	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';
my ($title,$css_title_class,$css_value_class) = @_;
$css_title_class \|\|= 'LC_pick_box_title';	$css_title_class \|\|= 'LC_pick_box_title';
$css_title_class = 'class="'.$css_title_class.'"';	$css_title_class = 'class="'.$css_title_class.'"';

Line 1517 sub row_title {	Line 1628 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 1548 ENDTWO	Line 1659 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 1572 sub role_select_row {	Line 1687 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 1587 sub role_select_row {	Line 1702 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[
function coursePick (formname) {	function coursePick (formname) {
for (var i=0; i<formname.coursepick.length; i++) {	for (var i=0; i<formname.coursepick.length; i++) {
if (formname.coursepick[i].value == 'category') {	if (formname.coursepick[i].value == 'category') {
Line 1620 sub course_selection {	Line 1736 sub course_selection {
formname.courselist = '';	formname.courselist = '';
}	}
}	}
	// ]]>
</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 1669 sub course_selection {	Line 1796 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 1724 sub email_default_row {	Line 1851 sub email_default_row {

sub submit_row {	sub submit_row {
my ($title,$cmd,$submit_text,$css_class) = @_;	my ($title,$cmd,$submit_text,$css_class) = @_;
$submit_text = &mt($submit_text);
my $output = &row_title($title,$css_class,'LC_pick_box_submit');	my $output = &row_title($title,$css_class,'LC_pick_box_submit');
$output .= qq\|	$output .= qq\|
<br />	<br />
Line 1758 sub course_custom_roles {	Line 1884 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 '	my $number = '';
<div class="LC_topic_bar">	if ($num ne '') {
<img alt="'.&mt('Step [_1]',$imgnum).	$number = '<span>'.$num.'</span>';
'"src="/res/adm/pages/bl_step'.$imgnum.'.gif" />	}
<span>'.$title.'</span>	return '<div class="LC_topic_bar">'.$number.$title.'</div>';
</div>
';
}	}

##############################################	##############################################
Line 1904 sub set_form_elements {	Line 2033 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 1939 sub set_form_elements {	Line 2068 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 1980 sub set_form_elements {	Line 2111 sub set_form_elements {
}	}
}	}
$output .= "	$output .= "
	return;
}\n";	}\n";
return $output;	return $output;
}	}
Line 2021 END	Line 2153 END
return $scripttag;	return $scripttag;
}	}


	# USAGE: htmltag(element, content, {attribute => value,...});
	#
	# EXAMPLES:
	# - htmltag('a', 'this is an anchor', {href => 'www.example.com',
	# title => 'this is a title'})
	#
	# - You might want to set up needed tags like:
	#
	# my $h3 = sub { return htmltag( "h3", @_ ) };
	#
	# ... and use them: $h3->("This is a headline")
	#
	# - To set up a couple of tags, see sub inittags
	#
	# NOTES:
	# - Empty elements, such as <br/> are correctly terminated,
	# i.e. htmltag('br') returns <br/>
	# - Empty attributes (title="") are filtered out.
	# - The function will not check for deprecated attributes.
	#
	# OUTPUT: content enclosed in xhtml conform tags
	sub htmltag{
	return
	qq\|<$_[0]\|
	. join( '', map { qq\| $_="${$_[2]}{$_}"\| if ${$_[2]}{$_} } keys %{ $_[2] } )
	. ($_[1] ? qq\|>$_[1]</$_[0]>\| : qq\|/>\|). "\n";
	};


	# USAGE: inittags(@tags);
	#
	# EXAMPLES:
	# - my ($h1, $h2, $h3) = initTags( qw( h1 h2 h3 ) )
	# $h1->("This is a headline") #Returns: <h1>This is a headline</h1>
	#
	# NOTES: See sub htmltag for further information.
	#
	# OUTPUT: List of subroutines.
	sub inittags {
	my @tags = @_;
	return map { my $tag = $_;
	sub { return htmltag( $tag, @_ ) }
	} @tags;
	}


	# 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'});
	};


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

Line 2058 END	Line 2272 END
# --------------------------	# --------------------------
sub generate_menu {	sub generate_menu {
my @menu = @_;	my @menu = @_;

# usage: $wrap->(element, content, {attribute => value,...});
# output: content enclosed in html conform tags
my $wrap = sub {
return
qq\|<$_[0]\|
. join( '', map { qq\| $_="${$_[2]}{$_}"\| } keys %{ $_[2] } )
. ($_[1] ? qq\|>$_[1]</$_[0]>\| : qq\|/>\|). "\n";
};

# subs for specific html elements	# subs for specific html elements
my $h3 = sub { return $wrap->( "h3", @_ ) };	my ($h3, $div, $ul, $li, $a, $img) = inittags( qw(h3 div ul li a img) );
my $div = sub { return $wrap->( "div", @_ ) };
my $ul = sub { return $wrap->( "ul", @_ ) };
my $li = sub { return $wrap->( "li", @_ ) };
my $a = sub { return $wrap->( "a", @_ ) };
my $img = sub { return $wrap->( "img", @_ ) };

my @categories; # each element represents the entire markup for a category	my @categories; # each element represents the entire markup for a category

Line 2086 sub generate_menu {	Line 2285 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 2104 sub generate_menu {	Line 2303 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 2114 sub generate_menu {	Line 2313 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_ContentBoxSpecial 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)
return $div->(join('', @categories), {class => "LC_columnSection"});	return $div->(join('', @categories), {class => "LC_columnSection"});
}	}

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

	=pod

	=item &start_funclist

	Start list of available functions

	Typically used to offer a simple list of available functions
	at top or bottom of page.
	All available functions/actions for the current page
	should be included in this list.

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


	Related routines:
	=over 4
	add_item_funclist
	end_funclist
	=back


	Inputs: (optional) headline text

	Returns: HTML code with function list start

	=cut

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

	sub start_funclist {
	my($legendtext)=@_;
	$legendtext=&mt('Functions') if !$legendtext;
	return '<ul class="LC_funclist"><li style="font-weight:bold; margin-left:0.8em;">'.$legendtext.'</li>'."\n";
	}


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

	=pod

	=item &add_item_funclist

	Adds an item to the list of available functions

	Related routines:
	=over 4
	start_funclist
	end_funclist
	=back

	Inputs: content item with text and link to function

	Returns: HTML code with list item for funclist

	=cut

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

	sub add_item_funclist {
	my($content) = @_;
	return '<li>'.$content.'</li>'."\n";
	}

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

	=pod

	=item &end_funclist

	End list of available functions

	Related routines:
	=over 4
	start_funclist
	add_item_funclist
	=back

	Inputs: ./.

	Returns: HTML code with function list end

	=cut

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

	sub end_funclist {
	return "</ul>\n";
	}

1;	1;

__END__	__END__

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

Removed from v.1.204
changed lines
	Added in v.1.253.2.1