#
# Script to sort volumes correctly from a run
#
# The script expects that the volumes are numbered 1.ACQ onwards continuously
# This needs to be run while viewing the group that needs to be resorted
#
# Script written by Raj Jagannathan
# Feb 01, 2000
#

MxGetCurrentFolder folder
MxGetCurrentGroup group
MxGetPagesFromGroup $group pages

set new_grp {}
set i 1

foreach page $pages {

MxGetPageByName $folder "Acquisition: $i\.ACQ" page
lappend new_grp $page
incr i

}

MxGroupImages "$new_grp" I "Sorted Run" sorted_group

MxDeleteGroupPages "$group" No