add missing bugs warning callback

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@9406 57a11ea4-9604-0410-9ed3-97b8803252fd

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)
 {