diff -Nru libqbit-application-perl-0.002/Changes libqbit-application-perl-0.003/Changes --- libqbit-application-perl-0.002/Changes 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/Changes 2013-10-28 12:52:50.000000000 +0000 @@ -1,9 +1,25 @@ ================================================== -Changes from 2012-09-14 00:00:00 +0000 to present. +Changes from 2012-10-28 00:00:00 +0000 to present. ================================================== ------------------------------------------ -version 0.002 at 2013-09-14 10:49:47 +0000 +version 0.003 at 2013-10-28 12:52:49 +0000 +------------------------------------------ + + Change: 328d01d36711f9996c1b7d9f7fe7d27599120a07 + Author: Sergei Svistunov + Date : 2013-10-28 16:51:15 +0000 + + Optimized check_rights for undefined cur_user + + Change: 8df8b1341591c681f96b35174353a3a5dc86ccb5 + Author: Sergei Svistunov + Date : 2013-09-14 14:51:07 +0000 + + Fixed changelog + +------------------------------------------ +version 0.002 at 2013-09-14 10:49:01 +0000 ------------------------------------------ Change: 5cf060e0107a601fc7ad6de045868519fadcfab1 @@ -12,6 +28,10 @@ Added base class for RBAC +------------------------------------------ +version 0.001 at 2013-09-14 07:26:50 +0000 +------------------------------------------ + Change: 3255c24b419b6c9be81ccbb85a5ad3632e0f3c9a Author: Sergei Svistunov Date : 2013-09-14 11:26:50 +0000 diff -Nru libqbit-application-perl-0.002/META.yml libqbit-application-perl-0.003/META.yml --- libqbit-application-perl-0.002/META.yml 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/META.yml 2013-10-28 12:52:50.000000000 +0000 @@ -20,4 +20,4 @@ qbit: 0 strict: 0 warnings: 0 -version: 0.002 +version: 0.003 diff -Nru libqbit-application-perl-0.002/Makefile.PL libqbit-application-perl-0.003/Makefile.PL --- libqbit-application-perl-0.002/Makefile.PL 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/Makefile.PL 2013-10-28 12:52:50.000000000 +0000 @@ -29,7 +29,7 @@ "strict" => 0, "warnings" => 0 }, - "VERSION" => "0.002", + "VERSION" => "0.003", "test" => { "TESTS" => "t/*.t" } diff -Nru libqbit-application-perl-0.002/README libqbit-application-perl-0.003/README --- libqbit-application-perl-0.002/README 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/README 2013-10-28 12:52:50.000000000 +0000 @@ -1,7 +1,7 @@ This archive contains the distribution QBit-Application, -version 0.002: +version 0.003: Package description diff -Nru libqbit-application-perl-0.002/debian/changelog libqbit-application-perl-0.003/debian/changelog --- libqbit-application-perl-0.002/debian/changelog 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/debian/changelog 2013-10-28 12:52:50.000000000 +0000 @@ -1,16 +1,14 @@ -libqbit-application-perl (0.002) raring; urgency=low +libqbit-application-perl (0.003) raring; urgency=low - * Added base class for RBAC + * Optimized check_rights for undefined cur_user - * Version 0.001 + * Fixed changelog - * Fixed tests - - * Fixed debian package + -- Sergei Svistunov Mon, 28 Oct 2013 16:52:49 +0400 - * Added base class for models +libqbit-application-perl (0.002) raring; urgency=low - * Initial commit + * Added base class for RBAC -- Sergei Svistunov Sat, 14 Sep 2013 14:49:47 +0400 diff -Nru libqbit-application-perl-0.002/lib/QBit/Application/Model/RBAC.pm libqbit-application-perl-0.003/lib/QBit/Application/Model/RBAC.pm --- libqbit-application-perl-0.002/lib/QBit/Application/Model/RBAC.pm 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/lib/QBit/Application/Model/RBAC.pm 2013-10-28 12:52:50.000000000 +0000 @@ -1,6 +1,6 @@ package QBit::Application::Model::RBAC; { - $QBit::Application::Model::RBAC::VERSION = '0.002'; + $QBit::Application::Model::RBAC::VERSION = '0.003'; } use qbit; diff -Nru libqbit-application-perl-0.002/lib/QBit/Application/Model.pm libqbit-application-perl-0.003/lib/QBit/Application/Model.pm --- libqbit-application-perl-0.002/lib/QBit/Application/Model.pm 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/lib/QBit/Application/Model.pm 2013-10-28 12:52:50.000000000 +0000 @@ -1,6 +1,6 @@ package QBit::Application::Model; { - $QBit::Application::Model::VERSION = '0.002'; + $QBit::Application::Model::VERSION = '0.003'; } use qbit; diff -Nru libqbit-application-perl-0.002/lib/QBit/Application/Part.pm libqbit-application-perl-0.003/lib/QBit/Application/Part.pm --- libqbit-application-perl-0.002/lib/QBit/Application/Part.pm 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/lib/QBit/Application/Part.pm 2013-10-28 12:52:50.000000000 +0000 @@ -1,6 +1,6 @@ package QBit::Application::Part; { - $QBit::Application::Part::VERSION = '0.002'; + $QBit::Application::Part::VERSION = '0.003'; } use qbit; diff -Nru libqbit-application-perl-0.002/lib/QBit/Application/_Utils/TmpLocale.pm libqbit-application-perl-0.003/lib/QBit/Application/_Utils/TmpLocale.pm --- libqbit-application-perl-0.002/lib/QBit/Application/_Utils/TmpLocale.pm 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/lib/QBit/Application/_Utils/TmpLocale.pm 2013-10-28 12:52:50.000000000 +0000 @@ -1,6 +1,6 @@ package QBit::Application::_Utils::TmpLocale; { - $QBit::Application::_Utils::TmpLocale::VERSION = '0.002'; + $QBit::Application::_Utils::TmpLocale::VERSION = '0.003'; } use qbit; diff -Nru libqbit-application-perl-0.002/lib/QBit/Application/_Utils/TmpRights.pm libqbit-application-perl-0.003/lib/QBit/Application/_Utils/TmpRights.pm --- libqbit-application-perl-0.002/lib/QBit/Application/_Utils/TmpRights.pm 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/lib/QBit/Application/_Utils/TmpRights.pm 2013-10-28 12:52:50.000000000 +0000 @@ -1,6 +1,6 @@ package QBit::Application::_Utils::TmpRights; { - $QBit::Application::_Utils::TmpRights::VERSION = '0.002'; + $QBit::Application::_Utils::TmpRights::VERSION = '0.003'; } use qbit; diff -Nru libqbit-application-perl-0.002/lib/QBit/Application.pm libqbit-application-perl-0.003/lib/QBit/Application.pm --- libqbit-application-perl-0.002/lib/QBit/Application.pm 2013-09-14 10:49:48.000000000 +0000 +++ libqbit-application-perl-0.003/lib/QBit/Application.pm 2013-10-28 12:52:50.000000000 +0000 @@ -10,7 +10,7 @@ package QBit::Application; { - $QBit::Application::VERSION = '0.002'; + $QBit::Application::VERSION = '0.003'; } use qbit; @@ -344,8 +344,8 @@ return FALSE unless @rights; - my $cur_user = $self->get_option('cur_user'); - my $cur_rights = defined($cur_user) ? $cur_user->{'rights'} : undef; + my $cur_user = $self->get_option('cur_user') || return FALSE; + my $cur_rights = $cur_user->{'rights'}; unless (defined($cur_rights)) { my $cur_roles = $self->rbac->get_cur_user_roles();