#!/usr/local/bin/perl
print("Content-type: text/html\n\n");
use CGI;
$query = new CGI;
$puri = $query->param('URI');
$endp = $query->param('ENDPAR');
$sep = $query->param('SEP');
$nomonash = $query->param('NOMONASH');
$noroot = $query->param('NOROOT');
$startpoint = $query->param('STARTPOINT');
if (defined($puri)) {
$var = $puri
}
else {
$var = $ENV{'REQUEST_URI'};
}
$filename = $ENV{'SCRIPT_FILENAME'};
$directory = substr($filename,0,rindex($filename,'/'));
%replacenames = ();
@array = split("/",$var);
if (-e("$directory/breadcrumbs.conf")) {
open(CONFIGFILE,"$directory/breadcrumbs.conf");
$config = new CGI(CONFIGFILE);
close(CONFIGFILE);
foreach $key ($config->param) {
$value = $config->param("$key");
$replacenames{"$key"} = "$value";
}
}
$s = scalar(@array);
$start = 1;
$end = $s - 2;
$count = $start;
$display_count = $count;
if (defined($startpoint)) {
foreach (1..$s) {
if ($startpoint eq $array[$_]) {
$display_count = $_;
}
}
}
print('');
if (!defined($nomonash)) {
if (defined($sep)) {
print(" Monash University");
}
else {
print(" Monash University > ");
}
}
if (defined($sep)) {
print("$sep");
}
if (!defined($noroot)) {
if (defined($replacenames{"/"})) {
$dis = $replacenames{"/"};
if (defined($sep)) {
print(" $dis");
}
else {
print(" $dis > ");
}
if (defined($sep)) {
print("$sep");
}
}
}
$str = "";
while ($count <= $end) {
$dis = $replacenames{$array[$count]};
if ($dis eq '') {
$dis = ucfirst($array[$count]);
}
$str = "$str/$array[$count]";
if ($count >= $display_count) {
if (defined($sep)) {
print(" $dis");
}
else {
print(" $dis > ");
}
if (defined($sep)) {
print("$sep");
}
}
$count = $count + 1;
}
if (substr($var,-1,1) eq "/") {
$last = $replacenames{$array[$s-1]};
if ($last eq '') {
$last = ucfirst($array[$s-1]);
}
if (defined($sep)) {
print(" $last");
}
else {
print(" $last");
}
}
if (!defined($endp)) {
print(" |
|
Preventing injury.
Saving lives.
|
Monash University Accident Research Centre
(MUARC) is Australia’s largest injury prevention
specialist. Our research, consultancy and training include safety in all modes of transport, in
the workplace, in the community and in the home.
Research and reports:
|
|
| |
|
|
PhD scholarship available
|
| Interest and Preference Scale survey
|
| Cycling safety survey - Drivers and cyclists wanted |
| Parents as role models - Survey participants wanted |
| Vehicle Impoundment Survey - participants wanted |
| Call-back study investigating paediatric dog bite injury cases that occurred in the domestic setting |
|
|
|
|
- Lahausse, J., van Nes, N., Fildes, B., Langford, J. & Keall, M. (2010) Assessing community attitudes to speed limits: final report, Report No. 293
- Reid, N., Clapperton, A. & Cassell, E. (2010) Injury deaths Victoria 2006, E_Bulletin, Edition 5 [pdf 608KB]
- Hazard 70 [763KB] - The impact of area socioeconomic inequity on serious injury in Victoria
|
|
