Correctly display FAQ for server when displaying a text.

src/ChangeLog

 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.
 

src/aux-items.el

@@ -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

src/english-strings.el

@@ -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? ")

src/swedish-strings.el

@@ -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? ")