diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-11-11 19:37:35 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-11-11 19:37:35 +0000 |
commit | 7a13580954dc2e5d7a4f265481df15acac67fc71 (patch) | |
tree | 90852f7542d51d14d9a78e8958874ce119f7776f /lib/sbin | |
parent | eb24c49bcad91d52089efb066f2980e87e3f7f39 (diff) |
Tiding print out
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1151 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/checkout.pl | 21 |
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 } + + + |