Parent Directory | Revision Log | Patch
revision 725 by dpavlin, Thu Apr 13 19:31:43 2006 UTC | revision 733 by dpavlin, Wed May 24 13:32:07 2006 UTC | |
---|---|---|
# | Line 63 sub suff2file($$$$) { | Line 63 sub suff2file($$$$) { |
63 | ||
64 | return $tpl if (! $base_path); | return $tpl if (! $base_path); |
65 | ||
66 | #warn "base_path: $base_path, p: $p, path: $path, tpl: $tpl\n"; | |
67 | ||
68 | $p =~ s#/[^/]*$##; | |
69 | ||
70 | # strip everything to and including base path, leaving only | # strip everything to and including base path, leaving only |
71 | # additional (virtual) path | # additional (virtual) path |
72 | if ($base_path eq "/") { | if ($base_path eq "/") { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |