if ( $Request->ServerVariables("SERVER_NAME")->item() =~ /tempohelp/ ) { my $toc_file = ( $Session->{'usrType'} eq 'Pro' ) ? 'e:\SupportWeb\Content\HELP\PRO\TOC.html' : 'e:\SupportWeb\Content\help\tpo\default\TOC.html'; my $user_type = uc $Session->{'usrType'}; if ($user_type='STD') {$user_type='TPO/default/'} $startpoint=shift(@topicvalues); open TOC, $toc_file; my @toc_lines = ; close TOC; foreach my $line ( @toc_lines ) { $content .= qq^ ^ if ( $line =~ /

(.*?)<\/a>/ ); } $content .= ''; }