--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@repogui/cb_submit.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,86 @@
+% CB_SUBMIT callback executed when the user clicks on the 'Submit' button
+%
+% M Hewitson
+%
+% $Id: cb_submit.m,v 1.5 2009/05/11 17:09:17 nicola Exp $
+%
+function cb_submit(varargin)
+
+
+  myh     = varargin{1};
+  mainfig = varargin{end};
+  status  = findobj(mainfig.handle, 'Tag', 'RepoguiStatusTxt');
+  submitButton = findobj('Tag', 'repoguiSubmitButton');
+
+  % get object list
+  objlist = findobj(mainfig.handle, 'Tag', 'RepoguiObjs2SubmitList');
+  objstr  = get(objlist, 'String');
+
+  % Build sinfo structure
+  sinfo.conn                   = mainfig.connection;
+  sinfo.experiment_title       = get(findobj(mainfig.handle, 'Tag', 'RepoguiExperimentTitleEdit'), 'String');
+  sinfo.experiment_description = get(findobj(mainfig.handle, 'Tag', 'RepoguiExperimentDescriptionEdit'), 'String');
+  sinfo.analysis_description   = get(findobj(mainfig.handle, 'Tag', 'RepoguiAnalysisDescriptionEdit'), 'String');
+  sinfo.quantity               = get(findobj(mainfig.handle, 'Tag', 'RepoguiQuantityEdit'), 'String');
+  sinfo.keywords               = get(findobj(mainfig.handle, 'Tag', 'RepoguiKeywordsEdit'), 'String');
+  sinfo.reference_ids          = get(findobj(mainfig.handle, 'Tag', 'RepoguiReferenceIDsEdit'), 'String');
+  sinfo.additional_comments    = get(findobj(mainfig.handle, 'Tag', 'RepoguiAdditonalCommentsEdit'), 'String');
+  sinfo.additional_authors     = get(findobj(mainfig.handle, 'Tag', 'RepoguiAdditionalAuthorsEdit'), 'String');
+
+  if ~isa(sinfo.conn, 'database')
+    error('### Please connect to a database before trying to submit.');
+  end
+
+  objs = [];
+  objname = '';
+  
+  if isempty(objstr)
+     error('### There are no objects selected to be submitted.');
+  end
+  
+  % Remove all incorrect lines
+  jj = 1;
+  while jj<=numel(objstr)
+     try
+        cmd = sprintf('obj = evalin(''base'', ''%s'');', objstr{jj});
+        eval(cmd);
+        objs = [objs ; obj];
+        jj = jj+1;
+     catch
+        warning(['### The submission ignored the input on line ' num2str(jj) ', ''' objstr{jj} ''', because there''s no such variable, or it has a different class with respect to the first object selected.' ]) %#ok<WNTAG>
+        objstr(jj) = [];
+     end
+  end
+  
+  % Put together the objects to submit
+  objs = [];
+  for j=1:numel(objstr)
+     if ~isempty(objname), objname = [objname ', ']; end
+     cmd = sprintf('obj = evalin(''base'', ''%s'');', objstr{j});
+     eval(cmd);
+     objname = [objname objstr{j}];
+     objs = [objs ; obj];
+  end
+  
+  % Submit objects
+  try
+    set(submitButton,'String','Submitting...')
+    set(status,'String','++ Submitting object(s)','ForeGroundcolor','r')
+    drawnow
+    [ids, cid] = submit(objs, sinfo);
+    if isempty(ids)
+      warning('!!! Failed to submit object: %s', objname);
+      set(status,'String',sprintf('!!! Failed to submit object: %s', objname),'ForeGroundcolor','r');
+    else
+      disp(sprintf('++ Submitted object(s) %s (ref id = %s, collection id = %d)', objname, mat2str(ids), cid));
+      set(status,'String',sprintf('++ Submitted object(s) %s (ref id = %s, collection id = %d)', objname, mat2str(ids), cid),'ForeGroundcolor','b');
+    end
+    set(submitButton,'String','Submit')
+  catch
+    set(status,'String',sprintf('!!! Failed to submit object: %s', objname));
+    set(submitButton,'String','Submit')
+    warning('!!! Failed to submit object: %s', objname);
+    rethrow(lasterror)
+  end
+  
+end