Changeset 552

Timestamp:

11/16/09 19:36:17 (15 years ago)

Author:

nanardon

Message:

• fix url in redirect
• fix application name on perl side (making template not found)

Location:

LATMOS-Accounts-Web

Files:

• Makefile.PL (modified) (1 diff)
• latmos-accounts-web.spec.in (modified) (1 diff)
• lib/LATMOS/Accounts/Web/Controller/Root.pm (modified) (3 diffs)

LATMOS-Accounts-Web/Makefile.PL

@@ -1 +1 @@
 use inc::Module::Install;
 
-name 'latmos-accounts-web';
+name 'LATMOS-Accounts-Web';
 all_from 'lib/LATMOS/Accounts/Web.pm';
 

LATMOS-Accounts-Web/latmos-accounts-web.spec.in

@@ -1 @@
-%define realname   latmos-accounts-web
+%define realname   LATMOS-Accounts-Web
+%define name       latmos-accounts-web
 %define version    @VERSION@
 %define release    %mkrel 1
 
-Name:       %{realname}
+Name:       %{name}
 Version:    %{version}
 Release:    %{release}

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm

@@ -29 +29 @@
 sub default : Private {
     my ( $self, $c ) = @_;
-    $c->res->redirect('/users/' . $c->user->{username}) if($c->user);
+    $c->res->redirect($c->uri_for('/users', $c->user->{username})) if($c->user);
 }
 
@@ -40 +40 @@
                 username => $c->req->param('username'),
                 password => $c->req->param('password')})) {
-            my $redirurl = $c->req->param('loguri') || '/';
-            $redirurl = '/' if ($redirurl =~ m:^/login:);
-            $c->res->redirect($redirurl || '/');
+            my $redirurl = $c->uri_for($c->req->param('loguri') || '/');
+            $redirurl = $c->uri_for('/') if ($redirurl =~ m:^/login:);
+            $c->res->redirect($redirurl || $c->uri_for('/'));
         } else {
             warn "invalid login";
@@ -52 +52 @@
     my ( $self, $c ) = @_;
     $c->logout;
-    $c->res->redirect('/');
+    $c->res->redirect($c->uri_for('/'));
 }