"; //Se obtiene el código, tipo y vigencia del usuario $formato=$pft_uskey.'\'$$\''.$pft_ustype.'\'$$\''.$pft_usvig; $formato=urlencode($formato); $query = "&Expresion=".trim($uskey).$arrHttp["usuario"]."&base=users&cipar=$db_path"."par/users.par&Pft=$formato"; $contenido=""; $IsisScript=$xWxis."cipres_usuario.xis"; include("../common/wxis_llamar.php"); $user=""; $msgsusp=""; $vig=""; foreach ($contenido as $linea){ $linea=trim($linea); if ($linea!="") $user.=$linea; } if (trim($user)==""){ ProduceOutput("
".$msgstr["reserves"]."
".$reserves_user."
";
ProduceOutput($ec_output,"");
die;
}
//OJO AGREGARLE AL TIPO DE USUARIO SI SE LE PUEDEN PRESTAR CUANDO ESTÁ VENCIDO
if ($nv>0 and isset($arrHttp["inventory"])){
$ec_output.= "".$msgstr["useroverdued"]."
";
ProduceOutput($ec_output,"");
die;
}
//////////////////////////////////////////////////////////////////
// Si viene desde la opción de prestar, se localiza el número de inventario solicitado
$xnum_p=$np;
$prestamos_este=0;
if (isset($arrHttp["inventory"]) and $vig=="" and !isset($arrHttp["prestado"]) and !isset($arrHttp["renovado"]) and !isset($arrHttp["devuelto"])){
$ec_output.="
| ".$msgstr["inventory"]." | ".$msgstr["control_n"]." | ".$msgstr["reference"]." | ".$msgstr["typeofitems"]." | ".$msgstr["devdate"]." | \n"; $invent=explode("\n",trim(urldecode($arrHttp["inventory"]))); $primera_vez=""; foreach ($invent as $arrHttp["inventory"]){ $arrHttp["inventory"]=trim($arrHttp["inventory"]); if ($arrHttp["inventory"]=="") continue; $cont="Y"; if (isset($inventory_numeric) and $inventory_numeric =="Y"){ $i=0; while (substr($arrHttp["inventory"],$i,1)=="0"){ $i++; $arrHttp["inventory"]=substr($arrHttp["inventory"],$i,1); } } $arrHttp["inventory"]=trim($arrHttp["inventory"]); $ec_output.="||||||||||||||||||||||||
| ".$arrHttp["inventory"]." | "; //Se ubica el ejemplar en la base de datos de objeto $res=LocalizarInventario($arrHttp["inventory"]); $total=$res[0]; $item=$res[1]; if ($total==0){ $este_prestamo.= "".$msgstr["copynoexists"]." | "; $cont="N"; $ec_output.="".$este_prestamo; //ProduceOutput($ec_output,""); }else{ //se extrae la información del número de control del título y la base de datos catalográfica a la cual pertenece $tt=explode('||',$item); $control_number=$tt[0]; $catalog_db=$tt[1]; $tipo_obj=trim($tt[5]); //Tipo de objeto // se lee la configuración de la base de datos de objetos de préstamos $arrHttp["db"]="$catalog_db"; $este_prestamo.=" | $control_number ($catalog_db) | "; require_once("databases_configure_read.php"); $ppres=""; $tipo_obj=trim(strtoupper($tipo_obj)); $userdata[1]=trim(strtoupper($userdata[1])); if (isset($politica[$tipo_obj][$userdata[1]])){ $ppres=$politica[$tipo_obj][$userdata[1]]; $using_pol=$tipo_obj." - " .$userdata[1]; } if (trim($ppres)==""){ if (isset($politica[0][$userdata[1]])) { $ppres=$politica[0][$userdata[1]]; $using_pol="0 - " .$userdata[1]; } } if (trim($ppres)==""){ if (isset($politica[$tipo_obj][0])){ $ppres=$politica[$tipo_obj][0]; $using_pol=$tipo_obj." - 0" ; } } if (trim($ppres)==""){ if (isset($politica["0"]["0"])){ $ppres=$politica["0"]["0"]; $using_pol="0 - 0"; } } $obj=explode('|',$ppres); $fechal_usuario=""; $fechal_objeto=""; if (!isset($obj[2])) $total_prestamos_politica=0; else $total_prestamos_politica=$obj[2]; if (trim($total_prestamos_politica)=="") $total_prestamos_politica=99999; if (isset($obj[15])){ $fechal_usuario=$obj[15]; $fecha_d=date("Ymd"); if (trim($fechal_usuario)!=""){ if ($fecha_d>$fechal_usuario){ $este_prestamo.= "fecha límite del usuario "; $norenovar="S"; $cont="N"; //die; } } } if (isset($obj[15])){ $fechal_objeto=$obj[16]; if (trim($fechal_objeto)!=""){ if ($fecha_d>$fechal_objeto){ $este_prestamo.= "fecha límite del objeto "; $cont="N"; $este_prestamo.="".$msgstr["catalognotfound"]." ($catalog_db) | "; $cont="N"; } if ($ref_cat>1){ //More than one catalographic record $este_prestamo.= "".$msgstr["dupcopies"]." ($catalog_db) | "; $cont="N"; } if ($cont=="Y"){ $tt=explode('###',trim($titulo)); $obj_store=$tt[1]; $tt=explode('||',$tt[0]); $titulo=$tt[0]; $signatura=$tt[1]; //signatura topográfica $este_prestamo.= "$titulo | "; $este_prestamo.= ""; if (trim($ppres)==""){ //$debug="Y"; $este_prestamo.=$msgstr["nopolicy"]." ".$tipo_obj."-".$userdata[1]." | "; $grabar="N"; }else{ $este_prestamo.= $msgstr["policy"].": ". $using_pol; $grabar="Y"; } $este_prestamo.=""; // se verifica si el ejemplar está prestado $tr_prestamos=LocalizarTransacciones($arrHttp["inventory"],"TR",$catalog_db); $Opcion=""; $msg=""; $msg_1=""; $lapso=$obj[3]; if (trim($lapso)=="0"){ $msg=$msgstr["not_avail_loan"]; $este_prestamo.= " | ".$msgstr["not_avail_loan"]." | "; $cont="N"; }else{ if (count($tr_prestamos)>0){ // Si ya existe una transacción de préstamo para ese número de inventario, el ejemplar está prestado $cont="N"; $msg= $msgstr["itemloaned"]; $este_prestamo.=" | ".$msg." | "; } } //SE VERIFICA SI EL USUARIO YA TIENE UN MISMO EJEMPLAR, VOLUMEN Y TOMO DE ESE TÍTULO Y SI SE LE PERMITE O NO $var=PrestamoMismoObjeto($control_number,$arrHttp["usuario"],$catalog_db); $msg=$var[0]; $items_prestados=$var[1]; if ($msg!=""){ $cont="N"; $este_prestamo.=" | ".$msg." | "; } if ($cont=="Y"){ $msg=""; $ec_output.=" | ";
if ($grabar=="Y"){
//SE LOCALIZA SI EL TITULO ESTÁ RESERVADO
$reservado=LocalizarReservas($control_number,$catalog_db,$arrHttp["usuario"],$items_prestados,$prefix_cn,$from_copies,$pft_ni);
$mfn_reserva=$reservado[1];
//echo "mfnreserva: ".$mfn_reserva;
if (!isset($total_politica[$tipo_obj])) $total_politica[$tipo_obj]=0;
if ($reservado[0]=="continuar"){
//echo " np:".$np. " total_prestamos_usuario: $tprestamos_p total_prestamos_politica: ". $total_prestamos_politica ." total_politica[$tipo_obj]: ". $total_politica[$tipo_obj]." | ";
$ec_output.=$este_prestamo;
$Opcion="prestar";
// $action="usuario_prestamos_prestar.php";
$msg_1=$msgstr["loan"];
if ($grabar=="Y"){
$devolucion=ProcesarPrestamo($arrHttp["usuario"],$arrHttp["inventory"],$signatura,$item,$userdata[1],$from_copies,$ppres,$prefix_in,$prefix_cn,$mfn_reserva);
if ($mfn_reserva!=0){
$reserves_arr=ReservesRead("CU_".$arrHttp["usuario"]);
$reserves_user=$reserves_arr[0];
}
}else{
$devolucion=array();
}
$ec_output.="$msg";
if (count($devolucion)>0) {
if (substr($config_date_format,0,2)=="DD"){
$ec_output.=substr($devolucion[0],6,2)."/".substr($devolucion[0],4,2)."/".substr($devolucion[0],0,4);
}else{
$ec_output.=substr($devolucion[0],4,2)."/".substr($devolucion[0],6,2)."/".substr($devolucion[0],0,4);
}
$ec_output.=" ".$devolucion[1];
if ($mfn_reserva>0) $ec_output.=" ".$msgstr["rs04"].""; } $ec_output.=" | "; }else{ $ec_output.=" | ".$este_prestamo; } } else{ $ec_output.=" | ".$este_prestamo; } }else{ $ec_output.=" | ".$este_prestamo; } } } $ec_output.=" |
".$msgstr["reserves"]." (user)
".$reserves_user."
"; ProduceOutput($ec_output,""); function ProduceOutput($ec_output,$reservas){ global $msgstr,$arrHttp,$signatura,$msg_1,$cont,$institution_name,$lang_db,$copies_title,$link_u,$recibo_arr,$db_path,$Wxis,$xWxis; global $prestamos_este,$xnum_p; include("../common/header.php"); echo "
"; include("../common/institutional_info.php"); // if ($recibo!=""){ // $recibo="&recibo=$recibo"; // $link_u.=$recibo; // } ?>".$msgstr["total_copies"].": ".count($copies_title).". ".$msgstr["item_reserved"]."
";
echo $reservas ;
}
if (isset($arrHttp["prestado"]) and $arrHttp["prestado"]=="S"){
if (isset($arrHttp["resultado"])){
$inven=explode(';',$arrHttp["resultado"]);
foreach ($inven as $inventario){
echo "
". $inventario." ".$msgstr["item"].": ".$msgstr["loaned"]." "; if (isset($arrHttp["policy"])){ $p=explode('|',$arrHttp["policy"]); echo $msgstr["policy"].": " . $p[0] ." - ". $p[1]; } } } } if (isset($arrHttp["devuelto"]) and $arrHttp["devuelto"]=="S"){ if (isset($arrHttp["resultado"]) and isset($arrHttp["rec_dev"])){ $inven=explode(';',$arrHttp["rec_dev"]); foreach ($inven as $inventario){ if (trim($inventario)!=""){ $Mfn=trim($inventario); echo "
". $inventario." ".$msgstr["item"].": ".$msgstr["returned"]." ";
$Formato="v10,' ',mdl,v100'
'";
$Formato="&Pft=$Formato";
$IsisScript=$xWxis."leer_mfnrange.xis";
$query = "&base=trans&cipar=$db_path"."par/trans.par&from=$Mfn&to=$Mfn$Formato";
include("../common/wxis_llamar.php");
foreach ($contenido as $value){
echo $value;
}
}
}
}
}
//SE VERIFICA SI ALGUNO DE LOS EJEMPLARES DEVUELTOS ESTÁ RESERVADO
if (isset($arrHttp["lista_control"])) {
//include("../reserve/reserves_read.php");
$rn=explode(";",$arrHttp["lista_control"]);
$res=array();
foreach ($rn as $value){
if (trim($value)!=""){
if (!isset($res[$value]))
$res[$value]=1;
else
$res[$value]=$res[$value]+1;
}
}
if (count($res)>0){
$Expresion="";
foreach ($res as $key=> $value){
if ($Expresion==""){
$Expresion=$key;
}else{
$Expresion.="+".$key;
}
}
$reserves_arr= ReservesRead($Expresion);
$reserves_title=$reserves_arr[0];
if ($reserves_title!=""){
echo "
"; } } } if (isset($arrHttp["renovado"]) and $arrHttp["renovado"]=="S"){ if (isset($arrHttp["resultado"])){ $inven=explode(';',$arrHttp["resultado"]); foreach ($inven as $inventario){ if (trim($inventario)!="") echo "
".$msgstr["item"]." ". $inventario." "; } } }else{ } //SE IMPRIMEN LOS RECIBOS DE PRÉSTAMOS if (count($recibo_arr)>0) { ImprimirRecibo($recibo_arr); } //SE IMPRIMEN LOS RECIBOS DE DEVOLUCION if (isset($arrHttp["rec_dev"])){ $Mfn_rec=$arrHttp["rec_dev"]; $fs="r_return"; $r=explode(";",$Mfn_rec); $rec_salida=array(); foreach ($r as $Mfn){ if ($Mfn!=""){ $Formato=""; if (file_exists($db_path."trans/pfts/".$_SESSION["lang"]."/$fs.pft")){ $Formato=$db_path."trans/pfts/".$_SESSION["lang"]."/$fs"; }else{ if (file_exists($db_path."trans/pfts/".$lang_db."/$fs.pft")){ $Formato=$db_path."trans/pfts/".$lang_db."/$fs"; } } if ($Formato!="") { $Formato="&Formato=$Formato"; $IsisScript=$xWxis."leer_mfnrange.xis"; $query = "&base=trans&cipar=$db_path"."par/trans.par&from=$Mfn&to=$Mfn$Formato"; include("../common/wxis_llamar.php"); $recibo=""; foreach ($contenido as $value){ $recibo.=trim($value); } $rec_salida[]=$recibo; } } } if (count($rec_salida)>0) { ImprimirRecibo($rec_salida); } } ?>