[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonuserutils.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2012-04-25 21:05:30
Message-ID: cvsraeburn1335387930 () cvsserver
[Download RAW message or body]

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') {


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]