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

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

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

Revision 1047 Revision 1048
… …
48 my $path_info = $r->path_info || ""; 48 my $path_info = $r->path_info || "";
49 $path_info =~ s!/+!/!g; # strip multiple forward slashes 49 $path_info =~ s!/+!/!g; # strip multiple forward slashes
50 my $current_uri = $r->uri; 50 my $current_uri = $r->uri;
51 my $args = $r->args; 51 my $args = $r->args;
52 52
53 my $urlRoot = $current_uri =~ m/^(.*)$path_info/; 53 my ($urlRoot) = $current_uri =~ m/^(.*)$path_info/;
54 54
55 # If it's a valid WeBWorK URI, it ends in a /. This is assumed 55 # If it's a valid WeBWorK URI, it ends in a /. This is assumed
56 # alllll over the place. 56 # alllll over the place.
57 unless (substr($current_uri,-1) eq '/') { 57 unless (substr($current_uri,-1) eq '/') {
58 $r->header_out(Location => "$current_uri/" . ($args ? "?$args" : "")); 58 $r->header_out(Location => "$current_uri/" . ($args ? "?$args" : ""));
Legend:
Removed from v.1047  
changed lines
  Added in v.1048
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9