inheritance dropdown menu added, dropdown subroutine modified

diff --git a/xml_spielwiese/cgitest.pl b/xml_spielwiese/cgitest.pl
index 2cb4eeaf641d0d73434751fc3ba77e66207af5f4..b7409c43567ad276a0a9a31a46ba57aa8df75d3d 100755 (executable)
--- 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>";