patch for bug 95844(Re: was howto submit patch)

[Larry Evans]

This is a multi-part message in MIME format.
--------------010004030506040303030502
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

Derek Atkins wrote:

>You _STILL_ failed to CC gnucash-patches!!!!!!
>
>-derek
>
Sorry.  Also sorry about the "sanitized" forward reply.

>
>Larry Evans <jcampbell3@prodigy.net> writes:
>  
>
[snip]

>  
>
>>I just did a 'cvs update' and then renamed the just updated qif-parse.scm to
>>qif-parse.scm.old and compared with the patched qif-parse.scm with
>>`diff -u qif-parse.scm qif-parse.scm.old`.
>>The output is attached.
>>    
>>
I "reattached" the attachment.


--------------010004030506040303030502
Content-Type: application/DEFANGED-73; name="qif-parse_diff.DEFANGED-73"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="qif-parse_diff.DEFANGED-73"

--- qif-parse.scm	Fri Oct 18 13:18:53 2002
+++ qif-parse.scm.old	Fri Oct 18 18:00:07 2002
@@ -491,17 +491,13 @@
              (string-remove-char 
               (string-remove-char value-string #\,)
               #\$))
-           (has-radix
-             ( if (regexp-exec (make-regexp "^.*[.].*$") filtered-string)
-                 1
-                 0))
-           (read-val
+            (read-val
              (with-input-from-string filtered-string
                (lambda () (read)))))
        (if (number? read-val)
            (gnc:double-to-gnc-numeric
             (+ 0.0 read-val) GNC-DENOM-AUTO
-            (logior (GNC-DENOM-SIGFIGS (- (string-length filtered-string) has-radix))
+            (logior (GNC-DENOM-SIGFIGS (- (string-length filtered-string) 1))
                     GNC-RND-ROUND))
            (gnc:numeric-zero))))
     ((comma)
@@ -511,17 +507,13 @@
                (string-remove-char value-string #\.)
                #\, #\.)
               #\$))             
-           (has-radix
-             ( if (regexp-exec (make-regexp "^.*[,].*$") filtered-string)
-                 1
-                 0))
             (read-val
              (with-input-from-string filtered-string
                (lambda () (read)))))
        (if (number? read-val)
            (gnc:double-to-gnc-numeric
             (+ 0.0 read-val) GNC-DENOM-AUTO
-            (logior (GNC-DENOM-SIGFIGS (- (string-length filtered-string) has-radix))
+            (logior (GNC-DENOM-SIGFIGS (- (string-length filtered-string) 1))
                     GNC-RND-ROUND))
            (gnc:numeric-zero))))
     ((integer)

--------------010004030506040303030502
Content-Type: text/sanitizer-log; charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment; filename="sanitizer.log"

This message has been 'sanitized'.  This means that potentially
dangerous content has been rewritten or removed.  The following
log describes which actions were taken.

Sanitizer (start="1035028902"):
  Part (pos="1092"):
    SanitizeFile (filename="unnamed.txt", mimetype="text/plain"):
      Match (rule="2"):
        Enforced policy: accept

  Part (pos="1690"):
    SanitizeFile (filename="qif-parse.diff", mimetype="text/plain"):
      Match (rule="default"):
        Enforced policy: defang

      Replaced mime type with: application/DEFANGED-73
      Replaced file name with: qif-parse_diff.DEFANGED-73

  Total modifications so far: 1


Anomy 0.0.0 : Sanitizer.pm
$Id: Sanitizer.pm,v 1.54 2002/02/15 16:59:07 bre Exp $

--------------010004030506040303030502--