- print RESET;
- print BOLD CYAN;
- print $title->textContent()."\n";
- print RESET;
- print BOLD MAGENTA;
- $abstract = $abstract->textContent();
- $abstract =~ s/^\s*//mg;
- $abstract =~ s/(.{,80})\s/$1\n/g;
- $abstract = encode_utf8($abstract);
- print wrap('','',$abstract);
- print "\n\n";
- print RESET;
+ print RESET if $options{color};
+ print BOLD CYAN if $options{color};
+ print encode_utf8($title->textContent())."\n";
+ print RESET if $options{color};
+ if (defined $abstract and $options{abstract}) {
+ print BOLD MAGENTA if $options{color};
+ if ($options{org_mode}) {
+ print "*** Abstract\n";
+ }
+ $abstract = $abstract->textContent();
+ $abstract =~ s/^\s*//mg;
+ $abstract =~ s/(.{,80})\s/$1\n/g;
+ $abstract = encode_utf8($abstract);
+ print wrap('','',$abstract);
+ print "\n\n";
+ print RESET if $options{color};
+ }