loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2004/12/23 16:31:27	version 1.160, 2004/12/23 17:28:31
Line 658 sub process_content {	Line 658 sub process_content {
my $content_type;	my $content_type;
my $message;	my $message;
# find where user is author or co-author	# find where user is author or co-author
my %roleshash = &Apache::lonnet::get_my_roles();
my @uploads = ();	my @uploads = ();
if ($curRes->is_sequence()) {	if ($curRes->is_sequence()) {
$content_type = 'sequence';	$content_type = 'sequence';
Line 714 sub process_content {	Line 713 sub process_content {
my $canedit = 0;	my $canedit = 0;
if ($2 eq $ENV{'user.domain'} && $3 eq $ENV{'user.name'}) {	if ($2 eq $ENV{'user.domain'} && $3 eq $ENV{'user.name'}) {
$canedit= 1;	$canedit= 1;
} elsif (defined($roleshash{$coauth})) {
if ($roleshash{$coauth} =~ /(\d+):(\d+)/) {
if (($1 < time \|\| $1 == 0) && ($2 == 0 \|\| $2 >= time)) {
$canedit = 1;
}
} elsif ($roleshash{$coauth} eq ':') {
$canedit = 1;
}
}	}
if ($canedit) {	if ($canedit) {
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource');	$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource');