svnno****@sourc*****
svnno****@sourc*****
2007年 11月 19日 (月) 01:02:54 JST
SRADRevision: 257
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=slashdotjp&view=rev&rev=257
Author: caesar
Date: 2007-11-19 01:02:53 +0900 (Mon, 19 Nov 2007)
Log Message:
-----------
alias /deluser.pl /my/delete ?
Modified Paths:
--------------
slashjp/branches/deluser/Slash/Apache/User/User.pm
-------------- next part --------------
Modified: slashjp/branches/deluser/Slash/Apache/User/User.pm
===================================================================
--- slashjp/branches/deluser/Slash/Apache/User/User.pm 2007-11-18 15:41:57 UTC (rev 256)
+++ slashjp/branches/deluser/Slash/Apache/User/User.pm 2007-11-18 16:02:53 UTC (rev 257)
@@ -712,6 +712,11 @@
$r->uri('users.pl');
$r->filename($constants->{basedir} . '/users.pl')
+ } elsif ($op eq 'delete') {
+ $r->args("op=deleteform");
+ $r->uri('/deluser.pl');
+ $r->filename($constants->{basedir} . '/deluser.pl');
+
} else {
$r->args("op=edituser");
$r->uri('/users.pl');