browser: rename usage metadata keys

[sheet.git] / browser.plp

diff --git a/browser.plp b/browser.plp
index fbbddde372511b65a08f7053fd65e95dedcc4fc1..6c06a2eb5745e53dc26a140ddae27510cf6aadc2 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -88,8 +88,9 @@ given ($get{usage} // 'wm') {
                break;
        };
        $usage = $_;
                break;
        };
        $usage = $_;

-       my $ref = $canihas->{-source} || 'unknown';
-       $ref = sprintf '<a href="%s">%s</a>', $_, $ref for $canihas->{-url} || ();
+       my $ref = $canihas->{-title} || 'unknown';
+       $ref = sprintf '<a href="%s">%s</a>', $_, $ref
+               for $canihas->{-site} || $canihas->{-source} || ();

        $ref .= " $_" for $canihas->{-date} || ();
        print "\nwith $ref browser usage statistics";
 }
        $ref .= " $_" for $canihas->{-date} || ();
        print "\nwith $ref browser usage statistics";
 }