print 	start_html(-title=>'Link Administration - PerlCommunity.de',
			   -bgcolor=>'#D4D0C8'
			   ),
		a({-href=>'user.cgi'},'Zur Passwortverwaltung'),br,
		a({-href=>'statistics.cgi'},'Zur Ausfallstatistik'),
		h2('Link Administration'),
		$info,br,
		$error,
		comment('Kategorieauswahl'),
		start_form(-name=>'categories',-action=>'',-method=>'POST'),
		table({-border=>0},
			Tr(
				td(
					scrolling_list(-name=>'category',
			  			       -values=>[sort { $$xml{category}{$a}{sortorder} <=> $$xml{category}{$b}{sortorder} or $a cmp $b} keys %categories],
			   			       -size=>1,
						       -default=>$vars{category},
			     			       -labels=>\%categories,
						       -onChange=>'document.categories.submit();',
						       -override=>1
			   			       ),
					end_form,
					comment('Neue Kategorie anlegen'),
					start_form(-action=>'',-method=>'POST')
				),#td
				td(
					textfield(-name=>'newcat',
			  			  -size=>30,
			 			  -override=>1
			  			  ),
					submit(-value=>'Neue Kategorie anlegen'),
					hidden(-name=>'act',-value=>'newcat',-override=>1),
					end_form
				)#td
			)#Tr
		);#table