0001 function cb_submitBtn(varargin)
0002
0003 myh = varargin{1};
0004 mainfig = varargin{4};
0005
0006
0007 objlist = findobj('Tag', 'workspaceObjsList');
0008 objstr = get(objlist, 'String');
0009 vals = get(objlist, 'Value');
0010
0011
0012 sinfo.conn = getappdata(mainfig, 'connection');
0013 sinfo.username = getappdata(mainfig, 'username');
0014 sinfo.experiment_title = get(findobj('Tag', 'experimentTitle'), 'String');
0015 sinfo.experiment_description = get(findobj('Tag', 'experimentDescription'), 'String');
0016 sinfo.reference_ids = get(findobj('Tag', 'referenceIDs'), 'String');
0017 sinfo.additional_comments = get(findobj('Tag', 'additionalComments'), 'String');
0018 sinfo.additional_authors = get(findobj('Tag', 'additionalAuthors'), 'String');
0019
0020 if ~isa(sinfo.conn, 'database')
0021 error('### Please connect to a database before trying to submit.');
0022 end
0023
0024
0025
0026 k = 1;
0027 objs = {};
0028 for j=1:length(vals)
0029
0030 objname = deblank(strtok(objstr{vals(j)}));
0031 cmd = sprintf('obj = evalin(''base'', ''%s'');', objname);
0032 eval(cmd);
0033
0034 for l=1:numel(obj)
0035 objs = [objs {obj(l)}];
0036 k = k + 1;
0037 end
0038 end
0039
0040
0041 [ids, cid] = ltpda_obj_submit(objs, sinfo);
0042
0043 if isempty(ids)
0044 warning('!!! Failed to submit object: %s', objname);
0045 else
0046 disp(sprintf('++ Submitted object(s) %s (ref id = %s, collection id = %d)', objname, mat2str(ids), cid));
0047 end
0048
0049