<?
function html_getbymid($id) {
		$retstr="";
	global $dcrURL;
	global $kw;
	//global $fontcolor;
	global $headcolor;
	global $bdcolor;
	global $bgcolor;

	$fontcolor="black";
if ($bdcolor=="") {
	$bdcolor="black";
}

   $sql = "select * from dcdir order by ordr";
   $result = tmq($sql);
   $retstr=$retstr. "<TABLE width=750 align=center class=alpha70 cellspacing=2  style='background-color:$bgcolor'>";
	while($r2=mysql_fetch_array($result)) {
			$strhead= "<TR ><TD colspan=2 class=table_td><B class=smaller>$r2[name]</B></TD></TR>\n";
			$sql="select * from $r2[tbname] where mid='$id' ";
			$media=tmq($sql) ;
			$valdata="";
			$decis_isfsecond_value;
			while ($rmedia=mysql_fetch_array($media)) {
				   $sql = "select *,(dcname like '%._value') as isfsecond from dcdir_sub where pid='$r2[id]' order by isfsecond desc,ordr";
				   $results = tmq($sql);
					while($rs2=mysql_fetch_array($results)) {
						$val=$rmedia[$rs2[fid]];
						$lastchar=substr($rs2[dcname],-1);
						$last7char=substr($rs2[dcname],-7);
						//echo "$rs2[isfsecond]-$rs2[dcname]<HR>";
						if ($lastchar==".") {
							//find the ._value fieldname
							$sql="select * from dcdir_sub where dcname='$rs2[dcname]_value' and pid='$r2[id]' ";
							//echo $sql;
							$sql=tmq($sql);
							$sql=mysql_fetch_array($sql);
							$rmedia[$sql[fid]]=trim($rmedia[$sql[fid]]);
							if (trim($rmedia[$sql[fid]] )!="") {
								$val=$rmedia[$sql[fid]] . " (".$rmedia[$rs2[fid]].")";
							}else {
								$val="";
							}
							$decis_isfsecond_value=$val;
							$rs2[dcname] =trim($rs2[dcname] ,".");
						}
						if ($last7char=="._value") {
							continue;
						}
						//echo "[$last7char]";
						if ($val!="" && $val!=" ()"  ) {
							if (($lastchar=="." && trim($decis_isfsecond_value)!="") || ($lastchar!="")) {
								$rs2[name]="$rs2[name]";
						if ($rs2[name]=="") {
							//continue;
						}
								$valdata=$valdata. "<TR valign=top><TD width=33% class=alpha70 style='text-align:left;color:$fontcolor' ><FONT class=smaller2>&nbsp;&nbsp;<!-- $rs2[dcname] -->$rs2[name]</FONT></TD>";
								$valdata=$valdata. "<TD class=alpha50 style='left;color:$fontcolor'><FONT class=smaller2>";
	if ($rs2[dcname]=="DC.Identifier.URL"
	|| $rs2[dcname]=="DC.Description.URL"
	) {
	  $val="<a href='$val' target=_blank style='color:$fontcolor; text-decoration: underline' class=smaller2>$val</a>";
	}
	if (barcodeval_get("webpage-o-gmapenable")=="yes") {
		if ($rs2[dcname]=="DC.coverage.xy") {
		  $val="$val<BR><iframe width=480 height=400 src='$dcrURL/_gmapdisplay.php?mid=$id'></iframe>";
		}
	}
	if ($kw!="") {
		$val=str_replace($kw,"<U style=\"background-color:white;\" style='color:$headcolor;text-decoration: underline'  class=smaller2>$kw</U>",$val);
	}
					$valdata=$valdata. $val;
								$valdata=$valdata. " </FONT></TD></TR>\n";
							}
						}
					}
			}
			if ($valdata!="") {
				$retstr=$retstr.  $strhead;
				$retstr=$retstr.  $valdata;
			}
	
	}

?>
<?
	/*
$s=tmq("select * from dc_upload where mid='$id' ");
if (mysql_num_rows($s)!=0) {
	$retstr=$retstr.  "<TR bgcolor=d5d8d5><TD colspan=2 class=table_head ><B style='color:$fontcolor' class=smaller2>IDENTIFIER</B></TD></TR>";
}
while ($r=mysql_fetch_array($s)) {
	$retstr=$retstr. "<TR><TD width=33% class=table_td style='color:$fontcolor'>&nbsp;&nbsp;DC.Identifier.URL. </TD><TD><FONT class=smaller2>&nbsp;&nbsp; ";
	$url=$dcrURL."view.php?id=$r[id]";
	$retstr=$retstr.  "<A target=_blank HREF=\"$url\" style='color:$fontcolor'>$url</A>
	</FONT></TD></TR>
	<TR><TD width=33% class=table_head style='color:$fontcolor'>&nbsp;&nbsp;DC.Format </TD>
	<TD class=table_td style='color:$fontcolor'>&nbsp;&nbsp; 
	$r[f2] </TD></TR><TR><TD width=33% style='color:$fontcolor'>&nbsp;&nbsp;DC.Identifier.Extent  </TD><TD>&nbsp;&nbsp; ";

	$fname=getval("file","savepath")."$r[f4]";
	$retstr=$retstr. number_format(filesize($fname)/1024) ." KB</TD></TR>";
}
*/
$retstr=$retstr. "</TABLE>";



return $retstr;

}
?>