[Netpass-devel] NetPass/www/components/Admin DisplaySideLinks,NONE,1.1

[Matt <mt...@us...>]

Update of /cvsroot/netpass/NetPass/www/components/Admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21794

Added Files:
	DisplaySideLinks 
Log Message:


--- NEW FILE: DisplaySideLinks ---
<%doc>
</%doc>

<%args>
</%args>

<%perl>
	my $sidelinks = $np->db->getSideLinks();
	if (!defined $sidelinks || ref($sidelinks) ne 'HASH') {
		print $q->p({-class=>'error'}, "Unable to retrieve Sidelinks");	
		return;
	}
	foreach my $name (sort keys %$sidelinks) {
		my $url = $sidelinks->{$name}->{'url'};
		$url = 'http://'.$url if ($url !~ /^http/);
		printf("<a class=\"sbLinks\" href=\"%s\" title=\"\">%s</a><br>",
			$url, $name);
	}
</%perl>