package WebGUI::Macro::ULFlexMenu;

# By Dan Collis Puro, dpuro@mindspring.com
# This is just like a FlexMenu, the only difference is that it uses
# embedded <ul><li></li></ul> lists to recreate the hierarchy.  The 
# great thing about this is that these lists will take care of 
# indenting for you and are VERY browser agnostic.  A perfect
# fit for a FlexMenu.

#Sample CSS entries:

# ul.verticalMenu{ 
#   padding-left: 15px;
#   margin-left: 0px;
#  width: 100px;
#  }

# This added to your style defs will create an indented list 100px wide
# with 15px indentation at each level.  


use strict;
use WebGUI::Macro;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::URL;

#-------------------------------------------------------------------
sub process {
        my ($temp, @param);
        @param = WebGUI::Macro::getParams($_[0]);
        $temp = '<ul class="verticalMenu">';
        $temp .= _reversePageTree($session{page}{pageId});
        $temp .= '</ul>';
        return $temp;
}

#-------------------------------------------------------------------
sub _reversePageTree {
        my ($sth, @data, $output, $parentId);
        ($parentId) = WebGUI::SQL->quickArray("select parentId from page where pageId='$_[0]'");
        $sth = WebGUI::SQL->read("select pageId,parentId,menuTitle,urlizedTitle,hideFromNavigation,newWindow from page where parentId=$_[0] order by sequenceNumber");
        while (@data = $sth->array) {
	  if (!($data[4]) && WebGUI::Privilege::canViewPage($data[0])) {
                        $output .= '<li class="verticalMenu"><a class="verticalMenu" ';
                        $output .= ' target="_blank"' if ($data[5]);
                        $output .= 'href="'.WebGUI::URL::gateway($data[3]).'">';
                        if ($session{page}{pageId} == $data[0]) {
                                $output .= '<span class="selectedMenuItem">'.$data[2].'</span>';
			      } else {
                                $output .= $data[2];
                        }
                        $output .= '</a></li>
';
                        if ($_[1] == $data[0] && $_[2] ne "") {
                            $output .= '<ul class="verticalMenu">'.$_[2].'</li></ul>';
			  }
		      }
        }
        $sth->finish;
        if ($parentId > 0) {
                $output = _reversePageTree($parentId,$_[0],$output);
	      }
        return $output;
}


1;