Commit 7b52a7bf authored by Per Cederqvist's avatar Per Cederqvist
Browse files

kom-is-person-member-of-conference now reports passive memberships

differently than active memberships.
parent 4139d773
2001-08-24 Per Cederqvist <ceder@moria>
* commands2.el (kom-is-person-member-of-conference): Differentiate
between active and passive memberships.
* english-strings.el, swedish-strings.el (lyskom-message): Added
pers-is-passive-member-of-conf.
2001-08-22 Ulrik Haugen <qha@lysator.liu.se>
* lyskom-rest.el (lyskom-set-last-viewed): set lyskom-last-viewed
......
......@@ -2456,9 +2456,13 @@ the text on one line."
(conf-no
(or conf-no
(lyskom-read-conf-no (lyskom-get-string 'conf-to-check-mship-of)
'(all) nil nil t))))
(if (lyskom-is-member conf-no pers-no)
(lyskom-format-insert 'pers-is-member-of-conf pers-no conf-no)
'(all) nil nil t)))
(mship (lyskom-is-member conf-no pers-no)))
(if mship
(if (membership-type->passive (membership->type mship))
(lyskom-format-insert 'pers-is-passive-member-of-conf
pers-no conf-no)
(lyskom-format-insert 'pers-is-member-of-conf pers-no conf-no))
(lyskom-format-insert 'pers-is-not-member-of-conf pers-no conf-no))))
(def-kom-command kom-help ()
......
......@@ -535,6 +535,7 @@ Read all about it at http://www.lysator.liu.se/history/")
(conf-to-check-mship-of . "...for what conference? ")
(conf-is-empty . "The conference %#1M is empty.\n")
(pers-is-member-of-conf . "Yes, %#1P is a member of the conference %#2M.\n")
(pers-is-passive-member-of-conf . "Well, %#1P is only a passive member of the conference %#2M.\n")
(pers-is-not-member-of-conf . "No, %#1P is not a member of the conference %#2M.\n")
; From commands2.el:
......
......@@ -709,6 +709,7 @@ M
(conf-to-check-mship-of . "...i vilket mte? ")
(conf-is-empty . "Mtet %#1M r tomt.\n")
(pers-is-member-of-conf . "Ja, %#1P r medlem i mtet %#2M.\n")
(pers-is-passive-member-of-conf . "Nja, %#1P r bara passiv medlem i mtet %#2M.\n")
(pers-is-not-member-of-conf . "Nej, %#1P r inte medlem i mtet %#2M.\n")
;; +++ cant seem to find where these are used:
......
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