Added pack to main form.

lib/python/App/appMain.dtml

@@ -13,28 +13,45 @@ application's configuration or data.
 <P>
 <TABLE CELLPADDING="4">
 <TR>
-<TD ALIGN="LEFT" VALIGN="TOP"><B>Process Id:</B></TD>
+<TD ALIGN="LEFT" VALIGN="TOP"><STRONG>Process Id:</STRONG></TD>
 <TD ALIGN="LEFT" VALIGN="TOP"><!--#var process_id--></TD>
 </TR>
 <TR>
-<TD ALIGN="LEFT" VALIGN="TOP"><B>Process Uptime:</B></TD>
+<TD ALIGN="LEFT" VALIGN="TOP"><STRONG>Process Uptime:</STRONG></TD>
 <TD ALIGN="LEFT" VALIGN="TOP"><!--#var process_time--></TD>
 </TR>
 <TR>
-<TD ALIGN="LEFT" VALIGN="TOP"><B>Database Size:</B></TD>
+<TD ALIGN="LEFT" VALIGN="TOP"><STRONG>Database Size:</STRONG></TD>
 <TD ALIGN="LEFT" VALIGN="TOP"><!--#var db_size--></TD>
 </TR>
+
 <TR>
 <TD ALIGN="LEFT" VALIGN="TOP">
 <BR>Click &quot;Shutdown&quot; to shutdown the application..
 </TD>
 <TD ALIGN="LEFT" VALIGN="TOP">
-<FORM ACTION="<!--#var PARENT_URL-->/manage_shutdown"
+<FORM ACTION="manage_shutdown"
  METHOD="POST" TARGET="_top">
 <BR><INPUT TYPE="SUBMIT" VALUE=" Shutdown ">
 </FORM>
 </TD>
 </TR>
+
+<TR>
+<FORM ACTION="manage_pack"
+ METHOD="POST" TARGET="manage_main">
+<TD ALIGN="LEFT" VALIGN="TOP">
+<BR>Click &quot;Pack&quot; to pack the database by removing database
+records previous revisions of objects that are older than
+<input type="text" value="0" name="days:float"> days, and for unused objects.  
+</TD>
+<TD ALIGN="LEFT" VALIGN="TOP">
+<BR><INPUT TYPE="SUBMIT" VALUE=" Pack ">
+</TD>
+</FORM>
+</TR>
+
+
 </TABLE>
 </BODY>
 </HTML>