Commit 3dd70415 authored by Linus Tolke's avatar Linus Tolke
Browse files

Now the empty presentation form is used always when writing a first presentation.

parent acf522d2
No preview for this file type
......@@ -893,7 +893,8 @@ TYPE is either 'pres or 'motd, depending on what should be changed."
(lyskom-insert-string 'cant-get-conf-stat)
(lyskom-end-of-command))
((or lyskom-is-administrator
(lyskom-member-p (conf-stat->supervisor conf-stat)))
(lyskom-member-p (conf-stat->supervisor conf-stat))
(= lyskom-pers-no (conf-stat->conf-no conf-stat)))
(initiate-get-text 'main 'lyskom-change-pres-or-motd-3
(cond
((eq type 'pres)
......@@ -910,7 +911,8 @@ TYPE is either 'pres or 'motd, depending on what should be changed."
(defun lyskom-change-pres-or-motd-3 (text-mass conf-stat type)
"Edit the presentation or motd for CONF-STAT.
Args: TEXT-MASS CONF-STAT TYPE.
TEXT-MASS is the old presentation or motd, or nil.
TEXT-MASS is the old presentation or motd, or nil. If nil and writing a
presentationen an empty presentation is entered.
TYPE is either 'pres or 'motd, depending on what should be changed."
(lyskom-edit-text
lyskom-proc
......@@ -926,7 +928,9 @@ TYPE is either 'pres or 'motd, depending on what should be changed."
(if (and text-mass
(string-match "\n" (text->text-mass text-mass)))
(substring (text->text-mass text-mass) (match-end 0))
"")
(if (eq type 'pres)
(lyskom-get-string 'presentation-form)
""))
(cond
((eq type 'pres) 'lyskom-set-presentation)
((eq type 'motd) 'lyskom-set-conf-motd))
......
......@@ -86,6 +86,7 @@ du
(presentation-subject . "%#1s")
(presentation-form . "Namn:\t\nAdress:\t\n\t\nTelefon:
Email-adress:\n\nAnnat:\t")
(presentation-help . "Du skriver just nu din presentation.\n")
(not-present-anywhere . "Ej nrvarande i ngot mte.")
......
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