Changeset 16635 for gsdl/trunk/perllib/gsprintf.pm

Timestamp:

2008-08-04T09:41:56+12:00 (16 years ago)

Author:

kjdon

Message:

modified the line where we get rid of the #Updated 13-Mar-2007 bit from a language fragment. Needed to allow for the 'by George Braoudakis' bit as well

File:

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

gsdl/trunk/perllib/gsprintf.pm

@@ -229 +229 @@
         my $linekey = "{" . $1 . "}";
         my $linetext = $2;
-        $linetext =~ s/(\s*)\#\s+Updated\s+(\d?\d-\D\D\D-\d\d\d\d)\s*$//i;
+        $linetext =~ s/(\s*)\#\s+Updated\s+(\d?\d-\D\D\D-\d\d\d\d).*$//i;
 
         # Map key to text