From c0f9a59369662706c1d5bea3f0298918ec524913 Mon Sep 17 00:00:00 2001
From: Linas Vepstas <linas@linas.org>
Date: Mon, 22 Sep 2003 03:12:23 +0000
Subject: [PATCH] add missing bugs warning callback

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@9406 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 .../ledger-core/split-register-model.c        | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/src/register/ledger-core/split-register-model.c b/src/register/ledger-core/split-register-model.c
index 2afc745dae..ace387f180 100644
--- a/src/register/ledger-core/split-register-model.c
+++ b/src/register/ledger-core/split-register-model.c
@@ -29,6 +29,7 @@
 #include "datecell.h"
 #include "global-options.h"
 #include "gnc-engine-util.h"
+#include "gnc-err-popup.h"
 #include "gnc-ui.h"
 #include "gnc-ui-util.h"
 #include "messages.h"
@@ -1697,6 +1698,24 @@ gnc_split_register_get_security_io_flags (VirtualLocation virt_loc,
   return XACC_CELL_ALLOW_SHADOW;
 }
 
+static gboolean
+xaccTransWarnReadOnly (const Transaction *trans)
+{
+  const gchar *reason;
+                                                                               
+  if (!trans) return FALSE;
+                                                                               
+  reason = xaccTransGetReadOnly (trans);
+  if (reason) {
+    gnc_send_gui_error(_("Cannot modify or delete this transaction.\n"
+                       "This transaction is marked read-only because:\n\n'%s'"),
+                       reason);
+    return TRUE;
+  }
+  return FALSE;
+}
+
+
 static gboolean
 gnc_split_register_confirm (VirtualLocation virt_loc, gpointer user_data)
 {