Conexion->Cerrar();
}
// *************************************************************************************************************************************************
?>
'.$tablanodo.'';
if ($resul){
echo '';
}
else{
echo '';
}
?>
CreaParametro("@nombregrupo",$nombregrupo,0);
$cmd->CreaParametro("@grupoid",$grupoid,1);
$cmd->CreaParametro("@idcentro",$idcentro,1);
$cmd->CreaParametro("@idgrupo",$idgrupo,1);
$cmd->CreaParametro("@tipo",$tipo,1);
$cmd->CreaParametro("@iduniversidad",$iduniversidad,1);
$cmd->CreaParametro("@comentarios",$comentarios,0);
switch($opcion){
case $op_alta :
$cmd->texto="INSERT INTO grupos(nombregrupo,idcentro,grupoid,tipo,iduniversidad,comentarios) VALUES (@nombregrupo,@idcentro,@grupoid,@tipo,@iduniversidad,@comentarios)";
$resul=$cmd->Ejecutar();
if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta
$idgrupo=$cmd->Autonumerico();
$arbolXML=SubarbolXML_grupos($idgrupo,$nombregrupo,$literaltipo);
$baseurlimg="../images/signos";
$clasedefault="texto_arbol"; // Hoja de estilo (Clase por defecto) del árbol
$arbol=new ArbolVistaXML($arbolXML,0,$baseurlimg,$clasedefault);
$tablanodo=$arbol->CreaNodo(0);
}
break;
case $op_modificacion:
$cmd->texto="UPDATE grupos SET nombregrupo=@nombregrupo,comentarios=@comentarios WHERE idgrupo=@idgrupo";
$resul=$cmd->Ejecutar();
break;
case $op_eliminacion :
$resul=EliminaGrupos($cmd,$idgrupo,"idgrupo",$literaltipo);// Eliminación en cascada
break;
default:
break;
}
return($resul);
}
/*________________________________________________________________________________________________________
Crea un arbol XML para el nuevo nodo insertado
________________________________________________________________________________________________________*/
function SubarbolXML_grupos($idgrupo,$nombregrupo,$literaltipo){
$cadenaXML='';
$cadenaXML.='';
return($cadenaXML);
}
/*________________________________________________________________________________________________________
Elimina en cascada grupos
Parametros:
- cmd: Un comando ya operativo (con conexión abierta)
- idgrupo: El identificador del grupo
- literaltipo: El literal del grupo
- literaltipo: El literal del grupo
- swid: Indica 0= El identificador es tipo alfanumérico 1= EI identificador es tipo numérico ( valor por defecto)
________________________________________________________________________________________________________*/
function EliminaGrupos($cmd,$identificador,$nombreid,$literaltipo,$swid=1){
if (empty($identificador)) return(true);
global $LITAMBITO_GRUPOSAULAS ;
global $LITAMBITO_GRUPOSIMAGENESMONOLITICAS ;
global $LITAMBITO_GRUPOSIMAGENESBASICAS ;
global $LITAMBITO_GRUPOSIMAGENESINCREMENTALES ;
global $LITAMBITO_GRUPOSPROCEDIMIENTOS ;
global $LITAMBITO_GRUPOSTAREAS ;
global $LITAMBITO_GRUPOSTRABAJOS ;
global $LITAMBITO_GRUPOSCOMPONENTESHARD ;
global $LITAMBITO_GRUPOSCOMPONENTESSOFT ;
global $LITAMBITO_GRUPOSPERFILESHARD ;
global $LITAMBITO_GRUPOSPERFILESSOFT ;
global $LITAMBITO_GRUPOSSOFTINCREMENTAL ;
global $LITAMBITO_GRUPOSMENUS ;
global $LITAMBITO_GRUPOSREPOSITORIOS ;
global $LITAMBITO_GRUPOSRESERVAS ;
global $LITAMBITO_GRUPOSENTIDADES ;
if($swid==0)
$cmd->texto="SELECT idgrupo FROM grupos WHERE ".$nombreid."='".$identificador."'";
else
$cmd->texto='SELECT idgrupo FROM grupos WHERE '.$nombreid.'='.$identificador;
$rs=new Recordset;
$rs->Comando=&$cmd;
if (!$rs->Abrir()) return(false); // Error al abrir recordset
if ($rs->numeroderegistros==0) return(true);
$rs->Primero();
while (!$rs->EOF){
$resul=EliminaGrupos($cmd,$rs->campos["idgrupo"],"grupoid",$literaltipo);
if ($resul){
switch($literaltipo){
case $LITAMBITO_GRUPOSAULAS :
$resul=EliminaAulas($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSPROCEDIMIENTOS :
$resul=EliminaProcedimientos($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSTAREAS :
$resul=EliminaTareas($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSTRABAJOS :
$resul=EliminaTrabajos($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSIMAGENESMONOLITICAS :
$resul=EliminaImagenes($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSIMAGENESBASICAS :
$resul=EliminaImagenes($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSIMAGENESINCREMENTALES :
$resul=EliminaImagenes($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSCOMPONENTESHARD :
$resul=EliminaHardwares($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSCOMPONENTESSOFT :
$resul=EliminaSoftwares($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSPERFILESHARD :
$resul=EliminaPerfileshard($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSPERFILESSOFT :
$resul=EliminaPerfilessoft($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSSOFTINCREMENTAL :
$resul=EliminaSoftincremental($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSREPOSITORIOS :
$resul=Eliminarepositorios($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSMENUS :
$resul=EliminaMenus($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSRESERVAS :
$resul=EliminaReservas($cmd,$rs->campos["idgrupo"],"grupoid");
break;
case $LITAMBITO_GRUPOSENTIDADES :
$resul=EliminaEntidad($cmd,$rs->campos["idgrupo"],"grupoid");
break;
default:
$resul=false;
}
}
if (!$resul){
$rs->Cerrar();
return(false);
}
$rs->Siguiente();
}
if($swid==0)
$cmd->texto="DELETE FROM grupos WHERE ".$nombreid."='".$identificador."'";
else
$cmd->texto='DELETE FROM grupos WHERE '.$nombreid.'='.$identificador;
$resul=$cmd->Ejecutar();
return($resul);
}
?>