From b55e00795d3542f3a245bec070218aae67f1efb8 Mon Sep 17 00:00:00 2001
From: Michael Wiebusch <stratomaster@gmx.net>
Date: Wed, 3 Jul 2013 13:45:11 +0200
Subject: [PATCH] inheritance dropdown menu added, dropdown subroutine modified

---
 xml_spielwiese/cgitest.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/xml_spielwiese/cgitest.pl b/xml_spielwiese/cgitest.pl
index 2cb4eea..b7409c4 100755
--- a/xml_spielwiese/cgitest.pl
+++ b/xml_spielwiese/cgitest.pl
@@ -191,6 +191,9 @@ sub print_ancestorInfo {
 <table><tr><td class='button_move' onclick='changeAncestor("")'>&nbsp;X&nbsp;</td></tr></table>
 EOF
 		print "</td></tr></table>";
+	} else { # print an ancestor selector!
+			print_fileSelector("","ancestorSelector","changeAncestor(this.options[this.selectedIndex].text)");
+			
 	}
 	print "</div>";
 }
@@ -356,9 +359,11 @@ sub del {
 sub print_fileSelector {
 
 	my $configFile = $_[0];
+	my $elementId = $_[1];
+	my $action = $_[2];
 	opendir( DIR, $confDir ) or die $!;
 
-	print '<select name="fileSelectionDropdown" id="fileSelector" >';
+	print '<select name="fileSelectionDropdown" id="'.$elementId.'" onchange="'.$action.'">';
 
 	print "<option value='...'>...</option>";
 	my @xmlfiles;
@@ -426,12 +431,12 @@ sub print_fileSelection {
 	print "<tr>";
 
 	print "<td>";
-	print_fileSelector($configFile);
+	print_fileSelector($configFile,"fileSelector","loadFile()");
 	print "</td>";
 
 	print "<td>";
 	print
-"<input type='button' onclick='loadFile()' value='load file' class='stdbutton'>";
+"<input type='button' onclick='loadFile()' value='reload file' class='stdbutton'>";
 	print "</td>";
 
 	print "</tr>";
-- 
2.43.0