Hi RT Users,
i think i'm a little lost in RT Coding Space.
I have create a html page inside rt/local/html directory. This is working fine
so far. Now I try to embed some perl code and for this I grabbed something like
this from another page to have an idea how the RT guys doing this:
%#
%# END BPS TAGGED BLOCK }}}
<& /Admin/Elements/Header, Title => loc('RT Administration') &>
<& /Admin/Elements/Tabs, Title => loc('RT Administration') &>
<ul>
% foreach my $key (sort keys %$tabs) {
<li><span><a href="<%$RT::WebPath%>/<%$tabs->{$key}->{'path'}|n
%>"><%$tabs->{$key} ->{'title'}%></a></span><br />
<%$tabs->{$key}->{description}%>
</li>
%}
</ul>
<%init>
Now I have tried to implement this in my page:
<& /Elements/Header,
Title => loc("Request for Change"),
Refresh => $session{'home_refresh_interval'} &>
<& /RFC/Elements/Tabs,
current_tab => 'index.html',
Title => loc("Request For Change") &>
.
.
.
Some html code
.
.
<td style="vertical-align: middle;">
<span style="font-weight: bold;">
%if ($HasMemberBA) {
<a href="ba/index.html">Business Application Change</a>
%} else {
<a href="mailto:[EMAIL
PROTECTED]@company.com&subject=Access%20to%20RfC%20Type%20Business%20Application%20needed">Business
Application</a>
%}
</span>
</td>
.
.
.
Some more html code
.
.
<%INIT>
my $GroupObjAO = RT::Group->new( $session{ 'CurrentUser' } );
my $GroupObjBA = RT::Group->new( $session{ 'CurrentUser' } );
my $GroupObjGE = RT::Group->new( $session{ 'CurrentUser' } );
my $GroupObjOQ = RT::Group->new( $session{ 'CurrentUser' } );
my $GroupObjRJ = RT::Group->new( $session{ 'CurrentUser' } );
my $GroupObjUA = RT::Group->new( $session{ 'CurrentUser' } );
my $PrincipalObj = RT::Principal->new( $session{ 'CurrentUser' } );
$PrincipalObj->Load( $session{ 'CurrentUser' }->id );
$GroupObjAO->LoadUserDefinedGroup( 'RFC-AUTH-AO' );
my $HasMemberAO = $GroupObjAO->HasMemberRecursively( $PrincipalObj );
$GroupObjBA->LoadUserDefinedGroup( 'RFC-AUTH-BA' );
my $HasMemberBA = $GroupObjBA->HasMemberRecursively( $PrincipalObj );
$GroupObjGE->LoadUserDefinedGroup( 'RFC-AUTH-GE' );
my $HasMemberGE = $GroupObjGE->HasMemberRecursively( $PrincipalObj );
$GroupObjOQ->LoadUserDefinedGroup( 'RFC-AUTH-OQ' );
my $HasMemberOQ = $GroupObjOQ->HasMemberRecursively( $PrincipalObj );
$GroupObjRJ->LoadUserDefinedGroup( 'RFC-AUTH-RJ' );
my $HasMemberRJ = $GroupObjRJ->HasMemberRecursively( $PrincipalObj );
$GroupObjUA->LoadUserDefinedGroup( 'RFC-AUTH-UA' );
my $HasMemberUA = $GroupObjUA->HasMemberRecursively( $PrincipalObj );
</%INIT>
The result of this page looks like this:
Business Application Change - install, change or delete business applications
%if ($HasMemberBA) { Business Application Change
<http://rt36-messenger.int.kn/RFC/ba/index.html> %} else { Business
Application <mailto:[EMAIL
PROTECTED]@kuehne-nagel.com&subject=Access%20to%20RfC%20Type%20Business%20Application%20needed>
%}
So, it looks like the perl part was not parsed from RT. Its displaying pure
html all perl code parts are text in this case.
Any ideas or hints?
Thanks
Torsten
--
Thanks in advance
....
: Torsten Brumm
:
: Kuehne + Nagel
: HAM - MI-ID
:
: Bauerbergweg 23-25
: 22111 Hamburg
:
: +49 (40) 30333 3199
: +49 (40) 30333 44 3199
:
: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
: www.kn-portal.com <http://www.kn-portal.com>
: icq: 78258840
....
Kühne + Nagel (AG & Co.) KG, Geschäftsleitung: Hans-Georg Brinkmann (Vors.),
Uwe Bielang (Stellv.), Dr. Björn
Johansson (Stellv.), Bruno Mang, Alfred Manke, Thorsten Meincke, Mark Reinhardt
(Stellv.), Tim Scharwath, Jens
Wollesen Sitz: Bremen, Registergericht: Bremen, HRA 21928, USt-IdNr.: DE
812773878, Persönlich haftende
Gesellschaft: Kühne & Nagel A.G., Sitz: Contern/LuxemburgGeschäftsführender
Verwaltungsrat: Klaus-Michael
Kühne
_______________________________________________
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
Community help: http://wiki.bestpractical.com
Commercial support: [EMAIL PROTECTED]
Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
Buy a copy at http://rtbook.bestpractical.com
