Tiding print out

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1151 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 19 insertions, 2 deletions

diff --git a/lib/sbin/checkout.pl b/lib/sbin/checkout.pl
index 63732d98..f7b37f22 100644
--- a/lib/sbin/checkout.pl
+++ b/lib/sbin/checkout.pl
@@ -141,13 +141,27 @@ sub get_thorns
     my(%info);
     my($thorn);
 
-    print "\nYou already have thorns: \n\n";
+    print "\nYou already have thorns: ";
     
     %info = &buildthorns("arrangements/","thorns");
     
+    $last_arr = "";
     foreach $thorn (sort keys %info)
     {
-      print "$thorn ";
+      # Parse of the arrangement name
+      $thorn =~ m:(.*)/(.*):;
+      $this_arr = $1;
+      $this_tho = $2;
+      if ($last_arr ne $this_arr)
+      {
+	print "\n\n$this_arr:\n";
+	print "  $this_tho ";
+      }
+      else
+      {
+	print "$this_tho ";
+      }
+      $last_arr = $this_arr;
     }
 
     print "\n\nAvailable thorns: \n";
@@ -504,3 +518,6 @@ sub RepositoryExists
 
 
 }
+
+
+