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.180 and 1.223

version 1.180, 2008/09/05 22:12:47	version 1.223, 2009/06/10 13:32:38
Line 62 use Apache::lonlocal;	Line 62 use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use LONCAPA;	use LONCAPA;

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

	=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 102 can be used to paste LaTeX into a textar	Line 127 can be used to paste LaTeX into a textar
=cut	=cut

sub dragmath_js {	sub dragmath_js {
	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/EditMathPopup.html","","width=565,height=500,resizable");	newwin = window.open("/adm/dragmath/applet/$popup.html","","width=565,height=500,resizable");
}	}
	// ]]>
</script>	</script>

ENDDRAGMATHJS	ENDDRAGMATHJS
}	}


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

Line 134 sub authorbombs {	Line 163 sub authorbombs {
foreach (keys %bombs) {	foreach (keys %bombs) {
if ($_=~/^$udom\/$uname\//) {	if ($_=~/^$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 283 sub checkbox {	Line 312 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 305 sub radio {	Line 334 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 403 sub date_setter {	Line 432 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 463 document.$formname.$dname\_year.value,	Line 493 document.$formname.$dname\_year.value,
}	}

}	}
	// ]]>
</script>	</script>
ENDJS	ENDJS
$result .= ' <span style="white-space: nowrap;">';	$result .= ' <span class="LC_nobreak">';
my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >};	my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >};
# Month	# Month
my @Months = qw/January February March April May June	my @Months = qw/January February March April May June
Line 948 sub Create_PrgWin {	Line 979 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,'<script type="text/javascript">'.
	'// <![CDATA['.
"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)".
	'// ]]>'.
	'</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 991 sub Create_PrgWin {	Line 1025 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,'<script type="text/javascript">'.
	'// <![CDATA['.
	$$prog_state{'window'}.'.document.'.
$$prog_state{'formname'}.'.'.	$$prog_state{'formname'}.'.'.
$$prog_state{'inputname'}.'.value="'.	$$prog_state{'inputname'}.'.value="'.
$displayString.'";</script>');	$displayString.'";'.
	'// ]]>'.
	'</script>');
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1047 sub Increment_PrgWin {	Line 1085 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,'<script>'.
	'// <![CDATA['.
	$$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.'";'.'</script>');	': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.
	'// ]]>'.
	'</script>');
$$prog_state{'laststart'}=&Time::HiRes::time();	$$prog_state{'laststart'}=&Time::HiRes::time();
}	}

Line 1059 sub Increment_PrgWin {	Line 1101 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,'<script>'.
	'// <![CDATA['.
	'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 1141 sub spellheader {	Line 1187 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 1151 function spellcheckerwindow(string) {	Line 1198 function spellcheckerwindow(string) {
checkwin.document.close();	checkwin.document.close();
}	}
// END LON-CAPA Internal -->	// END LON-CAPA Internal -->
	// ]]>
</script>	</script>
ENDCHECK	ENDCHECK
}	}
Line 1224 sub htmlareaselectactive {	Line 1272 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">'
	.'// <![CDATA[';
my $lang = &htmlarea_lang();	my $lang = &htmlarea_lang();
foreach my $field (@fields) {	foreach my $field (@fields) {
$output.="	$output.="
Line 1237 sub htmlareaselectactive {	Line 1286 sub htmlareaselectactive {
oFCKeditor.Config['DefaultLanguage'] = '$lang';	oFCKeditor.Config['DefaultLanguage'] = '$lang';
}";	}";
}	}
$output.="\nwindow.status='Activated Editfields';\n</script><br />".	$output.="\nwindow.status='Activated Editfields';\n"
	.'// ]]>'
	.'</script><br />'.
&disablelink(@fields);	&disablelink(@fields);
return $output;	return $output;
}	}
Line 1263 sub htmlareabrowser {	Line 1314 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)
$css_class (optional name for the class to apply to the table for CSS)	$css_class (optional name for the class to apply to the table for CSS)
	$no_mt (optional flag, 1 if &mt() is _not_ to be applied to $component
	when including the text on the right.
Returns a string containing breadcrumbs for the current page.	Returns a string containing breadcrumbs for the current page.

=item clear_breadcrumbs	=item clear_breadcrumbs
Line 1301 returns: nothing	Line 1352 returns: nothing
my @Crumbs;	my @Crumbs;

sub breadcrumbs {	sub breadcrumbs {
my ($component,$component_help,$menulink,$helplink,$css_class) = @_;	my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_;
#
$css_class \|\|= 'LC_breadcrumbs';
my $Str = "\n".'<table class="'.$css_class.'"><tr><td>';
#	#
	$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';	my $description = 'Menu';
my $no_mt_descr = 0;	my $no_mt_descr = 0;
Line 1326 returns: nothing	Line 1376 returns: nothing
$env{'course.'.$env{'request.course.id'}.'.description'};	$env{'course.'.$env{'request.course.id'}.'.description'};
$no_mt_descr = 1;	$no_mt_descr = 1;
}	}
unshift(@Crumbs,{	$menulink = { href =>'/adm/menu',
href =>'/adm/menu',	title =>'Go to main menu',
title =>'Go to main menu',	target =>'_top',
target =>'_top',	text =>$description,
text =>$description,	no_mt =>$no_mt_descr, };
no_mt =>$no_mt_descr,	if($last) {
});	#$last set, so we have some crumbs
	unshift(@Crumbs,$menulink);
	} else {
	#only menulink crumb present
	$last = $menulink;
	}
}	}
my $links .=	my $links = join "",
join($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
);	#should the last Element be translated?
$links .= $crumbsymbol if ($links ne '');	$links .= htmltag( 'li',
if ($last->{'no_mt'}) {	htmltag( 'b',
$links .= '<b>'.$last->{'text'}.'</b>';	$last->{'no_mt'} ?
} else {	$last->{'text'} : mt($last->{'text'}) ));
$links .= '<b>'.&mt($last->{'text'}).'</b>';
}
#
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 1372 returns: nothing	Line 1424 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);
}
#
$Str .= $links.'</td>';
#
if (defined($component)) {
$Str .= '<td class="'.$css_class.'_component">'.
&mt($component);
if ($icons ne '') {
$Str .= ' '.$icons;
}
$Str .= '</td>';
}	}
$Str .= '</tr></table>'."\n";
#	#


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

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

	$links = htmltag('div', $links,
	{ id => "LC_head_subbox" }) unless ($CourseBreadcrumbs) ;

# 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;	return "$links";
}	}

sub clear_breadcrumbs {	sub clear_breadcrumbs {
Line 1463 returns: nothing	Line 1522 returns: nothing
# routines, but can also be called directly to start and end rows which have	# routines, but can also be called directly to start and end rows which have
# needs that are not accommodated by the *_select_row() routines.	# needs that are not accommodated by the *_select_row() routines.

	{ # Start: row_count block for pick_box
	my @row_count;

sub start_pick_box {	sub start_pick_box {
my ($css_class) = @_;	my ($css_class) = @_;
if (defined($css_class)) {	if (defined($css_class)) {
Line 1470 sub start_pick_box {	Line 1532 sub start_pick_box {
} else {	} else {
$css_class= 'class="LC_pick_box"';	$css_class= 'class="LC_pick_box"';
}	}
	unshift(@row_count,0);
my $output = <<"END";	my $output = <<"END";
<table $css_class>	<table $css_class>
END	END
Line 1477 END	Line 1540 END
}	}

sub end_pick_box {	sub end_pick_box {
	shift(@row_count);
my $output = <<"END";	my $output = <<"END";
</table>	</table>
END	END
return $output;	return $output;
}	}

	sub row_headline {
	my $output = <<"END";
	<tr><td colspan="2">
	END
	return $output;
	}

sub row_title {	sub row_title {
my ($title,$css_title_class,$css_value_class) = @_;	my ($title,$css_title_class,$css_value_class) = @_;
	$row_count[0]++;
	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';
$css_title_class = 'class="'.$css_title_class.'"';	$css_title_class = 'class="'.$css_title_class.'"';

$css_value_class \|\|= 'LC_pick_box_value';	$css_value_class \|\|= 'LC_pick_box_value';
$css_value_class = 'class="'.$css_value_class.'"';

if ($title ne '') {	if ($title ne '') {
$title .= ':';	$title .= ':';
Line 1499 sub row_title {	Line 1571 sub row_title {
<td $css_title_class>	<td $css_title_class>
$title	$title
</td>	</td>
<td $css_value_class>	<td class="$css_value_class $css_class">
ENDONE	ENDONE
return $output;	return $output;
}	}
Line 1521 ENDTWO	Line 1593 ENDTWO
return $output;	return $output;
}	}

	} # 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 $output;	my $output;
Line 1528 sub role_select_row {	Line 1603 sub role_select_row {
$output = &row_title($title,$css_class);	$output = &row_title($title,$css_class);
}	}
$output .= qq\|	$output .= qq\|
<select name="roles" multiple >\n\|;	<select name="roles" multiple="multiple">\n\|;
foreach my $role (@$roles) {	foreach my $role (@$roles) {
my $plrole;	my $plrole;
if ($role eq 'ow') {	if ($role eq 'ow') {
Line 1573 sub course_selection {	Line 1648 sub course_selection {
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_;	my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_;
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 1595 sub course_selection {	Line 1671 sub course_selection {
formname.courselist = '';	formname.courselist = '';
}	}
}	}
	// ]]>
</script>	</script>
\|;	\|;
my $courseform='<b>'.&Apache::loncommon::selectcourse_link	my $courseform='<b>'.&Apache::loncommon::selectcourse_link
Line 1655 sub status_select_row {	Line 1732 sub status_select_row {
$output = &row_title($title,$css_class,'LC_pick_box_select');	$output = &row_title($title,$css_class,'LC_pick_box_select');
}	}
$output .= qq\|	$output .= qq\|
<select name="types" multiple>\n\|;	<select name="types" multiple="multiple">\n\|;
foreach my $status_type (sort(keys(%{$types}))) {	foreach my $status_type (sort(keys(%{$types}))) {
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>';	$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>';
}	}
Line 1737 sub course_custom_roles {	Line 1814 sub course_custom_roles {
#	#
sub topic_bar {	sub topic_bar {
my ($imgnum,$title) = @_;	my ($imgnum,$title) = @_;
return '	return '<div class="LC_topic_bar">'
<div class="LC_topic_bar">	.'<img src="/res/adm/pages/bl_step'.$imgnum.'.gif"'
<img alt="'.&mt('Step [_1]',$imgnum).	.' alt="'.&mt('Step [_1]',$imgnum).'" />'
'"src="/res/adm/pages/bl_step'.$imgnum.'.gif" />	.' '.$title
<span>'.$title.'</span>	.'</div>';
</div>
';
}	}

##############################################	##############################################
Line 1996 END	Line 2071 END
}	}


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


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

	# generate_menu
	#
	# Generates html markup for a menu.
	#
	# Inputs:
	# An array of following structure:
	# ({ categorytitle => 'Categorytitle',
	# items => [
	# {
	# linktext => 'Text to be displayed',
	# url => 'URL the link is pointing to, i.e. /adm/site?action=dosomething',
	# permission => 'Contains permissions as returned from lonnet::allowed(),
	# must evaluate to true in order to activate the link',
	# icon => 'icon filename',
	# alttext => 'alt text for the icon',
	# help => 'Name of the corresponding helpfile',
	# linktitle => 'Description of the link (used for title tag)'
	# },
	# ...
	# ]
	# },
	# ...
	# )
	#
	# 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 {
	my @menu = @_;
	# subs for specific html elements
	my ($h3, $div, $ul, $li, $a, $img) = inittags( qw(h3 div ul li a img) );

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

	foreach my $category (@menu) {
	my @links; # contains the links for the current $category
	foreach my $link (@{$$category{items}}) {
	next unless $$link{permission};

	# create the markup for the current $link and push it into @links.
	# each entry consists of an image and a text optionally followed
	# by a help link.
	push @links, $li->(
	$a->(
	$img->("", {
	class => "LC_noBorder LC_middle",
	src => "/res/adm/pages/$$link{icon}",
	alt => mt(defined($$link{alttext}) ?
	$$link{alttext} : $$link{linktext})
	}), {
	href => $$link{url},
	title => mt($$link{linktitle})
	}).
	$a->(mt($$link{linktext}), {
	href => $$link{url},
	title => mt($$link{linktitle}),
	class => "LC_menubuttons_link"
	}).
	(defined($$link{help}) ?
	Apache::loncommon::help_open_topic($$link{help}) : ''),
	{class => "LC_menubuttons_inline_text"});
	}

	# wrap categorytitle in <h3>, concatenate with
	# joined and in <ul> tags wrapped @links
	# and wrap everything in an enclosing <div> and push it into
	# @categories
	# such that each element looks like:
	# <div><h3>title</h3><ul><li>...</li>...</ul></div>
	# the category won't be added if there aren't any links
	push @categories,
	$div->($h3->(mt($$category{categorytitle}), {class=>"LC_hcell"}).
	$ul->(join('' ,@links), {class =>"LC_ListStyleNormal" }),
	{class=>"LC_Box LC_400Box"}) if scalar(@links);
	}

	# wrap the joined @categories in another <div> (column layout)
	return $div->(join('', @categories), {class => "LC_columnSection"});
	}

1;	1;

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

Removed from v.1.180
changed lines
	Added in v.1.223