Index: openacs-4/packages/acs-reference/www/table-detail.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-reference/www/table-detail.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-reference/www/table-detail.adp	1 Oct 2001 04:32:24 -0000	1.1
@@ -0,0 +1,3 @@
+<master>
+<property name="context_bar">@context_bar@</property>
+<property name="title">@title@</property>
Index: openacs-4/packages/acs-reference/www/table-detail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-reference/www/table-detail.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-reference/www/table-detail.tcl	1 Oct 2001 04:32:24 -0000	1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+    This page views the table structure
+    
+    @param table_name 
+    @author Jon Griffin (jon@jongriffin.com)
+    @creation-date 17 Sept 2001
+    @cvs-id $Id: table-detail.tcl,v 1.1 2001/10/01 04:32:24 jong Exp $
+} {
+    table_name:notnull
+} -properties {
+    context_bar:onevalue
+    package_id:onevalue
+    user_id:onevalue
+    table_info:onerow
+}
+
+set package_id [ad_conn package_id]
+set title "View one Table Structure"
+set context_bar [list [list "reference-list" "Reference List" ] "$title"]
+set user_id [ad_verify_and_get_user_id]
+
+
+ad_return_template
\ No newline at end of file
Index: openacs-4/packages/acs-reference/www/view-one-reference.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-reference/www/view-one-reference.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-reference/www/view-one-reference.adp	1 Oct 2001 04:31:47 -0000	1.1
@@ -0,0 +1,36 @@
+<master>
+<property name="context_bar">@context_bar@</property>
+<property name="title">@title@</property>
+
+<table>
+<tr><th valign=top align=right>Table Name</th>
+<td> <a href="table-detail?table_name=@table_info.table_name@">@table_info.table_name@</a> </td></tr>
+
+<tr><th valign=top align=right>Package Name</th>
+<td> @table_info.package_name@ </td></tr>
+
+<tr><th valign=top align=right>Internal Data?</th>
+<td> @table_info.internal_data_p@ </td></tr>
+
+<tr><th valign=top align=right>Source</th>
+<td> @table_info.source@ </td></tr>
+
+<tr><th valign=top align=right>Source URL</th>
+<td> @table_info.source_url@ </td></tr>
+
+<tr><th valign=top align=right>Last Update</th>
+<td> @table_info.last_update@ </td></tr>
+
+<tr><th valign=top align=right>Effective Date</th>
+<td> @table_info.effective_date@ </td></tr>
+
+<tr><th valign=top align=right>Expiry Date</th>
+<td> @table_info.expiry_date@ </td></tr>
+
+<tr><th valign=top align=right>Maintainer</th>
+<td> @table_info.maintainer_id@ </td></tr>
+
+</table>
+
+
+
Index: openacs-4/packages/acs-reference/www/view-one-reference.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-reference/www/view-one-reference.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-reference/www/view-one-reference.tcl	1 Oct 2001 04:31:47 -0000	1.1
@@ -0,0 +1,37 @@
+ad_page_contract {
+    This page views one table of reference data
+    
+    @param repository_id 
+    @author Jon Griffin (jon@jongriffin.com)
+    @creation-date 17 Sept 2001
+    @cvs-id $Id: view-one-reference.tcl,v 1.1 2001/10/01 04:31:47 jong Exp $
+} {
+    repository_id:integer,notnull
+} -properties {
+    context_bar:onevalue
+    package_id:onevalue
+    user_id:onevalue
+    table_info:onerow
+}
+
+set package_id [ad_conn package_id]
+set title "View one Table"
+set context_bar [list [list "reference-list" "Reference List" ] "$title"]
+set user_id [ad_verify_and_get_user_id]
+
+db_1row get_table {
+    select repository_id,
+    table_name,
+    internal_data_p,
+    package_name,
+    last_update,
+    source,
+    source_url,
+    effective_date,
+    expiry_date,
+    maintainer_id
+    from acs_reference_repositories r,cc_users u
+    where repository_id= :repository_id
+} -column_array table_info
+
+ad_return_template