[LON-CAPA-cvs] cvs: loncom /interface lonuserutils.pm

[raeburn]

raeburn		Wed Apr 25 21:05:30 2012 EDT

  Modified files:              
    /loncom/interface	lonuserutils.pm 
  Log:
  - skip check for loncapa version (via "extra" hashref passed to lonnet::dump)
    when getting dump of roles for purposes other than rolesinit.
  
  
Index: loncom/interface/lonuserutils.pm
diff -u loncom/interface/lonuserutils.pm:1.136 loncom/interface/lonuserutils.pm:1.137
--- loncom/interface/lonuserutils.pm:1.136	Fri Aug  5 14:46:58 2011
+++ loncom/interface/lonuserutils.pm	Wed Apr 25 21:05:30 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.136 2011/08/05 14:46:58 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.137 2012/04/25 21:05:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1422,7 +1422,8 @@
 sub my_custom_roles {
     my ($crstype) = @_;
     my %returnhash=();
-    my %rolehash=&Apache::lonnet::dump('roles');
+    my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
+    my %rolehash=&Apache::lonnet::dump('roles',undef,undef,'.',undef,$extra);
     foreach my $key (keys(%rolehash)) {
         if ($key=~/^rolesdef\_(\w+)$/) {
             if ($crstype eq 'Community') {