version 1.26, 2009/11/20 14:39:32
|
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 423 sub display_two {
|
Line 433 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 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'> |
); |
</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'> |
$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'> </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> </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; |