function web_pobex_update_pres(web_root)
%function web_pobex_update_pubs

irec=0;
% ---------------------------- Load db
db=web_db_load('../web_db_movies/movies.txt');
% Keep pobex
for i=1:length(db)
	str=db(i).vis{:};
	if strfind(str,'#pobex#')
		irec=irec+1;
		db_all(irec)=db(i);
	end
end

% Prepare HTML
db=db_all; clear file
for i=1:length(db)
FILE=db(i).file{:};  DURATION=db(i).duration{:};   TITLE=db(i).title{:};
str_video=['<p> <span class="RegularText">',TITLE,' - [<a class="Link_small" href="',FILE,'">',DURATION,'. talk</a> ]</span></p>'];
file{i}=str_video;
end

% Update HTML
str_start='<!--ISTR_VIDEOS';
str_stop='<!--IEND_VIDEOS';
htmlfile=[web_root,'outreach/presentations.html'];
htmlfile_new=[web_root,'outreach/presentations.html'];
disp (['Updating  ',htmlfile_new]);
web_update_html(str_start, str_stop, file, htmlfile, htmlfile_new)


irec=0; clear db_all
% ---------------------------- Load db
db=web_db_load('../web_db_presentations/presentations.txt');
% Keep pobex
for i=1:length(db)
	str=db(i).vis{:};
	if strfind(str,'#pobex#')
		irec=irec+1;
		db_all(irec)=db(i);
	end
end

% Prepare HTML
db=db_all; clear file
for i=1:length(db)
FILE=db(i).file{:};  CONFERENCE=db(i).conference{:};   TITLE=db(i).title{:};
DATE=db(i).date{:};  AUTHORS=db(i).authors{:};
str_pres=['<p> <span class="RegularText">',TITLE,' - [<a class="Link_small" href="',FILE,'"> download</a> ]<br /><span class="Section-Capitolo">',CONFERENCE,'</span> - ',DATE,'<br />',AUTHORS,'</span></p>'];
file{i}=str_pres;
end

% Update HTML
str_start='<!--ISTR_PRESENTATION';
str_stop='<!--IEND_PRESENTATION';
htmlfile=[web_root,'outreach/presentations.html'];
htmlfile_new=[web_root,'outreach/presentations.html'];
disp (['Updating  ',htmlfile_new]);
web_update_html(str_start, str_stop, file, htmlfile, htmlfile_new)