Try:
my $tags = shift;
my $total = $tags->{total};
my $high = $Links::CFG->{build_links_per_page};
my $low = 1;
my $name = $tags->{Full_Name};
$name =~ s/\//\: /g;
$name =~ s/$name/$name: Page /g;
my $page = $tags->{title};
$page =~ s/$name//g;
if ($page > 1) {
$low = (($page - 1) * $high) + 1;
}else{
$page = 1;
}
my $top = ($high + $low > $total) ? $total : (($high + $low) - 1);
$low =~ s/^([-+]?\d+)(\d{3})/$1,$2/;
$top =~ s/^([-+]?\d+)(\d{3})/$1,$2/;
$total =~ s/^([-+]?\d+)(\d{3})/$1,$2/;
return "$low - $top of $total";
}
Sean
Code:
sub { my $tags = shift;
my $total = $tags->{total};
my $high = $Links::CFG->{build_links_per_page};
my $low = 1;
my $name = $tags->{Full_Name};
$name =~ s/\//\: /g;
$name =~ s/$name/$name: Page /g;
my $page = $tags->{title};
$page =~ s/$name//g;
if ($page > 1) {
$low = (($page - 1) * $high) + 1;
}else{
$page = 1;
}
my $top = ($high + $low > $total) ? $total : (($high + $low) - 1);
$low =~ s/^([-+]?\d+)(\d{3})/$1,$2/;
$top =~ s/^([-+]?\d+)(\d{3})/$1,$2/;
$total =~ s/^([-+]?\d+)(\d{3})/$1,$2/;
return "$low - $top of $total";
}
Sean