print "<center><table border='1'>\n";
                print "<tr><td colspan=\"2\"><center><b>Adjust link display order</b></center></td></tr>\n";
		print "<form action='process.cgi' method='post'>\n";
		print "<input type='hidden' name='section' value='links'>\n";
		print "<input type='hidden' name='action' value='link_order'>\n";
		
		$sql = "SELECT * FROM $links_table ORDER BY link_order ASC";
		$sth = $dbh->prepare($sql);
		$sth->execute;
		
		$orders_list = join(":", @orders);
		$id_list = join(":", @ids);

		print "<input type='hidden' name='orders_list' value='$orders_list'>\n";
		print "<input type='hidden' name='link_id_list' value='$id_list'>\n";
		
		while ($i = $sth->fetchrow_hashref)
		{
			my $id = $$i{"id"};
			my $name = $$i{"name"};
			my $order = $$i{"link_order"};
			print "<tr><td>$name</td>\n";
			print "<td>\n";
			
			foreach $t_order (@orders)
			{
				print "$t_order <input type='radio' name='order_" . $id . "' value='$t_order'";
				if ($order eq $t_order)
				{
					print " checked"
				}
				print ">";
			}
			print "</td></tr>\n";

		}
                print "<tr><td colspan=\"2\"><center><input type='submit'></center>\n";
		print "</table></center>\n";
		print "</form>\n";