Changeset 13348 in project for release/3/formular/trunk/form2wiki.scm

Timestamp:

02/19/09 06:06:16 (12 years ago)

Author:

Ivan Raikov

Message:

Removed some debug statements.

File:

• release/3/formular/trunk/form2wiki.scm (modified) (4 diffs)

release/3/formular/trunk/form2wiki.scm

@@ -102 +102 @@
                                           (if (string? x) (xml:read-string x) (->string x)) )
                                         (second field))))
-                    (print "section-text = " section-text)
                     (let ((section-title (->string (first field)))
                           (section-content
@@ -143 +142 @@
      ((tree 'foldi)
       (lambda (from-address lst i)
-        (print "from-address = " from-address)
         (cond ((and exclude (member (s$ from-address) exclude)) i)
               ((or (not include) (member (s$ from-address) include))
@@ -156 +154 @@
                                                  (if (file-exists? id) 
                                                      (loop (+ 1 i) (make-id (+ 1 i) width id-prefix idnum)) id))))
-                                   (print "id = " id)
-
                                    (if (> (length lst) 1)
                                        (print "Multiple submissions by " from-address ": using submission from "
@@ -190 +186 @@
                        (set! opt_include (map s$ (string-split (->string arg) ":"))))
     ,(args:make-option (skip)     (required: "N")    
-                       (string-append "skip first N entries (ordered by submission time))")
+                       (string-append "skip first N entries (ordered by submission time)")
                        (set! opt_skip (inexact->exact (string->number arg))))
     ,(args:make-option (flimits)     (required: "FIELD1:LIMIT1,...")