nicht angemeldet
Hallo,
Ich habe mal wieder ein schwer zu beschreibendes Problem...
Mein Shop-System arbeitet mit einer Art Framework-Perl (glaube zumindest, daß das so heißt?)
Die Fakten:
Ich habe ein Tabellenspalte "MYPREIS" in der kundenspezifische Preise in Form von "Artikelnummer1:Preis1;Artikelnummer2:Preis2; usw" eingetragen sind.
Wenn sich der Kunde im Shop einloggt, werden "seine" (in diesem Feld eingetragenen) Preise angezeigt und berechnet.
Das Script, das das macht, schaut so aus:
<!--spmacro:module(Callback)
sub modify_db_price() {
my $p = $_[0];
my $artid = $_[1];
if($main::userid){
my $pre = ssp::db_get_prefix();
my $USERT = $pre . "USR";
ssp::readSQLData("SELECT MYPREIS FROM $USERT WHERE LOGIN='$main::userid'","MYPREIS");
my $user_p = ssp::get_var_db('MYPREIS', 0);
if($user_p ne $ssp::undefined && $user_p ne ""){
if($user_p =~ m/$artid:([^;]*);/){
return $1;
}
else
{
return $p;
}
}
else
{
return $p;
}
}
else
{
return $p;
}
}
-->
Mein Problem ist jetzt, daß in meinem Shop keine *Artikel* sondern Varianten eines Artikels bestellt werden können.
Ich kann natürlich in dem "MYPREIS" Feld auch Varianten-Artikelnummern angeben, aber da 1 Artikel bis zu 80 Varianten hat, wäre das SEHR aufwendig.
Die Varianten zu einem Artikel kann ich mit
my $SITM = $pre . "SITM";
ssp::readSQLData("SELECT ITEMID FROM $SITM WHERE MITEMID='$artid'","ITEMID");
abfragen.
Ich krieg's aber einfach nicht hin, das Script so anzupassen, daß zu einer in MYPREIS eingetragenen Arikenummer auch der Preis der zugehörigen Varianten modifiziert wird :'(
Kann mir da bitte jemand helfen?
Falls das von Bedeutung ist: meine DB ist eine mySQL DB (MySQL-Client-Version: 5.0.45)