Added new navigation system

etc/WebGUI.conf.original

@@ -46,6 +46,7 @@ macros = a => a_account, \
 	LoginToggle => LoginToggle, \
 	m => m_currentMenuHorizontal, \
 	M => M_currentMenuVertical, \
+	Navigation => Navigation, \
 	PageTitle => PageTitle, \
 	PreviousDropMenu => PreviousDropMenu, \
 	p => p_previousMenuHorizontal, \

lib/WebGUI/Macro/AdminBar.pm

@@ -138,6 +138,7 @@ sub process {
 			WebGUI::URL::page('op=listUsers')=>WebGUI::International::get(7),
 			WebGUI::URL::page('op=viewStatistics')=>WebGUI::International::get(144),
 			WebGUI::URL::page('op=listDatabaseLinks')=>WebGUI::International::get(981),
+			WebGUI::URL::page('op=listNavigation')=>'Manage navigation.'
 		);
 	} elsif (WebGUI::Privilege::isInGroup(11)) {
                 %hash = (

lib/WebGUI/Macro/Navigation.pm

@@ -0,0 +1,34 @@
+package WebGUI::Macro::Navigation;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2003 Plain Black LLC.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use WebGUI::Macro;
+use WebGUI::Session;
+use WebGUI::Navigation;
+
+#-------------------------------------------------------------------
+sub process {
+        my @param = WebGUI::Macro::getParams($_[0]);
+
+	my $identifier = $param[0];
+	if ($identifier eq '') {
+		return WebGUI::Macro::negate(WebGUI::International::get(35,'Navigation'));
+	} else {
+		my $navigation = WebGUI::Navigation->new(identifier=>$identifier);
+		return $navigation->view;
+	}
+}
+
+
+1;
+
+

lib/WebGUI/Operation/Navigation.pm

@@ -0,0 +1,287 @@
+package WebGUI::Operation::Navigation;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2003 Plain Black LLC.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use Exporter;
+use strict;
+use Tie::IxHash;
+use Tie::CPHash;
+use WebGUI::DateTime;
+use WebGUI::HTMLForm;
+use WebGUI::Icon;
+use WebGUI::International;
+use WebGUI::Macro;
+use WebGUI::Operation::Shared;
+use WebGUI::Session;
+use WebGUI::SQL;
+use WebGUI::URL;
+use WebGUI::Utility;
+use WebGUI::Navigation;
+use WebGUI::TabForm;
+use WebGUI::ErrorHandler;
+use WebGUI::Privilege;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(&www_listNavigation &www_editNavigation &www_editNavigationSave &www_copyNavigation
+		 &www_deleteNavigation www_deleteNavigationConfirm);
+
+#-------------------------------------------------------------------
+sub _submenu {
+        my (%menu);
+        tie %menu, 'Tie::IxHash';
+	$menu{WebGUI::URL::page('op=editNavigation')} = 'Add new Navigation.';
+	if (($session{form}{op} eq "editNavigation" && $session{form}{navigationId} ne "new") || $session{form}{op} eq "deleteNavigationConfirm") {
+                $menu{WebGUI::URL::page('op=editNavigation&identifier='.$session{form}{identifier})} = 
+			WebGUI::International::get(18, 'Navigation');
+                $menu{WebGUI::URL::page('op=copyNavigation&navigationId='.$session{form}{navigationId})} =
+			WebGUI::International::get(19, 'Navigation');
+                $menu{WebGUI::URL::page('op=deleteNavigation&navigationId='.$session{form}{navigationId})} =
+			WebGUI::International::get(20, 'Navigation');
+        }
+        $menu{WebGUI::URL::page('op=listNavigation')} = WebGUI::International::get(21, 'Navigation');
+        return menuWrapper($_[0],\%menu);
+}
+
+#-------------------------------------------------------------------
+sub www_copyNavigation {
+	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(3));
+	my %navigation = WebGUI::SQL->quickHash("select * from Navigation where identifier = ".
+							quote($session{form}{identifier}));
+	WebGUI::SQL->write("insert into Navigation (navigationId, identifier, depth, method, startAt, stopAtLevel,
+						templateId, showSystemPages, showHiddenPages, showUnprivilegedPages,
+						reverse)
+		values (".getNextId("navigationId").",
+                        ".quote('Copy of '.$navigation{identifier}).", $navigation{depth}, ".quote($navigation{method}).
+			", ".quote($navigation{startAt}).", $navigation{stopAtLevel}, $navigation{templateId}, 
+			$navigation{showSystemPages}, $navigation{showHiddenPages},$navigation{showUnprivilegedPages},
+			$navigation{reverse})");
+	return www_listNavigation();
+}
+
+#-------------------------------------------------------------------
+sub www_deleteNavigation {
+	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(3));
+	if ($session{form}{navigationId} < 1000 && $session{form}{navigationId} > 0) {
+		return WebGUI::Privilege::vitalComponent();
+	}
+	my $output .= '<h1>'.WebGUI::International::get(42).'</h1>';
+        $output .= WebGUI::International::get(502).'<p>';
+        $output .= '<div align="center"><a href="'.
+                   WebGUI::URL::page('op=deleteNavigationConfirm&navigationId='.$session{form}{navigationId})
+                   .'">'.WebGUI::International::get(44).'</a>';
+        $output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.WebGUI::URL::page('op=listNavigation').'">'.
+				WebGUI::International::get(45).'</a></div>';
+        return _submenu($output);
+}
+
+#-------------------------------------------------------------------
+sub www_deleteNavigationConfirm {
+        return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(3));
+        if ($session{form}{navigationId} < 1000 && $session{form}{navigationId} > 0) {
+                return WebGUI::Privilege::vitalComponent();
+        }
+	WebGUI::SQL->write("delete from Navigation where navigationId = $session{form}{navigationId}");
+	return www_listNavigation();
+}
+
+#-------------------------------------------------------------------
+sub www_editNavigation {
+	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(3));
+
+	my $identifier = shift || $session{form}{identifier};
+	#return  WebGUI::ErrorHandler::warn("editNavigation called without identifier") unless $identifier;	
+
+	my $config = WebGUI::Navigation::getConfig($identifier);
+	if ($config->{identifier}) {
+		# Existing config
+	} else {
+		$config->{navigationId} = 'new';
+		$config->{identifier} = $identifier || 'myIdentifier';
+		$config->{depth} = 99;
+		$config->{method}  = 'descendants';
+		$config->{startAt} = 'current';
+		$config->{stopAtLevel} = -1;
+		$config->{templateId} = 1;
+		$config->{showSystemPages} = 0;
+		$config->{showHiddenPages} = 0;
+		$config->{showUnprivilegedPages} = 0;
+		$config->{'reverse'} = 0;
+	}
+	my $output = '<h1>'.WebGUI::International::get(22, 'Navigation').'</h1>';
+	tie my (%tabs) , 'Tie::IxHash';
+	%tabs = (
+		properties=>{
+				label=>WebGUI::International::get(23, 'Navigation'),
+			  },
+		layout=>{
+				label=>WebGUI::International::get(105),
+			},
+		);
+	
+	my $f = WebGUI::TabForm->new(\%tabs);
+	$f->hidden({name=>'op', value=>'editNavigationSave'});
+	$f->hidden({name=>'navigationId', value=>$config->{navigationId}});
+	$f->getTab("properties")->readOnly(
+		-value=>$config->{navigationId},
+                -label=>'navigationId'
+                );
+
+	$f->getTab("properties")->text(
+		-name=>'identifier',
+		-value=>$config->{identifier},
+		-label=>WebGUI::International::get(24, 'Navigation')
+		);
+
+	my $startAt = $session{form}{startAt} || $config->{startAt};
+	my $levels = WebGUI::Navigation::getLevelNames();
+	
+	# If an alternate value for startAt is specified, add that to the options list as well.
+	$levels->{$startAt} = $startAt if (not defined $levels->{$startAt});
+
+        # The documented interface of HTMLForm::combo didn't work. However the old functional interface does...
+        $f->getTab("properties")->combo("startAt",$levels,WebGUI::International::get(25,'Navigation'),[$startAt]);
+	tie my %stopAtLevels, 'Tie::IxHash';
+	%stopAtLevels = (	'-1' 	=> 'no limit',
+				'0' 	=> '0. '.WebGUI::International::get(1,'Navigation'),
+				'1'	=> '1. '.WebGUI::International::get(2,'Navigation'),
+				'2'	=> '2. '.WebGUI::International::get(3,'Navigation'),
+				'3'	=> '3.',
+				'4'	=> '4.',
+				'5'	=> '5.',
+				'6'	=> '6.',
+				'7'	=> '7.',
+				'8'	=> '8.',
+				'9'	=> '9.',
+			);
+        $f->getTab("properties")->selectList(
+                -name=>'stopAtLevel',
+                -label=>WebGUI::International::get(26,'Navigation'),
+                -options=>\%stopAtLevels,
+                -value=>[$session{form}{stopAtLevel} || $config->{stopAtLevel}]
+                );
+	tie my %depths, 'Tie::IxHash';
+	%depths = (		'0'	=> '0 levels',
+				'1'	=> '1 level',
+				'2'	=> '2 levels',
+				'3'	=> '3 levels',
+				'4'	=> '4 levels',
+				'5'	=> '5 levels',
+				'6'	=> '6 levels',
+				'7'	=> '7 levels',
+				'8'	=> '8 levels',
+				'9'	=> '9 levels',
+				'99'	=> '99 levels',
+		);
+        $f->getTab("properties")->selectList(
+                -name=>'depth',
+                -label=>WebGUI::International::get(27,'Navigation'),
+		-options=>\%depths,
+                -value=>[$session{form}{depth} || $config->{depth}]
+                );
+        $f->getTab("properties")->selectList(
+                -name=>'method',
+                -label=>WebGUI::International::get(28,'Navigation'),
+                -options=>WebGUI::Navigation::getMethodNames(),
+                -value=>[$session{form}{method} || $config->{method}]
+                );
+	$f->getTab("properties")->yesNo(
+                -name=>'reverse',
+                -label=>WebGUI::International::get(29,'Navigation'),
+                -value=>$session{form}{'reverse'} || $config->{'reverse'}
+        );
+	$f->getTab("properties")->yesNo(
+		-name=>'showSystemPages',
+		-label=>WebGUI::International::get(30,'Navigation'),
+		-value=>$session{form}{showSystemPages} || $config->{showSystemPages}
+	);
+
+        $f->getTab("properties")->yesNo(
+                -name=>'showHiddenPages',
+                -label=>WebGUI::International::get(31,'Navigation'),
+                -value=>$session{form}{showHiddenPages} || $config->{showHiddenPages}
+        );
+
+        $f->getTab("properties")->yesNo(
+                -name=>'showUnprivilegedPages',
+                -label=>WebGUI::International::get(32,'Navigation'),
+                -value=>$session{form}{showUnprivilegedPages} || $config->{showUnprivilegedPages}
+        );
+
+	$f->getTab("layout")->template(
+		-name=>'templateId',
+		-label=>WebGUI::International::get(913),
+		-value=>$session{form}{templateId} || $config->{templateId},
+		-namespace=>'Navigation',
+	);
+	$output .= $f->print;
+	return $output;	
+}
+
+#-------------------------------------------------------------------
+sub www_editNavigationSave {
+	return WebGUI::Privilege::insufficient()  unless (WebGUI::Privilege::isInGroup(3)); 
+
+        # Check on duplicate identifier
+	my ($existingNavigationId, $existingIdentifier) = WebGUI::SQL->quickArray("select navigationId,
+								identifier from Navigation where identifier = "
+								.quote($session{form}{identifier}));
+	if(($existingIdentifier && $session{form}{navigationId} eq "new") ||
+	   ($existingIdentifier && $existingNavigationId != $session{form}{navigationId})) {
+		$session{form}{identifier} = undef;
+		return WebGUI::International::get(33,'Navigation').www_editNavigation();
+	}
+	if ($session{form}{navigationId} eq "new") {
+		$session{form}{navigationId} = getNextId("navigationId");
+		 WebGUI::SQL->write("insert into Navigation (navigationId, identifier)
+					values ($session{form}{navigationId}, ".quote($session{form}{identifier}).")");
+	}
+	$session{form}{startAt} = $session{form}{startAt_new} || $session{form}{startAt}; # Combo field
+	WebGUI::SQL->write("update Navigation set depth       = $session{form}{depth},
+						  method      = ".quote($session{form}{method}).",
+						  startAt     = ".quote($session{form}{startAt}).",
+						  stopAtLevel = ".quote($session{form}{stopAtLevel}).",
+						  templateId  = $session{form}{templateId},
+						  showSystemPages = $session{form}{showSystemPages},
+						  showHiddenPages = $session{form}{showHiddenPages},
+						  showUnprivilegedPages = $session{form}{showUnprivilegedPages},
+						  identifier  = ".quote($session{form}{identifier}).",
+						  reverse     = ".quote($session{form}{'reverse'})."
+				where navigationId = $session{form}{navigationId}"); 
+	return www_listNavigation();  
+}
+
+#-------------------------------------------------------------------
+sub www_listNavigation {
+	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::isInGroup(3));
+	my $output .= '<h1>'.WebGUI::International::get(34,'Navigation').'</h1>';
+	my $sth = WebGUI::SQL->read("select navigationId, identifier from Navigation order by identifier");
+	my $i = 0;
+	my @row = ();
+	while (my %data = $sth->hash) {
+		$row[$i].= '<tr><td valign="top" class="tableData">'
+			.deleteIcon('op=deleteNavigation&identifier='.$data{identifier}.'&navigationId='.$data{navigationId})
+			.editIcon('op=editNavigation&identifier='.$data{identifier}.'&navigationId='.$data{navigationId})
+			.copyIcon('op=copyNavigation&identifier='.$data{identifier}.'&navigationId='.$data{navigationId})
+			.'</td>';
+		$row[$i].= '<td valign="top" class="tableData">'.$data{identifier}.'</td>';
+		$i++;
+	}
+	$sth->finish;
+	my $p = WebGUI::Paginator->new(WebGUI::URL::page('op=listNavigation'));
+	$p->setDataByArrayRef(\@row);
+	$output .= '<table border=1 cellpadding=5 cellspacing=0 align="center">';
+        $output .= $p->getPage($session{form}{pn});
+        $output .= '</table>';
+        $output .= $p->getBarTraditional($session{form}{pn});
+        return _submenu($output);
+}
+
+1;

lib/WebGUI/Persistent/Tree.pm

@@ -566,6 +566,32 @@ sub recursiveDelete {
 
 #-------------------------------------------------------------------
 
+=head2 pedigree 
+
+=cut
+
+sub pedigree {
+	my $node = shift;
+	my @flexMenu = ($node->left_sisters,$node,$node->daughters,$node->right_sisters);
+	while(defined($node = $node->{'mother'} ) && ref($node)) {
+		@flexMenu = ($node->left_sisters,$node,@flexMenu,$node->right_sisters);
+	}
+	return @flexMenu;
+}
+
+#-------------------------------------------------------------------
+
+=head2 self_and_ancestors 
+
+=cut
+
+sub self_and_ancestors {
+        my $node = shift;
+	return ($node, $node->ancestors);
+}
+
+#-------------------------------------------------------------------
+
 =head2 sortSiblings( \@siblings )
 
 Sorts an array of objects according to sequenceNumber