my ($title, $reserve, $inc, $desc, $image1, $image2, $image3, $image4)
$form{'RETURNPOLICY'} =~ s/\</\&lt\;/g;
	$form{'RETURNPOLICY'} =~ s/\>/\&gt\;/g;
	$form{'item'} = $rdata5;
	foreach $invrecord (@allrecords){
	
	open (NEWSHT, ">>$config{'basepath'}$config{'inventory'}/spreadsheets/$form{'item'}.dat") or die "Could not edit your inventory spreadsheet file :$!\n";
			print NEWSHT "$form{'TTITLE'}$fielddelimiter$form{'RESERVE'}$fielddelimiter$form{'INC'}$fielddelimiter$form{'DESC'}$fielddelimiter$form{'IMAGE1'}$fielddelimiter$form{'IMAGE2'}$fielddelimiter$form{'IMAGE3'}$fielddelimiter$form{'IMAGE4'}";
			close NEWSHT;
			
			}