Author: joeyh
Date: 2005-10-17 22:24:52 +0000 (Mon, 17 Oct 2005)
New Revision: 2431
Modified:
bin/updatelist
Log:
aha, I missed some syntax changes here
Modified: bin/updatelist
==================================================================---
bin/updatelist 2005-10-17 22:20:12 UTC (rev 2430)
+++ bin/updatelist 2005-10-17 22:24:52 UTC (rev 2431)
@@ -137,10 +137,10 @@
next unless $listedcans{$can};
print $can.(length $cans{$can}{description} ? "
".$cans{$can}{description} : "")."\n";
if ($cans{$can}{reserved}) {
- print "\tNOTE: reserved\n";
+ print "\tRESERVED\n";
}
if ($cans{$can}{rejected}) {
- print "\tNOTE: rejected\n";
+ print "\tREJECTED\n";
}
if ($cans{$can}{dsa}) {
print "\t{".join(" ",
@{$cans{$can}{dsa}})."}\n";