Changeset 15695
- Timestamp:
- 2008-05-26T11:55:54+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/basebuildproc.pm
r15688 r15695 384 384 $self->{'doc_mdprefix_fields'} = {}; 385 385 386 while (defined $section) { 386 while (defined $section) 387 { 388 my $section_OID = $doc_OID; 389 if ($section ne "") 390 { 391 $section_OID = $doc_OID . "." . $section; 392 } 393 387 394 # update a few statistics 388 395 $self->{'num_bytes'} += $doc_obj->get_text_length ($section); … … 390 397 391 398 # output the section name 392 if ($section eq "") { print $handle "[$doc_OID]\n"; } 393 else { print $handle "[$doc_OID.$section]\n"; } 399 print $handle "[$section_OID]\n"; 394 400 395 401 # output the fact that this document is a document (unless doctype … … 438 444 if ($field =~ /^URL$/i) { 439 445 $url .= "[$value]\n"; 440 if ($section eq "") {$url .= "<section>$doc_OID\n";} 441 else {$url .= "<section>$doc_OID.$section\n";} 446 $url .= "<section>$section_OID\n"; 442 447 $url .= '-' x 70 . "\n"; 443 448 } … … 511 516 print $handle "\".$child"; 512 517 } 513 # if ($child eq "") { print $handle "$doc_OID"; }514 # elsif ($section eq "") { print $handle "$doc_OID.$child"; }515 # else { print $handle "$doc_OID.$section.$child"; }516 518 } 517 519 print $handle "\n"; … … 532 534 else { 533 535 print $handle "[$self->{'num_sections'}]\n"; 534 if ($section eq "") { print $handle "<section>$doc_OID\n"; } 535 else { print $handle "<section>$doc_OID.$section\n"; } 536 print $handle "<section>$section_OID\n"; 536 537 } 537 538 print $handle '-' x 70, "\n";
Note:
See TracChangeset
for help on using the changeset viewer.