ID     | radio buttons to select order
---------------------------
link1  1(*)  2()   3()  4()
link2  1()   2(*)  3()  4()
link3  1()   2()   3(*) 4()
link4  1()   2()   3()  4(*)

##</code><code>##

ID     | radio buttons to select order
---------------------------
link1  1()   1()   1()  1(*)
link2  1()   1()   1()  1(*)
link3  1()   1()   1()  1(*)
link4  1()   1()   1()  1(*)

##</code><code>##

		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";

##</code><code>##

		print "<b><i>Adjust referrers display order</i></b><br>\n";

		print "<table border='1'>\n";
		print "<form action='process.cgi' method='post'>\n";
		print "<input type='hidden' name='section' value='referrers'>\n";
		print "<input type='hidden' name='action' value='link_order'>\n";
		
		$sql = "SELECT * FROM $referrers_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 "</table>\n";
		print "<input type='submit'>\n";
		print "</form></center>\n";
		
	}