loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1091, 2012/08/14 10:22:25
+version 1.1092, 2012/08/14 15:45:06
  Line 13872  sub init_user_environment {
                                                    \%userenv,\%domdef,\%is_adv);
          }
+         $userenv{'canrequest.author'} =
+             &Apache::lonnet::usertools_access($username,$domain,'requestauthor',
+                                         'reload','requestauthor',
+                                         \%userenv,\%domdef,\%is_adv);
+         my %reqauthor = &Apache::lonnet::get('requestauthor',['author_status','author'],
+                                              $domain,$username);
+         my $reqstatus = $reqauthor{'author_status'};
+         if ($reqstatus eq 'approval' || $reqstatus eq 'approved') {
+             if (ref($reqauthor{'author'}) eq 'HASH') {
+                 $userenv{'requestauthorqueued'} = $reqstatus.':'.
+                                                   $reqauthor{'author'}{'timestamp'};
+             }
+         }
  	$env{'user.environment'} = "$lonids/$cookie.id";
  	if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",