RCEM Presentations and Posters
This website lists the oral presentations and posters that were
presented at the RCEM symposium. To upload your poster or presentation,
select the presentation title you wish to upload for.
After 31 October 2005, this website will turn into a repository for
posters and presentations from RCEM 2005 that will be publicly
available. If you wish to submit or update your presentation or poster
after that time, you must email it to Nils
Oberg at noberg@uiuc.edu.
<%perl>
my @files = sort glob("/var/www/html/rcem/presentations/data/*.txt");
foreach my $file (@files)
{
open SCHED, "< $file";
chomp(my $date = );
<% $date %>
<%perl>
my $curSession = "";
my $pCount = 0;
while (my $line = )
{
$line =~ s%^\s*(.*?)\s*$%$1%;
next if $line =~ m%^\s*$%;
my @parts = split(m/\t/, $line);
# Remark
if ($parts[0] eq '*')
{
my $color = (($pCount) % 2 ? " bgcolor=\"#ddf0ff\"" : "");
$pCount++;
>
| <% $parts[1] %> |
<% ucfirst $parts[2] %> |
<%perl>
}
# Session
elsif ($parts[0] =~ m%^SESSION%)
{
$pCount = 0;
my ($junk, $sessionId, $other) = split(m/\s+/, $parts[0], 3);
$curSession = $sessionId;
#my $moderator = ($parts[1] eq '*' ? "" : " $parts[1]");
| Session <% $sessionId %> <% $other %> |
<%perl>
}
# Presentation
else
{
my $ptype = ($parts[2] =~ m%^invited% ? "(Invited) " : "");
(my $tm = $parts[1]) =~ s%\:%%;
$tm = (length $tm < 4 ? "0$tm" : $tm);
$parts[0] = (length $parts[0] < 2 ? "0$parts[0]" : $parts[0]);
my $idStr = $curSession . "-" . $parts[0] . "-" . $tm;
my $color = (($pCount) % 2 ? " bgcolor=\"#ddf0ff\"" : "");
$pCount++;
my $linkStr = #($ptype ? $parts[4] :
qq($parts[4])
#)
;
style="font-size: 10px;">
| <% $parts[1] %> |
<% $ptype . $parts[3] %> |
<% $linkStr %> |
<%perl>
}
}
<%perl>
close SCHED;
}