Adding the old test user

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 34 insertions, 0 deletions

diff --git a/user/Test/pub.htc b/user/Test/pub.htc
new file mode 100644
index 0000000..9d5cbf2
--- /dev/null
+++ b/user/Test/pub.htc
@@ -0,0 +1,34 @@
+\clearance{};
+\alias{Publ};
+\cache{\days{1}};
+\ldef{code}{x}{[\1>>16]-[\1&65535]};
+\ldef{fld}{xr}{\on.loc{\1}{\2 [[\1]]}};
+\statopen{aprdb}{data/apr.hdb}
+\page{
+  \db{aprdb}{
+    \table{
+      \query(1){
+        \tr{
+          \td{
+            \code(APR)
+            [title:=\run.local{TITLE}];
+            \if(count URL){\href(URL)(title)}{\bf [title]}
+            <br>
+            \run.local{AUTHOR}
+            \fld{JOURNAL}{,};
+            \fld{BOOKTITLE}{,};
+            \fld{VOLUME}{,};
+            \fld{PAGES}{,};
+            \fld{EDITOR}{,\it Eds.};
+            \fld{PUBLISHER}{,};
+            \fld{ADDRESS}{,};
+            \on.loc{NOTE}{\run.local{NOTE}};
+            (\sub{\time2htc(CTIME)}{20}{4})
+          }
+        }
+      }
+    }
+  }
+}
+
+