Fwd: update mixes fields up??

[Sven Bentlage]

>
> Hi
> below is a small sub I wrote. It works, but mixes up the updates for 
> several fields.
> The update query should take every value and update the assigned column.
> But every time it happens, that after the columns are omitted or added 
> so that the columns are not correctly updated.
>
> Help and hints will be greatly appreciated...
>
> Regards,
>
> Sven
>
>
>
>
> sub do_data {
>
>
> 	my  $curl = param('curl');
> 	my  $name = param('firstname');
> 	my  $surname = param('surname');
> 	my  $course = param('course');
> 	my  $rank = param('rank');
> 	my  $nation = param('nation');
> 	my  $cname = param('organisation');
> 	my  $caddress = param('caddress');
> 	my  $ctel = param('ctel');
> 	my  $cfax = param('cfax');
> 	my  $cmobile = param('cmobile');
> 	my  $cemail = param('cemail');
> 	my  $btype = param('btype');
> 	my  $quali = param('quali');
> 	my  $experi = param('experi');
> 	my  $inhouse = param('inhouse');
> 	my  $resid = param('residence');
> 	my  $ptel = param('ptel');
> 	my  $pfax = param('pfax');
> 	my  $pmobile = param('pmobile');
> 	my  $pemail = param('pemail');
> 	my  $birthday = param('birthday');
> 	my  $marital = param('marital');
> 	my  $hobbies = param('hobbies');
> 	my  $membership = param('membership');
> 	my  $pcont = param('pcont');
> 	my  $hq = param('hq');
>
>
> #  chomp (
> #  		$surname,  $firstname, $name,  $course,  $nation,  $rank,  $cname,
> # 		$caddress, $ctel, $cfax, $cmobile, $cemail, $btype,  $quali,  
> $experi,
> # 		$inhouse, $resid, $ptel, $pfax, $pmobile, $pemail, $birthday, 
> $marital,
> # 		$hobbies, $membership, $pcont, $hq
> # 		);
>
>
> 	my $dbc = DBI->connect( $dsn, $db_user, $db_pass ) or die "cannot 
> connect to server: $DBI::errstr\n" ;
>
> 	my $update = $dbc->do(
> 		"update memberscopy
> 		set course='$course', nation='$nation', rank='$rank', cname='$cname',
> 		caddress='$caddress', ctel='$ctel', cfax='$cfax', 
> cmobile='$cmobile', cemail='$cemail',
> 		btype='$btype', quali='$quali', experi='$experi', 
> inhouse='$inhouse', resid='$resid', ptel='$ptel',
> 		pfax='$pfax', pmobile='$pmobile', pemail='$pemail', 
> birthday='$birthday', marital='$marital',
> 		hobbies='$hobbies', membership='$membership', 
> pcont='$pcont',  hq='$hq', curl='$curl'
> 		where name = '$name' and surname = '$surname'  "
> 						) or die "can not do it $DBI::errstr\n";
>
>
> 	&thx;
> 	
>
> 	exit;
> }
>