Changeset 11380 for trunk/gsdl/perllib
- Timestamp:
- 2006-03-16T16:02:16+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/StructuredHTMLPlug.pm
r10723 r11380 102 102 my $doc_heading = shift(@doc_properties); 103 103 my $rest_doc_properties = join(" ", @doc_properties); 104 104 105 my @extracted_metadata = split(/<\/xml>/i, $rest_doc_properties); 105 106 my $extracted_metadata = shift (@extracted_metadata); … … 109 110 # If delete_toc is enables, it means to get rid of toc and tof contents. 110 111 # get rid of TOC and TOF sections and their title 111 if ( $self->{'delete_toc'} == 1){112 if (defined $self->{'delete_toc'} && ($self->{'delete_toc'} == 1)){ 112 113 if (defined $self->{'toc_header'}&& $self->{'toc_header'} =~ /\S/){ 113 114 $body_text =~ s/<p class=(($self->{'toc_header'})[^>]*)>(.+?)<\/p>//isg; … … 385 386 my $outhandle = $self->{'outhandle'}; 386 387 388 return if (!defined $textref); 389 387 390 # metadata fields to extract/save. 'key' is the (lowercase) name of the 388 391 # html meta, 'value' is the metadata name for greenstone to use … … 402 405 $orig_field = $field; 403 406 } 407 404 408 if ($textref =~ m/<o:$orig_field>(.*)<\/o:$orig_field>/i){ 405 409 $tag = $orig_field;
Note:
See TracChangeset
for help on using the changeset viewer.