Changeset 15695 for gsdl/trunk/perllib/basebuildproc.pm

Timestamp:

2008-05-26T11:55:54+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Starting to tidy up the infodb() function in preparation for separating out the GDBM stuff.

File:

• gsdl/trunk/perllib/basebuildproc.pm (modified) (5 diffs)

gsdl/trunk/perllib/basebuildproc.pm

@@ -384 +384 @@
     $self->{'doc_mdprefix_fields'} = {};
 
-    while (defined $section) {
+    while (defined $section)
+    {
+    my $section_OID = $doc_OID;
+    if ($section ne "")
+    {
+        $section_OID = $doc_OID . "." . $section;
+    }
+
     # update a few statistics
     $self->{'num_bytes'} += $doc_obj->get_text_length ($section);
@@ -390 +397 @@
 
     # output the section name
-    if ($section eq "") { print $handle "[$doc_OID]\n"; }
-    else { print $handle "[$doc_OID.$section]\n"; }
+    print $handle "[$section_OID]\n";
 
     # output the fact that this document is a document (unless doctype
@@ -438 +444 @@
         if ($field =~ /^URL$/i) {
                     $url .= "[$value]\n";
-                    if ($section eq "") {$url .= "<section>$doc_OID\n";}
-                    else {$url .= "<section>$doc_OID.$section\n";}
+            $url .= "<section>$section_OID\n";
                     $url .= '-' x 70 . "\n";
         }
@@ -511 +516 @@
             print $handle "\".$child";
             }
-#       if ($child eq "") { print $handle "$doc_OID"; }
-#       elsif ($section eq "") { print $handle "$doc_OID.$child"; }
-#       else { print $handle "$doc_OID.$section.$child"; }
         }
         print $handle "\n";
@@ -532 +534 @@
     else {
         print $handle "[$self->{'num_sections'}]\n";
-        if ($section eq "") { print $handle "<section>$doc_OID\n"; }
-        else { print $handle "<section>$doc_OID.$section\n"; }
+        print $handle "<section>$section_OID\n";
     }
     print $handle '-' x 70, "\n";