Erlang29 catch odbc

[badlop]

This PR includes various fixes to solve compilation warnings in Erlang/OTP 29

     ┌─ src/jd2ejd.erl:
     │
 143 │ catch mod_private:set_data(
     │ ╰── Warning: 'catch ...' is deprecated; please use 'try ... catch ... end' instead.>
     Compile directive 'nowarn_deprecated_catch' can be used to suppress
     warnings in selected modules.

     ┌─ src/ejabberd_sql.erl:
     │
 788 │ to_odbc(odbc:sql_query(State#state.db_ref, [Query],
     │  ╰── Warning: odbc:sql_query/3 is deprecated and will be removed in OTP 30;
      Legacy protocol support will be dropped in OTP-30, does not really provide backend transparency
       and known usage is low.

test/pubsub_tests.erl:
 283  						  type = Type}}]},
Warning: variable 'R1' exported from tuple (line 277, column 9).
Exporting bindings from subexpressions other than block expressions is
deprecated and may yield an error in a future version of Erlang/OTP.
Please move the binding of 'R1' out of the tuple.
Compile directive 'nowarn_export_var_subexpr' can be used to suppress
warnings in selected modules.
We are open to contributions for ejabberd, as GitHub pull requests (PR).
Here are a few points to consider before submitting your PR. (You can
remove the whole text after reading.)