     |
|
|
| |
|
|
 |
||
|
|
Concordia faculty, staff and alumni/Ó pop up in the media more often than you might think! Congratulations to Stephanie Russ (Studio Arts), who won third place in the Great Canadian Printmaking Competition, financed by Ernst and Young. She had her entry, Confluence Series 2, a monotype screenprint with digital imagery and drawing, published as part of a big two-page centre spread in the National Post on May 23. Russ told an interviewer that what has always interested her is "movement in nature." The judges were impressed by the fact that although the piece is "technically superb," it's "not heavy or ponderous." Brenda Rowe (Simone de Beauvoir Institute) was interviewed by alumna Shelley Pomerance on CBC Radio's All in a Weekend. Rowe talked feelingly about her roots in North Carolina, and her deep convictions about the importance of self-esteem and determination. |
||
#!/usr/bin/perl -wT # # footer.cgi -- create "next" and "previous" links for Thursday Report articles. # # 2000/10/10 Rich Lafferty -- initial version # 2001/03/14 Rich Lafferty -- account for entities in REQUEST_URI (and output entities # while we're at it) # # Use: include at bottom of each Thursday Report article. For example: # # #!/usr/bin/perl -wT # # footer.cgi -- create "next" and "previous" links for Thursday Report articles. # # 2000/10/10 Rich Lafferty -- initial version # 2001/03/14 Rich Lafferty -- account for entities in REQUEST_URI (and output entities # while we're at it) # # Use: include at bottom of each Thursday Report article. For example: # # # # We assume that articles are found in directories of form NN-XXXXX/index.shtml where # NN is a two-digit number (padded with initial zeros if necessary) indicating # the position of the article in the issue (with article 01 being first), # and XXXXX being text suggesting the subject of the article. ## use strict; use CGI qw(:standard); use URI::Escape; sub aindex ($@) { my $grep_for = shift; my @grep_in = @_; for my $i (0 .. $#grep_in) { return $i if $grep_in[$i] eq $grep_for; } } print header(); my $uri = uri_unescape($ENV{REQUEST_URI}); $uri =~ m|(.*?)/[^/]+/[^/]*$|; my $issue = $1; $uri =~ m|([^/]+)/[^/]*$|; my $article = $1; opendir(ISSUE, $ENV{DOCUMENT_ROOT} . $issue) or die "Can't open dir $issue: $!"; my @issuedir; { my @tmpdir; while (my $dir = readdir(ISSUE)) { push @tmpdir, $dir if $dir =~ /^\d\d-/; } @issuedir = sort @tmpdir; } closedir ISSUE; my $aindex = aindex($article, @issuedir); my $prevlink; if ($aindex == 0) { $prevlink = uri_escape($issue); } else { $prevlink = uri_escape("$issue/" . $issuedir[$aindex - 1]); } my $nextlink; if ($aindex == $#issuedir) { $nextlink = uri_escape($issue); } else { $nextlink = uri_escape("$issue/" . $issuedir[$aindex + 1]); } print <<__EOT__;
| -- |
Concordia's
Thursday Report
|
-- | -- |
| © Copyright 2000 Concordia University |
| -- |
Concordia's
Thursday Report
|
-- | -- |
| © Copyright 2000 Concordia University |
