Changeset 8854

Timestamp:

2004-12-17T16:52:30+13:00 (19 years ago)

Author:

kjdon

Message:

we now format the metadata used for sorting the import docs, can also use removeprefix and removesuffix

File:

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

trunk/gsdl/perllib/docsave.pm

@@ -102 +102 @@
 sub set_sortmeta {
     my $self = shift (@_);
-    my ($sortmeta) = @_;
+    my ($sortmeta, $removeprefix, $removesuffix) = @_;
     
     $self->{'sortmeta'} = $sortmeta;
- }
+    if (defined ($removeprefix) && $removeprefix ) {
+    $removeprefix =~ s/^\^//; # don't need a leading ^
+    $self->{'removeprefix'} = $removeprefix;
+    }
+    if (defined ($removesuffix) && $removesuffix) {
+    $removesuffix =~ s/\$$//; # don't need a trailing $
+    $self->{'removesuffix'} = $removesuffix;
+    }
+}
 
 sub process {
@@ -315 +323 @@
                            $self->{'sortmeta'});
     }
-
+    if (defined ($metadata) && $metadata) {
+    # do remove prefix/suffix
+    if (defined($self->{'removeprefix'})) {
+        $metadata =~ s/^$self->{'removeprefix'}//;
+    }
+    if (defined($self->{'removesuffix'})) {
+        $metadata =~ s/$self->{'removesuffix'}$//;
+    }
+    $metadata = &sorttools::format_metadata_for_sorting($self->{'sortmeta'}, $metadata, $doc_obj);
+    }
     # store reference in the archive_info and export_info
     if ($service eq "export") {