Mercurial > hg > ltpda
view m-toolbox/classes/@repogui/cb_submit.m @ 44:409a22968d5e default
Add unit tests
author | Daniele Nicolodi <nicolodi@science.unitn.it> |
---|---|
date | Tue, 06 Dec 2011 18:42:11 +0100 |
parents | f0afece42f48 |
children |
line wrap: on
line source
% 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