From 3f6aa098b289824972128be1a9b764b096eb0bba Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 21 Jan 2008 02:49:29 +0000
Subject: [PATCH] Teach dtd2js.pl to ignore comments.

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

diff --git a/Open-ILS/xul/staff_client/external/dtd2js.pl b/Open-ILS/xul/staff_client/external/dtd2js.pl
index d7ee4e477b..6894bf01bd 100755
--- a/Open-ILS/xul/staff_client/external/dtd2js.pl
+++ b/Open-ILS/xul/staff_client/external/dtd2js.pl
@@ -12,7 +12,9 @@ while( $line = <> ) {
 
 	if ($line =~ /<!ENTITY\s+(\S+)\s+((["']).*\3)\s*>\s*$/) {
 		print "entities['$1'] = $2;\n";	
-	} else {
+	} elsif ($line =~ /^\s*<!--.*?-->\s*$/) {
+        # Ignore comments
+    } else {
 		chomp $line;
 		if ($line) { print STDERR "Problem with: $line\n"; }
 	}
-- 
2.11.0