sub evalDealView {
    my $string;my $string2;
    my $content;
    my $username = $query->param("username");
	$lang = $query->param("lang");
	loadLanguage();
    my $index_a = $tableArticle->loadEvalBuyPositivIndex();#print "Content-Type: text/html\n\n";
    my $table_a = $tableArticle->loadEvalBuyPositivTable();    
    my $index_b = $tableArticle->loadEvalBuyNegativIndex();
    my $table_b = $tableArticle->loadEvalBuyNegativTable();    

    open (FILE, "<$dir/evaldealview.html") or die "cannot open file $dir/evaldealview.html";
	while (<FILE>) {	
	    #s/\$LABEL{'([\w]+)'}/ exists $SERVER{$1} ? $SERVER{$1} : $1 /eg; 
	    s/\$LANG/$lang/g;
	    s/\$ARTICLE{'evaldealviewindex'}/$index_a/g;
	    s/\$ARTICLE{'evaldealviewtable'}/$table_a/g;
	    s/\$ARTICLE{'evaldealviewnegindex'}/$index_b/g;
	    s/\$ARTICLE{'evaldealviewnegtable'}/$table_b/g;	    
	    s/\$ERROR{'([\w]+)'}/g;
	    $content .= $_;	
	}
	return $content;
}