+
−% 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