. * * == END LICENSE == */ session_start(); if (isset($_SESSION["DB_PATH"])) $arrHttp["DB_PATH"]=$_SESSION["DB_PATH"]; if (!isset($_SESSION["login"])) $_SESSION["login"] ="web"; include("../common/get_post.php"); //foreach ($arrHttp as $var=>$value) echo "$var=$value
";die; include("../config.php"); if (!isset($arrHttp["vienede"]) or $arrHttp["vienede"]!="ecta_web" ){ if (!isset($_SESSION["permiso"])){ header("Location: ../common/error_page.php") ; } } if (isset($arrHttp["DB_PATH"])) $db_path=$arrHttp["DB_PATH"]; //foreach ($arrHttp as $var=>$value) echo "$var=$value
"; if (isset($arrHttp["lang"])) $_SESSION["lang"]=$arrHttp["lang"]; //die; $lang=$_SESSION["lang"]; include("../lang/admin.php"); include("../lang/prestamo.php"); include("fecha_de_devolucion.php"); // se lee la configuración de la base de datos de usuarios include("borrowers_configure_read.php"); # Se lee el prefijo y el formato para extraer el código de usuario include("leer_pft.php"); $us_tab=LeerPft("loans_uskey.tab","users"); $t=explode("\n",$us_tab); $uskey=$t[0]; require_once("../circulation/grabar_log.php"); //se busca el numero de control en el archivo de transacciones para ver si el usuario tiene otro ejemplar prestado function LocalizarTransacciones($control_number,$prefijo,$base_origen){ global $db_path,$Wxis,$xWxis,$wxisUrl,$arrHttp,$msgstr; $tr_prestamos=array(); $formato_obj=$db_path."trans/pfts/".$_SESSION["lang"]."/loans_display.pft"; if (!file_exists($formato_obj)) $formato_obj=$db_path."trans/pfts/".$lang_db."/loans_display.pft"; $query = "&Expresion=".$prefijo."_P_".$control_number; if (isset($arrHttp["year"]) or isset($arrHttp["volumen"])){ $query.="_"; if (isset($arrHttp["year"])) $query.="A:".$arrHttp["year"]; if (isset($arrHttp["volumen"])) $query.="V:".$arrHttp["volumen"]; if (isset($arrHttp["numero"])) $query.="N:".$arrHttp["numero"]; } $query.="&base=trans&cipar=$db_path"."par/trans.par&Formato=".$formato_obj; $IsisScript=$xWxis."cipres_usuario.xis"; include("../common/wxis_llamar.php"); $prestamos=array(); foreach ($contenido as $linea){ //echo "$linea
"; if (trim($linea)!=""){ $l=explode('^',$linea); if (isset($l[13])){ if ($base_origen==$l[13]) $tr_prestamos[]=$linea; }else{ $tr_prestamos[]=$linea; } } } return $tr_prestamos; } function compareDate ($FechaP,$lapso_p=""){ global $locales,$config_date_format; //Se convierte la fecha a formato ISO (yyyymmaa) utilizando el formato de fecha local $ixTime=strpos($FechaP," "); $exp_date=substr($FechaP,0,4)."-".substr($FechaP,4,2)."-".substr($FechaP,6,2); if ($lapso_p=="H") { $exp_date.=substr($FechaP,$ixTime); $todays_date = date("Y-m-d h:i A"); }else{ $todays_date = date("Y-m-d"); } $today = strtotime($todays_date); $expiration_date = strtotime($exp_date); $diff=$expiration_date-$today; return $diff; }//end Compare Date function Reservado($Ctrl,$bd){ global $xWxis,$Wxis,$wxisUrl,$db_path; $Expresion="(ST_0 or ST_3) and CN_".$bd."_$Ctrl"; $IsisScript=$xWxis."cipres_usuario.xis"; $Pft="v1,'|',v10,'|',v15,'|',v20,'|',v40/"; $Formato=$db_path."reserve/pfts/".$_SESSION["lang"]."/tbreserve.pft"; $query="&base=reserve&cipar=$db_path"."par/reserve.par&Expresion=$Expresion&Pft=$Pft"; include("../common/wxis_llamar.php"); $cuenta=0; //SE OBTIENE EL NÚMERO DE RESERVAS foreach ($contenido as $value) { if (trim($value)!=""){ $v=explode('|',$value); if ($v[0]=="3"){ if ($v[4]!="" and $v[4]" ; if ($Total<=0){ $error="&error=".$msgstr["notloaned"]; $resultado.=";".$num_inv." ".$msgstr["notloaned"]; }else{ // se extrae la información del ejemplar a devolver $p=explode('|$',$prestamo); $cod_usuario=$p[1]; $inventario=$p[0]; $fecha_p=$p[2]; $hora_p=$p[3]; $fecha_d=$p[4]; $hora_d=$p[5]; $tipo_usuario=$p[6]; $tipo_objeto=$p[7]; $referencia=$p[8]; $no_renova=$p[9]; // Número de renovaciones procesadas $ppres=$p[10]; //Loan policy $num_ctrl=$p[11]; // Número de control $catalog_db=$p[12]; // Nombre de la base de datos $total_prestados=$p[13]; //Total de ejemplares prestados por número de control $arrHttp["usuario"]=$cod_usuario; include_once("sanctions_read.php"); // se lee la política de préstamos include_once("loanobjects_read.php"); // se lee el calendario include_once("calendario_read.php"); // se lee la configuración local include_once("locales_read.php"); $conf_db=file($db_path.$catalog_db."/loans/".$_SESSION["lang"]."/loans_conf.tab"); foreach ($conf_db as $value) { if (substr($value,0,2)=="NC") $prefix_cn=trim(substr($value,3)); } //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"); //foreach ($contenido as $value) echo "$value
";die; //se determina la política a aplicar if ($ppres==""){ if (isset($politica[$tipo_objeto][$tipo_usuario])){ $ppres=$politica[$tipo_objeto][$tipo_usuario]; } if (trim($ppres)==""){ if (isset($politica[0][$tipo_usuario])) { $ppres=$politica[0][$tipo_usuario]; } } if (trim($ppres)==""){ if (isset($politica[$tipo_usuario][0])){ $ppres=$politica[$tipo_usuario][0]; } } if (trim($ppres)==""){ if (isset($politica["0"]["0"])){ $ppres=$politica["0"]["0"]; } } } $p=explode('|',$ppres); $lapso=$p[3]; $lapso_reserva=$p[4]; $unidad=$p[5]; $renewed="S"; //se verifica si el objeto admite más renovaciones if ($p[6]!=""){ if ($no_renova>=$p[6]){ $error="&error=".$msgstr["nomorenew"]; $resultado.=";".$num_inv." ".$msgstr["nomorenew"]; $renewed="N"; Regresar($error); continue; } } //se verifica la fecha límite del usuario if (trim($p[15])!=""){ if ($p[15]0) $disponibilidad=0; else $disponibilidad=count($obj)-($items_prestados-1)-$lista_espera; //echo "
$items_prestados ".$disponibilidad; die; if ($disponibilidad<=0){ $error="&error=".$msgstr["reservednorenew"]; $resultado.=";".$num_inv." ".$msgstr["reservednorenew"]; $renewed="N"; //echo $resultado;die; Regresar($error); continue; } } // Se calcula si hay atraso en la fecha de devolución $atraso=compareDate($fecha_d,$lapso); if ($atraso<0){ if ($p[13]!="Y"){ // se verifica si la política permite renovar cuando está atrasado $error="&error=".$msgstr["loanoverdued"]; $resultado.=";".$num_inv." ".$msgstr["loanoverdued"]." "; $renewed="N"; Regresar($error); continue; } } $nsusp=0; $nmulta=0; $arrHttp["usuario"]=$cod_usuario; include_once("sanctions_read.php"); if ($nsusp>0 or $nmulta>0){ $error="&error=".$msgstr["pending_sanctions"]; $resultado.=";".$num_inv." ".$msgstr["pending_sanctions"]; $renewed="N"; Regresar($error); continue; } // se verifica si tiene reservas if ($renewed=="S"){ // Se pasa la fecha de préstamo y devolución anteriores al campo 200 $f_ant="^a".$fecha_p."^b".$hora_p."^c".$fecha_d."^d".$hora_p."^e".$_SESSION["login"]; //se calcula la nueva fecha de devolución $fecha_pres=date("Ymd h:i:s A"); $ixpos=strpos($fecha_pres," "); $hora_d=trim(substr($fecha_pres,$ixpos)); $fecha_pres=trim(substr($fecha_pres,0,$ixpos)); if (isset($arrHttp["lpn"])) $fecha_dev=FechaDevolucion($arrHttp["lpn"],$unidad,""); else $fecha_dev=FechaDevolucion($lapso,$unidad,""); $ixp=strpos($fecha_dev," "); if ($ixp>0){ $fecha_d=trim(substr($fecha_dev,0,$ixp)); } $ValorCapturado="d30d35d40d45"; $ValorCapturado.="<30 0>".$fecha_pres.""; $ValorCapturado.="<35 0>".$hora_d.""; $ValorCapturado.="<40 0>".$fecha_d.""; $ValorCapturado.="<45 0>".$hora_d.""; $ValorCapturado.="<200 0>".$f_ant.""; $ValorCapturado=urlencode($ValorCapturado); $IsisScript=$xWxis."actualizar_registro.xis"; $Formato=""; $query = "&base=trans&cipar=$db_path"."par/trans.par&login=".$_SESSION["login"]."&Mfn=".$Mfn."&ValorCapturado=".$ValorCapturado; $resultado.=";".$num_inv." ".$msgstr["renewed"]; if (file_exists($db_path."logtrans/data/logtrans.mst")){ $datos_trans["BD"]=$bd_obj; $datos_trans["NUM_CONTROL"]=$num_ctrl; $datos_trans["NUM_INVENTARIO"]=trim($inventario); $datos_trans["TIPO_OBJETO"]=$tipo_objeto; $datos_trans["CODIGO_USUARIO"]=$cod_usuario; $datos_trans["TIPO_USUARIO"]=$tipo_usuario; $datos_trans["FECHA_DEVOLUCION"]=$fecha_d; $ValorCapturado=GrabarLog("C",$datos_trans,$Wxis,$xWxis,$wxisUrl,$db_path,"RETORNAR"); if ($ValorCapturado!="") $query.="&logtrans=".$ValorCapturado; } include ("../common/wxis_llamar.php"); } } } } $cu=""; $recibo=""; if (isset($arrHttp["usuario"])) $cu="&usuario=".$arrHttp["usuario"]; else $cu="&usuario=$cod_usuario"; if (isset($arrHttp["reserve"])){ $reserve="&reserve=\"S\""; }else{ $reserve=""; } if (isset($arrHttp["vienede"]) and $arrHttp["vienede"]=="ecta_web"){ header("Location: opac_statment_ex.php?usuario=$cod_usuario$error&vienede=ecta_web&lang=$lang&resultado=".urlencode($resultado)); die; } header("Location: usuario_prestamos_presentar.php?renovado=S&encabezado=s&resultado=".urlencode($resultado)."$cu&rec_dev=$Mfn_rec"."&inventario=".$arrHttp["searchExpr"].$reserve); die; function Regresar($error){ global $arrHttp,$cod_usuario,$db_path,$lang; if (isset($arrHttp["vienede"]) and $arrHttp["vienede"]=="ecta_web"){ header("Location: opac_statment_ex.php?usuario=$cod_usuario$error&vienede=ecta_web&DB_PATH=$db_path&lang=$lang"); die; } } ?>