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) = @_;
my $source = '';
if (exists($ENV{'form.go'}) ) {
$source = $ENV{'form.go'};
}
$$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()
}
END_OF_ONE
}
# ---------------------------------------------------------------- Display Zero
sub display_zero {
my ($r,$uname,$fn,$page) = @_;
$r->print(<<"END_OF_ONE");
Step 1: Selection of IMS package type and destination directory for the package contents
END_OF_ONE
}
# ---------------------------------------------------------------- Display One
sub expand_bb5 {
my ($r,$uname,$udom,$fn,$page) = @_;
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 $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("