From e81449b50e785ae41e77d2095641a012ecb704b4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <iwj@woking.cam.xci-test.com>
Date: Fri, 8 Mar 2013 15:04:48 +0000
Subject: [PATCH] ms-planner: apply showsharetype to unshares

---
 ms-planner | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ms-planner b/ms-planner
index 1916db05..05ec65fe 100755
--- a/ms-planner
+++ b/ms-planner
@@ -196,7 +196,7 @@ sub launder_check_plan () {
 			Time => $evt->{Time},
 			Type => Unshare,
 			Avail => 1,
-			Info => "$cshare->{Type}",
+			Info => $cshare->{Type},
 		    };
 		    $cshare= undef;
 		}
@@ -570,7 +570,8 @@ sub cmd_show_html () {
 	    my $type= $evt->{Type};
 	    my $show=
 		$type eq End ? ($evt->{Share} ? "End $evt->{Info}" : "") :
-		($type eq Overrun || $type eq Unshare || $type eq After)
+                $type eq Unshare ? "$type [".showsharetype($evt->{Info})."]" :
+		($type eq Overrun || $type eq After)
 		? ("$type $evt->{Info}") :
 		(!$evt->{Allocated} ? Booking :
                  ($evt->{Allocated}{Live} ? Allocation : Completed).
-- 
2.39.5