my $Fenster_Benutzer_Verwaltung = MainWindow -> new( -title => 'Benutzer - Verwaltung' );
	
my $Breite = 1184;
my $Hoehe  = 318;
	
$Fenster_Benutzer_Verwaltung -> geometry( $Breite . 'x' . $Hoehe );

my $Leiste = $Top_Level -> Menu( -type => 'menubar' );
$Top_Level -> configure( -menu => $Leiste );
	
my $Datei_Befehle = $Leiste -> cascade( -label   => '~Datei' , -tearoff => 0 );

#-----------------------------------------------------------------------------
	
my $Auflistung_Benutzer_Inhalte = $Fenster_Benutzer_Verwaltung -> MListbox( );
	
my $Importierung_Details = $Datei_Befehle -> cget( -menu ) -> Menu( -tearoff => 0 );
	
 $Datei_Befehle -> cascade( -label => "Importierung  " , -menu => $Importierung_Details );

$Importierung_Details -> command( -label => "CSV" , -command => [ \&CSV_Importierung , $Fenster_Benutzer_Verwaltung , $Auflistung_Benutzer_Inhalte ] );
$Importierung_Details -> command( -label => "XML" , -command => [ \&Importierung , "XML"  ] );
						
#----------------------------------------------------------------------------

sub CSV_Importierung [

    my $Fenster_Benutzer_Verwaltung = $_[ 0 ];
    my $Auflistung_Benutzer_Inhalte = $_[ 1 ];
	
    print "GUI : $Fenster_Benutzer_Verwaltung" , "\n";
    print "ML  : $Auflistung_Benutzer_Inhalte" , "\n";
	
    my @ext = ( [ "CSV Files" , [ qw/.csv/ ] ] ,
                [ "All Files" , [ '*' ] ]      ,
               
			      );
				  
    my $Rueckmeldung_CSV_Importierung = $Fenster_Benutzer_Verwaltung -> getOpenFile( -filetypes => \@ext , );
	
    &Parser_CSV_Importierung( $Rueckmeldung_CSV_Importierung );
}

my $Rueckmeldung_CSV_Importierung = &Parser_CSV_Importierung( $Aufruf_CSV_Importierung );

if( $Rueckmeldung_CSV_Importierung eq "Erfolgreich" )
{
  $Auflistung_Benutzer_Inhalte -> deleteEntry( 0 , end );
  
  # Sub - Routine für die Füllung der MListbox Einträge 
  &ML_Fuellung_Eintraege( $Auflistung_Benutzer_Inhalte );

  $Auflistung_Benutzer_Inhalte -> update( ); 
}