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" />' |