Changeset 20454

Timestamp:

2009-08-31T15:36:05+12:00 (15 years ago)

Author:

kjdon

Message:

strip ex from metadata type args

Location:

gsdl/trunk/perllib/classify

Files:

• DateList.pm (modified) (1 diff)
• Phind.pm (modified) (1 diff)
• RecentDocumentsList.pm (modified) (1 diff)

gsdl/trunk/perllib/classify/DateList.pm

@@ -107 +107 @@
     $self->{'metadata'} = "Date";
     }
+    # remove any ex.s
+    $self->{'metadata'} = $self->strip_ex_from_metadata($self->{'metadata'});
+    $self->{'sort'} = $self->strip_ex_from_metadata($self->{'sort'});
+
     # now can have comma separated list of Dates - we just use the first one (for now)
     my @meta_list = split(/,/, $self->{"metadata"});

gsdl/trunk/perllib/classify/Phind.pm

@@ -176 +176 @@
     }
     
+    # things that may have ex. in them that need to be stripped off
+    $self->{'text'} = $self->strip_ex_from_metadata($self->{'text'});
+    $self->{'title'} = $self->strip_ex_from_metadata($self->{'title'});
+
     # Transfer value from Auto Parsing to the variable name that used in previous GreenStone.
+    
     $self->{"indexes"} = $self->{"text"};
 

gsdl/trunk/perllib/classify/RecentDocumentsList.pm

@@ -107 +107 @@
     undef $self->{'sort'};
     }
+    $self->{'sort'} = $self->strip_ex_from_metadata($self->{'sort'});
+
     # Further setup 
     $self->{'list'} = {};