;+
; NAME:
;	SMEI_SEQUENCE::GET_PIPE_LEVEL
;
; PURPOSE:
;	Determine the version of the pipeline used to generate the
;	images in the pipeline.
;
; CATEGORY:
;	SMEI_SEQUENCE
;
; CALLING SEQUENCE:
;	level = seqref -> get_pipe_level()
;
; INPUTS:
;
;
;
; OPTIONAL INPUTS:
;
;
;
; KEYWORD PARAMETERS:
;
; 
; OPTIONAL OUTPUTS:
;
;
; RESTRICTIONS:
;	Assumes that all the images in the sequence come from the same
;	level of pipe.
;
;
; MODIFICATION HISTORY:
;	Original: 18/1/08; SJT
;-

function smei_sequence::get_pipe_level

img = self -> get_first()

if not obj_valid(img) then return, 0

return, img -> get_pipe_level()

end