From: <his...@us...> - 2008-06-13 14:12:37
|
Revision: 6577 http://pcgen.svn.sourceforge.net/pcgen/?rev=6577&view=rev Author: historyphil Date: 2008-06-13 07:12:45 -0700 (Fri, 13 Jun 2008) Log Message: ----------- Correcting how PREALIGN:Deity is handled Modified Paths: -------------- Trunk/utilities/prettylst/prettylst.pl Modified: Trunk/utilities/prettylst/prettylst.pl =================================================================== --- Trunk/utilities/prettylst/prettylst.pl 2008-06-13 10:04:53 UTC (rev 6576) +++ Trunk/utilities/prettylst/prettylst.pl 2008-06-13 14:12:45 UTC (rev 6577) @@ -6633,12 +6633,7 @@ my $slip_patern = $tag eq 'PREALIGN' ? qr{[,]}xms : qr{[|]}xms; for my $align (split $slip_patern, $newvalue) { - if ( $value eq 'Deity' ) { - $newvalue = $value; - } - else { - $newvalue = uc($value); - } + if ( $align eq 'DEITY' ) { $align = 'Deity'; } # Is it a number? my $number; if ( (($number) = ($align =~ / \A (\d+) \z /xms)) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |