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

Fix typ in swedish-strings.el.

Print header in kom-list-created-confs
parent bcf138a8
2000-08-16 David Byers <davby@ida.liu.se>
* commands1.el (lyskom-list-created-conferences-2): sit-for to
update display. Superconf flag is only shown if the conference
does not accept comments.
(kom-list-created-conferences): Print header for the list.
Wed Aug 16 16:55:56 2000 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-M
......
......@@ -1442,7 +1442,7 @@ Those that you are not a member in will be marked with an asterisk."
(lyskom-prefetch-all-confs))
(blocking-do 'get-uconf-stat lyskom-pers-no)
(let ((pers-no (lyskom-read-conf-no
(let ((pers (lyskom-read-conf-stat
(if arg 'list-pers-confs-created-by 'list-confs-created-by)
'(pers)
nil
......@@ -1450,6 +1450,7 @@ Those that you are not a member in will be marked with an asterisk."
(cons (conf-stat->name (cache-get-uconf-stat lyskom-pers-no)) 0)1
nil)
t)))
(lyskom-format-insert 'listing-confs-created-by (conf-stat->conf-no pers))
(lyskom-message (lyskom-get-string (if arg 'getting-all-pers-confs 'getting-all-confs)))
(let ((result (blocking-do 'lookup-z-name "" (if arg 1 0) 1)))
(lyskom-message (lyskom-get-string (if arg 'getting-all-pers-confs-done 'getting-all-confs-done)))
......@@ -1467,13 +1468,13 @@ Those that you are not a member in will be marked with an asterisk."
'lyskom-list-created-conferences-2
(conf-z-info->conf-no conf-z)
counter
pers-no
(conf-stat->conf-no pers)
arg
)
calls)))
(lyskom-wait-queue 'main)
(when (eq 0 (elt counter 3))
(lyskom-format-insert 'no-created-confs pers-no))
(lyskom-format-insert 'no-created-confs pers))
)
(quit (aset counter 0 t)
(lyskom-cancel-call 'main calls))))
......@@ -1510,7 +1511,8 @@ Those that you are not a member in will be marked with an asterisk."
(lyskom-get-string 'superconf-conf-letter) " "))
(cond ((conf-type->secret (conf-stat->conf-type cs)) (lyskom-get-string 'secret-conf-letter))
((conf-type->rd_prot (conf-stat->conf-type cs)) (lyskom-get-string 'protected-conf-letter))
(t " "))))))
(t " ")))
(sit-for 0))))
(defun lyskom-list-conf-print (conf-z)
......
......@@ -333,7 +333,8 @@ and you have finished reading. Please come back later.
(no-confs-exist . "There are no conferences in the database.\n")
(no-pers-confs-exist . "There are no persons or conferences in the database.\n")
(list-confs-created-by . "List conferences administered by: ")
(listing-confs-created-by . "Listing conferences administered by %#1P\n")
(listing-confs-created-by . "Listing conferences administered by %#1P\
C=Created, O=Supervisor, S=Letterbox is super conf; S=Secret, P=Protected\n")
(list-pers-confs-created-by . "List persons and conferences administered by: ")
(getting-all-confs . "Retrieving a list of all conferences from the server...")
(getting-all-pers-confs . "Retrieving a list of all persons and conferences from the server...")
......
......@@ -314,7 +314,8 @@ du har l
(no-confs-exist . "Det finns inga mten i databasen.\n")
(no-pers-confs-exist . "Det finns inga mten eller personer i databasen.\n")
(list-confs-created-by . "Lista organisatrsskap fr: ")
(listing-confs-created-by . "Organisatrsskap fr %#1P\n")
(listing-confs-created-by . "Organisatrsskap fr %#1P\n\
S=Skapat, O=Organisatr, M=Brevlda som supermte; S=Slutet, H=Hemligt\n")
(list-pers-confs-created-by . "Lista organisatrsskap (med brevldor) fr: ")
(getting-all-confs . "Hmtar en lista av alla mten frn servern...")
(getting-all-pers-confs . "Hmtar en lista av alla personer och mten frn servern...")
......@@ -1530,7 +1531,7 @@ Du m
(kom-slow-mode . "Lngsamma kommandon")
(kom-quick-mode . "Snabba kommandon")
(kom-send-message . "Snda meddelande")
(kom-send-alarm p. "Skicka alarmmeddelande")
(kom-send-alarm . "Skicka alarmmeddelande")
(kom-create-conf . "Skapa mte")
(kom-delete-conf . "Utplna")
(kom-delete-text . "Radera inlgg")
......
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