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

Diff for /loncom/imspackages/imsimportdocs.pm between versions 1.27 and 1.29

version 1.27, 2009/11/20 16:20:17 version 1.29, 2009/11/20 18:25:34
Line 218  sub display_one { Line 218  sub display_one {
     $r->print(      $r->print(
         '<form action="/adm/imsimportdocs" method="post"'          '<form action="/adm/imsimportdocs" method="post"'
        .' enctype="multipart/form-data" name="pickcms">'         .' enctype="multipart/form-data" name="pickcms">'
        .&Apache::lonhtmlcommon::topic_bar(      );
   
       # Step 1
       $r->print(
          &Apache::lonhtmlcommon::topic_bar(
             1,&mt('Specify the Course Management system used to create the package'))              1,&mt('Specify the Course Management system used to create the package'))
        .&mt('Please choose the CMS used to create your IMS content package:').' '         .&mt('Please choose the CMS used to create your IMS content package:').' '
        .'<select name="source">'         .'<select name="source">'
Line 229  sub display_one { Line 233  sub display_one {
        .'<option value="webctce4">WebCT 4 Campus Edition</option>'         .'<option value="webctce4">WebCT 4 Campus Edition</option>'
        .'</select>'         .'</select>'
     );      );
   
       # Step 2
     $r->print(      $r->print(
        &Apache::lonhtmlcommon::topic_bar(         &Apache::lonhtmlcommon::topic_bar(
            2,&mt('Locate the IMS content package you wish to upload'))             2,&mt('Locate the IMS content package you wish to upload'))
Line 237  sub display_one { Line 243  sub display_one {
       .&mt('File:')        .&mt('File:')
       .' <input type="file" name="uploadname" size="40" />'        .' <input type="file" name="uploadname" size="40" />'
     );      );
   
       # Buttons
     $r->print(      $r->print(
        '<hr />'         '<hr />'
       .'<p>'        .'<p>'
Line 247  sub display_one { Line 255  sub display_one {
       .' onclick="javascript:nextPage()" />'        .' onclick="javascript:nextPage()" />'
       .'</p>'        .'</p>'
     );      );
   
       $r->print('</form>');
 }  }
   
   
Line 338  sub display_two { Line 348  sub display_two {
     # Start output: Step 3 and step 4      # Start output: Step 3 and step 4
   
     $r->print(      $r->print(
         '<form name="pickoptions" method="post">'          '<form name="pickoptions" method="post" action="">'
        .&Apache::lonhtmlcommon::topic_bar(         .&Apache::lonhtmlcommon::topic_bar(
             3,&mt('Choose which content types you wish to import'))              3,&mt('Choose which content types you wish to import'))
        .'<p>'         .'<p>'
Line 609  sub display_three { Line 619  sub display_three {
     if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) {      if ($tempdir =~ m/^\/home\/httpd\/perl\/tmp\/$crs\/\d{10}/) {
         system("rm -r -f $tempdir");          system("rm -r -f $tempdir");
     }      }
     $r->print(<<ENDBLOCK);  
   <table border='0' bgcolor='#F6F6F6'' cellspacing='0' cellpadding ='0' width='100%'>      # All done, display success message
    <tr>      $r->print(
     <td colspan='2'>          '<p class="LC_success">'
      <table border='0' cellspacing='0' cellpadding='0'>         .&mt('Your import is complete.')
       <tr>         .'</p>'
        <td colspan='2'  align='left'>&nbsp;      );
        </td>      # Re-initialize Button
       </tr>      my $initbutton =
       <tr bgcolor='#CCCCFF'>             '<input type="button" value="'
        <td valign="middle"><img src="/res/adm/pages/bl_step5.gif" alt="5" />            .&mt('re-initializing course')
        </td>            .'" onclick="javascript:init(this.form)" />';
        <td width='100%' align='left'>&nbsp;&nbsp;      $r->print(
         <font face='arial,helvetica,sans-serif'><b>Your import is complete</b></font>          '<form method="post" action="/adm/roles" target="loncapaclient" name="importDone">'
        </td>         .'<input type="hidden" name="orgurl" value="/adm/coursedocs" />'
       </tr>         .'<input type="hidden" name="selectrole" value="1" />'
       <tr>         .'<input type="hidden" name="'.$env{'request.role'}.'" value="1" />'
        <td colspan='2'>&nbsp;</td>         .'<p class="LC_warning">'
       </tr>         .&mt('Changes will become active for your current session after [_1]'
       <tr>             .', or the next time you log in.'
        <td>&nbsp;</td>              ,$initbutton)
        <td>         .'</p>'
 ENDBLOCK         .'</form>'
     my $initblock = qq|        );
          <form method="post" action="/adm/roles" target="loncapaclient" name="importDone">  
            <input type="hidden" name="orgurl" value="/adm/coursedocs" />  
            <input type="hidden" name="selectrole" value="1" />  
            <h3><font color="red">Changes will become active for your current session after  
            <input type="hidden" name="$env{'request.role'}" value="1" />  
            <input type="button" value="|;  
     $initblock .= &mt('re-initializing course');  
     $initblock .= qq|" onClick="javascript:init(this.form)" />|;  
     $initblock .= ', '.&mt('or the next time you log in.');  
     $initblock .= qq|</font></h3></form>|;    
     $r->print($initblock);  
     $r->print(<<ENDBLOCKTWO);  
      </table>  
     </td>  
    </tr>  
   </table>  
 ENDBLOCKTWO  
 }  }
   
 1;  1;
Removed from v.1.27  
changed lines
  Added in v.1.29

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