Limit the number of transactions shown.

doc/hackerbase.1

@@ -214,6 +214,10 @@ file can be overriden by this option. This file is used for the
 .B \-dokuwiki \fRdir
 Base directory of DokuWiki installation.
 
+.TP
+.B \-count \fRcount
+Maximum count of transactions shown in member detail view.
+
 .TP
 .B \-from \fRemail
 Specify sender email address. The value read from configuration file

src/hackerbase.scm

@@ -101,6 +101,8 @@
 	   (*checked-file* file))
  (-dokuwiki (dir) "Base directory of DokuWiki"
 	    (*doku-base* dir))
+ (-count (count) "Maximum number of transactions shown"
+	 (*show-payments-count* (string->number pcount)))
  ""
  "Email options:"
  (-from (email) "Sender email address"
@@ -358,7 +360,7 @@
        (print "Mailman synchronization disabled with manually specified current month.")))
   ((notify)
    (let ((nmembers (members-to-notify MB (-notify-months-))))
-     (newline)
+/     (newline)
      (if (null? nmembers)
 	 (print "Everyone paid on time.")
 	 (let ()

src/members-print.scm

@@ -69,7 +69,7 @@
 	 cal-day
 	 racket-kwargs)
 
- (define *show-payments-count* (make-parameter #f))
+ (define *show-payments-count* (make-parameter 36))
 
  ;; Returns nicely formatted table
  (define (member-info->table mr)