Changing unit trust/stock account details

Matt Kraai kraai@alumni.carnegiemellon.edu
Tue, 14 Aug 2001 14:39:22 -0600


Howdy,

The following patch adds support for the Finance::Quote::Trustnet
module.

Matt

Index: src/gnc-ui-util.c
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/gnc-ui-util.c,v
retrieving revision 1.40
diff -u -r1.40 gnc-ui-util.c
--- src/gnc-ui-util.c	2001/07/18 23:14:50	1.40
+++ src/gnc-ui-util.c	2001/08/14 19:34:44
@@ -372,6 +372,8 @@
       return "ASX";
     case SOURCE_TIAA_CREF :
       return "TIAA-CREF";
+    case SOURCE_TRUSTNET :
+      return "Trustnet";
     default:
       break;
   }
@@ -402,6 +404,8 @@
       return "ASX";
     case SOURCE_TIAA_CREF :
       return "TIAACREF";
+    case SOURCE_TRUSTNET :
+      return "TRUSTNET";
     default:
       break;
   }
Index: src/gnc-ui-util.h
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/gnc-ui-util.h,v
retrieving revision 1.20
diff -u -r1.20 gnc-ui-util.h
--- src/gnc-ui-util.h	2001/07/12 22:21:06	1.20
+++ src/gnc-ui-util.h	2001/08/14 19:34:44
@@ -106,6 +106,7 @@
   SOURCE_VANGUARD,
   SOURCE_ASX,
   SOURCE_TIAA_CREF,
+  SOURCE_TRUSTNET,
   NUM_SOURCES
 } PriceSourceCode;
 /* NOTE: If you modify PriceSourceCode, please update price-quotes.scm
Index: src/quotes/finance-quote-helper.in
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/quotes/finance-quote-helper.in,v
retrieving revision 1.7
diff -u -r1.7 finance-quote-helper.in
--- src/quotes/finance-quote-helper.in	2001/05/08 09:36:39	1.7
+++ src/quotes/finance-quote-helper.in	2001/08/14 19:34:44
@@ -354,6 +354,10 @@
       %quote_data = $quoter->tiaacref(@$symbols);
       last SWITCH;
     }
+    if($quote_method_name =~ m/^trustnet$/) {
+      %quote_data = $quoter->trustnet(@$symbols);
+      last SWITCH;
+    }
     if($quote_method_name =~ m/^currency$/) {
       my ($from_currency, $to_currency) = @$symbols;
 
Index: src/scm/price-quotes.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/scm/price-quotes.scm,v
retrieving revision 1.14
diff -u -r1.14 price-quotes.scm
--- src/scm/price-quotes.scm	2001/08/07 23:28:50	1.14
+++ src/scm/price-quotes.scm	2001/08/14 19:34:45
@@ -344,6 +344,7 @@
      ((string=? "VANGUARD" src) 'vanguard)
      ((string=? "ASX" src) 'asx)
      ((string=? "TIAACREF" src) 'tiaacref)
+     ((string=? "TRUSTNET" src) 'trustnet)
      ((string=? "CURRENCY" src) 'currency)
      (else #f)))
 
@@ -357,6 +358,7 @@
      ((vanguard) "vanguard")
      ((asx) "asx")
      ((tiaacref) "tiaacref")
+     ((trustnet) "trustnet")
      ((currency) "currency")
      (else #f)))