function doTheTransferNew(pForm,qForm,filled,p,q){
var pLCf1=parent.left.document.ControlForm
var p1= parent.content.document.sweater_data
var selectedLeft,nameRight

 // Transfer the data from pForm to qForm.
 //
 
// only transfer the essential elements.
// These WILL exist in both files if I haven't screwed up.

 
  //--- find last part of URL
  
var pD = parent.content.document

var string = pD.location.pathname
var lastSlash = string.lastIndexOf('/')
var frag = string.substring(lastSlash+1,string.length)
// alert('string= ' + string + ' lastSlash= ' + lastSlash+ ' string.length = ' + string.length +' frag = '+frag);

            // p.filled.value = p.filled.value + frag 
      //----

var ok = "ok"
var numEmpty =0
p1.filled.value = "local URL" + frag;

essentialNames(pForm);
var leftNames = whichEstEssential(frag);
p1.filled.value += leftNames[0].name;

essentialNames(qForm);
var rightNames = whichEstEssential(frag);
p1.filled.value += rightNames[0].name;

var num=leftNames.length
// alert(num + ' estEssential[0] = '+ estEssential[0]);
//

 
 var numLeft = pForm.elements.length 
  var numRight = qForm.elements.length

p1.filled.value += "Wait while I transfer" + num + "values from " + pForm+pForm.elements.length  
+ " to " + qForm +qForm.elements.length+ ".";



 for (var i =0; i<num; i++){    /* 1 i loop */
p1.filled.value += " i= "+i+ " " + leftNames[i].name;
       var nameLeft = leftNames[i].name;
       var nameRight = rightNames[i].name;
             
       var valueLeft = leftNames[i].value;
       var valueRight = rightNames[i].value;
       
       
    
       var boxJ= ( (rightNames[i].type == "text") ||                
                 (rightNames[i].type == "hidden") || (rightNames[i].type == "textarea") )

      var boxI= ( (leftNames[i].type == "text") || 
                      (leftNames[i].type == "hidden") || (leftNames[i].type == "textarea") )

      if( boxJ  && boxI ){ rightNames[i].value = valueLeft }

       else if( (rightNames[i].type == "select-one") && (leftNames[i].type == "select-one") ){ 
              rightNames[i].selectedIndex = leftNames[i].selectedIndex  } 

      else if( (rightNames[i].type == "select-one" ) && boxI ){    
          if( !isNaN(valueLeft) ){ rightNames[i].selectedIndex = valueLeft  } 
            }

      else if(boxJ && leftNames[i].type == "select-one"  ){
               rightNames[i].value = leftNames[i].selectedIndex }

p1.filled.value += ":";

}  /* 1 */

p.document.bgColor =savedColor
q.document.bgColor =filledColor

if(p == parent.content){pLCf1.status.value = "Saved"
           p.document.sweater_data.filled.value =filled}
if (p == parent.left){pLCf1.status.value = "Reverted"
           q.document.sweater_data.filled.value =filled} 

inOrCm()  
checkFormComplete() // will also change color.


}
//=======//

function essentialNames(pForm){
// may want to rewrite estEssentials if this works.
// This one is called to set the arrays for transfering.
// The estEssentials is called to check arrays for completeness.
// They can be different.

styleEssentials =  new Array (pForm.chest, pForm.hip, pForm.neck_circ, 
pForm.size,
pForm.arms_forward,pForm.jacket,pForm.sleeve_style,pForm.unit,
pForm.sleeve_cap,pForm.body_style,pForm.separate_sleeve,
pForm.estimate_yarn, pForm.adjust_hip_rib, pForm.adjust_cuff, pForm.neck_type,pForm.name)


armEssentials =  new Array (pForm.bicep, pForm.elbow_circ,pForm.wrist_circ,
pForm.e_wrist,pForm.e_elbow_circ,pForm.e_bicep,pForm.e_cuff,pForm.snug_scye,pForm.e_snug_scye_tot,
pForm.classic_armhole,pForm.e_armhole_depth,pForm.arm_length,pForm.e_arm_length,pForm.fore_arm,
pForm.sleeve_style,pForm.sleeve_cap,pForm.adjust_cuff)

gaugeEssentials = new Array (pForm.rows_rib, pForm.length_rib, pForm.stitches_rib,
pForm.width_rib,pForm.rows_main,pForm.length_main,pForm.stitches_main,pForm.width_main,
pForm.rows_sleeve,pForm.length_sleeve,pForm.stitches_sleeve,pForm.width_sleeve,
pForm.rows_button,pForm.length_button,pForm.stitches_button,pForm.width_button,
pForm.separate_sleeve,pForm.buttonEqWelt,pForm.jacket,

pForm.in_yard_row_main,pForm.in_yard_stitch_main,pForm.in_yard_main,pForm.yard_err_main,
pForm.ounce,pForm.yard,pForm.in_ounce_main,pForm.ounce_err_main,

pForm.in_yard_row_welt,pForm.in_yard_stitch_welt,pForm.in_yard_welt,pForm.yard_err_welt,
pForm.in_ounce_welt,pForm.ounce_err_welt
)

buttonBandEssentials =  new Array (pForm.button_diam, pForm.num_button,pForm.custom_band,
pForm.band_width,pForm.overlap,pForm.first_band)

headNeckEssentials = new Array (pForm.neck_circ, pForm.e_neck_depth,
pForm.e_neck_depth,pForm.e_back_neck_depth,pForm.e_neck_width,pForm.head_circ)

torsoLengthEssentials =  new Array (pForm.back_waist,
pForm.sweater_length, pForm.waist_to_hip,pForm.bust_depth
)

torsoWidthEssentials = new Array (pForm.waist, pForm.e_waist, pForm.hip,pForm.e_hip,
pForm.chest,pForm.e_chest,pForm.e_hip_rib,
pForm.natural_shoulder,pForm.e_shoulder,pForm.shoulder_slope,
pForm.scale_hip,pForm.body_style,pForm.sleeve_cap,pForm.adjust_hip_rib)

weltEssentials = new Array(pForm.neck_welt_depth,pForm.bottom_welt_depth,
pForm.wrist_welt_depth,pForm.sweater_length)

notesEssentials = new Array(pForm.yarn_brand,pForm.yarn_color,pForm.extra_text,
pForm.front_bed_welt_tension,pForm.back_bed_welt_tension,
pForm.front_bed_main_tension,pForm.back_bed_main_tension,
pForm.needle_size_main,pForm.needle_size_welt,pForm.hand_or_machine)
}
/*===============*/