loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.182.2.1, 2009/01/12 01:53:38	version 1.182.2.3, 2010/01/23 22:26:27
Line 391 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 1092 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; }