version 1.12, 2014/12/11 00:33:22
|
version 1.13, 2016/06/20 16:39:26
|
Line 395 sub process_content {
|
Line 395 sub process_content {
|
} |
} |
} elsif ($symb =~ m-\.(sequence|page)___\d+___uploaded/$cdom/$cnum/-) { |
} elsif ($symb =~ m-\.(sequence|page)___\d+___uploaded/$cdom/$cnum/-) { |
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded'); |
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded'); |
} elsif ($symb =~ m-\.(sequence|page)___\d+___([^/]+)/([^/]+)-) { |
} elsif ($symb =~ m-\.(?:sequence|page)___\d+___($match_domain/$match_name/.+)$-) { |
my $canedit = 0; |
my $url = &Apache::lonnet::clutter($1); |
if ($2 eq $env{'user.domain'} && $3 eq $env{'user.name'}) { |
$url =~ s{^/res/}{/priv/}; |
$canedit= 1; |
|
} |
|
# only include problem code where current user is author |
|
if (($format eq 'html') || ($format eq 'plaintext')) { |
if (($format eq 'html') || ($format eq 'plaintext')) { |
my $title = $curRes->title; |
my $title = $curRes->title; |
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,$format,$currdirpath,$title,$testbank); |
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,$format,$currdirpath,$title,$testbank); |
} elsif ($format eq 'xml') { |
} elsif ($format eq 'xml') { |
if ($canedit) { |
# only include problem code where current user is author or co-author, |
|
# or this is a course "author" resource. |
|
my ($ownername,$ownerdom,$ownerhome) = &Apache::lonnet::constructaccess($url); |
|
if (($ownername ne '') && ($ownerdom ne '') && ($ownerhome ne '')) { |
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource'); |
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource'); |
} else { |
} else { |
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'noedit'); |
$$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'noedit'); |