r16017 - gnucash/trunk/src/scm - Drop process.scm and spawn perl to retrieve price quotes.

Chris Shoemaker c.shoemaker at cox.net
Sat Apr 28 17:28:50 EDT 2007


On Sat, Apr 28, 2007 at 03:13:51PM -0400, Andreas Köhler wrote:
> Author: andi5
> Date: 2007-04-28 15:13:47 -0400 (Sat, 28 Apr 2007)
> New Revision: 16017
> Trac: http://svn.gnucash.org/trac/changeset/16017
> 
> Removed:
>    gnucash/trunk/src/scm/process.scm

YEY!  Way to go, Andi!

> @@ -519,13 +515,9 @@
>               (reverse result-list)))))
>  
>    (define (timestr->time-pair timestr time-zone)
> -    (let ((broken-down (strptime "%Y-%m-%d %H:%M:%S" timestr)))
> -      (if (not (= (string-length timestr) (cdr broken-down)))
> -          #f
> -          (cons (car (if time-zone
> -                         (mktime (car broken-down) time-zone)
> -                         (mktime (car broken-down))))
> -                0))))
> +    ;; time-zone is ignored currently
> +    (cons (gnc-parse-time-to-timet timestr "%Y-%m-%d %H:%M:%S")
> +          0))
>  
>    (define (commodity-tz-quote-triple->price book c-tz-quote-triple)
>      ;; return a string like "NASDAQ:CSCO" on error, or a price on

This ignores time-zone now.  Is that okay?

-chris


More information about the gnucash-devel mailing list