add message to check for it being XML

[migration-tools.git] / mig-bin / mig-stagebibs

diff --git a/mig-bin/mig-stagebibs b/mig-bin/mig-stagebibs
index fb76b0c..f706d7d 100755 (executable)
--- a/mig-bin/mig-stagebibs
+++ b/mig-bin/mig-stagebibs
@@ -95,7 +95,7 @@ while(my $line = <$xml>) {
        if ($line =~ /^<\/?collection/) { next; }
        chomp $line;
        $record = $record . $line;
-       if ($line =~ /^<\/record/) {
+       if ($line =~ /<\/record>$/) {
                stage_record($dbh,$record,$source); 
                $record = '';
                $i++;
@@ -104,6 +104,7 @@ while(my $line = <$xml>) {
 }
 close $xml;
 
+if ($i == 0) { print "No XML was processed, are you sure this is an XML file?\n"; }
 print "Finis.\n";
 
 # beyond here be functions