proc action_jget { field_num selection } {
# This currently puts the file in $TMPDIR or pwd. if it should go back where
# it started, let me know
global PGB env
	set tmpdir $PGB(Tmp)

		Working
    MkNotice "Begining transfer file 1 out of [llength $selection]"
    set cnt 1

	foreach i $selection {
		set g [ split $i | ]
		#lose the spacer monitor lines
		if { ( [llength $g] > 1 ) } {
			set file [lindex $g $field_num]
			set outfile $tmpdir/[string trim $file]
			mkdir -p [dirname $outfile]


UpdateNotice "Transfering file $file :  This is number $cnt out of [llength $selection]"

			catch " jget  -target [dirname $outfile] $file " err 
            incr cnt


			if " ( [file size $outfile ] > 0 ) " {
				puts stdout "Copied $file to $outfile"
			} else {
				puts "Problem with jget  $file $err"
				rm $outfile
			}
		}
	}
	Waiting
	catch {destroy .ft_note}
}
