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.32 and 1.36

version 1.32, 2003/10/15 18:01:10	version 1.36, 2003/12/29 19:01:27
Line 288 sub get_date_from_form {	Line 288 sub get_date_from_form {
}	}
if (defined($ENV{'form.'.$dname.'_hour'})) {	if (defined($ENV{'form.'.$dname.'_hour'})) {
my $tmphour = $ENV{'form.'.$dname.'_hour'};	my $tmphour = $ENV{'form.'.$dname.'_hour'};
if (($tmphour =~ /^\d+$/) && ($tmphour > 0) && ($tmphour < 32)) {	if (($tmphour =~ /^\d+$/) && ($tmphour >= 0) && ($tmphour < 24)) {
$hour = $tmphour;	$hour = $tmphour;
}	}
}	}
Line 311 sub get_date_from_form {	Line 311 sub get_date_from_form {
}	}
}	}
if (($year<70) \|\| ($year>137)) { return undef; }	if (($year<70) \|\| ($year>137)) { return undef; }
if (eval(&timelocal($sec,$min,$hour,$day,$month,$year))) {	if (defined($sec) && defined($min) && defined($hour) &&
	defined($day) && defined($month) && defined($year) &&
	eval(&timelocal($sec,$min,$hour,$day,$month,$year))) {
return &timelocal($sec,$min,$hour,$day,$month,$year);	return &timelocal($sec,$min,$hour,$day,$month,$year);
} else {	} else {
return undef;	return undef;
Line 833 sub Close_PrgWin {	Line 835 sub Close_PrgWin {
$r->rflush();	$r->rflush();
}	}


	# ------------------------------------------------------- Puts directory header

	sub crumbs {
	my ($uri,$target,$prefix)=@_;
	my $output='<br /><tt><b><font size="+2">'.$prefix.'/';
	if ($ENV{'user.adv'}) {
	my $path=$prefix;
	foreach (split('/',$uri)) {
	unless ($_) { next; }
	$path.='/'.$_;
	$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/';
	}
	} else {
	$output.=$uri;
	}
	unless ($uri=~/\/$/) { $output=~s/\/$//; }
	return $output.'</font></b></tt><br />';
	}


1;	1;

__END__	__END__

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

Removed from v.1.32
changed lines
	Added in v.1.36