"; $permiso = new SA_Perm(1,'mdegan@mecon'); print "
Probando la funcion tiene -> "; if ($permiso->tiene(1,2,3,4,5,6,7,3)) { print "Tiene todos los permisos
"; } else { print "No tiene todos los permisos
"; } print "
Probando la funcion tieneO -> "; if ($permiso->tieneO(1,2,3,4,5,7,3)) { print "Tiene alguno de los permisos
"; } else { print "No tiene permiso alguno
"; } print "
Probando la funcion tieneUn -> "; if ($permiso->tieneO(2)) { print "Tiene EL permiso
"; } else { print "No tiene EL permiso
"; } ?>