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

Diff for /loncom/imspackages/imsimportdocs.pm between versions 1.26 and 1.28

version 1.26, 2009/11/20 14:39:32 version 1.28, 2009/11/20 17:01:11
Line 423  sub display_two { Line 423  sub display_two {
        .' <input type="text" name="foldername" size="15" value="'.&mt('Type Name Here').'" />'         .' <input type="text" name="foldername" size="15" value="'.&mt('Type Name Here').'" />'
        .'<br />'         .'<br />'
        .'<label>'         .'<label>'
        .'<input type="radio" name="toplevel" value="oldfolder" />'         .'<input type="radio" name="toplevel" value="oldfolder" checked="checked" />'
        .&mt('Append listing of contents of top level of package to contents list for the current folder.')         .&mt('Append listing of contents of top level of package to contents list for the current folder.')
        .'</label>'         .'</label>'
     );      );
Line 609  sub display_three { Line 609  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.26  
changed lines
  Added in v.1.28

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