Applied Joachim Breitner's patch for VWD price-sources:

It may not be appropriate for a newcomer in the gnucash community
	like me, but could you please please include this simple patch in
	the 1.6.7 release? The VWD source (already in Finance::Quote) is
	the only source that has the German Deka-Fonts.


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

ChangeLog

@@ -1,3 +1,10 @@
+2002-08-14  Joachim Breitner <mail@joachim-breitner.de>
+
+	It may not be appropriate for a newcomer in the gnucash community
+	like me, but could you please please include this simple patch in
+	the 1.6.7 release? The VWD source (already in Finance::Quote) is
+	the only source that has the German Deka-Fonts.
+
 2002-08-14  David Hampton  <hampton@employees.org>
 
 	* business-gnome/Makefile.am: cross-link the business-core

src/app-utils/gnc-ui-util.c

@@ -753,6 +753,8 @@ gnc_get_source_name (PriceSourceCode source)
       return "TIAA-CREF";
     case SOURCE_TRUSTNET :
       return "Trustnet";
+    case SOURCE_VWD :
+      return "VWD";
     default:
       break;
   }
@@ -785,6 +787,8 @@ gnc_get_source_code_name (PriceSourceCode source)
       return "TIAACREF";
     case SOURCE_TRUSTNET :
       return "TRUSTNET";
+    case SOURCE_VWD :
+      return "VWD";
     default:
       break;
   }

src/app-utils/gnc-ui-util.h

@@ -127,6 +127,7 @@ typedef enum
   SOURCE_ASX,
   SOURCE_TIAA_CREF,
   SOURCE_TRUSTNET,
+  SOURCE_VWD,
   NUM_SOURCES
 } PriceSourceCode;
 /* NOTE: If you modify PriceSourceCode, please update price-quotes.scm

src/quotes/finance-quote-helper.in

@@ -358,6 +358,10 @@ while(<>) {
       %quote_data = $quoter->trustnet(@$symbols);
       last SWITCH;
     }
+    if($quote_method_name =~ m/^vwd/) {
+      %quote_data = $quoter->vwd(@$symbols);
+      last SWITCH;
+    }
     if($quote_method_name =~ m/^currency$/) {
       my ($from_currency, $to_currency) = @$symbols;
 

src/scm/price-quotes.scm

@@ -357,6 +357,7 @@
      ((string=? "ASX" src) 'asx)
      ((string=? "TIAACREF" src) 'tiaacref)
      ((string=? "TRUSTNET" src) 'trustnet)
+     ((string=? "VWD" src) 'vwd)
      ((string=? "CURRENCY" src) 'currency)
      (else #f)))
 
@@ -371,6 +372,7 @@
      ((asx) "asx")
      ((tiaacref) "tiaacref")
      ((trustnet) "trustnet")
+     ((vwd) "vwd")
      ((currency) "currency")
      (else #f)))