grashoper has asked for the wisdom of the Perl Monks concerning the following question:
Here is a piece of sub tHelp.if ($Request->item("Tab")->item() eq "Help") { my $content = '<leftIndex>'; if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /mlxhelp/ + ) { my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'e:\Suppor +tWeb\Nerfherder\Content\HELP\PRO\TOC.html' : 'e:\SupportWeb\Nerfherde +r\Content\HELP\STD\TOC.html'; my $user_type = uc $Session->{'usrType'}; $Response->write("Hello the table of content file is $toc_file"); open TOC, $toc_file; my @toc_lines = <TOC>; close TOC; foreach my $line ( @toc_lines ) { $content .= qq^<rlink tab="Help" script="frames['help_ifra +me'].location.href='Content/HELP/$user_type/$1'" title="$3"> </rlink>^ if ( $line =~ /<p class="pTOC1"><a href="(.*?)"\ +s+target="(.*?)">(.*?)<\/a>/ ); } $content .= '</leftIndex>'; }
I see there are "#" sprinkled throughout this file within the code<a href> tags, could this be part of the problem? since its highlighting added code tagssub tHelp { my $str = ""; $str .= mLeftIndex(); # # Are we Pro? Then set directory to PRO # # if ($Session->{'usrType'} eq 'Pro') { my $target='MLXchange 4.0 professional_frame';#MLX%20Pro%204.0%20Help_ +frame'; #my $startpoint='Content/HELP/PRO/MLX Pro 4.0 Help-01-1.html'; my $startpoint='Content/HELP/PRO/MLX%20Pro%204.0%20Help-01-1.html'; $str.=shadowBox("MLXchange Help", qq^<help_iframe name="$target" start +point="$startpoint"/>^ , ($g_docWidth/5*4-(2*$g_docSpace))); $Response->write(" this is the $target, $startpoint"); return $str; }
|
|---|