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.181 and 1.182.2.3

version 1.181, 2008/09/25 17:44:11	version 1.182.2.3, 2010/01/23 22:26:27
Line 102 can be used to paste LaTeX into a textar	Line 102 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">
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 389 sub date_setter {	Line 391 sub date_setter {
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue);	($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue);
}	}
unless ($wasdefined) {	unless ($wasdefined) {
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now);
if (($defhour) \|\| ($defmin) \|\| ($defsec)) {	if (($defhour) \|\| ($defmin) \|\| ($defsec)) {
	($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now);
$sec=($defsec?$defsec:0);	$sec=($defsec?$defsec:0);
$min=($defmin?$defmin:0);	$min=($defmin?$defmin:0);
$hour=($defhour?$defhour:0);	$hour=($defhour?$defhour:0);
Line 1090 sub crumbs {	Line 1092 sub crumbs {
my $output='';	my $output='';
unless ($noformat) { $output.='<br /><tt><b>'; }	unless ($noformat) { $output.='<br /><tt><b>'; }
$output.='<font size="'.$size.'">'.$prefix.'/';	$output.='<font size="'.$size.'">'.$prefix.'/';
if ($env{'user.adv'}) {	if (($env{'user.adv'}) \|\| ($env{'user.author'})) {
my $path=$prefix.'/';	my $path=$prefix.'/';
foreach my $dir (split('/',$uri)) {	foreach my $dir (split('/',$uri)) {
if (! $dir) { next; }	if (! $dir) { next; }
Line 1276 Inputs: $component (the large text on th	Line 1278 Inputs: $component (the large text on th
$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 1306 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) = @_;
#	#
$css_class \|\|= 'LC_breadcrumbs';	$css_class \|\|= 'LC_breadcrumbs';
my $Str = "\n".'<table class="'.$css_class.'"><tr><td>';	my $Str = "\n".'<table class="'.$css_class.'"><tr><td>';
Line 1381 returns: nothing	Line 1386 returns: nothing
$Str .= $links.'</td>';	$Str .= $links.'</td>';
#	#
if (defined($component)) {	if (defined($component)) {
$Str .= '<td class="'.$css_class.'_component">'.	$Str .= '<td class="'.$css_class.'_component">';
&mt($component);	if ($no_mt) {
	$Str .= $component;
	} else {
	$Str .= &mt($component);
	}
if ($icons ne '') {	if ($icons ne '') {
$Str .= ' '.$icons;	$Str .= ' '.$icons;
}	}

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

Removed from v.1.181
changed lines
	Added in v.1.182.2.3