Prevent F::Q from updating PRICE_SOURCE_EDIT_DLG prices.

Gnucash · Sep 15, 2015 · 05bb4bd · 05bb4bd
1 parent 74d11b2
commit 05bb4bd
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 8 deletions.
diff --git a/src/gnome-utils/dialog-transfer.c b/src/gnome-utils/dialog-transfer.c
@@ -1325,7 +1325,7 @@ gnc_xfer_dialog_set_fetch_sensitive (GtkWidget *fetch)
     if (gnc_quote_source_fq_installed ())
     {
         gtk_widget_set_sensitive (fetch, TRUE);
-        gtk_widget_set_tooltip_text (fetch, _("Retrieve the current online quote"));
+        gtk_widget_set_tooltip_text (fetch, _("Retrieve the current online quote. This will fail if there is a manually-created price for today."));
         return;
     }
     gtk_widget_set_sensitive (fetch, FALSE);

diff --git a/src/scm/price-quotes.scm b/src/scm/price-quotes.scm
@@ -426,14 +426,16 @@
                   (if (not (null? saved-price))
                       (set! price (gnc-numeric-invert(price))))))
             (if (not (null? saved-price))
-              (begin
-                (gnc-price-begin-edit saved-price)
-                (gnc-price-set-time saved-price gnc-time)
+                (if (> (gnc-price-get-source saved-price) PRICE-SOURCE-FQ)
+                    (begin
+                      (gnc-price-begin-edit saved-price)
+                      (gnc-price-set-time saved-price gnc-time)
                       (gnc-price-set-source saved-price PRICE-SOURCE-FQ)
-                (gnc-price-set-typestr saved-price price-type)
-                (gnc-price-set-value saved-price price)
-                (gnc-price-commit-edit saved-price)
-                #f)
+                      (gnc-price-set-typestr saved-price price-type)
+                      (gnc-price-set-value saved-price price)
+                      (gnc-price-commit-edit saved-price)
+                      #f)
+                    #f)
               (let ((gnc-price (gnc-price-create book)))
                 (if (not gnc-price)
                     (string-append