function web_update_pubs(web_root, sitename)
%function web_update_pubs

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

% Update path to PDF file
db_edl=web_db_load('../web_db_papers/edl_papers.txt');
% Combine database 
for i=1:length(db_edl)
	str=db_edl(i).vis{:};
	if strfind(str,['#',sitename,'#'])
		irec=irec+1;
		db_all(irec)=db_edl(i);
	end
end
db=db_all;
clear db_general 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, sitename);
  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)