Commit 06d88b52 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

Ändra presentation kan hantera Ctrl-G.

parent 628e4ef2
......@@ -958,36 +958,31 @@ If optional argument is non-nil then dont ask for confirmation."
"Change presentation for a person or a conference."
(interactive)
(lyskom-start-of-command 'kom-change-presentation)
(lyskom-change-pres-or-motd-2
(let ((no (lyskom-read-conf-no (lyskom-get-string 'what-to-change-pres-you)
'all t)))
(if (zerop no)
(setq no lyskom-pers-no))
(blocking-do 'get-conf-stat no))
'pres))
(condition-case error
(lyskom-change-pres-or-motd-2
(let ((no (lyskom-read-conf-no
(lyskom-get-string 'what-to-change-pres-you)
'all t)))
(if (zerop no)
(setq no lyskom-pers-no))
(blocking-do 'get-conf-stat no))
'pres)
(quit (lyskom-end-of-command))))
(defun kom-change-conf-motd ()
"Change motd for a person or a conference."
(interactive)
(lyskom-start-of-command 'kom-change-conf-motd)
(lyskom-change-pres-or-motd-2
(let ((no (lyskom-read-conf-no (lyskom-get-string 'who-to-put-motd-for)
'all t)))
(if (zerop no)
(setq no lyskom-pers-no))
(blocking-do 'get-conf-stat no))
'motd))
;;; Obsolet
(defun lyskom-change-presentation-or-motd (conf-no type)
"Change the presentation or motd of CONF-NO.
TYPE is either 'pres or 'motd, depending on what should be changed."
(if (zerop conf-no)
(setq conf-no lyskom-pers-no))
(initiate-get-conf-stat 'main 'lyskom-change-pres-or-motd-2
conf-no type))
(condition-case error
(lyskom-change-pres-or-motd-2
(let ((no (lyskom-read-conf-no (lyskom-get-string 'who-to-put-motd-for)
'all t)))
(if (zerop no)
(setq no lyskom-pers-no))
(blocking-do 'get-conf-stat no))
'motd)
(quit (lyskom-end-of-command))))
(defun lyskom-change-pres-or-motd-2 (conf-stat type)
......@@ -995,8 +990,7 @@ TYPE is either 'pres or 'motd, depending on what should be changed."
TYPE is either 'pres or 'motd, depending on what should be changed."
(cond
((null conf-stat) ;+++ annan felhantering
(lyskom-insert-string 'cant-get-conf-stat)
(lyskom-end-of-command))
(lyskom-insert-string 'cant-get-conf-stat))
((or lyskom-is-administrator
(lyskom-member-p (conf-stat->supervisor conf-stat))
(= lyskom-pers-no (conf-stat->conf-no conf-stat)))
......
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