Commit 0e22565e authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

A text suggesting to write a presentation is written on login.

parent 96c56855
......@@ -249,7 +249,11 @@ Optional argument CONF-STAT is used to check for a msg-of-day on the person."
(/= (conf-stat->msg-of-day conf-stat) 0))
(progn
(lyskom-insert-string 'you-have-motd)
(lyskom-view-text 'main (conf-stat->msg-of-day conf-stat))))
(lyskom-view-text 'main (conf-stat->msg-of-day conf-stat))))
(if (and conf-stat
(zerop (conf-stat->presentation conf-stat))
(not (zerop (conf-stat->no-of-texts conf-stat))))
(lyskom-insert-string 'presentation-encouragement))
(lyskom-collect 'main)
(initiate-get-membership 'main nil pers-no)
(initiate-get-unread-confs 'main nil pers-no)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment