Changeset 23485 for main/trunk/greenstone2/perllib/ClassifyTreeNode.pm
- Timestamp:
- 2010-12-14T16:16:48+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/ClassifyTreeNode.pm
r22749 r23485 62 62 # Check if this node already exists in the database, and if not insert it 63 63 # now 64 my $text = &dbutil::read_infodb_ entry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid);64 my $text = &dbutil::read_infodb_rawentry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid); 65 65 if($text !~ /\w+/ && $force_new) 66 66 { … … 268 268 269 269 # Now determine if this node exists. 270 if (&dbutil::read_infodb_ entry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $next_clid) =~ /\w+/)270 if (&dbutil::read_infodb_rawentry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $next_clid) =~ /\w+/) 271 271 { 272 272 # And if so, create it. … … 658 658 659 659 # Load the text of this node 660 my $text = &dbutil::read_infodb_ entry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid);660 my $text = &dbutil::read_infodb_rawentry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid); 661 661 662 662 # Replace the contains … … 686 686 687 687 # Load the text of this node 688 my $text = &dbutil::read_infodb_ entry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid);688 my $text = &dbutil::read_infodb_rawentry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid); 689 689 # Replace the numleafdocs 690 690 $text =~ s/<numleafdocs>\d*?\n+/<numleafdocs>$numleafdocs\n/; … … 713 713 714 714 # Load the text of this node 715 my $text = &dbutil::read_infodb_ entry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid);715 my $text = &dbutil::read_infodb_rawentry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid); 716 716 # Replace the title 717 717 $text =~ s/<Title>.*?\n+/<Title>$title\n/; … … 736 736 my $clid = $self->{'clid'}; 737 737 738 my $text = &dbutil::read_infodb_ entry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid);738 my $text = &dbutil::read_infodb_rawentry($self->{'infodbtype'}, $self->{'infodb_file_path'}, $clid); 739 739 return $text; 740 740 }
Note:
See TracChangeset
for help on using the changeset viewer.