From 422aa6124f88c8ec1eddfff03100a38677b7fac8 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Tue, 20 May 2014 17:14:24 +0200
Subject: [PATCH] Improve db checking, minor code reformatting

---
 xml-db/get.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 841f899..dfba00a 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -116,6 +116,9 @@ foreach my $req (@request) {
 
   $db = lock_retrieve($file);
   die "Unable to read cache file\n" unless defined $db;
+  die "Your cached database is outdated. Update by running xml-db.pl"
+    unless exists $db->{'§EntityType'};
+
   
   if($rates || $cache) {
     if(-e $storefile) {
@@ -314,7 +317,8 @@ sub requestdata {
         }
       }
     }
-  elsif(($obj->{type} eq "register" || $obj->{type} eq "registerfield" || $obj->{type} eq "field")  && $obj->{mode} =~ /r/) {
+  elsif(($obj->{type} eq "register" || $obj->{type} eq "registerfield"
+         || $obj->{type} eq "field")  && $obj->{mode} =~ /r/) {
     my $stepsize = $obj->{stepsize} || 1;
     $slice = 0 unless defined $slice;
     do {
-- 
2.43.0