Cleanup: Remove unnecessary text_id
Change-Id: I43ba598e4f81d9cc8b99e19057de4289e9426c67
diff --git a/script/tei2korapxml b/script/tei2korapxml
index 16137ae..e276822 100755
--- a/script/tei2korapxml
+++ b/script/tei2korapxml
@@ -141,10 +141,11 @@
# ~~~ variables ~~~
#
-my $dir = ''; # text directory (below $root_dir)
+# text directory (below $root_dir)
+my $dir = '';
-# '$text_id_esc' = escaped version of $text_id
-my ($text_id, $text_id_esc);
+# Escaped version of text id
+my $text_id_esc;
# element from $tree_data
my $e;
@@ -411,11 +412,10 @@
# Remember dir and sigles
$dir = $header->dir;
- $text_id = $header->id;
$text_id_esc = $header->id_esc;
# log output for seeing progression
- $log->notice("$0: text_id=$text_id");
+ $log->notice("$0: text_id=$text_id_esc");
# Reset counter for text lines
# (needed for whitespace handling)
@@ -524,7 +524,7 @@
# in case this fails, check input
if (($from - 1) > $pos) {
die $log->fatal(
- "text_id='$text_id', " .
+ "text_id='$text_id_esc', " .
'processing of structures: ' .
"from-value ($from) is 2 or more greater " .
"than to-value ($pos) => please check. Aborting"