<?
function html_displaymarc($ID) {

   $sql = "select * from media where ID='$ID' ";
   $result = tmq($sql);
	$r = tmq_fetch_array($result);

$retstr="";
$retstr.="<table bgcolor=white width=780 border=1 align=center cellpadding=1 
cellspacing=0 bordercolor=#dddddd>";


                                        $sql82="select * from bkedit order by ordr";
                                        $result=tmq($sql82, $conn);
					echo mysql_error();
while ($rowd=tmq_fetch_array($result)) {
	$allR=explode("\n",$r[$rowd[fid]]);
	foreach ($allR as $value) {

						echo mysql_error();
						$x = str_replace("$","$",$rowd[val]);
						$str = $value;
						if (trim(dspmarc($str))!="") {
							$retstr.="<tr bgcolor=#f3f3f3 valign=top>
							<td width =70><FONT SIZE=3>";
							$tmprowdfid=$rowd[fid];
							$tmprowdfid=str_replace("tag","",$tmprowdfid);
							$tmprowdfid=str_replace("ulib","",$tmprowdfid);
							$retstr.= $tmprowdfid;
							$retstr.="</td>";
							 if ($rowd[ishasindi]=="YES") {
								$retstr.="<td width = 20 ><FONT SIZE=3>";
								$retstr.= substr($str,0,1);
								$retstr.="&nbsp;</td>
								<td width = 20 ><FONT SIZE=3>";
								$retstr.=substr($str,1,1);
								$retstr.="&nbsp;</td>";
							} else { 
								$retstr.="<td width =40  align=center colspan=2>
							<font face ='MS Sans Serif' size =2>-</font></td>	";
							}
							$retstr.="<td width =100%><FONT SIZE=3>	";
							 if ($rowd[ishasindi]=="YES") {
							$retstr.= substr($str,2);
							} else {
							$retstr.= $str;
							}
							$retstr.="</FONT></td></tr>";

						}
	} //loop for splited \n

}
$retstr.="</table>";
return $retstr;

}
?>