--- loncom/interface/loncreateuser.pm 2005/04/07 06:56:23 1.101
+++ loncom/interface/loncreateuser.pm 2005/06/19 00:41:32 1.105
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.101 2005/04/07 06:56:23 albertel Exp $
+# $Id: loncreateuser.pm,v 1.105 2005/06/19 00:41:32 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -108,10 +108,8 @@ sub my_custom_roles {
sub authorpriv {
my ($auname,$audom)=@_;
- if (($auname ne $env{'user.name'}) ||
- (($audom ne $env{'user.domain'}) &&
- ($audom ne $env{'request.role.domain'}))) { return ''; }
- unless (&Apache::lonnet::allowed('cca',$audom)) { return ''; }
+ unless ((&Apache::lonnet::allowed('cca',$audom.'/'.$auname))
+ || (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; }
return 1;
}
@@ -544,7 +542,7 @@ END
$bgcol=~s/[^7-9a-e]//g;
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);
if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {
- $carea.='
Section/Group: '.$3;
+ $carea.='
Section/Group: '.$3;
$sortkey.="\0$3";
}
$area=$carea;
@@ -574,7 +572,7 @@ END
$class='Domain';
}
}
- if ($role_code eq 'ca') {
+ if (($role_code eq 'ca') || ($role_code eq 'aa')) {
$area=~/\/(\w+)\/(\w+)/;
if (&authorpriv($2,$1)) {
$allowed=1;
@@ -778,6 +776,7 @@ ENDOTHERAUTHS
'sta' => "Start",
'end' => "End",
'cau' => "Co-Author",
+ 'caa' => "Assistant Co-Author",
'ssd' => "Set Start Date",
'sed' => "Set End Date"
);
@@ -796,6 +795,17 @@ ENDOTHERAUTHS
$lt{'sed'}
+
'.&mt('ERROR').': '.&mt('Unknown command').' '.$_.'
'.&mt('ERROR').': '.&mt('Unknown command').' '.$_.'