From: Kilian Saffran <ksaffran@dks.lu>
Date: Tue, 20 Mar 2018 09:18:45 +0000 (+0100)
Subject: bug fixes
X-Git-Tag: 3.18.2_beta0~1
X-Git-Url: http://cloud.dks.lu/git/?a=commitdiff_plain;h=9e939e0edeb819db068554628f55223189216429;p=creorga.git

bug fixes
---

diff --git a/install/create_setup_windows.pl b/install/create_setup_windows.pl
index 0aa3446..3e046ae 100644
--- a/install/create_setup_windows.pl
+++ b/install/create_setup_windows.pl
@@ -16,7 +16,7 @@ my $setup = "";
 chdir "C:\\Users\\ksaff\\Workspace\\creorga";
 my $strtags = `"C:\\Program Files\\Git\\bin\\git.exe" for-each-ref --sort=-creatordate --format="%(refname)" refs/tags`;
 
-my @modes = ("director","staff","localmanger");
+my @modes = ("director","staff","localmanager");
 print "Select Mode:\n";
 for (my $m=0;$m<scalar(@modes);$m++){
 	print $m.": ".$modes[$m]."\n";
@@ -85,7 +85,7 @@ if ($setup eq "director"){
     print "unlink $a\n";
     unlink($a);
   }
-  my @unused_files = File::Find::Rule->file()
+  @unused_files = File::Find::Rule->file()
                                   ->name( qr/.+_free.*/  )
                                   ->in("C:\\Users\\ksaff\\Release\\tag\\app_v3");
   foreach my $a (@unused_files){
@@ -107,7 +107,7 @@ if ($setup eq "director"){
     print "unlink $a\n";
     unlink($a);
   }
-  my @unused_files = File::Find::Rule->file()
+  @unused_files = File::Find::Rule->file()
                                   ->name( qr/.+_free.*/  )
                                   ->in("C:\\Users\\ksaff\\Release\\tag\\app_v3");
   foreach my $a (@unused_files){