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

Diff for /loncom/imspackages/imsimportdocs.pm between versions 1.18 and 1.22

version 1.18, 2006/05/30 12:45:50 version 1.22, 2009/05/04 16:45:51
Line 34  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 lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA;
     
Line 217  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 249  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 368  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 438  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 640  sub display_three { Line 641  sub display_three {
             for (my $i=0; $i<@topurls; $i++) {              for (my $i=0; $i<@topurls; $i++) {
                 my $url = &unescape($topurls[$i]);                  my $url = &unescape($topurls[$i]);
                 my $name = &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 = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence");              my $url = &unescape("/uploaded/$cdom/$crs/$timenow/sequences/Top.sequence");
             my $name = &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 672  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.18  
changed lines
  Added in v.1.22

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