render qr on retrieval

util-sqlpage/sqlpage/QR.sql

@@ -1,3 +1,5 @@
+SET qr = COALESCE($qr, '<img src="/static/'||$tool||'/qr.svg"/>');
+
 SELECT 'text' AS component
 , '<div class="pure-g" sty>
   <div class="pure-u-1">

util-sqlpage/sqlpage/Style.sql

@@ -3,7 +3,7 @@ SELECT 'text' AS component
 body .pure-g {
     text-align: center
 }
-details svg {
+details svg, details img {
     background-color: white
 }
 .code-component pre {

util-sqlpage/sqlpage/validate.sql

@@ -8,6 +8,16 @@ FROM goto
 WHERE hash = $hash AND $tool = 'goto'
 );
 
+SET qr = (
+SELECT qr
+FROM clip
+WHERE hash = $hash AND $tool = 'clip'
+UNION
+SELECT qr
+FROM goto
+WHERE hash = $hash AND $tool = 'goto'
+);
+
 SET inner = CASE COALESCE($content,'') = ''
   WHEN TRUE THEN 'sqlpage/alert.sql'
   ELSE $tool||'/form.sql'