5db5051808
This test pair was probably written because the perl tokenizer failed miserably. But I don't quite remember why. git-svn-id: svn://10.0.0.236/trunk@209632 18797224-902f-48f8-a5cc-f745e15eee43
19 lines
525 B
Perl
19 lines
525 B
Perl
#!/usr/bin/perl
|
|
sub linetag {
|
|
#$frag =~ s/\n/"\n".&linetag($virtp.$fname, $line)/ge;
|
|
# my $tag = '<a href="'.$_[0].'#L'.$_[1].
|
|
# '" name="L'.$_[1].'">'.$_[1].' </a>';
|
|
my $tag;
|
|
$tag = '<span class=line>';
|
|
$tag .= ' ' if $_[1] < 10;
|
|
$tag .= ' ' if $_[1] < 100;
|
|
$tag .= ' ' if $_[1] < 1000;
|
|
$tag .= &fileref($_[1], $_[0], $_[1]). ' ';
|
|
$tag .= '</span>';
|
|
$tag .= &fileref($_[1], $_[0], $_[1]).' ';
|
|
$tag .= '</span>';
|
|
$tag =~ s/<a/<a name=$_[1]/;
|
|
# $_[1]++;
|
|
return($tag);
|
|
}
|