version 1.104, 2005/06/17 21:04:40
|
version 1.105, 2005/06/19 00:41:32
|
Line 108 sub my_custom_roles {
|
Line 108 sub my_custom_roles {
|
|
|
sub authorpriv { |
sub authorpriv { |
my ($auname,$audom)=@_; |
my ($auname,$audom)=@_; |
unless (&Apache::lonnet::allowed('cca',$audom.'/'.$auname)) { return ''; } |
unless ((&Apache::lonnet::allowed('cca',$audom.'/'.$auname)) |
|
|| (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; } |
return 1; |
return 1; |
} |
} |
|
|
Line 571 END
|
Line 572 END
|
$class='Domain'; |
$class='Domain'; |
} |
} |
} |
} |
if ($role_code eq 'ca') { |
if (($role_code eq 'ca') || ($role_code eq 'aa')) { |
$area=~/\/(\w+)\/(\w+)/; |
$area=~/\/(\w+)\/(\w+)/; |
if (&authorpriv($2,$1)) { |
if (&authorpriv($2,$1)) { |
$allowed=1; |
$allowed=1; |
Line 775 ENDOTHERAUTHS
|
Line 776 ENDOTHERAUTHS
|
'sta' => "Start", |
'sta' => "Start", |
'end' => "End", |
'end' => "End", |
'cau' => "Co-Author", |
'cau' => "Co-Author", |
|
'caa' => "Assistant Co-Author", |
'ssd' => "Set Start Date", |
'ssd' => "Set Start Date", |
'sed' => "Set End Date" |
'sed' => "Set End Date" |
); |
); |
Line 793 ENDOTHERAUTHS
|
Line 795 ENDOTHERAUTHS
|
<a href= |
<a href= |
"javascript:pjump('date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset')">$lt{'sed'}</a></td> |
"javascript:pjump('date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset')">$lt{'sed'}</a></td> |
</tr> |
</tr> |
|
<tr> |
|
<td><input type=checkbox name="act_$cudom\_$cuname\_aa" /></td> |
|
<td>$lt{'caa'}</td> |
|
<td>$cudom\_$cuname</td> |
|
<td><input type=hidden name="start_$cudom\_$cuname\_aa" value='' /> |
|
<a href= |
|
"javascript:pjump('date_start','Start Date Assistant Co-Author',document.cu.start_$cudom\_$cuname\_aa.value,'start_$cudom\_$cuname\_aa','cu.pres','dateset')">$lt{'ssd'}</a></td> |
|
<td><input type=hidden name="end_$cudom\_$cuname\_aa" value='' /> |
|
<a href= |
|
"javascript:pjump('date_end','End Date Assistant Co-Author',document.cu.end_$cudom\_$cuname\_aa.value,'end_$cudom\_$cuname\_aa','cu.pres','dateset')">$lt{'sed'}</a></td> |
|
</tr> |
</table> |
</table> |
ENDCOAUTH |
ENDCOAUTH |
} |
} |