r8927 - /scripts/qa/qareport-cgi
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue Nov 6 21:37:19 UTC 2007
Author: dmn
Date: Tue Nov 6 21:37:19 2007
New Revision: 8927
URL: http://svn.debian.org/wsvn/?sc=1&rev=8927
Log:
"Valid XHTML"; BTS-link is floating at right; should be runnable both as CGI and stand-alone
Modified:
scripts/qa/qareport-cgi
Modified: scripts/qa/qareport-cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport-cgi?rev=8927&op=diff
==============================================================================
--- scripts/qa/qareport-cgi (original)
+++ scripts/qa/qareport-cgi Tue Nov 6 21:37:19 2007
@@ -86,7 +86,7 @@
print $cgi->header(
-content_type => 'text/html; charset=utf-8',
-);
+) if $ENV{GATEWAY_INTERFACE};
my $tt = new Template({INTERPOLATE=>1});
$tt->process(
@@ -104,38 +104,42 @@
exit 0;
__END__
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+[% BLOCK bts_link %]
+[% IF data.bts.$pkg.size %]<a style="float:right; margin-left: 2pt;" href="http://bugs.debian.org/$pkg">BTS</a>[% END #IF bugs %]
+[% END #BLOCK bts_link %]
[% BLOCK package %]
[% SET arch_ver = data.archive.$pkg.most_recent %]
[% SET svn_ver = data.svn.$pkg.version %]
<tr>
<td>$pkg</td>
<td><a href="http://svn.debian.org/wsvn/pkg-perl/trunk/$pkg/debian/changelog?op=file&rev=0&sc=0">$svn_ver</a></td>
- <td>[% IF arch_ver %]<a href="http://packages.qa.debian.org/$pkg">$arch_ver[% END #IF %]</a></td>
+ <td>[% INCLUDE bts_link data=data pkg=pkg %][% IF arch_ver %]<a href="http://packages.qa.debian.org/$pkg">$arch_ver</a>[% END #IF %]</td>
<td>${data.watch.$pkg.upstream_mangled}</td>
</tr>
-</tr>
[% END #BLOCK package %]
[% BLOCK section %]
[% IF list.size %]
- <tr>
- <th colspan="4" class="clickable"><a href="javascript:toggle_visibility('$name')">$title ($list.size)</a></th>
- </tr>
+ <tbody>
+ <tr>
+ <th colspan="4" class="clickable"><a href="javascript:toggle_visibility('$name')">$title ($list.size)</a></th>
+ </tr>
+ </tbody>
<tbody id="$name">
- <tr>
- <th>Package</th>
- <th>Repository</th>
- <th>Archive</th>
- <th>Upstream</th>
- </tr>
- [% FOREACH pkg IN list %]
- [% INCLUDE package pkg=pkg data=data %]
- [% END #FOREACH list %]
+ <tr>
+ <th>Package</th>
+ <th>Repository</th>
+ <th>Archive</th>
+ <th>Upstream</th>
+ </tr>
+ [% FOREACH pkg IN list %]
+ [% INCLUDE package pkg=pkg data=data %]
+ [% END #FOREACH list %]
</tbody>
[% END #IF list.size %]
[% END #BLOCK section %]
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
- "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>pkg-perl packages overview</title>
@@ -179,5 +183,10 @@
[% INCLUDE section data=data list=wip name="wip" title="Work in progress" %]
[% INCLUDE section data=data list=with_bugs name="with_bugs" title="With bugs" %]
</table>
+<p>
+ <a href="http://validator.w3.org/check?uri=referer"><img
+ src="http://www.w3.org/Icons/valid-xhtml10-blue"
+ alt="Valid XHTML 1.0 Strict" height="31" width="88" /></a>
+</p>
</body>
</html>
More information about the Pkg-perl-cvs-commits
mailing list