From c4bee6bd6ac367d330d97ca29c46a234b63a67a5 Mon Sep 17 00:00:00 2001
From: phasefx <phasefx@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 5 Oct 2009 22:06:17 +0000
Subject: [PATCH] handle @accesskey and append .label or .accesskey as
 appropriate

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14266 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/xul/staff_client/external/make_entities.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/xul/staff_client/external/make_entities.pl b/Open-ILS/xul/staff_client/external/make_entities.pl
index e785808409..a3c7c0d29e 100755
--- a/Open-ILS/xul/staff_client/external/make_entities.pl
+++ b/Open-ILS/xul/staff_client/external/make_entities.pl
@@ -15,9 +15,10 @@ my %entity_hash = ();
 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^;
     }
-- 
2.43.2