[open-ils-commits] r14266 - trunk/Open-ILS/xul/staff_client/external (phasefx)

[svn at svn.open-ils.org]

Author: phasefx
Date: 2009-10-05 18:06:17 -0400 (Mon, 05 Oct 2009)
New Revision: 14266

Modified:
   trunk/Open-ILS/xul/staff_client/external/make_entities.pl
Log:
handle @accesskey and append .label or .accesskey as appropriate

Modified: trunk/Open-ILS/xul/staff_client/external/make_entities.pl
===================================================================
--- trunk/Open-ILS/xul/staff_client/external/make_entities.pl	2009-10-05 20:50:43 UTC (rev 14265)
+++ trunk/Open-ILS/xul/staff_client/external/make_entities.pl	2009-10-05 22:06:17 UTC (rev 14266)
@@ -15,9 +15,10 @@
 open FILE, $filename;
 while (my $line = <FILE>) {
 
-    while ($line =~ /(label|value)="(.+?)"/g) {
+    while ($line =~ /(accesskey|label|value)="(.+?)"/g) {
+        my $attr = $1;
         my $value = $2; if ( $value =~ /^&.+;$/ ) { next; } # Already an entity
-        my $entity = $value; $entity =~ s/\W/_/g; $entity = $entity_prefix . $entity;
+        my $entity = $value; $entity =~ s/\W/_/g; $entity = $entity_prefix . $entity . ( $attr eq "accesskey" ? ".accesskey" : ".label" );
         $line =~ s/$value/&$entity;/g;
         print STDERR qq^<!ENTITY $entity "$value">\n^;
     }