Changeset 20577 for gsdl/trunk/perllib/plugins/PrintInfo.pm

Timestamp:

2009-09-10T10:50:05+12:00 (15 years ago)

Author:

davidb

Message:

Changes to support new incremental_mode variable, and to track metadata.xml files more closely so incremental building works when a document is first build without any metadata attached, then then in a subsequent build has metadata from such a source as metadata.xml added.

File:

• gsdl/trunk/perllib/plugins/PrintInfo.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/PrintInfo.pm

@@ -106 +106 @@
 #sub init {
 #}
+
+
+sub set_incremental {
+    my $self = shift(@_);
+    my ($incremental_mode) = @_;
+
+    if (!defined $incremental_mode) {
+    $self->{'incremental'} = 0;
+    $self->{'incremental_mode'} = "none";
+    }
+    elsif ($incremental_mode eq "none") {
+    $self->{'incremental'} = 0;
+    $self->{'incremental_mode'} = "none";
+    }
+    else {
+    $self->{'incremental'} = 1;
+    $self->{'incremental_mode'} = $incremental_mode;
+    }   
+}
 
 sub get_arguments