]> git.deb.at Git - deb/packages.git/commitdiff
projects / deb / packages.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: d7e4f01)
Use local files instead of www.debian.org ones.
authorFrank Lichtenheld <frank@lichtenheld.de>
Mon, 6 Feb 2006 01:38:02 +0000 (01:38 +0000)
committerFrank Lichtenheld <frank@lichtenheld.de>
Mon, 6 Feb 2006 01:38:02 +0000 (01:38 +0000)
Fix handling of packages with missing source package.

lib/Packages/HTML.pm patch | blob | history

diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm
index 74939717c97280668bf871d405e6b4c593571912..90c95691805b873655feeafca185a9cb08d1ad48 100644 (file)
--- a/lib/Packages/HTML.pm
+++ b/lib/Packages/HTML.pm
@@ -72,7 +72,7 @@ sub pdeplegend {
     my $str = "<table border=\"1\" summary=\"legend\"><tr>\n";
 
     foreach my $entry (@_) {
-       $str .= "<td><img src=\"../../Pics/$entry->[0].gif\" alt=\"[$entry->[0]]\" width=\"16\" height=\"16\">= $entry->[1]</td>";
+       $str .= "<td><img src=\"$ROOT/Pics/$entry->[0].gif\" alt=\"[$entry->[0]]\" width=\"16\" height=\"16\">= $entry->[1]</td>";
     }
 
     $str .= "\n</tr></table>\n";
@@ -187,29 +187,31 @@ sub pmoreinfo {
    }
 
     if ($info{maintainers}) {
-       my @uploaders = @{$page->get_src( 'uploaders' )};
-       foreach (@uploaders) {
-           $_->[0] = encode_entities( $_->[0], '&<>' );
-       }
-       my ($maint_name, $maint_mail ) = @{shift @uploaders}; 
-       unless (@uploaders) {
-           $str .= "<p>\n".sprintf( gettext( "%s is responsible for this Debian package." ).
-                                    "\n",
-                                    "<a href=\"mailto:$maint_mail\">$maint_name</a>" 
-                                    );
-       } else {
-           my $up_str = "<a href=\"mailto:$maint_mail\">$maint_name</a>";
-           my @uploaders_str;
-           foreach (@uploaders) {
-               push @uploaders_str, "<a href=\"mailto:$_->[1]\">$_->[0]</a>";
+       my $uploaders = $page->get_src( 'uploaders' );
+       if ($uploaders && @$uploaders) {
+           foreach (@$uploaders) {
+               $_->[0] = encode_entities( $_->[0], '&<>' );
+           }
+           my ($maint_name, $maint_mail) = @{shift @$uploaders}; 
+           unless (@$uploaders) {
+               $str .= "<p>\n".sprintf( gettext( "%s is responsible for this Debian package." ).
+                                        "\n",
+                                        "<a href=\"mailto:$maint_mail\">$maint_name</a>" 
+                                        );
+           } else {
+               my $up_str = "<a href=\"mailto:$maint_mail\">$maint_name</a>";
+               my @uploaders_str;
+               foreach (@$uploaders) {
+                   push @uploaders_str, "<a href=\"mailto:$_->[1]\">$_->[0]</a>";
+               }
+               my $last_up = pop @uploaders_str;
+               $up_str .= ", ".join ", ", @uploaders_str if @uploaders_str;
+               $up_str .= sprintf( gettext( " and %s are responsible for this Debian package." ), $last_up );
+               $str .= "<p>\n$up_str ";
            }
-           my $last_up = pop @uploaders_str;
-           $up_str .= ", ".join ", ", @uploaders_str if @uploaders_str;
-           $up_str .= sprintf( gettext( " and %s are responsible for this Debian package." ), $last_up );
-           $str .= "<p>\n$up_str ";
        }
 
-       $str .= sprintf( gettext( "See the <a href=\"%s\">developer information for %s</a>." )."</p>", $QA_URL.$source, $name );
+       $str .= sprintf( gettext( "See the <a href=\"%s\">developer information for %s</a>." )."</p>", $QA_URL.$source, $name ) if $source;
     }
 
     if ($info{search}) {
@@ -501,7 +503,7 @@ MENU
 $KEYWORDS_LINE
 $DESC_LINE
 $meta
-<link href="$HOME/debian.css" rel="stylesheet" type="text/css" media="all">
+<link href="$ROOT/debian.css" rel="stylesheet" type="text/css" media="all">
 </head>
 <body>
 <div id="header">