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> Wed Aug 16 16:55:56 2000 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-M * Release av 0.46-BETA-M
......
...@@ -1442,7 +1442,7 @@ Those that you are not a member in will be marked with an asterisk." ...@@ -1442,7 +1442,7 @@ Those that you are not a member in will be marked with an asterisk."
(lyskom-prefetch-all-confs)) (lyskom-prefetch-all-confs))
(blocking-do 'get-uconf-stat lyskom-pers-no) (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) (if arg 'list-pers-confs-created-by 'list-confs-created-by)
'(pers) '(pers)
nil nil
...@@ -1450,6 +1450,7 @@ Those that you are not a member in will be marked with an asterisk." ...@@ -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 (cons (conf-stat->name (cache-get-uconf-stat lyskom-pers-no)) 0)1
nil) nil)
t))) 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))) (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))) (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))) (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." ...@@ -1467,13 +1468,13 @@ Those that you are not a member in will be marked with an asterisk."
'lyskom-list-created-conferences-2 'lyskom-list-created-conferences-2
(conf-z-info->conf-no conf-z) (conf-z-info->conf-no conf-z)
counter counter
pers-no (conf-stat->conf-no pers)
arg arg
) )
calls))) calls)))
(lyskom-wait-queue 'main) (lyskom-wait-queue 'main)
(when (eq 0 (elt counter 3)) (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) (quit (aset counter 0 t)
(lyskom-cancel-call 'main calls)))) (lyskom-cancel-call 'main calls))))
...@@ -1510,7 +1511,8 @@ Those that you are not a member in will be marked with an asterisk." ...@@ -1510,7 +1511,8 @@ Those that you are not a member in will be marked with an asterisk."
(lyskom-get-string 'superconf-conf-letter) " ")) (lyskom-get-string 'superconf-conf-letter) " "))
(cond ((conf-type->secret (conf-stat->conf-type cs)) (lyskom-get-string 'secret-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)) ((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) (defun lyskom-list-conf-print (conf-z)
......
...@@ -333,7 +333,8 @@ and you have finished reading. Please come back later. ...@@ -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-confs-exist . "There are no conferences in the database.\n")
(no-pers-confs-exist . "There are no persons or 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: ") (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: ") (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-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...") (getting-all-pers-confs . "Retrieving a list of all persons and conferences from the server...")
......
...@@ -314,7 +314,8 @@ du har l ...@@ -314,7 +314,8 @@ du har l
(no-confs-exist . "Det finns inga mten i databasen.\n") (no-confs-exist . "Det finns inga mten i databasen.\n")
(no-pers-confs-exist . "Det finns inga mten eller personer i databasen.\n") (no-pers-confs-exist . "Det finns inga mten eller personer i databasen.\n")
(list-confs-created-by . "Lista organisatrsskap fr: ") (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: ") (list-pers-confs-created-by . "Lista organisatrsskap (med brevldor) fr: ")
(getting-all-confs . "Hmtar en lista av alla mten frn servern...") (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...") (getting-all-pers-confs . "Hmtar en lista av alla personer och mten frn servern...")
...@@ -1530,7 +1531,7 @@ Du m ...@@ -1530,7 +1531,7 @@ Du m
(kom-slow-mode . "Lngsamma kommandon") (kom-slow-mode . "Lngsamma kommandon")
(kom-quick-mode . "Snabba kommandon") (kom-quick-mode . "Snabba kommandon")
(kom-send-message . "Snda meddelande") (kom-send-message . "Snda meddelande")
(kom-send-alarm p. "Skicka alarmmeddelande") (kom-send-alarm . "Skicka alarmmeddelande")
(kom-create-conf . "Skapa mte") (kom-create-conf . "Skapa mte")
(kom-delete-conf . "Utplna") (kom-delete-conf . "Utplna")
(kom-delete-text . "Radera inlgg") (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