In linked_title:
my (@dirs, $dir, $output, $path, $last);
@dirs = split (/\//, $input);
$last = &build_clean(pop @dirs);
$output = qq| <A HREF="$build_root_url/">Directory</A>:|;
foreach $dir (@dirs) {
$path .= "/$dir";
$dir = &build_clean ($dir);
$output .= qq| <A HREF="$build_root_url$path/">$dir</A>:|;
}
$output .= " $last";
return $output;
}Which part of this makes the last subcategory in Category: subcategory: last subcategory
I would like to make it read like this
Category: subcategory: last subcategory
(bold & larger type size)
Code:
my $input = shift; my (@dirs, $dir, $output, $path, $last);
@dirs = split (/\//, $input);
$last = &build_clean(pop @dirs);
$output = qq| <A HREF="$build_root_url/">Directory</A>:|;
foreach $dir (@dirs) {
$path .= "/$dir";
$dir = &build_clean ($dir);
$output .= qq| <A HREF="$build_root_url$path/">$dir</A>:|;
}
$output .= " $last";
return $output;
}
I would like to make it read like this
Category: subcategory: last subcategory
(bold & larger type size)