loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.147, 2006/07/29 00:31:58	version 1.149, 2006/08/04 21:01:52
Line 998 sub crumbs {	Line 998 sub crumbs {
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 ($skiplast) {	if ($skiplast) {
$output.=$dir;	$output.=$dir;
last;	last;
Line 1014 sub crumbs {	Line 1014 sub crumbs {
$output.=qq{<a href="$linkpath" $target>$dir</a>/};	$output.=qq{<a href="$linkpath" $target>$dir</a>/};
}	}
} else {	} else {
$output.=$uri;	foreach my $dir (split('/',$uri)) {
	if (! $dir) { next; }
	$output.=$dir.'/';
	}
}	}
unless ($uri=~/\/$/) { $output=~s/\/$//; }	if ($uri !~ m\|/$\|) { $output=~s\|/$\|\|; }
return $output.'</font>'.($noformat?'':'</b></tt><br />');	return $output.'</font>'.($noformat?'':'</b></tt><br />');
}	}

Line 1784 sub set_form_elements {	Line 1787 sub set_form_elements {
($$elements{$name} eq 'checkbox')) {	($$elements{$name} eq 'checkbox')) {
$output .= qq\|	$output .= qq\|
if (courseForm.elements['$name'].value == "$value") {	if (courseForm.elements['$name'].value == "$value") {
courseForm.elemenst['$name'].checked = true;	courseForm.elements['$name'].checked = true;
}\|;	}\|;
}	}
}	}