-- patched files to make package-views available as inlets in XOWIKI

www/package-view.adp

+<if @show_master_p@>
 <master>
-<property name="doc(title)">@title;literal@</property>
-<property name="context">@context;literal@</property>
+<property name=title>@title;noquote@</property>
+<property name="context">@context;noquote@</property>
 <property name="head">
 <style type="text/css">
 td.wide {width:35%;}
 </style>
 </property>
+</if>
+
+<if "" ne @error_message@>
+<!-- <font color=red> -->
+@error_message@
+<!-- </font> -->
+</if>
+
+<if "" ne @version_id@>
+
 @dimensional_slider;noquote@
 
 <if @kind@ eq "procs_files">
@@ -67,3 +78,5 @@ td.wide {width:35%;}
   </multiple>
 </table>
 </if>
+
+</if>
\ No newline at end of file

www/package-view.tcl

@@ -9,7 +9,7 @@ ad_page_contract {
     @creation-date 3 Jul 2000
     @cvs-id $Id$
 } {
-    version_id:naturalnum,notnull
+    { version_id "" }
     { public_p:boolean "" }
     { kind:word "procs_files" }
     { about_package_key:token ""}
@@ -26,6 +26,20 @@ ad_page_contract {
     content_pages:multirow
 }
 
+set error_message ""
+set dimensional_slider ""
+if {![info exists show_master_p]} { set show_master_p 1 }
+
+if {![info exists version_id] || "" == $version_id} {
+    if {[info exists package_key] && "" != $package_key} {
+        set version_id [db_string package_version "select min(version_id) from apm_package_versions where package_key = :package_key" -default ""]
+    }
+}
+
+if {"" == $version_id} { set error_message "Package '$package_key' is not installed on this server, so there is no documentation available." }
+if {"all" == $kind} { set kind "procs_files procs sql_files content" }
+set url "/api-doc"
+
 set public_p [::apidoc::set_public $version_id $public_p]
 
 db_0or1row pretty_name_from_package_id {