Generate client-area text before emitting scaffolding, so that actions

[irspy-moved-to-github.git] / web / htdocs / chrome / layout.mc
diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc

index 6cb7ec8..b99cb80 100644 (file)
--- a/web/htdocs/chrome/layout.mc
+++ b/web/htdocs/chrome/layout.mc
@@ -1,4 +1,4 @@
-%# $Id: layout.mc,v 1.36 2007-07-13 16:07:52 mike Exp $
+%# $Id: layout.mc,v 1.38 2007-07-17 13:07:57 mike Exp $
  <%args>
  $debug => undef
  $title
@@ -15,6 +15,7 @@ use ZOOM::IRSpy::Utils qw(utf8param isodate xml_encode cql_target cql_quote
                           bib1_access_point);
  </%once>
  % $r->content_type("text/html; charset=utf-8");
+% my $text = $m->scomp($component, %ARGS);
  <?xml version="1.0" encoding="UTF-8"?>
  <!DOCTYPE html 
       PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
@@ -65,8 +66,8 @@ use ZOOM::IRSpy::Utils qw(utf8param isodate xml_encode cql_target cql_quote
        <a href="/"><b>Home</b></a><br/>
        <a href="/admin/all.html">Test&nbsp;all&nbsp;targets</a><br/>
        <a href="/find.html">Find a target</a><br/>
-      <a href="/admin/edit.html?op=new">Add a target</a><br/>
-      <a href="/admin/upload.html">Upload a target</a><br/>
+      <a href="/add.html">Add a target</a><br/>
+      <a href="/upload.html">Upload a target</a><br/>
        <a href="/stats.html">Statistics</a><br/>
       </p>
       <p>
@@ -144,7 +145,7 @@ my $id = utf8param($r, "id");
      </td>
      <td class="spacer">&nbsp;</td>
      <td valign="top">
-<& $component, %ARGS &>
+% print $text;
      </td>
     </tr>
    </table>