r20275 - /scripts/qa/templates/pkginfo

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Thu May 22 10:51:25 UTC 2008


Author: dmn
Date: Thu May 22 10:51:25 2008
New Revision: 20275

URL: http://svn.debian.org/wsvn/?sc=1&rev=20275
Log:
ok, we need to implement Data::Dumper in TT2

Modified:
    scripts/qa/templates/pkginfo

Modified: scripts/qa/templates/pkginfo
URL: http://svn.debian.org/wsvn/scripts/qa/templates/pkginfo?rev=20275&op=diff
==============================================================================
--- scripts/qa/templates/pkginfo (original)
+++ scripts/qa/templates/pkginfo Thu May 22 10:51:25 2008
@@ -1,3 +1,15 @@
+[% BLOCK show %]
+    [% IF v.keys %]
+        <table>
+            <tr><td>hash not implemented</td></tr>
+        </table>
+    [% ELSIF (v.size > 1) %]
+        array not implemented
+    [% ELSE %]
+        $v.list.0
+    [% END %]
+[% END # BLOCK show %]
+
 <table>
     [% FOREACH s IN sections %]
     <tr><th>$s.title</th></tr>
@@ -6,11 +18,7 @@
     <tr>
         <td>$data.key</td>
         <td>
-            [% IF (not data.value.keys and data.value.size > 1) %]
-            ${data.value.join(', ')}
-            [% ELSE %]
-            $data.value
-            [% END %]
+            [% INCLUDE show v=data.value %]
         </td>
     </tr>
     [% END # FREACH data %]




More information about the Pkg-perl-cvs-commits mailing list