[system] / trunk / webwork-modperl / lib / Apache / WeBWorK.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/Apache/WeBWorK.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 342 Revision 343
… …
36 my $args = $r->args; 36 my $args = $r->args;
37 37
38 # If it's a valid WeBWorK URI, it ends in a /. This is assumed 38 # If it's a valid WeBWorK URI, it ends in a /. This is assumed
39 # alllll over the place. 39 # alllll over the place.
40 unless (substr($current_uri,-1) eq '/') { 40 unless (substr($current_uri,-1) eq '/') {
41 $r->header_out(Location => "$current_uri/?$args"); 41 $r->header_out(Location => "$current_uri/" . ($args ? "?$args" : ""));
42 return REDIRECT; 42 return REDIRECT;
43 } 43 }
44 44
45 return OK if $r->header_only; 45 return OK if $r->header_only;
46 46
Legend:
Removed from v.342  
changed lines
  Added in v.343
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9