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.307 and 1.325

version 1.307, 2012/04/04 10:47:29	version 1.325, 2012/09/24 11:04:20
Line 95 sub direct_parm_link {	Line 95 sub direct_parm_link {
$filter=&entity_encode($filter);	$filter=&entity_encode($filter);
$part=&entity_encode($part);	$part=&entity_encode($part);
if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) {	if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) {
return "<a target='_top' href='/adm/parmset?symb=$symb&filter=$filter&part=$part'><span class='LC_setting'>$linktext</span></a>";	return "<a target='_top' href='/adm/parmset?symb=$symb&filter=$filter&part=$part'><span class='LC_setting'>$linktext</span></a>";
} else {	} else {
return $linktext;	return $linktext;
}	}
Line 103 sub direct_parm_link {	Line 103 sub direct_parm_link {
##############################################	##############################################
##############################################	##############################################

=item confirm_success	=item &confirm_success()

Successful completion of an operation message	Successful completion of an operation message

Line 129 sub confirm_success {	Line 129 sub confirm_success {

=pod	=pod

=item dragmath_button	=item &dragmath_button()

Creates a button that launches a dragmath popup-window, in which an	Creates a button that launches a dragmath popup-window, in which an
expression can be edited and pasted as LaTeX into a specified textarea.	expression can be edited and pasted as LaTeX into a specified textarea.
Line 155 ENDDRAGMATH	Line 155 ENDDRAGMATH

=pod	=pod

=item dragmath_js	=item &dragmath_js()

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 177 sub dragmath_js {	Line 178 sub dragmath_js {
ENDDRAGMATHJS	ENDDRAGMATHJS
}	}

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

	=pod

	=item &dependencies_button()

	Creates a button that launches a popup-window, in which dependencies
	for the web page in the main window can be added to, replaced or deleted.

	=cut

	sub dependencies_button {
	my $buttontext=&mt('Manage Dependencies');
	return <<"END";
	<input type="button" value="$buttontext" onclick="javascript:dependencycheck();" />
	END
	}

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

	=pod

	=item &dependencycheck_js()

	Javascript used to open pop-up window containing interface to manage
	dependencies for a web page uploaded diretcly to a course.

	=cut

	sub dependencycheck_js {
	my ($symb,$title,$url) = @_;
	my $link = '/adm/dependencies?symb='.&HTML::Entities::encode($symb,'<>&"').
	'&title='.&HTML::Entities::encode($title,'<>&"').
	'&url='.&HTML::Entities::encode($url,'<>&"');
	return <<ENDJS;
	<script type="text/javascript">
	// <![CDATA[
	function dependencycheck() {
	depwin = window.open("$link","","width=750,height=500,resizable,scrollbars=yes");
	}
	// ]]>
	</script>
	ENDJS
	}

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

=pod	=pod

=item authorbombs	=item &authorbombs()

=cut	=cut

Line 317 sub get_recent_frozen {	Line 363 sub get_recent_frozen {

=pod	=pod

=item textbox	=item &textbox()

=cut	=cut

Line 337 sub textbox {	Line 383 sub textbox {

=pod	=pod

=item checkbox	=item &checkbox()

=cut	=cut

Line 359 sub checkbox {	Line 405 sub checkbox {

=pod	=pod

=item radiobutton	=item &radiobutton()

=cut	=cut

Line 383 sub radio {	Line 429 sub radio {

=pod	=pod

=item &date_setter	=item &date_setter()

&date_setter returns html and javascript for a compact date-setting form.	&date_setter returns html and javascript for a compact date-setting form.
To retrieve values from it, use &get_date_from_form().	To retrieve values from it, use &get_date_from_form.

Inputs	Inputs

Line 636 sub build_url {	Line 682 sub build_url {

=pod	=pod

=item &get_date_from_form	=item &get_date_from_form()

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

Line 895 of items completed and an estimate of th	Line 941 of items completed and an estimate of th
=over 4	=over 4


=item &Create_PrgWin	=item &Create_PrgWin()

Writes javascript to the client to open a progress window and returns a	Writes javascript to the client to open a progress window and returns a
data structure used for bookkeeping.	data structure used for bookkeeping.
Line 906 Inputs	Line 952 Inputs

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

=item $title The title of the progress window

=item $heading A description (usually 1 line) of the process being initiated.

=item $number_to_do The total number of items being processed.	=item $number_to_do The total number of items being processed.

=item $type Either 'popup' or 'inline' (popup is assumed if nothing is
specified)

=item $width Specify the width in charaters of the input field.

=item $formname Only useful in the inline case, if a form already exists, this needs to be used and specfiy the name of the form, otherwise the Progress line will be created in a new form of it's own

=item $inputname Only useful in the inline case, if a form and an input of type text exists, use this to specify the name of the input field

=back	=back

Returns a hash containing the progress state data structure.	Returns a hash containing the progress state data structure.


=item &Update_PrgWin	=item &Update_PrgWin()

Updates the text in the progress indicator. Does not increment the count.	Updates the text in the progress indicator. Does not increment the count.
See &Increment_PrgWin.	See &Increment_PrgWin.
Line 946 Inputs:	Line 979 Inputs:
Returns: none	Returns: none


=item Increment_PrgWin	=item Increment_PrgWin()

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

Line 968 Inputs:	Line 1001 Inputs:
Returns: none	Returns: none


=item Close_PrgWin	=item &Close_PrgWin()

Closes the progress window.	Closes the progress window.

Line 1176 ENDEDITOR	Line 1209 ENDEDITOR
<script type="text/javascript" src="/adm/jpicker/js/jpicker-1.1.6.min.js" >	<script type="text/javascript" src="/adm/jpicker/js/jpicker-1.1.6.min.js" >
</script>	</script>
<link rel="stylesheet" type="text/css" href="/adm/jpicker/css/jPicker-1.1.6.min.css" />	<link rel="stylesheet" type="text/css" href="/adm/jpicker/css/jPicker-1.1.6.min.css" />
<script type='text/javascript' src='/adm/countdown/js/jquery.countdown.js'></script>	<script type="text/javascript" src="/adm/countdown/js/jquery.countdown.js"></script>
<link rel="stylesheet" type="text/css" src='/adm/countdown/css/jquery.countdown.css' />	<link rel="stylesheet" type="text/css" href="/adm/countdown/css/jquery.countdown.css" />

	<script type="text/javascript" src="/adm/spellchecker/js/jquery.spellchecker.min.js"></script>
	<link rel="stylesheet" type="text/css" href="/adm/spellchecker/css/spellchecker.css" />

ENDJQUERY	ENDJQUERY
return $s;	return $s;
}	}
Line 1338 sub htmlareaselectactive {	Line 1375 sub htmlareaselectactive {
# is used to determine when the countdown timer turns red to warn the user	# is used to determine when the countdown timer turns red to warn the user
# to think about submitting.	# to think about submitting.

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

var documentReadyTime;	var documentReadyTime;
Line 1350 sub htmlareaselectactive {	Line 1389 sub htmlareaselectactive {
layout: "$dueDateLayout",	layout: "$dueDateLayout",
onTick: function (periods) {	onTick: function (periods) {
var latencyEstimate = (documentReadyTime - clientTime) * 2;	var latencyEstimate = (documentReadyTime - clientTime) * 2;
	if(\$.countdown.periodsToSeconds(periods) < (300 + latencyEstimate)) {
	\$("#submitearly").html("$early");
	if (\$.countdown.periodsToSeconds(periods) < 1) {
	\$("#submitearly").html("$pastdue");
	}
	}
if(\$.countdown.periodsToSeconds(periods) < (60 + latencyEstimate)) {	if(\$.countdown.periodsToSeconds(periods) < (60 + latencyEstimate)) {
\$(this).css("color", "red"); //Highlight last minute.	\$(this).css("color", "red"); //Highlight last minute.
}	}
Line 1357 sub htmlareaselectactive {	Line 1402 sub htmlareaselectactive {
});	});
}	}
});	});

	/* This code describes the spellcheck options that will be used for
	items with class 'spellchecked'. It is necessary for those objects'
	to explicitly request checking (e.g. onblur is a nice event for that).
	*/
	\$(document).ready(function() {
	\$(".spellchecked").spellchecker({
	url: "/ajax/spellcheck",
	lang: "en",
	engine: "pspell",
	suggestionBoxPosition: "below",
	innerDocument: true
	});
	\$("textarea.spellchecked").spellchecker({
	url: "/ajax/spellcheck",
	lang: "en",
	engine: "pspell",
	suggestionBoxPosition: "below",
	innerDocument: true
	});

	});

	/* the muli colored editor can generate spellcheck with language 'none'
	to disable spellcheck as well
	*/
	function doSpellcheck(element, lang) {
	if (lang != 'none') {
	\$(element).spellchecker('option', {lang: lang});
	\$(element).spellchecker('check');
	}
	}


JAVASCRIPT	JAVASCRIPT
if ($dragmath_prefix ne '') {	if ($dragmath_prefix ne '') {
$output .= '	$output .= '
Line 1413 sub show_return_link {	Line 1492 sub show_return_link {

unless ($env{'request.course.id'}) { return 0; }	unless ($env{'request.course.id'}) { return 0; }
if ($env{'request.noversionuri'}=~m{^/priv/} \|\|	if ($env{'request.noversionuri'}=~m{^/priv/} \|\|
$env{'request.uri'}=~m{^/~}) { return 1; }	$env{'request.uri'}=~m{^/priv/}) { return 1; }

if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist\|navmaps)($\|\?)})	if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist\|navmaps)($\|\?)})
\|\| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($\|\?)})) {	\|\| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($\|\?)})) {
Line 1452 sub set_due_date {	Line 1531 sub set_due_date {
# The code should correct for gross differences between the server	# The code should correct for gross differences between the server
# and client's time setting	# and client's time setting

my $js = "	return <<"END";
<script type='text/javascript'>
	<script type="text/javascript">
//<![CDATA[	//<![CDATA[
var serverDueDate = $duems;	var serverDueDate = $duems;
var serverTime = $now;	var serverTime = $now;
Line 1462 var dueDate = new Date(serverDueDa	Line 1542 var dueDate = new Date(serverDueDa

//]]>	//]]>
</script>	</script>
";

return $js;	END
}	}
##	##
# Sets the time at which the problem finished computing.	# Sets the time at which the problem finished computing.
Line 1476 var dueDate = new Date(serverDueDa	Line 1555 var dueDate = new Date(serverDueDa
sub set_compute_end_time {	sub set_compute_end_time {

my $now = time()*1000; # Javascript times are in ms.	my $now = time()*1000; # Javascript times are in ms.
my $js = "	return <<"END";
<script type='text/javascript'>
	<script type="text/javascript">
//<![CDATA[	//<![CDATA[
serverTime = $now;	serverTime = $now;
clientTime = (new Date()).getTime();	clientTime = (new Date()).getTime();
//]]>	//]]>
</script>	</script>

";	END
return $js;

}	}

############################################################	############################################################
Line 1494 clientTime = (new Date()).getTime();	Line 1572 clientTime = (new Date()).getTime();

=pod	=pod

=item breadcrumbs	=item &breadcrumbs()

Compiles the previously registered breadcrumbs into an series of links.	Compiles the previously registered breadcrumbs into an series of links.
Additionally supports a 'component', which will be displayed on the	Additionally supports a 'component', which will be displayed on the
Line 1512 Inputs: $component (the text on the righ	Line 1590 Inputs: $component (the text on the righ
when including the text on the right.	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()

Clears the previously stored breadcrumbs.	Clears the previously stored breadcrumbs.

=item add_breadcrumb	=item &add_breadcrumb()

Pushes a breadcrumb on the stack of crumbs.	Pushes a breadcrumb on the stack of crumbs.

Line 1536 returns: nothing	Line 1614 returns: nothing
my %tools = ();	my %tools = ();

sub breadcrumbs {	sub breadcrumbs {
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_;	my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt,
	$CourseBreadcrumbs) = @_;
#	#
$css_class \|\|= 'LC_breadcrumbs';	$css_class \|\|= 'LC_breadcrumbs';

Line 1577 returns: nothing	Line 1656 returns: nothing
my $links;	my $links;
if ((&show_return_link) && (!$CourseBreadcrumbs)) {	if ((&show_return_link) && (!$CourseBreadcrumbs)) {
my $alttext = &mt('Go Back');	my $alttext = &mt('Go Back');
$links=&htmltag( 'a',"<img src='/res/adm/pages/reload.png' border='0' style='vertical-align:middle;' alt='$alttext' />",	$links=&htmltag( 'a','<img src="/res/adm/pages/tolastloc.png" alt="'.$alttext.'" class="LC_icon" />',
{ href => '/adm/flip?postdata=return:',	{ href => '/adm/flip?postdata=return:',
title => &mt("Back to most recent content resource") });	title => &mt('Back to most recent content resource'),
	class => 'LC_menubuttons_link',
	});
$links=&htmltag('li',$links);	$links=&htmltag('li',$links);
}	}
$links.= join "",	$links.= join "",
Line 1611 returns: nothing	Line 1692 returns: nothing
$links .= &htmltag( 'li', htmltag($CourseBreadcrumbs ? 'b' : 'h1',	$links .= &htmltag( 'li', htmltag($CourseBreadcrumbs ? 'b' : 'h1',
$lasttext), {title => $lasttext});	$lasttext), {title => $lasttext});

$links .= '<li> <span id="duedatecountdown"></span></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'}));
Line 1675 returns: nothing	Line 1754 returns: nothing
push(@Crumbs,@_);	push(@Crumbs,@_);
}	}

=item add_breadcrumb_tool($category, $html)	=item &add_breadcrumb_tool($category, $html)

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

Line 1690 Currently there are 3 possible values fo	Line 1769 Currently there are 3 possible values fo
left of breadcrumbs line	left of breadcrumbs line

=item tools	=item tools
right of breadcrumbs line	remaining items in right of breadcrumbs line

=item advtools	=item advtools
advanced tools shown in a separate box below breadcrumbs line	advanced tools shown in a separate box below breadcrumbs line
Line 1718 returns: nothing	Line 1797 returns: nothing
push @{$tools{$category}}, @html;	push @{$tools{$category}}, @html;
}	}

=item clear_breadcrumb_tools()	=item &clear_breadcrumb_tools()

Clears the breadcrumb toolbar container.	Clears the breadcrumb toolbar container.

Line 1730 returns: nothing	Line 1809 returns: nothing
undef(%tools);	undef(%tools);
}	}

=item render_tools(\$breadcrumbs)	=item &render_tools(\$breadcrumbs)

Creates html for breadcrumb tools (categories navigation and tools) and inserts	Creates html for breadcrumb tools (categories navigation and tools) and inserts
\$breadcrumbs at the correct position.	\$breadcrumbs at the correct position.
Line 1739 input: \$breadcrumbs - a reference to th	Line 1818 input: \$breadcrumbs - a reference to th
breadcrumbs.	breadcrumbs.

returns: nothing	returns: nothing

=cut	=cut

#TODO might split this in separate functions for each category	#TODO might split this in separate functions for each category
Line 1754 returns: nothing	Line 1834 returns: nothing
{ listattr => { class=>'LC_breadcrumb_tools_outerlist' } });	{ listattr => { class=>'LC_breadcrumb_tools_outerlist' } });
}	}

=item render_advtools(\$breadcrumbs)	=pod

	=item &render_advtools(\$breadcrumbs)

Creates html for advanced tools (category advtools) and inserts \$breadcrumbs	Creates html for advanced tools (category advtools) and inserts \$breadcrumbs
at the correct position.	at the correct position.
Line 1763 input: \$breadcrumbs - a reference to th	Line 1845 input: \$breadcrumbs - a reference to th
breadcrumbs (after render_tools call).	breadcrumbs (after render_tools call).

returns: nothing	returns: nothing

=cut	=cut

sub render_advtools {	sub render_advtools {
Line 1836 returns: nothing	Line 1919 returns: nothing
my @row_count;	my @row_count;

sub start_pick_box {	sub start_pick_box {
my ($css_class) = @_;	my ($css_class,$id) = @_;
if (defined($css_class)) {	if (defined($css_class)) {
$css_class = 'class="'.$css_class.'"';	$css_class = 'class="'.$css_class.'"';
} else {	} else {
$css_class= 'class="LC_pick_box"';	$css_class= 'class="LC_pick_box"';
}	}
	my $table_id;
	if (defined($id)) {
	$table_id = ' id="'.$id.'"';
	}
unshift(@row_count,0);	unshift(@row_count,0);
my $output = <<"END";	my $output = <<"END";
<table $css_class>	<table $css_class $table_id>
END	END
return $output;	return $output;
}	}
Line 2176 sub resource_info_box {	Line 2263 sub resource_info_box {
# 1. number to display.	# 1. number to display.
# If input for number is empty only the title will be displayed.	# If input for number is empty only the title will be displayed.
# 2. title text to display.	# 2. title text to display.
	# 3. optional id for the <div>
# Outputs - a scalar containing html mark-up for the div.	# Outputs - a scalar containing html mark-up for the div.

sub topic_bar {	sub topic_bar {
my ($num,$title) = @_;	my ($num,$title,$id) = @_;
my $number = '';	my $number = '';
if ($num ne '') {	if ($num ne '') {
$number = '<span>'.$num.'</span>';	$number = '<span>'.$num.'</span>';
}	}
return '<div class="LC_topic_bar">'.$number.$title.'</div>';	if ($id ne '') {
	$id = 'id="'.$id.'"';
	}
	return '<div class="LC_topic_bar" '.$id.'>'.$number.$title.'</div>';
}	}

##############################################	##############################################
Line 2648 ENDSCRIPT	Line 2739 ENDSCRIPT
##############################################	##############################################
##############################################	##############################################

	sub resize_scrollbox_js {
	my ($context,$tabidstr) = @_;
	my (%names,$paddingwfrac,$offsetwfrac,$offsetv,$minw,$minv);
	if ($context eq 'docs') {
	%names = (
	boxw => 'contenteditor',
	item => 'contentlist',
	header => 'uploadfileresult',
	scroll => 'contentscroll',
	boxh => 'contenteditor',
	);
	$paddingwfrac = 0.09;
	$offsetwfrac = 0.015;
	$offsetv = 20;
	$minw = 250;
	$minv = 200;
	} elsif ($context eq 'params') {
	%names = (
	boxw => 'parameditor',
	item => 'mapmenuinner',
	header => 'parmstep1',
	scroll => 'mapmenuscroll',
	boxh => 'parmlevel',
	);
	$paddingwfrac = 0.2;
	$offsetwfrac = 0.015;
	$offsetv = 80;
	$minw = 100;
	$minv = 100;
	}
	my $viewport_js = &Apache::loncommon::viewport_geometry_js();
	my $output = '

	window.onresize=callResize;

	';
	if ($context eq 'docs') {
	$output .= '
	var activeTab;
	';
	}
	$output .= <<"FIRST";

	$viewport_js

	function resize_scrollbox(scrollboxname,chkw,chkh) {
	var scrollboxid = 'div_'+scrollboxname;
	var scrolltableid = 'table_'+scrollboxname;
	var scrollbox;
	var scrolltable;

	if (document.getElementById("$names{'boxw'}") == null) {
	return;
	}

	if (document.getElementById(scrollboxid) == null) {
	return;
	} else {
	scrollbox = document.getElementById(scrollboxid);
	}


	if (document.getElementById(scrolltableid) == null) {
	return;
	} else {
	scrolltable = document.getElementById(scrolltableid);
	}

	init_geometry();
	var vph = Geometry.getViewportHeight();
	var vpw = Geometry.getViewportWidth();

	FIRST
	if ($context eq 'docs') {
	$output .= "
	var alltabs = ['$tabidstr'];
	";
	} elsif ($context eq 'params') {
	$output .= "
	if (document.getElementById('$names{'boxh'}') == null) {
	return;
	}
	";
	}
	$output .= <<"SECOND";
	var listwchange;
	if (chkw == 1) {
	var boxw = document.getElementById("$names{'boxw'}").offsetWidth;
	var itemw;
	var itemid = document.getElementById("$names{'item'}");
	if (itemid != null) {
	itemw = itemid.offsetWidth;
	}
	var itemwstart = itemw;

	var scrollboxw = scrollbox.offsetWidth;
	var scrollboxscrollw = scrollbox.scrollWidth;

	var offsetw = parseInt(vpw * $offsetwfrac);
	var paddingw = parseInt(vpw * $paddingwfrac);

	var minscrollboxw = $minw;
	var maxcolw = 0;
	SECOND
	if ($context eq 'docs') {
	$output .= <<"DOCSONE";
	var actabw = 0;
	for (var i=0; i<alltabs.length; i++) {
	if (activeTab == alltabs[i]) {
	actabw = document.getElementById(alltabs[i]).offsetWidth;
	if (actabw > maxcolw) {
	maxcolw = actabw;
	}
	} else {
	if (document.getElementById(alltabs[i]) != null) {
	var thistab = document.getElementById(alltabs[i]);
	thistab.style.visibility = 'hidden';
	thistab.style.display = 'block';
	var tabw = document.getElementById(alltabs[i]).offsetWidth;
	thistab.style.display = 'none';
	thistab.style.visibility = '';
	if (tabw > maxcolw) {
	maxcolw = tabw;
	}
	}
	}
	}
	DOCSONE
	} elsif ($context eq 'params') {
	$output .= <<"PARAMSONE";
	var parmlevelrows = new Array();
	var mapmenucells = new Array();
	parmlevelrows = document.getElementById("$names{'boxh'}").rows;
	var numrows = parmlevelrows.length;
	if (numrows > 1) {
	mapmenucells = parmlevelrows[2].getElementsByTagName('td');
	}
	maxcolw = mapmenucells[0].offsetWidth;
	PARAMSONE
	}
	$output .= <<"THIRD";
	if (maxcolw > 0) {
	var newscrollboxw;
	if (maxcolw+paddingw+scrollboxscrollw<boxw) {
	newscrollboxw = boxw-paddingw-maxcolw;
	if (newscrollboxw < minscrollboxw) {
	newscrollboxw = minscrollboxw;
	}
	scrollbox.style.width = newscrollboxw+"px";
	if (newscrollboxw != scrollboxw) {
	var newitemw = newscrollboxw-offsetw;
	itemid.style.width = newitemw+"px";
	}
	} else {
	newscrollboxw = boxw-paddingw-maxcolw;
	if (newscrollboxw < minscrollboxw) {
	newscrollboxw = minscrollboxw;
	}
	scrollbox.style.width = newscrollboxw+"px";
	if (newscrollboxw != scrollboxw) {
	var newitemw = newscrollboxw-offsetw;
	itemid.style.width = newitemw+"px";
	}
	}

	if (newscrollboxw != scrollboxw) {
	var newscrolltablew = newscrollboxw+offsetw;
	scrolltable.style.width = newscrolltablew+"px";
	}
	}

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

	var scrollboxheight = scrollbox.offsetHeight;
	var scrollboxscrollheight = scrollbox.scrollHeight;

	var minvscrollbox = $minv;
	var offsetv = $offsetv;
	var newscrollboxheight;
	if (freevspace < 0) {
	newscrollboxheight = scrollboxheight+freevspace-offsetv;
	if (newscrollboxheight < minvscrollbox) {
	newscrollboxheight = minvscrollbox;
	}
	scrollbox.style.height = newscrollboxheight + "px";
	} else {
	if (scrollboxscrollheight > scrollboxheight) {
	if (freevspace > offsetv) {
	newscrollboxheight = scrollboxheight+freevspace-offsetv;
	if (newscrollboxheight < minvscrollbox) {
	newscrollboxheight = minvscrollbox;
	}
	scrollbox.style.height = newscrollboxheight+"px";
	}
	}
	}
	scrollboxheight = scrollbox.offsetHeight;
	var itemh = document.getElementById("$names{'item'}").offsetHeight;

	if (scrollboxscrollheight <= scrollboxheight) {
	if ((itemh+offsetv)<scrollboxheight) {
	newscrollheight = itemh+offsetv;
	scrollbox.style.height = newscrollheight+"px";
	}
	}
	}
	return;
	}

	function callResize() {
	var timer;
	clearTimeout(timer);
	timer=setTimeout('resize_scrollbox("$names{'scroll'}","1","1")',500);
	}

	FOURTH
	return $output;
	}


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

# javascript_valid_email	# javascript_valid_email
#	#
# Generates javascript to validate an e-mail address.	# Generates javascript to validate an e-mail address.
Line 2763 sub scripttag {	Line 3118 sub scripttag {
return htmltag('script', $content, {type => 'text/javascript'});	return htmltag('script', $content, {type => 'text/javascript'});
};	};

	=pod

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

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

Line 2855 sub generate_menu {	Line 3211 sub generate_menu {
$$link{alttext} : $$link{linktext})	$$link{alttext} : $$link{linktext})
}), {	}), {
href => $$link{url},	href => $$link{url},
title => mt($$link{linktitle})	title => mt($$link{linktitle}),
	class => 'LC_menubuttons_link'
}).	}).
$a->(mt($$link{linktext}), {	$a->(mt($$link{linktext}), {
href => $$link{url},	href => $$link{url},
Line 2889 sub generate_menu {	Line 3246 sub generate_menu {

=pod	=pod

=item &start_funclist	=item &start_funclist()

Start list of available functions	Start list of available functions

Line 2929 sub start_funclist {	Line 3286 sub start_funclist {

=pod	=pod

=item &add_item_funclist	=item &add_item_funclist()

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

Line 2955 sub add_item_funclist {	Line 3312 sub add_item_funclist {

=pod	=pod

=item &end_funclist	=item &end_funclist()

End list of available functions	End list of available functions

Line 2976 sub end_funclist {	Line 3333 sub end_funclist {

=pod	=pod

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

Constructs a XHTML list from \@array with the first item being visually	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	highlighted and set to the value of legend or 'Functions' if legend is

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

Removed from v.1.307
changed lines
	Added in v.1.325