<%=$I_administration%>

<%@ $Language=JScript /* PARA COLORES PHP */ %><% include("../includes/DB_Conectar.php"); /*toma la seguridad de la página admUsuariosAdmin.php*/ $admABMLink_manual="admUsuariosAdmin.php"; include("../includes/inc_auth.php"); include("../includes/funciones.php"); if($accion=="Guardar"){ /*Borro todos los permisos existentes (Submenues) y luego cargo los nuevos*/ $sql="delete from segAdminSeguridadABM where admABMID='$id'"; $delete=$conn->execute($sql); $sql="select USU.usradID from segUsuariosAdmin USU, segAdminSeguridad SEG, segAdminABM ABM where USU.usradID=SEG.usradID and ABM.admABMID='$id' and ABM.admSecID=SEG.admSecID"; $rs=$conn->execute($sql); while(!$rs->eof){ $usradID=$rs->field(usradID); if($permSubMenuAprueba[$usradID]=="on"){ $sql = "insert into segAdminSeguridadABM (usradID,admABMID,permTipo) values ('$usradID','$id','A')"; $qrupdate = $conn->execute($sql); }else if($permSubMenuCarga[$usradID]=="on"){ $sql = "insert into segAdminSeguridadABM (usradID,admABMID,permTipo) values ('$usradID','$id','C')"; $qrupdate = $conn->execute($sql); } $rs->movenext(); } header("Location: admUsuariosAdmin.php"); die(); } $sql="select admABMNombre from segAdminABM where admABMID='$id'"; $rsmenuNombre=$conn->execute($sql); $admABMNombreAux=$rsmenuNombre->field(admABMNombre); $admABMNombreOK=$$admABMNombreAux; %> <%=$I_administration%> <%include("menu.php");%>

> > <% $sql="select USU.usradID,USU.usradUsuario from segUsuariosAdmin USU, segAdminSeguridad SEG, segAdminABM ABM where USU.usradID=SEG.usradID and ABM.admABMID='$id' and ABM.admSecID=SEG.admSecID order by usradUsuario"; $rsusr=$conn->execute($sql); while(!$rsusr->eof){ %> <% $usradID=$rsusr->field(usradID); $sql="select PA.*,AM.admABMTipoPerm from segAdminSeguridadABM PA, segAdminABM AM where PA.admABMID=AM.admABMID and AM.admABMID='$id' and PA.usradID='$usradID' order by AM.admABMOrden"; $rsua2=$conn->execute($sql); if($rsua2->field(permTipo)=='C'){ if($rsua2->field(admABMTipoPerm)=="C/A"){ %> <%}else{%><%}%> <% } else if($rsua2->field(permTipo)=='A'){ if($rsua2->field(admABMTipoPerm)=="C/A"){ %> <%}else{%><%}%> <% } else{ $sql="select admABMTipoPerm from segAdminABM where admABMID='$id'"; $rsua3=$conn->execute($sql); if($rsua3->field(admABMTipoPerm)=="C/A"){ %> <%}else{%><%}%> <%}%> <%$rsusr->movenext();}%>

<%=$I_user%>		<%=$I_permissionsfor%> <%=$I_menu%> <%=$admABMNombreOK%>
		<%=$I_restrictedaccess%>	<%=$I_fullaccess%>
<%=$rsusr->field(usradUsuario)%>		] checked>		]>	]>		] checked>	]>		]>