[BACK]Return to imsexport.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / imspackages

Diff for /loncom/imspackages/imsexport.pm between versions 1.12 and 1.13

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');
Removed from v.1.12  
changed lines
  Added in v.1.13

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>