webtist::ticker.pm
Modulbeschreibung webtist::ticker.pm
Version 1.02
Generiert ein Ticker mit navigation fuer DHTML Seiten
Marc Hanschur, Space4Data / WEBTIST [NOSPAMmarc@hanschur.de]
Aenderungsliste im PerlModul
das Modul webtist wird benoetigt
das Modul DBI wird benoetigt
Aufruf
use webtist::ticker;
$webtist::ticker = new webtist::ticker();
Mehrsprachigkeit Name "TCK"
Definitionen in der web.cfg
TCKOK => 1=ja 0=nein diese Variable wird als Zugriff aus anderen Modulen verwendet
TCKID => bei welcher Navigations ID nach tck gesucht werden soll (id1,id2,id3) (Keysensitiv)
TCKDB => welche Datenbank wird verwendet (dbi:mysql:space4data:localhost)
TCKDBSID => bei Oracle wird dieser benötigt (wert TCKDB dbi:oracle:host=xx wert TCKDBSID sid=db) bitte nur
definieren wenn eine Oracle als DB diensne soll
TCKDBUSR => welcher User hat select rechte auf die DB (Username)
TCKDBPASS => wie lautet das Passwort des Users (Passwort)
Tabellenstruktur von der Tabelle Ticker
CREATE TABLE ticker (
ticker_id int(11) NOT NULL auto_increment,
ticker_lang_id varchar(10) NOT NULL default 'dft',
ticker_time timestamp(14) NOT NULL,
ticker_ok enum('1','0') default NULL,
ticker_textk varchar(255) NOT NULL default 'TEXT TEXT TEXT',
ticker_html blob,
PRIMARY KEY (ticker_id)
) TYPE=MyISAM;
Konstruktor
Ticker Kurzanzeige mit links (für Startseite sowie fuer Unterseiten)
Anzeige und Navigation eines Tickers
Weiter definitionen in der web.cfg
TCKTBL => Tabellentemplate
TCKTRTD => TRTD Template wird mehrmals geladen
TCKLNK => Linktemplate
TCKTMPL => Template in dem der Zurückbutton definiert ist
Aufruf
&tickeranz($stdtbltmpl,$stdtrtdtmpl,$stdlnktmpl)
Beispiel
my $ticker = $webtist::ticker->ticker($stdtbltmpl,$stdtrtdtmpl,$stdlnktmpl);
Parameter
$stdtbltmpl => Pfad/Datei von tabellentemplate
$stdtrtdtmpl => Pfad/Datei von tabellenreihe / Tabellenzelle
$stdlnktmpl => Pfad/Datei wie soll der Link aussehen
Rueckgabewert
ist ein Skalar mit dem Ticker (Navigation / Ticker) als Inhalt
Ticker Navigation
Anzeigen wenn Ticker als MainSite vorliegt
Aufruf
&tickertmplok($tckart)
Parameter
$tckart => bei nix oder 0 kommt ticker_ok zurueck bei 1 ticker_time
0 oder 1 als rueckgabe 1 aktueller Ticker ist Startseite 0 nicht
Beispiel
$ticker = $webtist::ticker->tickertmplok($tckart);
Rueckgabe
Skalar mit Ausgewaehltem Inhalt
Ticker TMPL erstellen
aus der DB wird der Ausgewählte ticker gezogen
Aufruf
&tickertmpl()
Beispiel
$ticker = $webtist::ticker->tickertmpl();
Rueckgabe
Skalar mit HTML 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, Andreas Kaspar 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 'benötigt'. Assuming ISO8859-1