Changeset 9953 for trunk/gsdl/perllib/docproc.pm

Timestamp:

2005-05-25T17:09:43+12:00 (19 years ago)

Author:

davidb

Message:

Code for saving documents for import.pl and export.pl repeatative in places
and at time inconsistent. These changes bring the code more in to line.

File:

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

trunk/gsdl/perllib/docproc.pm

@@ -34 +34 @@
 
     $self->{'OIDtype'} = "hash";
+    $self->{'saveas'} = "GA";  # default
 
     return bless $self, $class;
@@ -65 +66 @@
 }
 
+sub set_saveas_version {
+    my $self = shift (@_);
+    my ($saveas_version) = @_;
+
+    $self->{'saveas_version'} = $saveas_version;
+
+}
+
 
 1;