--- branches/humanistika/import_xml/convert_delimiter.pl 2006/05/24 18:07:38 740
+++ branches/humanistika/import_xml/convert_delimiter.pl 2006/05/24 19:04:42 741
@@ -14,11 +14,7 @@
close(XML);
-<<<<<<< .working
- if ($xml =~ s,<(\w+)\s+delimiter\s*=\s*"(\s[^"]+|[^"]+\s)"\s*>(.*?)\1>,<$1>\n\t\t\t$2\n\t\t\t$3\n\t\t$1>,gis) {
-=======
if ($xml =~ s,<(\w+)(\s+[^>]*)delimiter\s*=\s*"(\s[^"]+|[^"]+\s)"([^>]*)>(.*?)\1>,<$1$2$4>\n\t\t\t$3\n\t\t\t$5\n\t\t$1>,gis) {
->>>>>>> .merge-right.r290
open(XML,"> $file-new") || die "can't create '$file-new': $!";
print XML $xml;
close(XML);