Leser: 3
![]() |
|< 1 2 3 4 5 6 >| | ![]() |
59 Einträge, 6 Seiten |
1 2 3 4 5 6 7
BEGIN { use FindBin (); use lib ($FindBin::Bin); } use pseudecom::WebDB; use pseudecom::WebDB::PseudEcom;
1 2 3 4 5 6
use strict; use lib qw(/usr/local/apache/lib/perl); use CGI qw(:standard escape escapeHTML); use lib qw(/usr/local/apache/lib/perl); use WebDB; use WebDB::PseudEcom;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
package WebDB::PseudEcom; # öffentliche Funktionen, die exportiert werden require Exporter; @ISA = qw(Exporter); @EXPORT = qw( gib_haupt_url gib_home_link gib_dokumente_link gib_zooladen_link gib_kontakt_link gib_zufgarantie_link gib_datumnschutz_link gib_feedback_link gib_umfrage_link gib_kkartentyp_liste gib_ablauf_monat_liste gib_ablauf_jahr_liste standardlayout schwerer_fehler );
my $x = $cgi->param('x');
my $self = bless { } , $class;
![]() |
|< 1 2 3 4 5 6 >| | ![]() |
59 Einträge, 6 Seiten |