From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 13 Dec 2009 03:05:22 +0000 (+0000)
Subject: where-vessels: Put "last seen at" question mark at front of abbrev
X-Git-Tag: 6.3.1~4
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=c221fee571a483c7ff5a51703a228c254cb050f3;hp=d10f467c0e4205c612d0e71e787f8c6bf40ccadb

where-vessels: Put "last seen at" question mark at front of abbrev
---

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 29c3ab7..66d8527 100755
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -236,6 +236,12 @@ proc display-note-infos {} {
 proc vessel {vin} {
     global pirate notes_used note_missings newnotes
     upvar 1 $vin vi
+    set abbrev {}
+    switch -exact [errexpect-arrayget vi inPort] {
+	true		{ }
+	false		{ append abbrev ? }
+	default		{ errexpect-error "unexpected inPort" }
+    }
     switch -exact [errexpect-arrayget vi vesselClass] {
 	smsloop		{ set sz 00sl }
 	lgsloop		{ set sz 01ct }
@@ -250,7 +256,7 @@ proc vessel {vin} {
 	grandfrig	{ set sz 10gf }
 	default		{ errexpect-error "unknown class" }
     }
-    set abbrev $sz
+    append abbrev $sz
     switch -exact [errexpect-arrayget vi vesselSubclass] {
 	null		{ }
 	icy		{ append abbrev F }
@@ -263,11 +269,6 @@ proc vessel {vin} {
 	false/true	{ append abbrev 0* }
 	default		{ errexpect-error "unexpected isLocked/isBattleReady" }
     }
-    switch -exact [errexpect-arrayget vi inPort] {
-	true		{ }
-	false		{ append abbrev ? }
-	default		{ errexpect-error "unexpected inPort" }
-    }
     set vid [errexpect-arrayget vi vesselId]
     upvar #0 notes($vid) note
     set realname [errexpect-arrayget vi vesselName]