Author: joeyh
Date: 2005-02-07 19:29:19 +0100 (Mon, 07 Feb 2005)
New Revision: 363
Modified:
sarge-checks/updatelist
Log:
new items get descriptions added right away
Modified: sarge-checks/updatelist
==================================================================---
sarge-checks/updatelist 2005-02-07 18:05:01 UTC (rev 362)
+++ sarge-checks/updatelist 2005-02-07 18:29:19 UTC (rev 363)
@@ -124,7 +124,7 @@
foreach my $can (reverse sort { $cans{$a}{can} cmp $cans{$b}{can} } keys %cans)
{
next unless $listedcans{$can};
- print "$can\n";
+ print $can.(length $cans{$can}{description} ? "
".$cans{$can}{description} : "")."\n";
if ($cans{$can}{reserved}) {
print "\tNOTE: reserved\n";
}