[Jifty-commit] r4066 - in apps/CASPlus/trunk: lib/CASPlus lib/CASPlus/View/Admin/Profile lib/CASPlus/View/Admin/Session lib/CASPlus/View/Admin/User

[jifty-commit at lists.jifty.org]

Author: sterling
Date: Mon Sep 10 12:43:11 2007
New Revision: 4066

Added:
   apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Definitions.pm
   apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Properties.pm
   apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Relationships.pm
   apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Access.pm
   apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Errors.pm
   apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Status.pm
   apps/CASPlus/trunk/lib/CASPlus/View/Admin/User/Roles.pm
   apps/CASPlus/trunk/lib/CASPlus/View/Admin/User/Users.pm
Modified:
   apps/CASPlus/trunk/   (props changed)
   apps/CASPlus/trunk/lib/CASPlus/View.pm

Log:
 r11176 at riddle:  andrew | 2007-09-04 12:23:48 -0500
 Adding stubs for the administrative views, mostly using CRUD.


Modified: apps/CASPlus/trunk/lib/CASPlus/View.pm
==============================================================================
--- apps/CASPlus/trunk/lib/CASPlus/View.pm	(original)
+++ apps/CASPlus/trunk/lib/CASPlus/View.pm	Mon Sep 10 12:43:11 2007
@@ -4,6 +4,22 @@
 package CASPlus::View;
 use Jifty::View::Declare -base;
 
+use Readonly;
+Readonly our %ADMIN_CRUD_VIEWS => (
+    'Profile::Definitions'   => 'Profile',
+    'Profile::Properties'    => 'ProfileProperty',
+    'Profile::Relationships' => 'ProfileRelationship',
+
+    'User::Users'            => 'User',
+    'User::Roles'            => 'Role',
+);
+
+Readonly our @ADMIN_OTHER_VIEWS => qw/
+    Session::Access
+    Session::Errors
+    Session::Status
+/;
+
 our ($xml, $casns);
 
 sub cas_xml(&) {
@@ -241,6 +257,28 @@
 use CASPlus::View::Error;
 alias CASPlus::View::Error under '/error';
 
+use Jifty::View::Declare::CRUD;
+while (my ($view, $model) = each %ADMIN_CRUD_VIEWS) {
+    my $view_class  = 'CASPlus::View::Admin::' . $view;
+
+    my $path = lc $view;
+    $path =~ s{::}{/}g;
+    $path = '/admin/' . $path;
+
+    Jifty::View::Declare::CRUD->mount_view($model, $view_class, $path);
+}
+
+for my $view (@ADMIN_OTHER_VIEWS) {
+    my $view_class = 'CASPlus::View::Admin::' . $view;
+
+    my $path = lc $view;
+    $path =~ s{::}{/}g;
+    $path = '/admin/' . $path;
+
+    $view_class->require;
+    alias $view_class under $path;
+}
+
 #use Template::Declare::XML;
 #use Jifty::View::Declare schema {
 #    namespace cas => 'http://www.yale.edu/tp/cas';

Added: apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Definitions.pm
==============================================================================
--- (empty file)
+++ apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Definitions.pm	Mon Sep 10 12:43:11 2007
@@ -0,0 +1,8 @@
+use strict;
+use warnings;
+
+package CASPlus::View::Admin::Profile::Definitions;
+use Jifty::View::Declare -base;
+use base qw/ Jifty::View::Declare::CRUD /;
+
+1;

Added: apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Properties.pm
==============================================================================
--- (empty file)
+++ apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Properties.pm	Mon Sep 10 12:43:11 2007
@@ -0,0 +1,8 @@
+use strict;
+use warnings;
+
+package CASPlus::View::Admin::Profile::Properties;
+use Jifty::View::Declare -base;
+use base qw/ Jifty::View::Declare::CRUD /;
+
+1;

Added: apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Relationships.pm
==============================================================================
--- (empty file)
+++ apps/CASPlus/trunk/lib/CASPlus/View/Admin/Profile/Relationships.pm	Mon Sep 10 12:43:11 2007
@@ -0,0 +1,8 @@
+use strict;
+use warnings;
+
+package CASPlus::View::Admin::Profile::Relationships;
+use Jifty::View::Declare -base;
+use base qw/ Jifty::View::Declare::CRUD /;
+
+1;

Added: apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Access.pm
==============================================================================
--- (empty file)
+++ apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Access.pm	Mon Sep 10 12:43:11 2007
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+
+package CASPlus::View::Admin::Session::Access;
+use Jifty::View::Declare -base;
+
+1;

Added: apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Errors.pm
==============================================================================
--- (empty file)
+++ apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Errors.pm	Mon Sep 10 12:43:11 2007
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+
+package CASPlus::View::Admin::Session::Errors;
+use Jifty::View::Declare -base;
+
+1;

Added: apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Status.pm
==============================================================================
--- (empty file)
+++ apps/CASPlus/trunk/lib/CASPlus/View/Admin/Session/Status.pm	Mon Sep 10 12:43:11 2007
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+
+package CASPlus::View::Admin::Session::Status;
+use Jifty::View::Declare -base;
+
+1;

Added: apps/CASPlus/trunk/lib/CASPlus/View/Admin/User/Roles.pm
==============================================================================
--- (empty file)
+++ apps/CASPlus/trunk/lib/CASPlus/View/Admin/User/Roles.pm	Mon Sep 10 12:43:11 2007
@@ -0,0 +1,8 @@
+use strict;
+use warnings;
+
+package CASPlus::View::Admin::User::Roles;
+use Jifty::View::Declare -base;
+use base qw/ Jifty::View::Declare::CRUD /;
+
+1;

Added: apps/CASPlus/trunk/lib/CASPlus/View/Admin/User/Users.pm
==============================================================================
--- (empty file)
+++ apps/CASPlus/trunk/lib/CASPlus/View/Admin/User/Users.pm	Mon Sep 10 12:43:11 2007
@@ -0,0 +1,8 @@
+use strict;
+use warnings;
+
+package CASPlus::View::Admin::User::Users;
+use Jifty::View::Declare -base;
+use base qw/ Jifty::View::Declare::CRUD /;
+
+1;