gitweb: ensure OPML text fits inside its box

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 412ef1208433f5b6af8757940c667d14c7d4b6a0b074ac67d01c1e75ef819c3c..a1138c1f9cd629f3d3d078a4982be608564c9b6fde16ab2b6bf873d98cd67b58 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -85,6 +85,9 @@ our $project_maxdepth = "++GITWEB_PROJECT_MAXDEPTH++";
 # string of the home link on top of all pages
 our $home_link_str = "++GITWEB_HOME_LINK_STR++";
 
 # string of the home link on top of all pages
 our $home_link_str = "++GITWEB_HOME_LINK_STR++";
 

+# extra breadcrumbs preceding the home link
+our @extra_breadcrumbs = ();
+

 # name of your site or organization to appear in page titles
 # replace this with something more descriptive for clearer bookmarks
 our $site_name = "++GITWEB_SITENAME++"
 # name of your site or organization to appear in page titles
 # replace this with something more descriptive for clearer bookmarks
 our $site_name = "++GITWEB_SITENAME++"


@@ -3983,7 +3986,9 @@ sub print_nav_breadcrumbs_path {
 sub print_nav_breadcrumbs {
        my %opts = @_;
 
 sub print_nav_breadcrumbs {
        my %opts = @_;
 

-       print $cgi->a({-href => esc_url($home_link)}, $home_link_str) . " / ";
+       for my $crumb (@extra_breadcrumbs, [ $home_link_str => $home_link ]) {
+               print $cgi->a({-href => esc_url($crumb->[1])}, $crumb->[0]) . " / ";
+       }

        if (defined $project) {
                my @dirname = split '/', $project;
                my $projectbasename = pop @dirname;
        if (defined $project) {
                my @dirname = split '/', $project;
                my $projectbasename = pop @dirname;