Index: ossp-pkg/quos/openpkg-rdf2sql.pl
RCS File: /v/ossp/cvs/ossp-pkg/quos/openpkg-rdf2sql.pl,v
rcsdiff -q -kk '-r1.6' '-r1.7' -u '/v/ossp/cvs/ossp-pkg/quos/openpkg-rdf2sql.pl,v' 2>/dev/null
--- openpkg-rdf2sql.pl	2004/11/16 16:23:28	1.6
+++ openpkg-rdf2sql.pl	2004/11/17 08:53:21	1.7
@@ -116,14 +116,15 @@
     #   iterate over XML/RDF data structure
     foreach my $repo (@{$rdf->{'rdf:RDF'}->[0]->{'Repository'}}) {
         my $rd_url = $repo->{'rdf:resource'};
+
+        #   start SQL transaction
+        $db->begin_work();
     
         #   store repository information
-        $db->begin_work();
         $sql->{-rdf}->execute($rd_url);
     
         #   iterate over all packages in a repository
         if (defined($repo->{'rdf:Description'})) {
-            #   from now on package descriptions
             foreach my $desc (@{$repo->{'rdf:Description'}}) {
                 #   store simple (single-value) properties of a package
                 my $prop = {};
@@ -160,8 +161,9 @@
                 }
             }
         }
-        else {
-            #   from now on RDF references
+
+        #   iterate over all sub-repositities in repository
+        if (defined($repo->{'Repository'})) {
             foreach my $repcont (@{$repo->{'Repository'}}) {
                 $url =~ m|^(.*/)|;
                 my $actpath = $1;
@@ -169,6 +171,8 @@
                 sleep(1);
             }
         }
+
+        #   end SQL transaction
         $db->commit();
     }
 }