<%args> $PresID $Title %args> <%init> my ($Day, $session_temp, $Number) = split(m/-/, $PresID); my $Session = "$Day-$session_temp"; my $File = "/var/www/html/rcem/presentations/data/"; $File .= "1TU.txt" if ($Day eq 'TU'); $File .= "2WE.txt" if ($Day eq 'WE'); $File .= "3TH.txt" if ($Day eq 'TH'); $File .= "4FR.txt" if ($Day eq 'FR'); %init>