Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/ActionResolver
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1741
Modified Files:
UserDir.pm
Log Message:
add inline comments (cosmetic)
Index: UserDir.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/ActionResolver/UserDir.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** UserDir.pm 2 Mar 2005 15:31:34 -0000 1.3
--- UserDir.pm 2 Mar 2005 17:33:32 -0000 1.4
***************
*** 20,26 ****
--- 20,32 ----
my ( $self, $request, $url ) = @_;
return undef unless ( $url =~ m|^/?~| );
+
+ # cleanup url to known state
$url =~ s|^/||; $url =~ s/\?.*$//; $url =~ s|/$||;
+
my ( $username, $task, @params ) = split /\//, $url;
+
+ # /~user same as /~user/display
$task ||= 'display';
+
my $action = CTX->lookup_action( 'user' );
$action->task( $task );
|
