ad_proc -private script__add_members {
    -element:required
    -alfpm_pid:required
} {
    # Establecimiento de variables para el array del ad_conn ya que
    # no se rellenan al ejecutarse en un thread aparte.
    ad_conn -set node_id [site_node::get_node_id -url "/"]
    ad_conn -set peeraddr "127.0.0.1"
    ad_conn -set user_id [party::get_by_email -email [ad_system_owner]]
    # ---

    util_unlist $element email first_names last_name

    with_catch errmsg {
        auth::ciberuned::uned_register -email $email \
                                        -first_names $first_names \
                                        -last_name $last_name]
    } {
        set message "Failed add member $email"
        ns_log Error "script__add_members: $message"
        alf-proc-manager::process::error -process_id $alfpm_pid -variable user -valor $element -descripcion $message
    }
}


set members [db_list get {
        select distinct id_uned || '@alumno.uned.es' as email,
              first_names,
              last_name
        from v_ehea_estudiante_tutoria
        where curaca = '2013'
}]


        alf-proc-manager::sync::mutex_sync -process "script__add_members" \
                                           -process_name "Alta de alumnos - script" \
                                           -sync_list $members \
                                           -group_name Grados