Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+30 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
Teilbaum:
<a href="$Env{"Baselink"}Action=Contact" title="$Text{"Contact-A"}">$Text{"Contact"}</a>1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
# -- # Kernel/Output/Modules/Contact # -- package Kernel::Modules::Contact; use strict; use warnings; #use Kernel::Modules:Contact; #use Kernel::System::Contact; use Kernel::System::Web::InterfaceCustomer; use Kernel::Output::HTML::Layout; use vars qw($VERSION); $VERSION = qw($Revision: 1.63 $) [1]; # render AdminState.dtl $Output .= $Self->{LayoutObject}->Output( TemplateFile => 'Contact', Data => \%Param, ); 1;
+3 replies
+2 replies
2012-07-26T12:42:37 topegDa ist was grundlegend falsch. Du benutzt Variablen die du in den Paketen nicht definiert und gefüllt hast. Die Codestücke reichen nicht um mehr sagen zu können.
+24 replies![[Homepage]](/battie/theme/default/homepage.gif)
+23 replies
1 2 3 4
my $Output .= $Self->{LayoutObject}->Output( TemplateFile => 'Contact', Data => \%Param, );
+22 replies
+21 replies
+20 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {%Param};
bless( $Self, $Type );
# set debug
$Self->{Debug} = 0;
# check all needed objects
for my $Needed (qw(ParamObject DBObject LayoutObject ConfigObject LogObject)) {
if ( !$Self->{$Needed} ) {
$Self->{LayoutObject}->FatalError( Message => "Got no $Needed!" );
}
}
# hier evtl. weitere notwendige Objekte erzeugen
return $Self;
}1
2
3
4
5
6
7
sub Run {
my ( $Self, %Param ) = @_;
my $Output = $Self->{LayoutObject}->Output(
TemplateFile => 'Contact',
Data => \%Param,
);1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<?xml version="1.0" encoding="utf-8"?>
<otrs_config version="1.0" init="Config">
<CVS>$Id: Contact.xml,v 1.55 2012/07/26 08:42:06 reb Exp $</CVS>
<ConfigItem Name="CustomerFrontend::Module###Contact" Required="0" Valid="1">
<Description Translatable="1">Frontend module registration for the customer interface.</Description>
<Group>Framework</Group>
<SubGroup>Frontend::Customer::ModuleRegistration</SubGroup>
<Setting>
<FrontendModuleReg>
<Description>Contacts</Description>
<NavBarName>Tickets</NavBarName>
<Title>Contacts</Title>
<NavBar>
<Description Translatable="1">Contacts</Description>
<Name Translatable="1">Contacts</Name>
<Block></Block>
<Type></Type>
<NavBar></NavBar>
<Link>Action=Contact</Link>
<LinkOption></LinkOption>
<AccessKey>l</AccessKey>
<Prio>126</Prio>
</NavBar>
</FrontendModuleReg>
</Setting>
</ConfigItem>
</otrs_config>
+19 replies
+18 replies
+16 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
# -- # Kernel/Modules/Contact.pm # -- package Kernel::Modules::Contact; use strict; sub new { my ( $Type, %Param ) = @_; # allocate new hash for object my $Self = {%Param}; bless( $Self, $Type ); # set debug $Self->{Debug} = 0; # check all needed objects for my $Needed (qw(ParamObject DBObject LayoutObject ConfigObject LogObject)) { if ( !$Self->{$Needed} ) { $Self->{LayoutObject}->FatalError( Message => "Got no $Needed!" ); } } # -- sub Run { my ( $Self, %Param ) = @_; } # build output $Output .= $Self->{LayoutObject}->Output( TemplateFile => 'Contact', Data => \%Param, ); } 1;
+15 replies
1 2 3 4 5 6 7 8 9 10
# -- sub Run { my ( $Self, %Param ) = @_; # build output my $Output = $Self->{LayoutObject}->Output( TemplateFile => 'Contact', Data => \%Param, ); return $Output; }
+14 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
# --
# Kernel/Modules/Contact.pm
# --
package Kernel::Modules::Contact;
use strict;
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {%Param};
bless( $Self, $Type );
# set debug
$Self->{Debug} = 0;
# check all needed objects
for my $Needed (qw(ParamObject DBObject LayoutObject ConfigObject LogObject)) {
if ( !$Self->{$Needed} ) {
$Self->{LayoutObject}->FatalError( Message => "Got no $Needed!" );
}
}
# --
sub Run {
my ( $Self, %Param ) = @_;
# build output
my $Output = $Self->{LayoutObject}->Output(
TemplateFile => 'Contact',
Data => \%Param,
);
return $Output;
}
+13 replies
+12 replies
+11 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
# -- # Kernel/Modules/Contact.pm # -- package Kernel::Modules::Contact; #use strict; sub new { my ( $Type, %Param ) = @_; # allocate new hash for object my $Self = {%Param}; bless( $Self, $Type ); # set debug $Self->{Debug} = 0; # check all needed objects for my $Needed (qw(ParamObject DBObject LayoutObject ConfigObject LogObject)) { if ( !$Self->{$Needed} ) { $Self->{LayoutObject}->FatalError( Message => "Got no $Needed!" ); } } return $Self; } # -- sub Run { my ( $Self, %Param ) = @_; # build output my $Output = $Self->{LayoutObject}->Output( TemplateFile => 'Contact', Data => \%Param, ); return $Output; }
2012-08-07T08:14:54 bendennWarum wird die Contact.pm nicht gefunden? (Sie liegt in dem Verzeichnis Modules)
+9 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+2 replies
<a href="$Env{"Baselink"}Action=Contact" title="$Text{"Contact-A"}">$Text{"Contact"}</a>![[Powered by Battie]](/battie/img/powered.png)
