# If a sort order is specified, sort the form fields based on that.  #

       if ($Config{'sort'} =~ /^order:.*,.*/) {

# Set the temporary $sort_order variable to the sorting order,   #

            # remove extraneous line breaks and spaces, remove the order:    #

            # directive and split the sort fields into an array.             #

            $sort_order = $Config{'sort'};

            $sort_order =~ s/(\s+|\n)?,(\s+|\n)?/,/g;

            $sort_order =~ s/(\s+)?\n+(\s+)?//g;

            $sort_order =~ s/order://;

            @sorted_fields = split(/,/, $sort_order);