';
print '| ';
if($title=~/\.jnt$/)
{
#print &zeperl'link($url,$ico_jnt);
}
if($title=~/\.mws$/)
{
print &zeperl'link($url,$ico_maple);
}
print ' | ';
$pdf=$url;
$pdf=~s/\.jnt$/.pdf/;
$pdf=~s/\.mws$/.pdf/;
print '';
print &zeperl'link($pdf,$ico_pdf);
print ' | ';
print '';
$new=$title;
$new=~s/\.jnt$//;
$new=~s/\.mws$//;
$new=~s/_/ /g;
$new=~s/^mat....//;
print &zeperl'link('',$new);
if($more)
{
print ' ('.$more.')';
}
print ' | ';
print '
';
print $ret;
}
sub wspdf
{
local($inurl)=@_;
local($url);
$url=$inurl;
$title=$inurl;
print '