Changeset 16635

Show
Ignore:
Timestamp:
04.08.2008 09:41:56 (11 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/gsprintf.pm

    r15007 r16635  
    229229        my $linekey = "{" . $1 . "}"; 
    230230        my $linetext = $2; 
    231         $linetext =~ s/(\s*)\#\s+Updated\s+(\d?\d-\D\D\D-\d\d\d\d)\s*$//i; 
     231        $linetext =~ s/(\s*)\#\s+Updated\s+(\d?\d-\D\D\D-\d\d\d\d).*$//i; 
    232232 
    233233        # Map key to text