Commit c3ec87eb authored by David Byers's avatar David Byers
Browse files

Correctly display FAQ for server when displaying a text.

parent 3cf27df8
2002-04-11 David Byers <david.byers@swipnet.se>
* aux-items.el (lyskom-print-faq-for-conf): Show FAQ for server
correctly.
Show extended server status:
* commands2.el (kom-status-server): New command.
......
......@@ -607,9 +607,11 @@ return non-nil if the item is to be included in the list."
(lyskom-insert "\n")))
(defun lyskom-print-faq-for-conf (item &optional obj)
(concat
(lyskom-format 'faq-for-conf-aux (string-to-int (aux-item->data item)))
(lyskom-aux-item-terminating-button item obj)))
(let ((conf-no (string-to-int (aux-item->data item))))
(concat
(cond ((zerop conf-no) (lyskom-get-string 'faq-for-server-aux))
(t (lyskom-format 'faq-for-conf-aux conf-no)))
(lyskom-aux-item-terminating-button item obj))))
(defun lyskom-print-creating-software (item &optional obj)
(when (or kom-show-creating-software
......
......@@ -1381,6 +1381,7 @@ On since %#8s%#9s")
(other-fast-reply-aux . " \"%#1t\" /%#2P/")
(faq-for-conf-aux . "FAQ for %#1M <%#1m>")
(faq-for-server-aux . "FAQ for the LysKOM-server")
(faq-in-text-aux . "FAQ in text: %10#1n %#2D")
(conf-to-add-faq . "Which conference do you want to add an FAQ for? ")
(text-to-add-as-faq . "Which text is the new FAQ? ")
......
......@@ -1380,6 +1380,7 @@ Uppkopplad sedan %#8s%#9s")
(other-fast-reply-aux . " \"%#1t\" /%#2P/")
(faq-for-conf-aux . "Texten r FAQ fr %#1M <%#1m>")
(faq-for-server-aux . "Texten r FAQ fr LysKOM-servern")
(faq-in-text-aux . "FAQ i inlgg: %10#1n %#2D")
(conf-to-add-faq . "Vilket mte vill du lgga till en FAQ fr? ")
(text-to-add-as-faq . "Vilken text vill du lgga till som FAQ? ")
......
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