Untitled

#Example Call:
	tabs( side => "left", selected => $selected, rewrite_id=>"left_pane", form_id=>"left_form",
		tabs => [{ title => "Tab1", url => "left/0/"},
			 { title => "Tab2, url => "left/1/"}, 
		         { title => "Tab3", url => "left/2/"}]);


# side, selected, rewrite_id, formid, tabs
#     tabs: title, url
sub tabs {
	%args = @_;

	print <<BLOCK;
<form id="$args{'form_id'}">
<div class="tabs clearfix"><center>
	<div class="@args{'side'}_tabs">
		<ul class="toggle_tabs clearfix" id="toggle_tabs_unused"><!--		
BLOCK
	
	@tabs = @{$args{'tabs'}};
	for ( 0 .. $#tabs) {
		my $tab = $tabs[$_];
		my ($class, $selected);
		
		if ($_ == 0) {$class = 'class="first"';}
		if ($_ == $#args) {$class = 'class="last"';}
		if ($_ == $args{'selected'}) {$selected = 'class="selected"';}
		
		print <<BLOCK;
--><li $class><a href="#" $selected 
	clickrewriteurl="$scriptbase$tab->{'url'}"
	clickrewriteid="$args{'rewrite_id'}"
	clickrewriteform="$args{'form_id'}">
$tab->{'title'}</a></li><!--
BLOCK
	}
print <<BLOCK;	
		--></ul>
	</div>
</center></div>
</form>
BLOCK

}