Index: /trunk/ippToPsps/config/render.pl
===================================================================
--- /trunk/ippToPsps/config/render.pl	(revision 38935)
+++ /trunk/ippToPsps/config/render.pl	(revision 38936)
@@ -85,5 +85,39 @@
     }
     render_bottom();
-}
+
+}
+
+if (1) { 
+# Begin schema organization form.
+    
+    open(SB,"./schema_browser.vot");
+    my $depth = 0;
+    
+    render_SB_start();
+    while (<SB>) {
+	chomp;
+	
+	if ($_ =~ /<RESOURCE /) {
+	    $depth++;
+	    if ($depth == 1) {
+		render_SB_resource($_);
+	    }
+	    elsif ($depth == 2) {
+		render_SB_table($_);
+	    }
+	}
+	elsif ($_ =~ /<TABLE /) {
+	    if ($depth == 1) {
+		render_SB_table($_);
+	    }
+	}
+	elsif ($_ =~ /<\/RESOURCE>/) {
+	    $depth--;
+	}
+    }
+    close(SB);
+    render_SB_stop();
+}
+
 render_post();
 close RR;
@@ -229,4 +263,45 @@
 }
 
+sub render_SB_start {
+    pRR '\end{landscape}';
+
+    pRR '\newpage';
+    pRR '\vspace*{1in}';   
+    
+    pRR '\setcounter{section}{0}';
+    pRR '\renewcommand\thesection{\Alph{section}}';
+    pRR '\section{Schema Browser Listing}';
+    pRR '\footnotesize';
+#    pRR '\begin{center}';
+    pRR '\begin{longtable}{|l|l|l|}';
+    pRR '\setlength{\LTleft}{0pt}%';
+}
+
+sub render_SB_resource {
+    my $name = $_;
+    $name =~ s/^.*name="//;
+    $name =~ s/">.*$//;
+
+    pRRx '\parbox[t][][t]{2in}{\bf ' . $name . '} & ';
+    pRR '\parbox[t][][t]{3in}{} \\\\ ';
+}
+
+sub render_SB_table {
+    my $name = shift;
+    $name =~ s/^.*name="//;
+    $name =~ s/">.*$//;
+
+    pRRx '\parbox[t][][t]{2in}{} & ';
+    pRR '\parbox[t][][t]{3in}{' . $name . '} \\\\ ';
+}    
+    
+
+sub render_SB_stop {
+    pRR '\end{longtable}';
+    pRR '\normalsize';
+    pRR '\begin{landscape}';
+}
+
+
 sub render_end {
     pRR '\end{longtable}';