> > > 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; > } >
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]