|
version 1.199, 2005/07/26 22:30:20
|
version 1.201, 2005/08/24 21:08:14
|
|
Line 155 sub dumpcourse {
|
Line 155 sub dumpcourse {
|
| my ($ca,$cd)=split(/\@/,$env{'form.authorspace'}); |
my ($ca,$cd)=split(/\@/,$env{'form.authorspace'}); |
| $r->print('<h3>'.&mt('Copying Files').'</h3>'); |
$r->print('<h3>'.&mt('Copying Files').'</h3>'); |
| my $title=$env{'form.authorfolder'}; |
my $title=$env{'form.authorfolder'}; |
| |
my ($ext)=($title=~s/\.(\w+)$//); |
| $title=&clean($title); |
$title=&clean($title); |
| |
$title.='.'.$ext; |
| my %replacehash=(); |
my %replacehash=(); |
| foreach (keys %env) { |
foreach (keys %env) { |
| if ($_=~/^form\.namefor\_(.+)/) { |
if ($_=~/^form\.namefor\_(.+)/) { |
|
Line 656 sub process_content {
|
Line 658 sub process_content {
|
| my ($count,$curRes,$cdom,$cnum,$symb,$content_file,$href,$copyresult,$tempexport) = @_; |
my ($count,$curRes,$cdom,$cnum,$symb,$content_file,$href,$copyresult,$tempexport) = @_; |
| my $content_type; |
my $content_type; |
| my $message; |
my $message; |
| # find where user is author or co-author |
|
| my @uploads = (); |
my @uploads = (); |
| if ($curRes->is_sequence()) { |
if ($curRes->is_sequence()) { |
| $content_type = 'sequence'; |
$content_type = 'sequence'; |
|
Line 710 sub process_content {
|
Line 711 sub process_content {
|
| 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; |
| } |
} |
| |
# only include problem code where current user is author |
| 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'); |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface