From c221fee571a483c7ff5a51703a228c254cb050f3 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sun, 13 Dec 2009 03:05:22 +0000
Subject: [PATCH] where-vessels: Put "last seen at" question mark at front of
 abbrev

---
 yarrg/where-vessels | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

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]
-- 
2.30.2