Report errors in the member file.
This commit is contained in:
parent
9a71545e3e
commit
39554768b3
4 changed files with 76 additions and 15 deletions
|
@ -82,6 +82,8 @@
|
|||
(-fname- fname))
|
||||
(-month (month) "Specify current month"
|
||||
(*current-month* (string->month month)))
|
||||
(-print () "Print given member file"
|
||||
(-action- 'print-member-file))
|
||||
)
|
||||
|
||||
;; Load the members database (required for everything anyway)
|
||||
|
@ -110,4 +112,10 @@
|
|||
(parameterize ((current-output-port (open-output-file (-fname-))))
|
||||
(print-members-base-stats
|
||||
(members-base-stats MB))))
|
||||
((print-member-file)
|
||||
(cond (mr
|
||||
(newline)
|
||||
(print-member-source mr))
|
||||
(else
|
||||
(print "No member specified!"))))
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue