34 |
# Application Constants |
# Application Constants |
35 |
# |
# |
36 |
|
|
|
require "../config.pl"; |
|
|
|
|
37 |
#-------------------------------------------------------------------------- |
#-------------------------------------------------------------------------- |
38 |
# |
# |
39 |
# Function: DocumentParser() |
# Function: DocumentParser() |
129 |
# Loop over each line in the document list |
# Loop over each line in the document list |
130 |
foreach $FieldTag ( @default::FieldDisplayOrder ) { |
foreach $FieldTag ( @default::FieldDisplayOrder ) { |
131 |
|
|
132 |
|
# print "-- $FieldTag = $Document{$FieldTag} --"; |
133 |
|
|
134 |
# Skip empty slots |
# Skip empty slots |
135 |
if ( !(defined($Document{$FieldTag}) && ($Document{$FieldTag} ne "")) ) { |
if ( !(defined($Document{$FieldTag}) && ($Document{$FieldTag} ne "")) ) { |
136 |
next; |
next; |