Collector #1523: replace the text field for importing .zexp files with a select list

lib/python/OFS/ObjectManager.py

@@ -567,6 +567,18 @@ class ObjectManager(
         ob=self._getOb(id)
         ob.manage_changeOwnershipType(explicit=0)
 
+    def list_imports(self):
+        listing = []
+        cfg = getConfiguration()
+        paths = [cfg.zopehome]
+        if not cfg.instancehome in paths:
+            paths.append(cfg.instancehome)
+        for impath in paths:
+            directory = os.path.join(impath, 'import')
+            listing += [f for f in os.listdir(directory) 
+                        if f.endswith('.zexp') or f.endswith('.xml')]
+        return listing
+        
     # FTP support methods
 
     def manage_FTPlist(self, REQUEST):

lib/python/OFS/dtml/importExport.dtml

@@ -88,11 +88,14 @@ ownership information".
   </div>
   </td>
   <td align="left" valign="top">
-  <input type="text" name="file" size="25" value="" />
+  <select name="file">
+  <dtml-in "list_imports()">
+    <option value="<dtml-var sequence-item>"><dtml-var sequence-item></option>
+  </dtml-in>
+  </select>
   </td>
 </tr>
 <tr>
-
   <td align="left" valign="top">
   <div class="form-label">
   Ownership