Changeset 47 for trunk/gsascmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 4:59:30 PM (11 years ago)
Author:
toby
Message:

# on 1999/01/25 19:53:04, toby did:
fix bug in ChooseExpFil? to allow lower case .exp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 1999/01/20 20:19:58 to 1999/01/25 19:53:04
    • Property rcs:lines changed from +11 -2 to +1 -1
    • Property rcs:rev changed from 1.4 to 1.5
    r32 r47  
    815815    foreach file [lsort $filelist] {
    816816        if {![file isdirectory $file]  && \
    817                 [file extension $file] == ".EXP"} {
     817                [string toupper [file extension $file]] == ".EXP"} {
    818818            set modified [file mtime $file]
    819819            lappend pairlist "$file $modified"
Note: See TracChangeset for help on using the changeset viewer.