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

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 29c3ab720c6c5650c326637df8fa078ad3141d97..66d8527a6a6d88784491efcb9d41487b599676c9 100755 (executable)
--- 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
 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 }
     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" }
     }
        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 }
     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" }
     }
        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]
     set vid [errexpect-arrayget vi vesselId]
     upvar #0 notes($vid) note
     set realname [errexpect-arrayget vi vesselName]