[open-ils-commits] r8443 - trunk/Open-ILS/xul/staff_client/external

[svn at svn.open-ils.org]

Author: dbs
Date: 2008-01-20 21:49:29 -0500 (Sun, 20 Jan 2008)
New Revision: 8443

Modified:
   trunk/Open-ILS/xul/staff_client/external/dtd2js.pl
Log:
Teach dtd2js.pl to ignore comments.


Modified: trunk/Open-ILS/xul/staff_client/external/dtd2js.pl
===================================================================
--- trunk/Open-ILS/xul/staff_client/external/dtd2js.pl	2008-01-21 02:43:57 UTC (rev 8442)
+++ trunk/Open-ILS/xul/staff_client/external/dtd2js.pl	2008-01-21 02:49:29 UTC (rev 8443)
@@ -12,7 +12,9 @@
 
 	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"; }
 	}