brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Disable cards export when current month is manually overriden.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-05 22:03:10 +02:00
parent 74396a9753
commit 1b376e94c4
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/bbstool.scm
View file

@ -64,6 +64,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(define -run-tests?- (make-parameter #f)) (define -run-tests?- (make-parameter #f))
(define -web-dir- (make-parameter #f)) (define -web-dir- (make-parameter #f))
(define -bank-dir- (make-parameter #f)) (define -bank-dir- (make-parameter #f))
(define -cards-enabled- (make-parameter #t))
;; Arguments parsing ;; Arguments parsing
(command-line (command-line
@ -81,6 +82,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
"Configuration options:" "Configuration options:"
(-members (dir) "Members base directory" (*members-directory* dir)) (-members (dir) "Members base directory" (*members-directory* dir))
(-month (YYYY-MM) "Specify current month" (-month (YYYY-MM) "Specify current month"
(-cards-enabled- #f)
(*current-month* (string->month YYYY-MM))) (*current-month* (string->month YYYY-MM)))
(-tstyle (style) "Use given table style: debug, ascii, unicode" (-tstyle (style) "Use given table style: debug, ascii, unicode"
(*table-border-style* (string->symbol style))) (*table-border-style* (string->symbol style)))
@ -212,7 +214,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print "New member id: " (gen-member-id MB)) (print "New member id: " (gen-member-id MB))
(newline)) (newline))
((gencards) ((gencards)
(apply cards-export MB (-fname-))) (if (-cards-enabled-)
(apply cards-export MB (-fname-))
(print "Cards export disabled with manually specified current month.")))
((problems) ((problems)
(let ((num (let loop ((mb (members-base-members MB)) (let ((num (let loop ((mb (members-base-members MB))
(num 0)) (num 0))