fixed SCRIPT_NAME with a session variable from $r->uri

This commit is contained in:
Matthew Wilson 2005-11-03 19:17:34 +00:00
parent dc66860d6f
commit 5ee8369c5e
9 changed files with 26 additions and 25 deletions

View file

@ -95,7 +95,7 @@ sub www_setup {
WebGUI::Setting::set('companyURL',WebGUI::FormProcessor::url("companyURL"));
WebGUI::Setting::set('companyEmail',WebGUI::FormProcessor::email("companyEmail"));
WebGUI::Setting::remove('specialState');
WebGUI::HTTP::setRedirect($session{env}{SCRIPT_NAME});
WebGUI::HTTP::setRedirect($session{wguri});
return "";
} else {
$output .= '<legend align="left">Admin Account</legend>';