Bugfixing Generierung top-id und top-title fuer Hierarchien (funktion…

…iert nun auch mit Hierarchien, die nicht mit Beständen enden).
swissbib · May 15, 2017 · 4674e3e · 4674e3e
1 parent b9007b7
commit 4674e3e
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 13 deletions.
diff --git a/download-dsv05-sequential.sh → download.dsv05.sequential.sh b/download-dsv05-sequential.sh → download.dsv05.sequential.sh
diff --git a/transform.seq2hanmarc.pl b/transform.seq2hanmarc.pl
@@ -130,19 +130,12 @@
 sub addparents{
     my $sysnum = $_[0];
 
-    my $toptitle;
-    my $topid;
+    my $topid = $sysnum;
+    my $toptitle = $f245a{$sysnum};
+    my $parent = $f490w{$sysnum};
 
-    if ($sysnum && ($sysnum != '000000000')) {
-
-        $topid = $sysnum;
-        $toptitle = $f245a{$sysnum};
-
-        my $parent = $f490w{$sysnum};
-
-        unless (defined $f351c{$sysnum} && $f351c{$sysnum} =~ /(Abteilung|Hauptabteilung|Bestand)/) {
-            ($topid, $toptitle) = addparents($parent);
-        }
+    unless (($f351c{$sysnum} =~ /(Abteilung|Hauptabteilung|Bestand)/) || !($f490w{$sysnum})) {
+        ($topid, $toptitle) = addparents($parent);
     }
     return ($topid, $toptitle);
 };
diff --git a/workflow.HAN.sh b/workflow.HAN.sh
@@ -11,7 +11,7 @@ DO_FINISH=0
 
 if [ "$DO_DOWNLOAD" == "1" ]; then
    echo "Downloading Aleph-Sequential"
-   $basedir/download-dsv05-sequential.sh
+   $basedir/download.dsv05.sequential.sh
    mv $basedir/dsv05.seq $basedir/raw.hanseq/
 fi