webtist::shop.pm
Modulbeschreibung webtist::shop.pm
Version 1.03
Das Cyber-Kauf / Webtist Shopmodul
Marc Hanschur, Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
das Modul webtist wird benoetigt
Aufruf
use webtist::shop;
$webtist::shop = new webtist::shop();
Konstruktor
Zeigt die gewählte Auswahl
Tabellenstrukturen im Shop
Artikeltabelle
CREATE TABLE art (
art_id int(11) NOT NULL auto_increment,
art_sellid varchar(255) NOT NULL default 'none',
art_name varchar(50) NOT NULL default 'Artikelname',
art_nr varchar(50) NOT NULL default 'xxx',
art_shgr_id int(11) NOT NULL default '0',
art_sugr_id int(11) NOT NULL default '1',
art_sdesc varchar(150) NOT NULL default 'Kurzbeschreibung',
art_desc text,
art_grf int(2) NOT NULL default '0',
art_dabla varchar(50) default ' ',
art_preis1 float(16,2) default NULL,
art_preis2 float(16,2) default NULL,
art_tax_id tinyint(3) unsigned default NULL,
art_menge float(8,2) default NULL,
art_meas_id tinyint(3) unsigned default NULL,
PRIMARY KEY (art_id)
) TYPE=MyISAM;
Artikelgrafik
CREATE TABLE artgrf (
artgrf_artnr varchar(50) NOT NULL default 'xxx',
artgrf_mime varchar(20) default NULL,
artgrf_bild blob,
PRIMARY KEY (artgrf_artnr)
) TYPE=MyISAM;
Masseinheiten
CREATE TABLE meas (
meas_id tinyint(3) unsigned NOT NULL auto_increment,
meas_name varchar(10) NOT NULL default ' ',
PRIMARY KEY (meas_id)
) TYPE=MyISAM;
Warenkorb / Bestellungen
CREATE TABLE orderart (
orderart_id int(11) NOT NULL auto_increment,
orderart_art_id int(11) NOT NULL default '0',
orderart_piece int(11) NOT NULL default '0',
orderart_www_id varchar(150) NOT NULL default '',
orderart_date timestamp(14) NOT NULL default '',
PRIMARY KEY (orderart_id)
) TYPE=MyISAM;
Verkäufer (Seller)
CREATE TABLE seller (
seller_id int(2) NOT NULL auto_increment,
seller_ok int(1) NOT NULL default '0',
seller_sellid varchar(255) NOT NULL default 'none',
seller_name varchar(50) NOT NULL default 'Firmenname',
seller_str varchar(50) NOT NULL default 'Strasse',
seller_hsnr varchar(10) NOT NULL default 'Hausnummer',
seller_cc_id int(3) NOT NULL default '19',
seller_plz varchar(5) NOT NULL default 'xxxxx',
seller_ort varchar(60) NOT NULL default 'Ort',
seller_tel varchar(30) NOT NULL default '+49 xxx xxxxx',
seller_fax varchar(30) NOT NULL default '+49 xxx xxxxx',
seller_email varchar(50) NOT NULL default 'info@cyber-kauf.de',
PRIMARY KEY (seller_sellid),
KEY seller_id (seller_id)
) TYPE=MyISAM;
siehe auch Modul webtist::navigation.pm
Aufruf
&shopview()
Beispiel
my $shopview = $webtist::shop->shopview();
Parameter
Rueckgabewert
ist ein Skalar mit den Produkten (Shop) als Inhalt
Zeigt die Artikelliste der jeweiligen Kategorie
Definitionen in der WebConfig
SHCKARTLISTVIEWTMPL => Template für Shop
SHCKPAGESIZE => Anzeige der Daten (Anzahl)
SHCKOK => Shop erlaubt
HIDDEN => das Hiddentemplate ansonsten wird der STandart gezogen
Aufruf
&artlistview($template,$pagesize,$qpage,$shbid,$shid2)
Beispiel
my $artlistview = $webtist::shop->artlistview($template,$pagesize,$qpage,$shbid,$shid2);
Parameter
$template => das bereits geöffnete Template ansonsten wird das template GBTMPL aus der web.cfg gezogen
oder sonst das aus der main.cfg
$pagesize => die Ausgabemenge oder Webconfig eintrag SHCKPAGESIZE
$qpage => welche Seite
$shbid => welcher Versender (SellerID)
$shid2 => welche Gruppen von Produkten
Rueckgabewert
ist ein Skalar mit der jeweiligen Produktliste als Inhalt
Zeigt den Detail eines Artikel an
SHCKARTLISTVIEWTMPL => Template für Shop
HIDDEN => das Hiddentemplate ansonsten wird der STandart gezogen
Aufruf
&artdetailview($template,$shckartnr,$shbid)
Beispiel
my $artdetailview = $webtist::shop->artdetailview($template,$shckartnr,$shbid);
Parameter
$template => das geöffnete Template
$shckartnr => Artikelnummer eindeutig
$shbid => SellerID
Rueckgabewert
ist ein Skalar mit der Detailansicht eines Produkts als Inhalt
Zeigt eine den Warenkorb an
Aufruf
&ordrview($template,$shckartid,$sessionid)
Beispiel
my $ordrview = $webtist::shop->ordrview($template,$shbid,$sessionid);
Parameter
$template => das geöffnete Template
$shbid => SellerID
$sessionid => Session ID aus Webtist Modul
Rueckgabewert
ist ein Skalar mit der Warenkorb eingabe
Trägt einen Artikel in die Tabelle ORDRPOS ein
oder macht einen Update auf die Summe der bereits bestellten Produkte
Aufruf
&ordrinsert($template,$shckartid,$shckordranz,$shbid,$sessionid)
Beispiel
my $ordrinsert = $webtist::shop->ordrinsert($template,$shckartid,$shckordranz,$shbid,$sessionid);
Parameter
$template => das geöffnete Template
$shckartid => Artikelnummer eindeutig
$shckordranz => die Bestellte anzahl
$shbid => SellerID
$sessionid => Session ID aus Webtist Modul
Rueckgabewert
ist ein Skalar mit der Warenkorb eingabe
Zeigt den Verkäufer an
SHCKSELLVIEWTMPL => Template für Seller
Aufruf
&sellerview($template,$shbid,$art)
Beispiel
my $sellerview = $webtist::shop->sellerview($template,$shbid,$art);
Parameter
$template => das geöffnete Template
$shbid => Seller ID
$art => Art der Rückgabe
Rueckgabewert
ist ein Skalar mit der Detailansicht eines Produkts als Inhalt
ich kann im Moment keine Warnungen erkennen
Transparent wird durch eine Remotedelegationkerbe vollendet, die unter bestimmten Umständen brechen
konnte. Wenn dieses Ihnen geschieht, informieren Sie mich bitte.
Informieren Sie mich, wenn Sie einiges finden.
Thanks to Susanne Herz for inspiration, laughs and all 'round good times;
and Linus Torvalds for all the great software.
Dieser Code ist freie Software; Sie können ihn neuverteilen und/oder ihn unter den gleichen
Bezeichnungen wie Perl selbst ändern.
Dieses ist freie Software. Wenn es bricht, besitzen Sie beide Teile.
Hey! The above document had some coding errors, which are explained below:
Non-ASCII character seen before =encoding in 'gewählte'. Assuming ISO8859-1