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

Diff for /loncom/imspackages/imsimportdocs.pm between versions 1.17 and 1.23

version 1.17, 2006/03/24 17:36:27 version 1.23, 2009/08/17 03:52:09
Line 1 Line 1
   # The LearningOnline Network with CAPA
   #
   # $Id$
   #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 30  use Apache::loncommon; Line 34  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::imsprocessor;  use Apache::imsprocessor;
 use LONCAPA::Configuration;  use LONCAPA::Configuration;
   use LONCAPA::map();
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
    
 use strict;  use strict;
   
 sub jscript_one {  sub jscript_one {
Line 150  sub handler { Line 158  sub handler {
     
     my $uname=$env{'user.name'};      my $uname=$env{'user.name'};
     my $udom=$env{'user.domain'};      my $udom=$env{'user.domain'};
     my $plainname=&Apache::lonnet::escape(      my $plainname=&escape(
                      &Apache::loncommon::plainname($uname,$udom));                       &Apache::loncommon::plainname($uname,$udom));
   
 # does this user have privileges to post, etc?  # does this user have privileges to post, etc?
Line 210  sub display_one { Line 218  sub display_one {
         </td>          </td>
        </tr>         </tr>
        <tr bgcolor='#CCCCFF'>         <tr bgcolor='#CCCCFF'>
         <td valign='middle'><img src='/res/adm/pages/bl_step1.gif'>&nbsp;          <td valign="middle"><img src="/res/adm/pages/bl_step1.gif" alt="1" />&nbsp;
         </td>          </td>
         <td width='100%' align='left'>&nbsp;&nbsp;          <td width='100%' align='left'>&nbsp;&nbsp;
          <font face='arial,helvetica,sans-serif'><b>Specify the Course Management system used to create the package.</b>&nbsp;&nbsp;           <font face='arial,helvetica,sans-serif'><b>Specify the Course Management system used to create the package.</b>&nbsp;&nbsp;
Line 229  Please choose the CMS used to create you Line 237  Please choose the CMS used to create you
          <option value='-1' selected="true">Please select</option>           <option value='-1' selected="true">Please select</option>
          <option value='bb5'>Blackboard 5</option>           <option value='bb5'>Blackboard 5</option>
          <option value='bb6'>Blackboard 6</option>           <option value='bb6'>Blackboard 6</option>
          <option value='angel'>ANGEL</option>           <option value='angel5'>ANGEL 5.5</option>
          <option value='webctce4'>WebCT 4 Campus Edition</option>           <option value='webctce4'>WebCT 4 Campus Edition</option>
         </select>          </select>
         </font>          </font>
Line 242  Please choose the CMS used to create you Line 250  Please choose the CMS used to create you
        <td colspan='2'>&nbsp;</td>         <td colspan='2'>&nbsp;</td>
       </tr>        </tr>
       <tr bgcolor='#CCCCFF'>        <tr bgcolor='#CCCCFF'>
         <td valign='middle'><img src='/res/adm/pages/bl_step2.gif'>&nbsp;          <td valign="middle"><img src="/res/adm/pages/bl_step2.gif" alt="2" />&nbsp;
         </td>          </td>
         <td width='100%' align='left'>&nbsp;&nbsp;          <td width='100%' align='left'>&nbsp;&nbsp;
          <font face='arial,helvetica,sans-serif'><b>Locate the IMS content package you wish to upload.</b>&nbsp;&nbsp;           <font face='arial,helvetica,sans-serif'><b>Locate the IMS content package you wish to upload.</b>&nbsp;&nbsp;
Line 338  sub display_two { Line 346  sub display_two {
                             $count{$area} ++;                              $count{$area} ++;
                         }                          }
                     }                      }
                 } elsif ($cms eq 'angel') {                  } elsif ($cms eq 'angel5') {
                     foreach my $area (keys %{$cmsmap{$cms}}) {                      foreach my $area (keys %{$cmsmap{$cms}}) {
                         if ($area eq 'doc') {                          if ($area eq 'doc') {
                             if (grep/^$resources{$res}{type}$/,@{$cmsmap{$cms}{doc}}) {                              if (grep/^$resources{$res}{type}$/,@{$cmsmap{$cms}{doc}}) {
Line 361  sub display_two { Line 369  sub display_two {
        </td>         </td>
       </tr>        </tr>
       <tr bgcolor='#CCCCFF'>        <tr bgcolor='#CCCCFF'>
        <td valign='middle'><img src='/res/adm/pages/bl_step3.gif'>         <td valign="middle"><img src="/res/adm/pages/bl_step3.gif" alt="3" />
        </td>         </td>
        <td width='100%' align='left'>&nbsp;&nbsp;         <td width='100%' align='left'>&nbsp;&nbsp;
         <font face='arial,helvetica,sans-serif'><b>Choose which content types you wish to import</b></font>          <font face='arial,helvetica,sans-serif'><b>Choose which content types you wish to import</b></font>
Line 431  ENDBLOCK Line 439  ENDBLOCK
        <td colspan='2'>&nbsp;<br /><br /></td>         <td colspan='2'>&nbsp;<br /><br /></td>
       </tr>        </tr>
       <tr bgcolor='#CCCCFF'>        <tr bgcolor='#CCCCFF'>
        <td valign='middle'><img src='/res/adm/pages/bl_step4.gif'>         <td valign="middle"><img src="/res/adm/pages/bl_step4.gif" alt="4" />
        </td>         </td>
        <td width='100%' align='left'>&nbsp;&nbsp;         <td width='100%' align='left'>&nbsp;&nbsp;
         <font face='arial,helvetica,sans-serif'><b>Choose display options for listing of contents of top level of package.</b></font>          <font face='arial,helvetica,sans-serif'><b>Choose display options for listing of contents of top level of package.</b></font>
Line 545  sub display_three { Line 553  sub display_three {
   
     foreach my $area (@{$areas}) {      foreach my $area (@{$areas}) {
         if (defined($env{"form.$area"}) && ($env{'form.'.$area} ne '')) {          if (defined($env{"form.$area"}) && ($env{'form.'.$area} ne '')) {
             if ($cms eq 'angel' && $area eq 'doc') {              if ($cms eq 'angel5' && $area eq 'doc') {
                 foreach (@{$cmsmap{$cms}{$area}}) {                  foreach (@{$cmsmap{$cms}{$area}}) {
                     $importareas{$_} = 1;                      $importareas{$_} = 1;
                 }                  }
Line 631  sub display_three { Line 639  sub display_three {
         my @imports = ();          my @imports = ();
         if ($toplevel eq 'oldfolder') {          if ($toplevel eq 'oldfolder') {
             for (my $i=0; $i<@topurls; $i++) {              for (my $i=0; $i<@topurls; $i++) {
                 my $url = &Apache::lonnet::unescape($topurls[$i]);                  my $url = &unescape($topurls[$i]);
                 my $name = &Apache::lonnet::unescape($topnames[$i]);                  my $name = &unescape($topnames[$i]);
                 push @imports, $name, $url;                  push(@imports, [$name, $url]);
             }              }
         } elsif ($toplevel eq 'newfolder') {          } elsif ($toplevel eq 'newfolder') {
             my $url = &Apache::lonnet::unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence");              my $url = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence");
             my $name = &Apache::lonnet::unescape("$env{'form.foldername'}");              my $name = &unescape("$env{'form.foldername'}");
             push @imports, $name, $url;              push(@imports, [$name, $url]);
         }          }
         my $errtext='';          my $errtext='';
         my $fatal=0;          my $fatal=0;
         ($errtext,$fatal)=  &Apache::londocs::mapread($crs,$cdom,$folder.'.sequence');          ($errtext,$fatal)=  &Apache::londocs::mapread($crs,$cdom,$folder.'.sequence');
         if ($#Apache::lonratedt::order<1) {          if ($#LONCAPA::map::order<1) {
             $Apache::lonratedt::order[0]=1;              $LONCAPA::map::order[0]=1;
             $Apache::lonratedt::resources[1]='';              $LONCAPA::map::resources[1]='';
         }          }
         my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports);          my ($errtext,$fatal)=&Apache::londocs::group_import($crs,$cdom,$folder,'sequence','imsimport',@imports);
         if ($fatal) {          if ($fatal) {
             print STDERR "Fatal error during group_import\n";              &Apache::lonnet::logthis("Fatal error during group_import.");
         }          }
     }      }
     if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) {      if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) {
Line 665  sub display_three { Line 673  sub display_three {
        </td>         </td>
       </tr>        </tr>
       <tr bgcolor='#CCCCFF'>        <tr bgcolor='#CCCCFF'>
        <td valign='middle'><img src='/res/adm/pages/bl_step5.gif'>         <td valign="middle"><img src="/res/adm/pages/bl_step5.gif" alt="5" />
        </td>         </td>
        <td width='100%' align='left'>&nbsp;&nbsp;         <td width='100%' align='left'>&nbsp;&nbsp;
         <font face='arial,helvetica,sans-serif'><b>Your import is complete</b></font>          <font face='arial,helvetica,sans-serif'><b>Your import is complete</b></font>
Removed from v.1.17  
changed lines
  Added in v.1.23

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