implemented intro display/editing of home section

[busy] / Home.page

diff --git a/Home.page b/Home.page
index 8815d1ccedeb3614586089ea41a41979111f56c4..6eef2296997a2da50fe28ff1b6bbfa623314fc89 100644 (file)
--- a/Home.page
+++ b/Home.page
@@ -3,12 +3,32 @@
 cat <<HomeEND
   <div id="LEFT">
   </div>
-  <div id="RIGHT">
-  </div>
 
-  <div id="INTRO">
+  <div id="MAIN">
+    <div id="INTRO">
+      <div id="introtext">
+      $([ -r "Home/intro" ] && _wiki "Home/intro")
+      $($ADM && echo "<hr><a class='function' href='#' onclick='javascript:hide_screen(\"introtext\");show_screen(\"introedit\");'>Edit</a>" )
+      </div>
+HomeEND
+$ADM && cat <<HomeEND
+      <div id="introedit" style="display: none;">
+        <form action="/write/introedit.cgi" method="post" accept-charset="UTF-8">
+          <textarea name="intro" rows="10">$([ -r "Home/intro" ] && cat Home/intro)</textarea><br>
+          <input type="submit">
+          <a class="function" href="#" onclick="javascript:hide_screen('introedit');show_screen('introtext');">Cancel</a>
+        </form>
+      </div>
+HomeEND
+cat <<HomeEND
+    </div>
+  
+    $(stat -c '' Home/<0000000000-9999999999>-<000-999>.news && for each in $(ls -c News/<0000000000-9999999999>-<000-999>); do
+      echo '<div id="NEWS">'
+      _wiki "$each"
+      echo '</div>'
+    done)
+  </div>
+  <div id="RIGHT">
   </div>
-
-  <div class="News">
-  <div>
 HomeEND