;+
; PROJECT
;          SolarB EIS
;
; NAME
;          EIS_GET_PT_VERSION_NUMBER
;
; PURPOSE
;          Function to extract Planning Tools version number from
;          /ssw/hinode/eis/idl/planning/ancillary/eis_mk_plan_version.pro
;
; INPUTS
;          None
;
; WRITTEN
;          11-Feb-2008 JAR
;
; MODIFICATION HISTORY
;
;
;__________________________________________________________________
FUNCTION eis_get_pt_version_number

fileName = concat_dir(GETENV('ancillary') , 'eis_mk_plan_version.txt')
; Make sure the file is actually there
valid    = FILE_TEST(fileName)
IF (valid NE 1) THEN BEGIN
    print,"No version file found!"
    RETURN , '(eis_PT: Version Not known)'
ENDIF

; OK, read file
mText = rd_ascii(fileName)
split = STRSPLIT(mText[0] , /EXTRACT)


RETURN , STRJOIN([" [eis_PT ",split[2],"]"] , /SINGLE)

END