function web_pobex_update_pubs(web_root)
%function web_pobex_update_pubs

irec=0;
% ---------------------------- Load papers db
% Update path to PDF file
db_pobex=web_db_load('../web_db_papers/pobex_papers.txt');
% Combine database and keep pobex
for i=1:length(db_pobex)
	str=db_pobex(i).vis{:};
	if strfind(str,'#pobex#')
		irec=irec+1;
		db_all(irec)=db_pobex(i);
	end
end

% Update path to PDF file
db_edl=web_db_load('../web_db_papers/edl_papers.txt');
% Combine database and keep pobex
for i=1:length(db_edl)
	str=db_edl(i).vis{:};
	if strfind(str,'#pobex#')
		irec=irec+1;
		db_all(irec)=db_edl(i);
	end
end
db=db_all;
clear db_pobex db_edl db_all
% -----------------------------

% Get years of papers
for i=1:length(db), year(i)=str2num(db(i).year{:}); end
[sorted, index]=sort(year);

count=length(year)+1;
il=0; clear file file_ref

for n=index(end:-1:1)
  count = count-1;
  [str, str_ref] =web_string_paper(db(n), count, 'pobex');
  il=il+1; file{il}=str; 
  file_ref{il}=str_ref; 
end

str_start='<!--ISTR_PAPER';
str_stop='<!--IEND_PAPER';
htmlfile=[web_root,'pubs.html'];
htmlfile_new=[web_root,'pubs.html'];
disp (['Updating  ',htmlfile_new]);

web_update_html(str_start, str_stop, file, htmlfile, htmlfile_new)

str_start='<!--ISTR_PAPER';
str_stop='<!--IEND_PAPER';
htmlfile=[web_root,'pubs.html'];
htmlfile_new=[web_root,'pubs_refs.html'];
disp (['Updating  ',htmlfile_new]);

web_update_html(str_start, str_stop, file_ref, htmlfile, htmlfile_new)