# GMR table sub routine
# ver 0.52β
#
#table_job :ジョブ表示
#table_prod：合成スキル表示
#table_stat:ステータス表示
#table_limit:シンプル表示
#table_limit2:アイコン表示
#table_full2:フル表示
#table_full3:フル２表示
#table_mission:ミッション進行度表示
#

sub table_job {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=8%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH>";
for ($j=0;$j<$job_max;$j++){
	$jn=$j+38;
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);
if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}

if($count==$c_max){
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=8%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH>";
for ($j=0;$j<$job_max;$j++){
	$jn=$j+38;
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD align=center>$no</TD><TD align=center>$class</TD><TD><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD align=center>$joblist[$mainjob]$main_level</TD>";
}


	for ($j=0;$j<$job_max;$j++){
		$bg="";

		if($level ==1){
			$bg=" bgcolor=$color[int($lev[$j]/10)]";
		} else {
		if($j == $mainjob){$bg=" bgcolor=$maincolor";}
		if($j == $supportjob){$bg=" bgcolor=$supportcolor";}
		}
		
		print "<TD$bg align=center>$lev[$j]</TD>";
	}
} else {
	for ($j=0;$j<$job_max+1;$j++){
	print"<TD align=center>-</TD>";
	}
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}

sub table_prod{
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=8%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";
for ($j=0;$j<$prod_max;$j++){
	$jn=$j+22;
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);
    @prod_r = split(/,/,$etc[1]);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=8%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";
for ($j=0;$j<$prod_max;$j++){
	$jn=$j+22;
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}

print "<TR$bgn><TD align=center>$no</TD><TD align=center>$class</TD><TD><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

	for ($j=0;$j<$prod_max;$j++){
			$bg=" bgcolor=$color[$prod_r[$j]]";
		print "<TD$bg align=center title='$ranklist[$prod_r[$j]]'>$prod[$j]<BR>($ranklist[$prod_r[$j]])</TD>";
	}
} else {
	for ($j=0;$j<$prod_max;$j++){
	print"<TD align=center>-</TD>";
	}
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";


}
sub table_stat{

	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}

if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TR>";
$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD align=center>$no</TD><TD align=center>$class</TD><TD><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

if($iconuse eq "yes"){
print "<TD align=center><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD align=center>$racelist[$race]</TD>";
}

print "<TD align=center>$relmlist[$relm]</TD><TD align=right>$point</TD><TD align=center>$mrank</TD>";

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";



}

sub table_limit {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}

print "<TR$bgn><TD align=center>$no</TD><TD align=center>$class</TD><TD><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD align=center>$joblist[$mainjob]$main_level</TD>";
}


} else {
	print"<TD align=center>-</TD>";
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD>$comment</TD><TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}

sub table_limit2 {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=2%>$index[3]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=2%>$index[3]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}


print "<TR$bgn><TD align=center>$no</TD>";
if($iconuse eq "yes"){
print "<TD align=center><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD align=center>$racelist[$race]</TD>";
}
print "<TD align=center>$class</TD><TD><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD align=center>$joblist[$mainjob]$main_level</TD>";
}


} else {
	print"<TD align=center>-</TD>";
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD>$comment</TD><TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}

sub table_full2{

if($job_max>$prod_max){
	$maxcell=$job_max;
} else {
	$maxcell=$prod_max;
}


	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=8% rowspan=2><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=10% rowspan=2>$index[7]</TH>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+38;
	if($j<$job_max){
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}

print "<TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
print "<TR bgcolor=$indexcolor>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+22;
	if($j<$prod_max){
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}
print "</TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);
    @prod_r = split(/,/,$etc[1]);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}

if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=8% rowspan=2><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=10% rowspan=2>$index[7]</TH>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+38;
	if($j<$job_max){
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}

print "<TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
print "<TR bgcolor=$indexcolor>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+22;
	if($j<$prod_max){
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}
print "</TR>";

$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD rowspan=2 align=center>$no</TD><TD rowspan=2 align=center>$class</TD><TD rowspan=2><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

if($iconuse eq "yes"){
print "<TD align=center rowspan=2><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD align=center rowspan=2>$racelist[$race]</TD>";
}

print "<TD rowspan=2 align=center>$relmlist[$relm]</TD><TD align=right rowspan=2>$point</TD><TD rowspan=2 align=center>$mrank</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD rowspan=2 align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD rowspan=2 align=center>$joblist[$mainjob]$main_level</TD>";
}


	for ($j=0;$j<$maxcell;$j++){
		$bg="";
		if($j<$job_max){
		if($level ==1){
			$bg=" bgcolor=$color[int($lev[$j]/10)]";
		} else {
		if($j == $mainjob){$bg=" bgcolor=$maincolor";}
		if($j == $supportjob){$bg=" bgcolor=$supportcolor";}
		}
		
		print "<TD$bg align=center>$lev[$j]</TD>";
		} else {
			print "<TD align=center>　</TD>";
		}
	}
} else {
	for ($j=0;$j<$maxcell+1;$j++){
	print"<TD align=center>-</TD>";
	}
}
$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD rowspan=2 align=center>$date</TD></TR>\n";

print "<TR bgcolor='$skillcolor'>";

if(($anon ne "on") || ($anon_mode != 1 )){

	for ($j=0;$j<$maxcell;$j++){
		if($j<$prod_max){
			$bg=" bgcolor=$color[$prod_r[$j]]";
		print "<TD$bg align=center title='$ranklist[$prod_r[$j]]'>$prod[$j]</TD>";
		} else {
			print "<TD align=center>　</TD>";
		}
	}
} else {
	for ($j=0;$j<$maxcell+1;$j++){
	print"<TD align=center>-</TD>";
	}
}

print "</TR>";


$count++;
$number++;

}

print "</table>";

}



sub table_full3{

if($job_max>$prod_max){
	$maxcell=$job_max;
} else {
	$maxcell=$prod_max;
}


	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=3>$index[0]</TH><TH width=8% rowspan=3><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10% rowspan=3><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=10% rowspan=2>$index[7]</TH>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+38;
	if($j<$job_max){
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}

print "<TH width=5% rowspan=3><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
print "<TR bgcolor=$indexcolor>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+22;
    if($j<$prod_max){
        print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
    } elsif ($j == $prod_max) {
        print "<TH colspan=3>Main Next</TH><TH colspan=".($maxcell - $prod_max - 3).">Total Exp.</TH>";
    }
}
print "</TR>";
print "<TR bgcolor=$indexcolor><TH colspan=20>$index[9]</TH></TR>";
$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);

    @prod_r = split(/,/,$etc[1]);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}

if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=3>$index[0]</TH><TH width=8% rowspan=3><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10% rowspan=3><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=4'>$index[3]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=5'>$index[4]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=14&mode=r'>$index[5]</a></TH><TH width=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=18&mode=r'>$index[6]</a></TH><TH width=10% rowspan=2>$index[7]</TH>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+38;
	if($j<$job_max){
	print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$joblist[$j]</a></TH>";
	} else {
		print "<TH> </TH>";
	}
}

print "<TH width=5% rowspan=3><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
print "<TR bgcolor=$indexcolor>";
for ($j=0;$j<$maxcell;$j++){
	$jn=$j+22;
    if($j<$prod_max){
    print "<TH width=3%><a href='$script?limit=$limit&level=$level&sort=$jn&mode=r'>$prodlist[$j]</a></TH>";
    } elsif ($j == $prod_max) {
        print "<TH colspan=3>Main Next</TH><TH colspan=".($maxcell - $prod_max - 3).">Total Exp.</TH>";
    }
}
print "</TR>";
print "<TR bgcolor=$indexcolor><TH colspan=20>$index[9]</TH></TR>";

$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD rowspan=3 align=center>$no</TD><TD rowspan=3 align=center>$class</TD><TD rowspan=3><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";
if($iconuse eq "yes"){
print "<TD rowspan=2 align=center><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD rowspan=2 align=center>$racelist[$race]</TD>";
}

print "<TD rowspan=2 align=center>$relmlist[$relm]</TD><TD align=right rowspan=2>$point</TD><TD rowspan=2 align=center>$mrank</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD rowspan=2 align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD rowspan=2 align=center>$joblist[$mainjob]$main_level</TD>";
}
    $totalexp = 0;


	for ($j=0;$j<$maxcell;$j++){
		$bg="";
		if($j<$job_max){
        $totalexp += expr_exp($lev[$j]);
		if($level ==1){
			$bg=" bgcolor=$color[int($lev[$j]/10)]";
		} else {
		if($j == $mainjob){$bg=" bgcolor=$maincolor";}
		if($j == $supportjob){$bg=" bgcolor=$supportcolor";}
		}
		
		print "<TD$bg align=center>$lev[$j]</TD>";
		} else {
			print "<TD align=center>　</TD>";
		}
	}
} else {
	for ($j=0;$j<$maxcell+1;$j++){
	print"<TD align=center>-</TD>";
	}
}
$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);
print "<TD rowspan=3 align=center>$date</TD></TR>\n";

print "<TR bgcolor='$skillcolor'>";

if(($anon ne "on") || ($anon_mode != 1 )){

    for ($j=0;$j<$maxcell;$j++){
        if($j<$prod_max){
			$bg=" bgcolor=$color[$prod_r[$j]]";
		print "<TD$bg align=center title='$ranklist[$prod_r[$j]]'>$prod[$j]</TD>";
        } elsif ($j == $prod_max) {
            print "<TD colspan=3 align=right>".expr_needexp($lev[$mainjob])."&nbsp;</TD><TD colspan=".($maxcell - $prod_max - 3)." align=right>".$totalexp."&nbsp;</TD>";
        }
    }
} else {
	for ($j=0;$j<$maxcell+1;$j++){
	print"<TD align=center>-</TD>";
	}
}

print "</TR>";

print "<TR$bgn><TD colspan=20>$comment</TD></TR>";

$count++;
$number++;

}

print "</table>";

}

sub table_skill {
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=6%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";
for ($j=0;$j<$#skilllist+1;$j++){
	$jn=$j+38;
	print "<TH width=2%>$skilllist[$j]</TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);
if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}
    @skill = split(/,/,$etc[2]);

    for ($j=0;$j<$#skilllist+1;$j++){
        $skillmax[$j] = -1;
        for ($k=0;$k<$job_max;$k++){
            if (int($lev[$k]) > 0) {
                $askill = expr_skillcap($k, $j, $lev[$k]);
                if ($askill > $skillmax[$j]) {
                    $skillmax[$j] = $askill;
                    $skillmaxjob[$j] = $k;
                }
            }
        }
    }


if($count==$c_max){
	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=6%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH>";
for ($j=0;$j<$#skilllist+1;$j++){
	$jn=$j+38;
	print "<TH width=2%>$skilllist[$j]</TH>";
}
print "<TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";
$count=0;
}


$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


$bgn="";

if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}
if($point eq ""){$point=0;}

print "<TR$bgn><TD align=center>$no</TD><TD><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

	for ($j=0;$j<$#skilllist+1;$j++){
        if ($skillmax[$j] > int($skill[$j])) {
            print "<td align=center>$skill[$j]</td>";
        } else {
            print "<td align=center><font color=blue>$skill[$j]</font></td>";
        }
	}
} else {
	for ($j=0;$j<$#skilllist+1;$j++){
	print"<TD align=center>-</TD>";
	}
}

$date=substr($time,0,8);
print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}

sub table_level {
	$levels[0..65] = ();
	@bgnc = ();
	$maxlevel = 65;
	foreach $i (@all){
		($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);
		for ($j=0;$j<$job_max;$j++){
			if (0 < $lev[$j]) {
				@leveljobs[0..$job_max] = split(/\t/, $levels[$lev[$j]]);
				$namel=substr($name,0,6). "..";
				$leveljobs[$j] .= "<a href='$script?function=prof&name=$name'>$namel</a><br>";
				$levels[$lev[$j]] = join("\t", @leveljobs);
				if ($name eq $c_name) {
					$bgn=" bgcolor=$mydata";
					$bgnc[$lev[$j]] = $bgn;
				}
				if ($lev[$j] > $maxlevel){
					$maxlevel = $lev[$j];
				}
			}
		}
	}
	if($maxlevel>75){$maxlevel=75;}
	print "<table cellpading=0 width=100% class=tbl>\n";
	$count = $c_max;
	for ($lv=$maxlevel; $lv>1; $lv--) {
		if ($count == $c_max) {
			print "<TR bgcolor=$indexcolor><TH>LV</TH>";
			for ($j=0;$j<$job_max;$j++){
				print "<TH>$joblist[$j]</TH>";
			}
			print "</TR>\n";
			$count = 0;
		}
		if ($levels[$lv] eq "") {print "<tr></tr>\n";} else {
			$bgn = $bgnc[$lv]; 
			if ($bgn eq "") {$bgn = " bgcolor=$otherdata";}
			print "<TR$bgn><TD align=center>$lv</TD>";
			@leveljobs = split(/\t/, $levels[$lv]);
			for ($j=0;$j<$job_max;$j++){
				print "<td>$leveljobs[$j]</td>";
			}
			print "</tr>\n";
		}
		$count++;
	}
	print "</table>";
}


1;

#tablelimit3

sub table_limit3 {

$sort=16;
$mode=r;
&sort_table;

	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=2%>$index[3]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2%>$index[0]</TH><TH width=2%>$index[3]</TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=15&mode=r'>$index[1]</a></TH><TH width=10%><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=10%>$index[7]</TH><TH>$index[9]</TH><TH width=5%><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}


print "<TR$bgn><TD align=center>$no</TD>";
if($iconuse eq "yes"){
print "<TD align=center><img src=$icondir$facelist[$race]$facetypelist[$etc[0]]\.gif></TD>";
} else {
print "<TD align=center>$racelist[$race]</TD>";
}
print "<TD align=center>$class</TD><TD><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

if(($anon ne "on") || ($anon_mode != 1 )){

if($lev[$mainjob]<10){
	$main_level="0$lev[$mainjob]";
} else {
	$main_level=$lev[$mainjob];
}


if($supportjob <99){
	$mod_level=int($lev[$mainjob]/2);
	if($mod_level==0){$mod_level=1;}
	if($mod_level>$lev[$supportjob]){$mod_level=$lev[$supportjob];}

if($mod_level<10){
	$mod_level="0$mod_level";
}
	print "<TD align=center>$joblist[$mainjob]$main_level/$joblist[$supportjob]$mod_level</TD>";
} else {
	print "<TD align=center>$joblist[$mainjob]$main_level</TD>";
}


} else {
	print"<TD align=center>-</TD>";
}

$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD>$comment</TD><TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}


#udon

sub table_mission {


	print "<table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2>Promathia</TH><TH width=5% rowspan=2>Zilart</TH><TH width=5% rowspan=2>Sandoria</TH><TH width=5% rowspan=2>Bastok</TH><TH width=5% rowspan=2>Windurst</TH><TH colspan=6>Dynamis</TH><TH widtH=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR><TR bgcolor=$indexcolor><TH width=2%>Snd</TH><TH width=2%>Bas</TH><TH width=2%>Win</TH><TH width=2%>Jue</TH><TH width=2%>Bos</TH><TH width=2%>Xar</TH></TR>";

$count=0;

$number=1;
foreach $i (@all){

	 ($no,$name,$pass,$anon,$race,$relm,$mainjob,$supportjob,$prof,$handle,$polhn,$mail,$home,$comment2,$point,$class,$time,$comment,$mrank,$etc[0],$etc[1],$etc[2],$prod[0],$prod[1],$prod[2],$prod[3],$prod[4],$prod[5],$prod[6],$prod[7],$prod[8],$prod[9],$prod[10],$prod[11],$prod[12],$prod[13],$prod[14],$prod[15],$lev[0],$lev[1],$lev[2],$lev[3],$lev[4],$lev[5],$lev[6],$lev[7],$lev[8],$lev[9],$lev[10],$lev[11],$lev[12],$lev[13],$lev[14],$lev[15])=split(/\t/,$i);

if($class_edit==0){
$class =~ s/&lt;/</g;
$class =~ s/&gt;/>/g;
}


if($count==$c_max){
	print "</table><table cellpading=0 width=100% class=tbl><TR bgcolor=$indexcolor><TH width=2% rowspan=2>$index[0]</TH><TH width=10% rowspan=2><a href='$script?limit=$limit&level=$level&sort=1'>$index[2]</a></TH><TH width=5% rowspan=2>Promathia</TH><TH width=5% rowspan=2>Zilart</TH><TH width=5% rowspan=2>Sandoria</TH><TH width=5% rowspan=2>Bastok</TH><TH width=5% rowspan=2>Windurst</TH><TH colspan=6>Dynamis</TH><TH widtH=5% rowspan=2><a href='$script?limit=$limit&level=$level&sort=16&mode=r'>$index[8]</a></TH></TR><TR bgcolor=$indexcolor><TH width=2%>Snd</TH><TH width=2%>Bas</TH><TH width=2%>Win</TH><TH width=2%>Jue</TH><TH width=2%>Bos</TH><TH width=2%>Xar</TH></TR>";

$count=0;
}

$bgn="";

$diary="";
$diaryfile="$diarydir$name.$diaryletter";
if(-e "$diaryfile"){
$diary="<img src='$diarygif'>";
if((-M $diaryfile)<1){
	$diary.="<img src='$upgif'>";
}
}


if($name eq $c_name){$bgn=" bgcolor=$mydata";} else {$bgn=" bgcolor=$otherdata";}
if($class eq ""){$class="&nbsp";}


print "<TR$bgn><TD align=center>$no</TD><TD><a href='$script?function=prof&name=$name'>$name</a>$diary</TD>";

    @mission = split(/,/,$prod[15]);

print"<TD align=center>$pmlist[$mission[0]]($mission[0])</TD>";
print"<TD align=center>$jmlist[$mission[1]]($mission[1])</TD>";
print"<TD align=center>$smlist[$mission[2]]($mission[2])</TD>";
print"<TD align=center>$bmlist[$mission[3]]($mission[3])</TD>";
print"<TD align=center>$wmlist[$mission[4]]($mission[4])</TD>";

@maru=('×','○');

for($j=5;$j<11;$j++){
print "<TD align=center>$maru[$mission[$j]]</TD>";
}


$date=substr($time,0,8)."<br>".substr($time,9,2).":".substr($time,11,2);

print "<TD align=center>$date</TD></TR>\n";

$count++;
$number++;

}

print "</table>";
}