common: replace html links by common function

[sheet.git] / common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index cd218efe2436d4e6dbc36ec67e196992a5196ccd..bfeb2449fc652a29d718e43595899d72e0cfc8bd 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -159,10 +159,18 @@ sub Html {
        <a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="license copyright"
         title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
 EOT
-               say sprintf '• %.3fs', Time::HiRes::tv_interval($Time) if $Dev;
+               say sprintf '• %.3fs', Time::HiRes::tv_interval($Time) if $Dev and $Time;
                say '</p>';
                say '';
                say '</html>';
        };
 }
 
+sub showlink {
+       my ($title, $href, $selected) = @_;
+       return sprintf(
+               $selected ? '<strong>%s</strong>' : '<a href="%2$s">%s</a>',
+               EscapeHTML($title), EscapeHTML($href)
+       );
+}
+