| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK.pm,v 1.65 2004/10/15 20:35:15 gage Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK.pm,v 1.66 2004/10/17 03:11:43 gage Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 120 | } |
120 | } |
| 121 | |
121 | |
| 122 | my $displayModule = $urlPath->module; |
122 | my $displayModule = $urlPath->module; |
| 123 | my %displayArgs = $urlPath->args; |
123 | my %displayArgs = $urlPath->args; |
| 124 | |
124 | |
|
|
125 | unless ($displayModule) { |
|
|
126 | debug("The display module is empty, so we can DECLINE here.\n"); |
|
|
127 | die "No display module found for path '$path'."; |
|
|
128 | } |
|
|
129 | |
| 125 | debug("The display module for this path is: $displayModule\n"); |
130 | debug("The display module for this path is: $displayModule\n"); |
| 126 | debug("...and here are the arguments we'll pass to it:\n"); |
131 | debug("...and here are the arguments we'll pass to it:\n"); |
| 127 | foreach my $key (keys %displayArgs) { |
132 | foreach my $key (keys %displayArgs) { |
| 128 | debug("\t$key => $displayArgs{$key}\n"); |
133 | debug("\t$key => $displayArgs{$key}\n"); |
| 129 | } |
|
|
| 130 | |
|
|
| 131 | unless ($displayModule) { |
|
|
| 132 | debug("The display module is empty, so we can DECLINE here.\n"); |
|
|
| 133 | die "No display module found for this path."; |
|
|
| 134 | } |
134 | } |
| 135 | |
135 | |
| 136 | my $selfPath = $urlPath->path; |
136 | my $selfPath = $urlPath->path; |
| 137 | my $parent = $urlPath->parent; |
137 | my $parent = $urlPath->parent; |
| 138 | my $parentPath = $parent ? $parent->path : "<no parent>"; |
138 | my $parentPath = $parent ? $parent->path : "<no parent>"; |
Parent Directory
| 
Revision Log
| 
Patch