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

Diff for /loncom/interface/londocs.pm between versions 1.156 and 1.158

version 1.156, 2004/12/14 21:10:58 version 1.158, 2004/12/23 14:00:58
Line 30  package Apache::londocs; Line 30  package Apache::londocs;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
   use Apache::imsexport;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonratedt;  use Apache::lonratedt;
Line 283  sub exportcourse { Line 284  sub exportcourse {
             $outcome = '<br />As you did not select any content items or discussions for export, an IMS package has not been created.  Please <a href="javascript:history.go(-1)">go back</a> to select either content items or discussions for export';              $outcome = '<br />As you did not select any content items or discussions for export, an IMS package has not been created.  Please <a href="javascript:history.go(-1)">go back</a> to select either content items or discussions for export';
         } else {          } else {
             my $now = time;              my $now = time;
             my $count = 0;  
             my %symbs;              my %symbs;
             my $manifestok = 0;              my $manifestok = 0;
             my $imsresources;              my $imsresources;
Line 291  sub exportcourse { Line 291  sub exportcourse {
             my $copyresult;              my $copyresult;
             my $ims_manifest = &create_ims_store($now,\$manifestok,\$outcome,\$tempexport);              my $ims_manifest = &create_ims_store($now,\$manifestok,\$outcome,\$tempexport);
             if ($manifestok) {              if ($manifestok) {
                 &build_package($now,$navmap,\@exportitems,\@discussions,\$outcome,\$tempexport,\$copyresult,$ims_manifest);                  &build_package($now,$navmap,\@exportitems,\@discussions,\$outcome,$tempexport,\$copyresult,$ims_manifest);
                 close($ims_manifest);                  close($ims_manifest);
   
 #Create zip file in prtspool  #Create zip file in prtspool
Line 320  sub exportcourse { Line 320  sub exportcourse {
         }          }
   
         $r->print('<html><head><title>Export Course</title></head>'.          $r->print('<html><head><title>Export Course</title></head>'.
             &Apache::loncommon::bodytag('Export course to IMS or SCORM content package'));              &Apache::loncommon::bodytag('Export course to IMS content package'));
         $r->print($outcome);          $r->print($outcome);
         $r->print('</body></html>');          $r->print('</body></html>');
     } else {      } else {
Line 369  sub exportcourse { Line 369  sub exportcourse {
             }              }
             if (ref($curRes)) {              if (ref($curRes)) {
                 my $symb = $curRes->symb();                  my $symb = $curRes->symb();
                   my $ressymb = $symb;
                   if ($ressymb =~ m|adm/(\w+)/(\w+)/(\d+)/bulletinboard$|) {
                       unless ($ressymb =~ m|adm/wrapper/adm|) {
                           $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';
                       }
                   }
                 my $color = $count%2;                  my $color = $count%2;
                 $display .='<tr bgcolor='.$bgcolors[$color].'><td>'."\n".                  $display .='<tr bgcolor='.$bgcolors[$color].'><td>'."\n".
                     '<input type="checkbox" name="archive" value="'.$count.'" ';                      '<input type="checkbox" name="archive" value="'.$count.'" ';
Line 390  sub exportcourse { Line 396  sub exportcourse {
                 my $currelem = $count+$boards+$startcount;                  my $currelem = $count+$boards+$startcount;
                 $children{$parent{$depth}} .= $currelem.':';                  $children{$parent{$depth}} .= $currelem.':';
                 $display .= '&nbsp;'.$curRes->title().'</td>';                  $display .= '&nbsp;'.$curRes->title().'</td>';
                 if ($discussiontime{$symb} > 0) {                  if ($discussiontime{$ressymb} > 0) {
                     $boards ++;                      $boards ++;
                     $currelem = $count+$boards+$startcount;                      $currelem = $count+$boards+$startcount;
                     $display .= '<td>&nbsp;</td><td align="right"><input type="checkbox" name="discussion" value="'.$count.'" />&nbsp;</td>'."\n";                      $display .= '<td>&nbsp;</td><td align="right"><input type="checkbox" name="discussion" value="'.$count.'" />&nbsp;</td>'."\n";
Line 403  sub exportcourse { Line 409  sub exportcourse {
 <script>  <script>
   
 function checkAll(field) {  function checkAll(field) {
     for (i = 0; i < field.length; i++)      if (field.length > 0) {
         field[i].checked = true ;          for (i = 0; i < field.length; i++) {
               field[i].checked = true ;
           }
       } else {
           field.checked = true
       }
 }  }
                                                                                   
 function uncheckAll(field) {  function uncheckAll(field) {
     for (i = 0; i < field.length; i++)      if (field.length > 0) {
         field[i].checked = false ;          for (i = 0; i < field.length; i++) {
               field[i].checked = false ;
           }
       } else {
           field.checked = false ;
       }
 }  }
   
 function propagateCheck(item) {  function propagateCheck(item) {
Line 445  function containerCheck(item) { Line 461  function containerCheck(item) {
 </script>  </script>
         |;          |;
         $r->print('<html><head><title>Export Course</title>'.$scripttag.'</head>'.          $r->print('<html><head><title>Export Course</title>'.$scripttag.'</head>'.
             &Apache::loncommon::bodytag('Export course to IMS or SCORM content package'              &Apache::loncommon::bodytag('Export course to IMS content package'
 ));  ));
   
         $r->print($display.'</table>'.          $r->print($display.'</table>'.
Line 483  sub create_ims_store { Line 499  sub create_ims_store {
 ' identifier="MANIFEST-'.$ENV{'request.course.id'}.'-'.$now.'"'.  ' identifier="MANIFEST-'.$ENV{'request.course.id'}.'-'.$now.'"'.
 '  xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1imscp_v1p1.xsd'.  '  xsi:schemaLocation="http://www.imsglobal.org/xsd/imscp_v1p1imscp_v1p1.xsd'.
 '  http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2p2.xsd">'."\n".  '  http://www.imsglobal.org/xsd/imsmd_v1p2 imsmd_v1p2p2.xsd">'."\n".
 '  <organizations default="ORG-."'.$ENV{'request,course.id'}.'-'.$now.'">'."\n".  '  <organizations default="ORG-'.$ENV{'request.course.id'}.'-'.$now.'">'."\n".
 '    <organization identifier="ORG-'.$ENV{'request.course.id'}.'-'.$now.'"'.  '    <organization identifier="ORG-'.$ENV{'request.course.id'}.'-'.$now.'"'.
 ' structure="hierarchical">'."\n".  ' structure="hierarchical">'."\n".
 '      <title>'.$ENV{'request.'.$ENV{'request.course.id'}.'.description'}.'</title>'  '      <title>'.$ENV{'request.'.$ENV{'request.course.id'}.'.description'}.'</title>'
Line 504  sub build_package { Line 520  sub build_package {
     my $lastcontainer = 0;      my $lastcontainer = 0;
     my %parent = ();      my %parent = ();
     my @dependencies = ();      my @dependencies = ();
     my $cnum = $ENV{'request.'.$ENV{'request.course.id'}.'.num'};      my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
     my $cdom = $ENV{'request.'.$ENV{'request.course.id'}.'.domain'};      my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     while ($curRes = $it->next()) {      while ($curRes = $it->next()) {
         if (ref($curRes)) {          if (ref($curRes)) {
             $count ++;              $count ++;
Line 534  sub build_package { Line 550  sub build_package {
     $count = 0;      $count = 0;
     my $imsresources;      my $imsresources;
     my $pkgdepth;      my $pkgdepth;
     if ($curRes == $it->BEGIN_MAP()) {      my $included = 0;
         $prevdepth = $depth;      while ($curRes = $it->next()) {
         $depth++;          if ($curRes == $it->BEGIN_MAP()) {
     }              $prevdepth = $depth;
     if ($curRes == $it->END_MAP()) {              $depth++;
         $prevdepth = $depth;          }
         $depth--;          if ($curRes == $it->END_MAP()) {
     }  
   
     if (ref($curRes)) {  
         if ((grep/^$count$/,@$exportitems) || (grep/^$count$/,@dependencies)) {  
             my $symb = $curRes->symb();  
             my $isvisible = 'true';  
             my $resourceref;  
             if ($curRes->randomout()) {  
                 $isvisible = 'false';  
             }  
             unless ($curRes->is_sequence()) {  
                 $resourceref = 'identifierref="RES-'.$ENV{'request.course.id'}.'-'.$count.'"';  
             }  
             if (($depth <= $prevdepth) && ($count > 1)) {  
                 print $ims_manifest '  </item>'."\n";  
             }  
             $prevdepth = $depth;              $prevdepth = $depth;
               $depth--;
           }
   
             my $itementry =          if (ref($curRes)) {
               $count ++;
               if ((grep/^$count$/,@$exportitems) || (grep/^$count$/,@dependencies)) {
                   my $symb = $curRes->symb();
                   my $isvisible = 'true';
                   my $resourceref;
                   if ($curRes->randomout()) {
                       $isvisible = 'false';
                   }
                   unless ($curRes->is_sequence()) {
                       $resourceref = 'identifierref="RES-'.$ENV{'request.course.id'}.'-'.$count.'"';
                   }
                   if (($depth <= $prevdepth) && ($count > 1) && ($included)) {
                       print $ims_manifest "\n".'  </item>'."\n";
                   }
                   $included = 1;
                   $prevdepth = $depth;
   
                   my $itementry =
               '<item identifier="ITEM-'.$ENV{'request.course.id'}.'-'.$count.                '<item identifier="ITEM-'.$ENV{'request.course.id'}.'-'.$count.
               '" isvisible="'.$isvisible.'" '.$resourceref.'>'.                '" isvisible="'.$isvisible.'" '.$resourceref.'>'.
               '<title>'.$curRes->title().'</title>';                '<title>'.$curRes->title().'</title>';
             print $ims_manifest "\n".$itementry;                  print $ims_manifest "\n".$itementry;
   
             unless ($curRes->is_sequence()) {                  unless ($curRes->is_sequence()) {
                 my $content_file;                      my $content_file;
                 my @hrefs = ();                      my @hrefs = ();
                 &process_content($count,$curRes,$cdom,$cnum,$symb,$content_file,\@hrefs,$copyresult,$tempexport);                      &process_content($count,$curRes,$cdom,$cnum,$symb,\$content_file,\@hrefs,$copyresult,$tempexport);
                 if ($content_file) {                      if ($content_file) {
                     $imsresources .= "\n".                          $imsresources .= "\n".
                      '   <resource identifier="RES-'.$ENV{'request.course.id'}.'-'.$count.                       '   <resource identifier="RES-'.$ENV{'request.course.id'}.'-'.$count.
                      '" type="webcontent" href="'.$content_file.'">'."\n".                       '" type="webcontent" href="'.$content_file.'">'."\n".
                      '       <file href="'.$content_file.'" />'."\n";                       '       <file href="'.$content_file.'" />'."\n";
                     foreach (@hrefs) {                          foreach (@hrefs) {
                         $imsresources .=                              $imsresources .=
                      '        <file href="'.$_.'" />'."\n";                       '        <file href="'.$_.'" />'."\n";
                           }
                           if (grep/^$count$/,@$discussions) {
                               my $ressymb = $symb;
                               my $mode;
                               if ($ressymb =~ m|adm/(\w+)/(\w+)/(\d+)/bulletinboard$|) {
                                   unless ($ressymb =~ m|adm/wrapper/adm|) {
                                       $ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';
                                   }
                                   $mode = 'board';
                               }
                               my %extras = (
                                             caller => 'imsexport',
                                             tempexport => $tempexport,
                                             count => $count
                                            );
                               my $discresult = &Apache::lonfeedback::list_discussion($mode,undef,$ressymb,\%extras);
                           }
                           $imsresources .= '    </resource>'."\n";
                     }                      }
                     $imsresources .= '    </resource>'."\n";  
                 }                  }
                   $pkgdepth = $depth;
               } else {
                   $included = 0;
             }              }
             $pkgdepth = $depth;  
         }          }
     }      }
     while ($pkgdepth > -1) {      while ($pkgdepth > 0) {
         print $ims_manifest "    </item>\n";          print $ims_manifest "    </item>\n";
         $pkgdepth --;          $pkgdepth --;
     }      }
Line 602  sub build_package { Line 641  sub build_package {
 sub get_dependencies {  sub get_dependencies {
     my ($exportitems,$parent,$depth,$dependencies) = @_;      my ($exportitems,$parent,$depth,$dependencies) = @_;
     if ($depth > 1) {      if ($depth > 1) {
         unless (grep/^$$parent{$depth}$/,@$exportitems || grep/^$$parent{$depth}$/,@$dependencies) {          if ((!grep/^$$parent{$depth}$/,@$exportitems) && (!grep/^$$parent{$depth}$/,@$dependencies)) {
             push @$dependencies, $$parent{$depth};              push @$dependencies, $$parent{$depth};
             if ($depth > 2) {              if ($depth > 2) {
                 &get_dependencies($exportitems,$parent,$depth-1,$dependencies);                  &get_dependencies($exportitems,$parent,$depth-1,$dependencies);
Line 616  sub process_content { Line 655  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 = &Appache::lonnet::get_my_roles();      my %roleshash = &Apache::lonnet::get_my_roles();
     if ($curRes->is_page()) {      my @uploads = ();
         $content_type = 'page';      if ($curRes->is_sequence()) {
           $content_type = 'sequence';
       } elsif ($curRes->is_page()) {
           $content_type = 'page'; # need to handle individual items in pages.
     } elsif ($symb =~ m-public/$cdom/$cnum/syllabus$-) {      } elsif ($symb =~ m-public/$cdom/$cnum/syllabus$-) {
         $content_type = 'syllabus';          $content_type = 'syllabus';
     } elsif ($symb =~ m-\.sequence____\d+____ext-) {          my $contents = &Apache::imsexport::templatedpage($content_type);
           if ($contents) {
               $$content_file = &store_template($contents,$tempexport,$count,$content_type);
           }
       } elsif ($symb =~ m-\.sequence___\d+___ext-) {
         $content_type = 'external';          $content_type = 'external';
           my $title = $curRes->title;
           my $contents =  &Apache::imsexport::external($symb,$title);
           if ($contents) {
               $$content_file = &store_template($contents,$tempexport,$count,$content_type);
           }
     } elsif ($symb =~ m-adm/navmaps$-) {      } elsif ($symb =~ m-adm/navmaps$-) {
         $content_type =  'navmap';          $content_type =  'navmap';
     } elsif ($symb =~ m-adm/$cdom/$cnum/\d+/smppg$-) {      } elsif ($symb =~ m-adm/[^/]+/[^/]+/(\d+)/smppg$-) {
         $content_type = 'simplepage';          $content_type = 'simplepage';
     } elsif ($symb =~ m-$-) {          my $contents = &Apache::imsexport::templatedpage($content_type,$1,$count,\@uploads);
           if ($contents) {
               $$content_file = &store_template($contents,$tempexport,$count,$content_type);
           }
       } elsif ($symb =~ m-lib/templates/simpleproblem\.problem$-) {
         $content_type = 'simpleproblem';          $content_type = 'simpleproblem';
     } elsif ($symb =~ m-adm/$cdom/$cnum/\d+/bulletinboard$-) {          my $contents =  &Apache::imsexport::simpleproblem($symb);
           if ($contents) {
               $$content_file = &store_template($contents,$tempexport,$count,$content_type);
           }
       } elsif ($symb =~ m-lib/templates/examupload\.problem-m) {
           $content_type = 'examupload';
       } elsif ($symb =~ m-adm/(\w+)/(\w+)/(\d+)/bulletinboard$-) {
         $content_type = 'bulletinboard';          $content_type = 'bulletinboard';
     } elsif ($symb =~ m-adm/$cdom/$cnum/\d+/aboutme$-) {          my $contents =  &Apache::imsexport::templatedpage($content_type,$3,$count,\@uploads,$1,$2);
           if ($contents) {
               $$content_file = &store_template($contents,$tempexport,$count,$content_type);
           }
       } elsif ($symb =~ m-adm/([^/]+)/([^/]+)/aboutme$-) {
         $content_type = 'aboutme';          $content_type = 'aboutme';
           my $contents =  &Apache::imsexport::templatedpage($content_type,undef,$count,\@uploads,$1,$2);
           if ($contents) {
               $$content_file = &store_template($contents,$tempexport,$count,$content_type);
           }
     } elsif ($symb =~ m-uploaded/$cdom/$cnum-) {      } elsif ($symb =~ m-uploaded/$cdom/$cnum-) {
         &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,'uploaded');          $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');
     } elsif ($symb =~ m-\.sequence____\d+____([^/])/([^/])-) {      } elsif ($symb =~ m-\.(sequence|page)___\d+___uploaded/$cdom/$cnum/-) {
         my $coauth = $2.':'.$1.':ca';          $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'uploaded');
       } elsif ($symb =~ m-\.(sequence|page)___\d+___([^/])/([^/])-) {
           my $coauth = $3.':'.$2.':ca';
         my $canedit = 0;          my $canedit = 0;
         if ($1 eq $ENV{'user.domain'} && $2 eq $ENV{'user.name'})  {          if ($2 eq $ENV{'user.domain'} && $3 eq $ENV{'user.name'})  {
             $canedit= 1;              $canedit= 1;
         } elsif (defined($roleshash{$coauth})) {          } elsif (defined($roleshash{$coauth})) {
             if ($roleshash{$coauth} =~ /(\d+):(\d+)/) {              if ($roleshash{$coauth} =~ /(\d+):(\d+)/) {
Line 650  sub process_content { Line 721  sub process_content {
             }              }
         }          }
         if ($canedit) {          if ($canedit) {
             &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,'resource');              $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource');
         } else {          } else {
             &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,'noedit');              $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'noedit');
           }
       }
       if (@uploads > 0) {
           foreach my $item (@uploads) {
               my $uploadmsg = '';
               &replicate_content($cdom,$cnum,$tempexport,$item,$count,\$uploadmsg,$href,'uploaded');
               if ($uploadmsg) {
                   $$copyresult .= $uploadmsg."\n";
               }
         }          }
     }      }
     $$copyresult .= $message."\n";      if ($message) {
           $$copyresult .= $message."\n";
       }
 }  }
   
 sub replicate_content {  sub replicate_content {
     my ($cdom,$cnum,$tempexport,$symb,$count,$message,$caller) = @_;      my ($cdom,$cnum,$tempexport,$symb,$count,$message,$href,$caller) = @_;
     my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);      my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
     my $feedurl = &Apache::lonnet::clutter($url);      my $feedurl = &Apache::lonnet::clutter($url);
   
     my $content;      my $content;
     my $filename;      my $filename;
     my $repstatus;      my $repstatus;
     if ($url =~ m-[^/]/(.+)$-) {      my $content_name;
       if ($url =~ m-/([^/]+)$-) {
         $filename = $1;          $filename = $1;
         if (!-e $tempexport.'/resources') {          if (!-e $tempexport.'/resources') {
             mkdir($tempexport.'/resources',0700);              mkdir($tempexport.'/resources',0700);
         }          }
         if (!-e $tempexport.'/resources') {          if (!-e $tempexport.'/resources/'.$count) {
             mkdir($tempexport.'/resources/'.$count,0700);              mkdir($tempexport.'/resources/'.$count,0700);
         }          }
         my $destination = $$tempexport.'/resources/'.$count.'/'.$filename;          my $destination = $tempexport.'/resources/'.$count.'/'.$filename;
         my $copiedfile;          my $copiedfile;
         if ($copiedfile = Apache::File->new('>'.$destination)) {          if ($copiedfile = Apache::File->new('>'.$destination)) {
             my $content;              my $content;
             if ($caller eq 'uploaded' || $caller eq 'resource') {              if ($caller eq 'resource') {
                 $content = &Apache::lonnet::getfile($url);                  $content = &Apache::lonnet::getfile($url);
                 if ($content eq -1) {                  if ($content eq -1) {
                     $$message = 'Could not copy file '.$filename;                      $$message = 'Could not copy file '.$filename;
                 } else {                  } else {
                       &extract_media($content,$count,$tempexport,$href,'resource');
                     $repstatus = 'ok';                      $repstatus = 'ok';
                 }                  }
             } elsif ($caller eq 'noedit') {              } elsif ($caller eq 'noedit' || $caller eq 'uploaded') {
                 my $rtncode;                  my $rtncode;
                 $repstatus = &getuploaded('GET',$url,$cdom,$cnum,$content,$rtncode);                  $repstatus = &Apache::lonnet::getuploaded('GET',$url,$cdom,$cnum,\$content,$rtncode);
                 unless ($repstatus eq 'ok') {                  if ($repstatus eq 'ok') {
                       if ($url =~ /\.html?$/i) {
                           &extract_media(\$content,$count,$tempexport,$href,'uploaded');
                       }
                   } else {
                     $$message = 'Could not render '.$url.' server message - '.$rtncode;                      $$message = 'Could not render '.$url.' server message - '.$rtncode;
                 }                  }
             }              }
Line 700  sub replicate_content { Line 788  sub replicate_content {
             $$message = 'Could not open destination file for '.$filename."\n";              $$message = 'Could not open destination file for '.$filename."\n";
         }          }
     } else {      } else {
         $$message = 'Could not determine name of file for ';          $$message = 'Could not determine name of file for '.$url."\n";
       }
       if ($repstatus eq 'ok') {
           $content_name = $count.'/'.$filename;
       }
       return $content_name;
   }
   
   sub extract_media {
       my ($content,$count,$tempexport,$href,$caller) = @_;
   # @$href will contain path to any embedded resources in the content.
   # For LON-CAPA problems this would be images. applets etc. 
   # For uploaded HTML files this would be images etc.
   # paths will be in the form $count/res/$file, and urls in the $content will be rewritten with the new paths. 
       return;
   }
   
   sub store_template {
       my ($contents,$tempexport,$count,$content_type) = @_;
       if ($contents) {
           my $destination = $tempexport.'/resources/'.$count.'/'.$content_type.'.xml';
           my $storetemplate;
           if ($storetemplate = Apache::File->new('>'.$destination)) {
               print $storetemplate $contents;
               close($storetemplate);
           }
           return $count.'/'.$content_type.'.xml';
     }      }
     return $repstatus;  
 }  }
   
 # Imports the given (name, url) resources into the course  # Imports the given (name, url) resources into the course
Removed from v.1.156  
changed lines
  Added in v.1.158

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