$prevdt | $revd > $prevdt) {
$handl=$han[2];
echo "\n{net \"describe http://repec.org/bocode/$first/$namelc\":$name}\n";
echo "{txt} $desc";
echo "{txt} Authors: $an\n";
if($revd>$cred) {
echo "{txt} Revised: $rev\n";
}
else {
echo "{txt} Created: $cre\n";
}
$cred="";
$revd="";
$an="";
}
}
}
print "\n{hline}\n{txt} End of recent additions and updates\n";
function fmt($d8) {
$y = floor($d8/10000);
$m = floor($d8/100-$y*100);
$d = floor($d8-$y*10000-$m*100);
$mp = ($m<10) ? "0" : "";
$dp = ($d<10) ? "0" : "";
$df = $y."-".$mp.$m."-".$dp.$d;
return $df;
}
?>