|
version 1.35, 2017/11/05 20:00:48
|
version 1.37, 2018/05/02 17:06:45
|
|
Line 36 use Apache::imsprocessor;
|
Line 36 use Apache::imsprocessor;
|
| use LONCAPA::map(); |
use LONCAPA::map(); |
| use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
| use LONCAPA; |
use LONCAPA; |
| |
use File::Path(); |
| |
|
| use strict; |
use strict; |
| |
|
|
Line 544 sub display_two {
|
Line 545 sub display_two {
|
| } |
} |
| } |
} |
| 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"); |
&File::Path::remove_tree($tempdir,{ safe => 1 }); |
| } |
} |
| |
|
| # All done, display success message |
# All done, display success message |
|
Line 558 sub display_two {
|
Line 559 sub display_two {
|
| '<input type="button" value="' |
'<input type="button" value="' |
| .&mt('re-initializing Course') |
.&mt('re-initializing Course') |
| .'" onclick="javascript:init(this.form)" />'; |
.'" onclick="javascript:init(this.form)" />'; |
| |
my $windowname = 'loncapaclient'; |
| |
if ($env{'request.lti.login'}) { |
| |
$windowname .= 'lti'; |
| |
} |
| $r->print( |
$r->print( |
| '<form method="post" action="/adm/roles" target="loncapaclient" name="importDone">' |
'<form method="post" action="/adm/roles" target="'.$windowname.'" name="importDone">' |
| .'<input type="hidden" name="orgurl" value="/adm/coursedocs" />' |
.'<input type="hidden" name="orgurl" value="/adm/coursedocs" />' |
| .'<input type="hidden" name="selectrole" value="1" />' |
.'<input type="hidden" name="selectrole" value="1" />' |
| .'<input type="hidden" name="'.$env{'request.role'}.'" value="1" />' |
.'<input type="hidden" name="'.$env{'request.role'}.'" value="1" />' |
![[BACK]](/icons/back.gif){kind=icon}
Return to imsimportdocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / imspackages