From 2246b11904d4b5c83c3fba25e0c79e5e1990cd86 Mon Sep 17 00:00:00 2001
From: Len Kranendonk <len@webgui-svn>
Date: Wed, 25 Feb 2004 12:23:03 +0000
Subject: [PATCH] More fancy preview

---
 lib/WebGUI/Operation/Navigation.pm | 30 +++++++++++++++++++++++++++---
 1 file changed, 27 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Operation/Navigation.pm b/lib/WebGUI/Operation/Navigation.pm
index 0b31ac8af..eae4c7d0a 100644
--- a/lib/WebGUI/Operation/Navigation.pm
+++ b/lib/WebGUI/Operation/Navigation.pm
@@ -221,10 +221,11 @@ sub www_editNavigation {
                 -label=>WebGUI::International::get(29,'Navigation'),
                 -value=>$session{form}{'reverse'} || $config->{'reverse'}
         );
+	# window.open('', 'navPreview', 'toolbar=no,width=400,height=300,status=no,location=no,scrollbars=yes,resizable=yes');
 	my $previewButton = qq{
                            <INPUT TYPE="button" VALUE="Preview" NAME="preview"
                             OnClick="
-                                window.open('', 'navPreview', 'toolbar=no,width=400,height=300,status=no,location=no,scrollbars=yes,resizable=yes');
+                                window.open('', 'navPreview', 'toolbar=no,status=no,location=no,scrollbars=yes,resizable=yes');
                                 this.form.op.value='previewNavigation';
                                 this.form.target = 'navPreview';
                                 this.form.submit()">};
@@ -292,8 +293,10 @@ sub www_listNavigation {
         return _submenu($output);
 }
 
+#-------------------------------------------------------------------
 sub www_previewNavigation {
-	$session{page}{useEmptyStyle} = 1;
+	#$session{page}{useEmptyStyle} = 1;
+	$session{page}{useAdminStyle} = 1;
 	$session{var}{adminOn} = 0;
 	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(3));
 	my $nav = WebGUI::Navigation->new(	depth=>$session{form}{depth},
@@ -306,7 +309,28 @@ sub www_previewNavigation {
 						showUnprivilegedPages=>$session{form}{showUnprivilegedPages},
 	                       			'reverse'=>$session{form}{'reverse'},
                                 );
-	return $nav->build;
+	my $output = qq(
+		<h1>Navigation Preview</h1>
+		<table width="100%" border="0" cellpadding="5" cellspacing="0">
+		<tr><td class="tableHeader" valign="top">
+		Configuration
+		</td><td class="tableHeader" valign="top">Output</td></tr>
+		<tr><td class="tableData" valign="top">
+		<font size=1>
+			Identifier: $session{form}{identifier}<br>
+			startAt: $session{form}{startAt}<br>
+			method: $session{form}{method}<br>
+			stopAtLevel: $session{form}{stopAtLevel}<br>
+			depth: $session{form}{depth}<br>
+			templateId: $session{form}{templateId}<br>
+			reverse: $session{form}{'reverse'}<br>
+			showSystemPages: $session{form}{showSystemPages}<br>
+			showHiddenPages: $session{form}{showHiddenPages}<br>
+			showUnprivilegedPages: $session{form}{showUnprivilegedPages}<br>
+		</font>
+		</td><td class="tableData" valign="top">
+		) . $nav->build . qq(</td></tr></table>);
+	return $output; 
 }
 
 1;