// IF IS A NEW OBJETCT RECOLECT DATA FOR CREATING A RECORD IN THE BIBLIOGRAPHIC DATABASE
if ($arrHttp["typeofobj"] == "N") {
// si el objeto es nuevo y el número de objeto no existe en la base de datos
echo "<h4>" . $msgstr["newobject"] . ". " . $msgstr["database"] . ": " . $arrHttp["database"] . "<BR>";
echo $msgstr["precatal"] . "</h4>";
echo "<form name=catalog method=post action=object_create.php onsubmit='return false'>\n";
//IF THE PURCHASE ORDER WAS GENERATED FROM A SUGGESTIONS, GET THE SUGGESTION FOR RECOLECTING THE PRE-CATALOGATION
$valortag = array();
if (isset($arrHttp["suggestion"])) {
$res = EjecutarBusqueda("CN_" . $arrHttp["suggestion"], "suggestions");
// se localiza la recomendación para sacar los datos de pre-catalogacion
if ($res == 0) {
echo "<h4>" . $msgstr["suggestions"] . ": " . $arrHttp["suggestion"] . " " . $msgstr["notfound"] . "</h4>";
die;
}
} else {
//IF THERE IS NO SUGGESTION GET THE DATA FROM THE PURCHASEORDER DATABASE
$res = EjecutarBusqueda("ON_" . $arrHttp["order"], "purchaseorder");
// se localiza la recomendación para sacar los datos de pre-catalogacion
if ($res == 0) {
echo "<h4>" . $msgstr["purchaseorder"] . ": " . $arrHttp["suggestion"] . " " . $msgstr["notfound"] . "</h4>";
die;
}
}
foreach ($valortag as $tag => $value) {
echo "<input type=hidden name=tag{$tag} value=\"{$value}\">\n";
echo "{$tag}={$value}<br>";
}
foreach ($arrHttp as $var => $value) {
echo "<input type=hidden name={$var} value=\"{$value}\">\n";
}
if ($linea != "") {
$camposbusqueda[] = $linea;
$t = explode('|', $linea);
$tag = $t[1];
$matriz_c[$tag] = $linea;
}
}
// echo $arrHttp["bdrel"];
// echo $arrHttp["Opcion"];
switch ($arrHttp["Opcion"]) {
case "busquedalibre":
EjecutarBusqueda();
break;
case "continuar":
EjecutarBusqueda();
break;
case "formab":
$arrHttp["Opcion"] = "buscar";
DibujarFormaBusqueda();
break;
case "buscar":
EjecutarBusqueda();
break;
case "ubicar":
$arrHttp["Formato"] = "actual";
UbicarRegistro();
break;
case "buscar_en_este":
EjecutarBusqueda();
break;
}
$arrHttp["wk_tipom_2"] = $tym[2];
break;
}
if ($valortag[$tl] == $tym[1] and $tym[2] == "" or $valortag[$tl] == $tym[1] and $valortag[$nr] == $tym[2]) {
$arrHttp["wks_a"] = $linea;
$arrHttp["wks"] = $tym[0];
$arrHttp["wk_tipom_1"] = $tym[1];
$arrHttp["wk_tipom_2"] = $tym[2];
}
}
}
PlantillaDeIngreso();
echo "<script>\r\n\t\tif (top.window.frames.length>0){\r\n\t\t\ttop.xeditar='S'\r\n\t\t\ttop.PrenderEdicion()\r\n\t\t}\r\n\t\t</script>\n";
break;
case "buscar":
$resultado = EjecutarBusqueda();
include "scripts_dataentry.php";
if ($resultado == "0") {
$arrHttp["Opcion"] == "ninguna";
echo "\t<div class=\"middle form\">\r\n\t\t\t\t\t\t<div class=\"formContent\">\n";
echo "<font face=arial style=font-size:10px>" . $msgstr["expresion"] . ": " . stripslashes($arrHttp["Expresion"]) . "</font>";
echo "<h4>" . $msgstr["registros"] . ": " . $resultado . "</h4></div></div>\n";
ColocarMfn();
echo "</div></div>";
include "../common/footer.php";
die;
break;
} else {
include "toolbar_record.php";
if ($resultado != "no") {
//resultado=no indica que ya se formateo el registro
