@@ -100,11 +100,11 @@
 	      (set! next-iteration (+ iteration 1))))
 	iter-qry area version-name)
        ;; now store the data
        (sqlite3:execute db "INSERT INTO pkgs (area,version_name,iteration,store_type,submitter,source_path,quality,comment) 
                                  VALUES (?,?,?,?,?,?,?,?);"
-			area version-name next-iteration store-type submitter source-path quality comment)))
+			area version-name next-iteration (conc store-type) submitter source-path quality comment)))
     (sqlite3:finalize! iter-qry)
     next-iteration))
   
 (define (datashare:get-pkg-record db area version-name iteration)
   #f)
@@ -214,36 +214,38 @@
 	 (areas-sel   (iup:listbox #:expand "HORIZONTAL" #:dropdown "YES"))
 	 (version-tb  (iup:textbox #:expand "HORIZONTAL")) ;;  #:size "50x"))
 	 (areas-sel   (iup:listbox #:expand "HORIZONTAL" #:dropdown "YES"))
 	 (component   (iup:listbox #:expand "HORIZONTAL" #:dropdown "YES" ))
 	 (version-val (iup:textbox #:expand "HORIZONTAL" #:size "50x"))
+	 ;; (copy-link   (iup:toggle  #:expand "HORIZONTAL"))
 	 ;; (iteration   (iup:textbox #:expand "YES" #:size "20x"))
 	 ;; (iteration   (iup:textbox #:expand "HORIZONTAL" #:size "20x"))
 	 (comment-tb  (iup:textbox #:expand "YES" #:multiline "YES"))
-	 (import-type "copy")
 	 (source-tb   (iup:textbox #:expand "HORIZONTAL"
 				   #:value (or (configf:lookup configdat "target" "basepath")
 					       "")))
 	 (publish     (lambda (publish-type)
-			(let* ((area-num   (or (string->number (iup:attribute areas-sel "VALUE")) 0))
-			       (area-dat   (if (> area-num 0)(list-ref areas (- area-num 1))'("NOT SELECTED" "NOT SELECTED")))
-			       (area-path  (cadr area-dat))
-			       (area-name  (car  area-dat))
-			       (version    (iup:attribute version-tb "VALUE"))
-			       (comment    (iup:attribute comment-tb "VALUE"))
-			       (spath      (iup:attribute source-tb  "VALUE"))
-			       (submitter  (current-user-name))
-			       (quality    2)
-			       (db         (datashare:open-db configdat))
-			       (iteration  (datashare:register-data db area-name version import-type submitter quality spath comment))
-			       (dest-store (datastore:get-best-storage configdat)))
+			(let* ((area-num    (or (string->number (iup:attribute areas-sel "VALUE")) 0))
+			       (area-dat    (if (> area-num 0)(list-ref areas (- area-num 1))'("NOT SELECTED" "NOT SELECTED")))
+			       (area-path   (cadr area-dat))
+			       (area-name   (car  area-dat))
+			       (version     (iup:attribute version-tb "VALUE"))
+			       (comment     (iup:attribute comment-tb "VALUE"))
+			       (spath       (iup:attribute source-tb  "VALUE"))
+			       (submitter   (current-user-name))
+			       (quality     2)
+			       ;; (import-type (if (equal? (iup:attribute copy-link "VALUE") "ON" )
+			       ;;  		'copy
+			       ;;  		'link))
+			       (db          (datashare:open-db configdat))
+			       (iteration   (datashare:register-data db area-name version publish-type submitter quality spath comment))
+			       (dest-store  (datastore:get-best-storage configdat)))
 			  (if iteration
-			      (if (equal? "copy" import-type)
+			      (if (eq? 'copy publish-type)
 				  (datashare:import-data spath dest-store area-name version iteration))
 			      (print "ERROR: Failed to get an iteration number"))
 			  (sqlite3:finalize! db))))
-			  ;; (print "Publish: type=" publish-type ", area-name=" area-name ", spath=" spath ", area-path=" area-path ))))
 	 (copy        (iup:button "Copy and Publish"
 				  #:expand "HORIZONTAL"
 				  #:action (lambda (obj)
 					     (publish 'copy))))
 	 (link        (iup:button "Link and Publish"
@@ -266,10 +268,11 @@
 	    (+ 1 num))
 	  1 areas)
     (iup:vbox
      (iup:hbox (iup:label "Area:"        #:size label-size)   areas-sel)
      (iup:hbox (iup:label "Version:"     #:size label-size)   version-tb)
+     ;; (iup:hbox (iup:label "Link only"    #:size label-size)   copy-link)
      ;; 	       (iup:label "Iteration:")   iteration)
      (iup:hbox (iup:label "Comment:"     #:size label-size)   comment-tb)
      (iup:hbox (iup:label "Source base path:" #:size label-size)   source-tb browse-btn)
      (iup:hbox copy link))))