unglaublich

[sheinatz]

my
($mannschaft,$spielername,$setzwert,$geld)=(param('mannschaft'),param('spiel
ername'),param('setzwert'),param('geld'));
tie %sql,'Tie::DBI',{db=>statedsn, key=>'idx', user=>stateuser,
password=>statepass, table=>'mbrlogin', CLOBBER=>2}
or die "can't tie $!\n";
my $mbr="$ENV{'REMOTE_USER'}";
my $ken=$sql{$mbr}->{gb};
my $kntab="kn".$ken;
my $setzen=$spielername."_".($geld * $setzwert);
tie %sql,'Tie::DBI',{db=>statedsn, key=>'idx', user=>stateuser,
password=>statepass, table=>'selfmadewette', CLOBBER=>2}
or die "can't tie $!\n";
tied(%sql)->{'dbh'}->do("LOCK TABLES selfmadewette WRITE");
die "$DBI::errstr\n" if $DBI::err;
print "$mbr,$ken<br>";
# hier ist $ken zb. 266644455

$sql{""}={dat=>$dat,tim=>$tim,id=>$ken,man=>$mannschaft,btext=>$spielername,
wert1=>$setzwert,wert2=>$geld,datlast=>$dat,timlast=>$tim,status=>'0'};
# hier ist $kenn was anderes immoment ne constante

tied(%sql)->{'dbh'}->do("UNLOCK TABLES ");
die "$DBI::errstr" if $DBI::err;
print "$mbr,$ken<br>";
# hier ist $ken auch zb. 266644455

print "Wettb&uuml;ro TrauMir Standartwette Spieler<br><br>";
print "Wette wurde in die Börse gesetzt. ";

##########

Das Ergebniss, sieht selbst, aber was sach ich, $ken soll in die DB
eingetragen werdenträgt. Das Ergebniss ist leider nicht $ken sondern eine
andere Zahl.
Die Variable $ken lass ich ja vor und nach dem Schreiben Anzeigen und die
Werte sind auch identisch. Nur eben der Eintrag in der DB hat nen anderen
Wert ???? Obwohl ich doch $ken nehme,,,, ???? taucht eine andere Zahl auf.

##########

Probiert es selbst, www.wm2002wette.de.vu .Meldet euch einmal an (oder auch
zweimal) und macht eine selfmade wette auf. Das Ergebniss ist leider nicht
das es unter eurer konto-nummer abgespeichert wird, sondern unter einer
nummer (weissnichtwoher).
Gebucht wird allerdings aufs richtige konto.
Und da ich nur Copy und Past beim Erstellen genutzt habe kann eigentlich
kein Fehler vorliegen.


Weiss jemand Hilfe !!!

Danke Sascha

---
Infos zur Mailingliste, zur Teilnahme und zum An- und Abmelden unter
-->>  http://www.4t2.com/mysql