- fixed KPMG issues

a74da935 · Frank Bergmann · 2d79e4ab · a74da935 · a74da935
Commit a74da935 authored Mar 03, 2011 by Frank Bergmann
Expand all Hide whitespace changes
Inline Side-by-side

Showing with 60 additions and 36 deletions

import-2.tcl www/import-2.tcl +2 -0

import-im_project.tcl www/import-im_project.tcl +58 -36

No files found.
--- a/www/import-2.tcl
+++ b/www/import-2.tcl
@@ -76,6 +76,8 @@ if {[catch {

 # Extract the header line from the file
 set lines [split $lines_content "\n"]
+if {"" == $lines} { ad_return_complaint 1 "<b>You didn't select a file in the screen before.</b>" }
+
 set separator [im_csv_guess_separator $lines]
 # ad_return_complaint 1 $separator
 set lines_len [llength $lines]

--- a/www/import-im_project.tcl
+++ b/www/import-im_project.tcl