version 1.19, 2007/04/27 22:43:11
|
version 1.20, 2007/04/30 17:38:09
|
Line 73 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 73 if (&Apache::lonnet::allowed('vgr',$scop
|
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $res = $navmap->getBySymb($symb); |
my $res = $navmap->getBySymb($symb); |
my $partlist = $res->parts(); |
my $partlist = $res->parts(); |
foreach my $part(@$partlist) { |
|
&Apache::lonnet::logthis("partlist is $part"); |
|
} |
|
my ($zipout) = ($symb =~ /^.*\/(.+)\.problem$/); |
my ($zipout) = ($symb =~ /^.*\/(.+)\.problem$/); |
$zipout =~ s/\s/_/g; |
$zipout =~ s/\s/_/g; |
$zipout .= ".zip"; |
$zipout .= ".zip"; |
Line 92 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 89 if (&Apache::lonnet::allowed('vgr',$scop
|
my %files_saved; |
my %files_saved; |
my ($stuname,$studom,$fullname) = split(/:/,$stu); |
my ($stuname,$studom,$fullname) = split(/:/,$stu); |
my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname); |
my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname); |
|
my $file_url = '/uploaded/'.$studom.'/'.$stuname.'/portfolio'; |
foreach my $partid (@$partlist) { |
foreach my $partid (@$partlist) { |
my @ids = $res->responseIds($partid); |
my @ids = $res->responseIds($partid); |
foreach my $respid(@ids) { |
foreach my $respid(@ids) { |
&mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid",0,0700); |
&mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid",0,0700); |
my $files = &Apache::grades::get_submitted_files($studom,$stuname,$partid,$respid,\%record); |
foreach my $file (split(',',$record{"resource.$partid.$respid.portfiles"})) { |
foreach my $file (@$files) { |
$file = $file_url.$file; |
my ($file_name_only) = ($file =~ /^.*\/(.+$)/); |
my ($file_name_only) = ($file =~ /^.*\/(.+$)/); |
&Apache::lonnet::repcopy($file); |
&Apache::lonnet::repcopy($file); |
my $source = &Apache::lonnet::filelocation("",$file); |
my $source = &Apache::lonnet::filelocation("",$file); |