doc: Nils Weber doesnt have an 'e' in his firstname

1 files changed, 0 insertions, 38 deletions

diff --git a/doc/niels-diplom/Dateistruktur/admin/LIST/parse-exel.pl b/doc/niels-diplom/Dateistruktur/admin/LIST/parse-exel.pl
deleted file mode 100755
index 1574c0d..0000000
--- a/doc/niels-diplom/Dateistruktur/admin/LIST/parse-exel.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Spreadsheet::ParseExcel;
-
-my $oExcel = new Spreadsheet::ParseExcel;
-
-die "Bitte eine EXCEL-DATEI als $0 angeben!" unless @ARGV;
-
-my $oBook = $oExcel->Parse($ARGV[0]);
-my($iR, $iC, $oWkS, $oWkC);
-
-#print "FILE  :", $oBook->{File} , "\n";
-#print "COUNT :", $oBook->{SheetCount} , "\n";
-#print "AUTHOR:", $oBook->{Author} , "\n"
-
-#if defined $oBook->{Author};
-
-for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++)
-{
- $oWkS = $oBook->{Worksheet}[$iSheet];
- #print "--------- SHEET:", $oWkS->{Name}, "\n";
- for(my $iR = $oWkS->{MinRow} ;
-     defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
-     $iR++)
- {
-	print ">>>";
-  for(my $iC = $oWkS->{MinCol} ;
-      defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
-      $iC++)
-  {
-   $oWkC = $oWkS->{Cells}[$iR][$iC];
-   print ">", $oWkC->Value if($oWkC);
-  }
- }
-}
-
-