#
#
# build_admin_navbar()
#
#

# This subroutine builds the admin navigation bar.


subroutine(build_admin_navbar(
	node admin_features,
	string active_page), (
	
	debug_message("\n#### build_admin_navbar() START \n");
	
	# debug_message("#### is_root_admin: " . is_root_admin . "\n");
	# debug_message("#### is_lite: " . is_lite . "\n");
	# debug_message("#### active_page: " . active_page . "\n");
	# debug_message("#### super_admin:\n" . node_as_string(super_admin) ."\n");
	# debug_message("#### admin_navbar:\n" . node_as_string(admin_navbar) ."\n");
	
	node item;
	string page; # Note, page is equal the feature name
	string label;
	string href;
		
	'<div id="admin_config_navbar" class="admin-config-navbar">\n';
	'<table cellspacing="0">';
	'<tr>';
	'<td style="padding-left:12px">&nbsp;</td>';
	
	foreach item admin_features (
	
		page = node_name(item);
		href = '?dp=index&page=' . page;
		label = expand(@item);
		
		'<td>';
		
		if (page ne active_page) then (
							
			'<a href="' . href . '">' . label . '</a>';
		)
		else (
		
			# '<span>' . label . '</span>';
			
			'<a class="active-page" href="' . href . '" title="' . lang_stats.general.reload_current_page . '">' . label . '</a>';
		);
		
		'</td>';
	);
	'</tr>';
	'</table>';
	'</div>\n'; # admin_config_navbar
	
	debug_message("\n#### build_admin_navbar() END \n");
));