loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.62, 2001/03/21 12:51:15	version 1.63, 2001/03/21 12:58:30
Line 926 sub build_date_queries {	Line 926 sub build_date_queries {
"a starting month, day, and year and an ending month, ".	"a starting month, day, and year and an ending month, ".
"day, and year.";	"day, and year.";
}	}
my $cnumeric1="$cyear1$cmonth1$cday1";	my $cnumeric1=sprintf("%d%2d%2d",$cyear1,$cmonth1,$cday1);
$cnumeric1+=0;	$cnumeric1+=0;
my $cnumeric2="$cyear2$cmonth2$cday2";	my $cnumeric2=sprintf("%d%2d%2d",$cyear2,$cmonth2,$cday2);
$cnumeric2+=0;	$cnumeric2+=0;
if ($cnumeric1>$cnumeric2) {	if ($cnumeric1>$cnumeric2) {
return "Incorrect entry for the creation date. The starting ".	return "Incorrect entry for the creation date. The starting ".
Line 945 sub build_date_queries {	Line 945 sub build_date_queries {
"specify a starting month, day, and year and an ending ".	"specify a starting month, day, and year and an ending ".
"month, day, and year.";	"month, day, and year.";
}	}
my $lnumeric1="$lyear1$lmonth1$lday1";	my $lnumeric1=sprintf("%d%2d%2d",$lyear1,$lmonth1,$lday1);
$lnumeric1+=0;	$lnumeric1+=0;
my $lnumeric2="$lyear2$lmonth2$lday2";	my $lnumeric2=sprintf("%d%2d%2d",$lyear2,$lmonth2,$lday2);
$lnumeric2+=0;	$lnumeric2+=0;
if ($lnumeric1>$lnumeric2) {	if ($lnumeric1>$lnumeric2) {
return "Incorrect entry for the last revision date. The ".	return "Incorrect entry for the last revision date. The ".