gnc-ab-kvp.c

/*
 * gnc-ab-kvp.c --
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of
 * the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, contact:
 *
 * Free Software Foundation           Voice:  +1-617-542-5942
 * 51 Franklin Street, Fifth Floor    Fax:    +1-617-542-2652
 * Boston, MA  02110-1301,  USA       [email protected]
 */

#include "config.h"
#include "gnc-ui-util.h"

#include "gnc-ab-kvp.h"

/* This static indicates the debugging module that this .o belongs to.  */
G_GNUC_UNUSED static QofLogModule log_module = G_LOG_DOMAIN;

const gchar *
gnc_ab_get_account_accountid(const Account *a)
{
    gchar *id = NULL;
    qof_instance_get (QOF_INSTANCE (a),
                      "ab-account-id", &id,
                      NULL);
    return id;
}

void
gnc_ab_set_account_accountid(Account *a, const gchar *id)
{
    xaccAccountBeginEdit(a);
    qof_instance_set (QOF_INSTANCE (a),
                      "ab-account-id", id,
                      NULL);
    xaccAccountCommitEdit(a);
}

const gchar *
gnc_ab_get_account_bankcode(const Account *a)
{
    gchar *code = NULL;
    qof_instance_get (QOF_INSTANCE (a),
                      "ab-bank-code", &code,
                      NULL);
    return code;
}

void
gnc_ab_set_account_bankcode(Account *a, const gchar *code)
{
    xaccAccountBeginEdit(a);
    qof_instance_set (QOF_INSTANCE (a),
                      "ab-bank-code", code,
                      NULL);
    xaccAccountCommitEdit(a);
}

guint32
gnc_ab_get_account_uid(const Account *a)
{
    guint64 uid = 0LL;
    qof_instance_get (QOF_INSTANCE (a),
                      "ab-account-uid", &uid,
                      NULL);
    return (guint32)uid;
}

void
gnc_ab_set_account_uid(Account *a, guint32 uid)
{
    xaccAccountBeginEdit(a);
    qof_instance_set (QOF_INSTANCE (a),
                      "ab-account-uid", (guint64)uid,
                      NULL);
    xaccAccountCommitEdit(a);
}

Timespec
gnc_ab_get_account_trans_retrieval(const Account *a)
{
    Timespec *t = NULL;
    qof_instance_get (QOF_INSTANCE (a),
                      "ab-trans-retrieval", &t,
                      NULL);
    return *t;
}

void
gnc_ab_set_account_trans_retrieval(Account *a, Timespec time)
{
    xaccAccountBeginEdit(a);
    qof_instance_set (QOF_INSTANCE (a),
                      "ab-trans-retrieval", &time,
                      NULL);
    xaccAccountCommitEdit(a);
}


#define AB_KEY "hbci"
#define AB_TEMPLATES "template-list"
static KvpFrame *gnc_ab_get_book_kvp(QofBook *b, gboolean create);


/* EFFECTIVE FRIEND FUNCTION */
extern KvpFrame *qof_instance_get_slots (const QofInstance *);
/* EFFECTIVE FRIEND FUNCTION */
extern void qof_instance_set_dirty_flag (gconstpointer inst, gboolean flag);

GList *
gnc_ab_get_book_template_list(QofBook *b)
{
    KvpFrame *frame = gnc_ab_get_book_kvp(b, FALSE);
    KvpValue *value = kvp_frame_get_slot(frame, AB_TEMPLATES);
    return kvp_value_get_glist(value);
}

void
gnc_ab_set_book_template_list(QofBook *b, GList *template_list)
{
    KvpFrame *frame = gnc_ab_get_book_kvp(b, TRUE);
    KvpValue *value = kvp_value_new_glist_nc(template_list);
    kvp_frame_set_slot_nc(frame, AB_TEMPLATES, value);
    qof_instance_set_dirty_flag(QOF_INSTANCE(b), TRUE);
}

static KvpFrame *
gnc_ab_get_book_kvp(QofBook *b, gboolean create)
{
    KvpFrame *toplevel = qof_instance_get_slots(QOF_INSTANCE(b));
    KvpFrame *result = kvp_frame_get_frame(toplevel, AB_KEY);
    if (!result && create)
    {
        result = kvp_frame_new();
        kvp_frame_add_frame_nc(toplevel, AB_KEY, result);
    }
    return result;
}