package Apache::imsimport;
use strict;
use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;
use Apache::loncommon();
use Apache::Log();
use Apache::lonnet;
use HTML::Parser;
use HTML::Entities();
use Apache::lonlocal;
use Apache::lonupload;
use File::Basename();
# ---------------------------------------------------------------- Display Control
sub display_control {
# figure out what page we're on and where we're heading.
my $page = $ENV{'form.page'};
my $command = $ENV{'form.go'};
my $current_page = &calculate_page($page,$command);
return $current_page;
}
# CALCULATE THE CURRENT PAGE
sub calculate_page($$) {
my ($prev,$dir) = @_;
return 0 if $prev eq ''; # start with first page
return $prev + 1 if $dir eq 'NextPage';
return $prev - 1 if $dir eq 'PreviousPage';
return $prev if $dir eq 'ExitPage';
return 0 if $dir eq 'BackToStart';
}
# ---------------------------------------------------------------- Jscript Zero
sub jscript_zero {
my ($fullpath,$jsref,$uname,$dom) = @_;
my $source = '';
if (exists($ENV{'form.go'}) ) {
$source = $ENV{'form.go'};
}
my %crsentry = ();
my $course_list;
my $title_list;
my @crslist = ();
@crslist = &get_ccroles($uname,$dom,\%crsentry);
if (@crslist > 0) {
$crsentry{$crslist[0]} =~ s/("|,)//g;
$title_list = '"'.$crsentry{$crslist[0]}.'"';
if (@crslist > 1) {
for (my $i=1; $i<@crslist; $i++) {
$crsentry{$crslist[$i]} =~ s/("|,)//g;
$title_list .= ',"'.$crsentry{$crslist[$i]}.'"';
}
}
}
$course_list = '"'.join('","',@crslist).'"';
$$jsref = <<"END_OF_ONE";
function verify() {
if ((document.forms.dataForm.newdir.value == '') || (!document.forms.dataForm.newdir.value)) {
alert("You must choose a destination directory for the import")
return false
}
if (document.forms.dataForm.source.selectedIndex == 0) {
alert("You must choose the Course Management System from which the IMS package was exported");
return false
}
return true
}
function nextPage() {
if (verify()) {
document.forms.dataForm.go.value="NextPage"
document.forms.dataForm.submit()
}
}
function createWin() {
document.dataForm.newdir.value = "";
newWindow = window.open("","CreateDir","HEIGHT=400,WIDTH=750,scrollbars=yes")
newWindow.document.open()
newWindow.document.write("Create IMS import directory\\n")
newWindow.document.write("\\n")
newWindow.document.write("\\n")
newWindow.document.write("
\\n")
newWindow.document.write("
\\n")
newWindow.document.write("
Location: $fullpath
New Directory
\\n")
newWindow.document.write("
\\n")
newWindow.document.write("
\\n")
newWindow.document.write("
")
newWindow.document.close()
newWindow.focus()
}
function setCourse(caller) {
courseID_array = new Array($course_list)
courseTitle_array = new Array($title_list)
var step1Form = document.forms.dataForm
var curVal = step1Form.elements[caller*2+3].options[step1Form.elements[caller*2+3].selectedIndex].value
step1Form.elements[caller*2+4].length = 0
if (step1Form.elements[caller*2+3].options[step1Form.elements[caller*2+3].selectedIndex].value == "-1") {
step1Form.elements[caller*2+4].options[0] = new Option("<--- Set type ","-1",true,true)
}
else {
if ((step1Form.elements[caller*2+3].selectedIndex == 2 ) || (step1Form.elements[caller*2+3].selectedIndex == 3)) {
step1Form.elements[caller*2+4].options[0] = new Option("Please Select","-1",true,true)
if (courseID_array.length > 0) {
step1Form.elements[caller*2+4].options[0] = new Option("Please Select","-1",true,true)
for (var i=0; iprint(<<"END_OF_ONE");
END_OF_ONE
}
# ---------------------------------------------------------------- Expand bb5
sub expand_bb5 {
my ($r,$uname,$udom,$fn,$page,$bb_crs,$bb_cdom,$bb_handling,$users_crs,$users_cdom,$users_handling) = @_;
my @state = ();
my @seq = "Top";
my $lastitem;
my %resnum = ();
my %title = ();
my %filepath = ();
my %contentscount = ('Top' => 0);
my %contents = ();
my %parentseq = ();
my %base = ();
my %file = ();
my %type = ();
my %href = ();
my $identifier = '';
my %resinfo = ();
my $numfolders = 0;
my $numpages = 0;
my @timestamp = ();
my @boards = ();
my @groups = ();
my $board_count = 0;
my $board_id = time;
my $totseq = 0;
my $totpage = 0;
my $totprob = 0;
my $docroot = $ENV{'form.newdir'};
if (!-e "$docroot/temp") {
mkdir "$docroot/temp";
}
my $newdir = '';
if ($docroot =~ m|public_html/(.+)$|) {
$newdir = $1;
}
my $dirname = "/res/$udom/$uname/$newdir";
my $zipfile = '/home/'.$uname.'/public_html'.$fn;
if ($fn =~ m|\.zip$|i) {
open(OUTPUT, "unzip -o $zipfile -d $docroot/temp 2> /dev/null |");
while (
![[Author Header]](/adm/lonInterFace/author.jpg)
\\n")
newWindow.document.write("