Changeset 15115

Timestamp:

2008-03-20T20:43:39+13:00 (16 years ago)

Author:

ak19

Message:

Added SourceReplaceable in output for plugin xml. srcreplaceable is a new option to work new script replace_srcdoc_with_html.pl

File:

• gsdl/trunk/perllib/plugins/BasPlug.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/BasPlug.pm

@@ -290 +290 @@
     gsprintf(STDERR, "  <Blocks>$block_exp</Blocks>\n");
     gsprintf(STDERR, "  <Explodes>" . ($pluginoptions->{'explodes'} || "no") . "</Explodes>\n");
+    # adding new option that works with replace_srcdoc_with_html.pl
+    gsprintf(STDERR, "  <SourceReplaceable>" . ($pluginoptions->{'srcreplaceable'} || "no") . "</SourceReplaceable>\n");
     unless (defined($high_level_information_only)) {
     gsprintf(STDERR, "  <Arguments>\n");
@@ -518 +520 @@
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
+
+   #my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(0);
+   #print STDERR "Calling method; $cfilename:$cline $cpackage->$csubr\n";
+
     $self->initialise_extractors();
 }