[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
jifty-commit at lists.jifty.org
Mon Sep 10 12:43:11 EDT 2007
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;
More information about the Jifty-commit
mailing list