Anbei ein kleiner Auszug aus unserer Moduldokumentation
die Basis unseres Webtist CMS Systems
Das System setzen wir erfolgreich seit Jahren
bei unseren Geschäftspartnern ein, es wird stets weiterentwickelt
und der Technik entsprechend angepasst.
Modulbeschreibung webtist::shop.pm
Version 1.03
Das Cyber-Kauf / Webtist Shopmodul
AUTOR
Marc Hanschur, Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
SYNOPSIS
das Modul webtist wird benoetigt
Aufruf
use webtist::shop;
$webtist::shop = new webtist::shop();
METHODS
new
Konstruktor
shopview
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
artlistview
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
artdetailview
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
ordrview
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
ordrinsert
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
sellerview
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
WARNING
ich kann im Moment keine Warnungen erkennen
BUGS
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.
ACKNOWLEDGEMENTS
Thanks to Susanne Herz for inspiration, laughs and all 'round good times;
and Linus Torvalds for all the great software.
LICENSE
Dieser Code ist freie Software; Sie können ihn neuverteilen und/oder ihn unter den gleichen
Bezeichnungen wie Perl selbst ändern.
DISCLAIMER
Dieses ist freie Software. Wenn es bricht, besitzen Sie beide Teile.
POD ERRORS
Hey! The above document had some coding errors, which are explained below:
Around line 70:
Non-ASCII character seen before =encoding in 'gewählte'. Assuming ISO8859-1