Changeset 35 for trunk/lingosource

Timestamp:

09/17/07 18:56:23 (5 years ago)

Author:

alex

Message:

now with dcr

File:

• trunk/lingosource/castlib1/alexUtilities.ls (modified) (6 diffs)

trunk/lingosource/castlib1/alexUtilities.ls

@@ -4048 +4048 @@
   if fname <> "castlib" & the number of castlib cl then
     
-    newPath = thePath & "castlib" & the number of castlib cl
+    newPath = thePath & "castlib" & the number of castlib cl & the last char of the applicationpath
     
     if baFolderExists(newPath) = 0 then
@@ -4083 +4083 @@
     if ilk(infolist) <> #proplist then
       
-      alert "The specified folder doesn't seem to contain info for this castlib: file memberInfo.xml missing."
+      alert "The specified folder (" & infolistPath & ") doesn't seem to contain info for this castlib: file memberInfo.xml missing."
       return 0
       
@@ -4089 +4089 @@
     
   end if
+  
+  
+  if count(infolist) < 1 then
+    
+    alert "The specified folder (" & infolistPath & ") doesn't seem to contain info for this castlib: file memberInfo.xml missing."
+    return 0
+    
+  end if
+  
   
   cl = the activecastlib
@@ -4094 +4103 @@
   anz = sel.count
   cnt = count(infolist)
+  
+  --  put "mUpdateSelectedScriptsFromFolder: infolist = " & infolist
+  
   repeat with n = 1 to anz
     repeat with m = sel[n][1] to sel[n][2]
@@ -4100 +4112 @@
       if dertyp = #script then
         
+        found = 0
         repeat with l = 1 to cnt
           li = infolist[l]
@@ -4108 +4121 @@
             fpath = thePath & fname & ".ls"
             
+            found = 1
+            
             if baFileExists(fpath) then
               mImportScriptWithThumbnail me, fpath, the number of castlib cl, 1, li
+              
+              put "mUpdateSelectedScriptsFromFolder: imported scripttext of" && memref && "from" && fpath
+              
+            else
+              put "mUpdateSelectedScriptsFromFolder: file doesn't exist ?? fpath = " & fpath
+              
             end if
             
           end if
         end repeat
+        
+        
+        if found = 0 then
+          put "Info for member" && memref && "was not found in memberinfo.xml"
+        end if
         
       end if