grashoper has asked for the wisdom of the Perl Monks concerning the following question:
sub transform { my $trns = $Server->MapPath("Transforms/pLogin.xsl"); if ($Session->{'isAuthenticated'}) { getMOTD(); SWITCH: { if ($Request->item("View")->item() eq "Resources") { $trns = $Server->MapPath("Transforms/tResources.xsl"); last SWITCH; } if ($Request->item("Tab")->item() eq "Support") { $trns = $Server->MapPath("Transforms/tSupport.xsl"); last SWITCH; } if ($Request->item("Tab")->item() eq "Help") { $trns = $Server->MapPath("Transforms/tHelp.xsl"); last SWITCH; } if ($Request->item("Tab")->item() eq "Training") { $trns = $Server->MapPath("Transforms/tTraining.xsl"); last SWITCH; } if ($Request->item("Tab")->item() eq "Trainers") { $trns = $Server->MapPath("Transforms/tTrainers.xsl"); last SWITCH; } if ($Request->item("Tab")->item() eq "Admin") { $trns = $Server->MapPath("Transforms/tAdmin.xsl"); last SWITCH; } $trns = $Server->MapPath("Transforms/pMain.xsl"); } } return $trns; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: weird url problems
by ikegami (Patriarch) on Jun 12, 2008 at 09:16 UTC | |
|
Re: weird url problems
by igelkott (Priest) on Jun 12, 2008 at 11:14 UTC | |
|
Re: weird url problems
by Anonymous Monk on Jun 12, 2008 at 08:59 UTC | |
|
Re: weird url problems
by blazar (Canon) on Jun 14, 2008 at 08:53 UTC |