version 1.8, 2004/12/13 20:01:09
|
version 1.9, 2005/02/14 22:46:12
|
Line 374 sub display_two {
|
Line 374 sub display_two {
|
$unzip_result = &Apache::imsprocessor::expand_zip($tempdir,$fname); |
$unzip_result = &Apache::imsprocessor::expand_zip($tempdir,$fname); |
} |
} |
my %resources = (); |
my %resources = (); |
|
my %includedres = (); |
|
my %includeditems = (); |
my %items = (); |
my %items = (); |
my %hrefs = (); |
my %hrefs = (); |
my %resinfo = (); |
my %resinfo = (); |
Line 397 sub display_two {
|
Line 399 sub display_two {
|
my $conditions; |
my $conditions; |
|
|
if ($unzip_result eq 'ok') { |
if ($unzip_result eq 'ok') { |
$manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo); |
$manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'choose',\%includedres,\%includeditems); |
if ($manifest_result eq 'ok') { |
if ($manifest_result eq 'ok') { |
foreach my $res (sort keys %resources) { |
foreach my $res (sort keys %resources) { |
if ($cms eq 'bb5' || $cms eq 'bb6') { |
if ($cms eq 'bb5' || $cms eq 'bb6') { |
Line 612 sub display_three {
|
Line 614 sub display_three {
|
($cdom,$crs) = split/\//,$ENV{'form.bb_crs'}; |
($cdom,$crs) = split/\//,$ENV{'form.bb_crs'}; |
$chome = &Apache::lonnet::homeserver($crs,$cdom); |
$chome = &Apache::lonnet::homeserver($crs,$cdom); |
} |
} |
if ( defined($ENV{'form.bb_handling'}) ) { |
|
$db_handling = $ENV{'form.bb_handling'}; |
|
} |
|
my $user_crs = ''; |
my $user_crs = ''; |
my $user_cdom = ''; |
my $user_cdom = ''; |
my $user_handling = ''; |
my $user_handling = ''; |
if ( defined($ENV{'form.user_crs'}) ) { |
if ( defined($ENV{'form.user_crs'}) ) { |
($user_cdom,$user_crs) = split/\//,$ENV{'form.user_crs'}; |
($user_cdom,$user_crs) = split/\//,$ENV{'form.user_crs'}; |
} |
} |
if ( defined($ENV{'form.user_handling'}) ) { |
|
$user_handling = $ENV{'form.user_handling'}; |
|
} |
|
my $seqstem = "/res/$udom/$uname/$newdir"; |
my $seqstem = "/res/$udom/$uname/$newdir"; |
my %imports = (); |
my %importareas = (); |
|
my %includedres = (); |
|
my %includeditems = (); |
my @targets = (); |
my @targets = (); |
my %resources = (); |
my %resources = (); |
my %items = (); |
my %items = (); |
Line 648 sub display_three {
|
Line 646 sub display_three {
|
my $tempdir = $ENV{'form.tempdir'}; |
my $tempdir = $ENV{'form.tempdir'}; |
|
|
foreach my $area (@{$areas}) { |
foreach my $area (@{$areas}) { |
if (defined($ENV{"form.$area"}) ) { |
if (defined($ENV{"form.$area"}) ) { |
if ($cms eq 'angel' && $area eq 'doc') { |
if ($cms eq 'angel' && $area eq 'doc') { |
foreach (@{$$cmsmap{$cms}{$area}}) { |
foreach (@{$$cmsmap{$cms}{$area}}) { |
$imports{$_} = 1; |
$importareas{$_} = 1; |
} |
} |
} else { |
} else { |
$imports{$$cmsmap{$cms}{$area}} = 1; |
$importareas{$$cmsmap{$cms}{$area}} = 1; |
} |
} |
if ($area eq 'board') { |
if ($area eq 'board') { |
$db_handling = $ENV{'form.db_handling'}; |
$db_handling = $ENV{'form.db_handling'}; |
Line 663 sub display_three {
|
Line 661 sub display_three {
|
} |
} |
} |
} |
} |
} |
my $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo); |
|
|
my $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'prepare',\%includedres); |
|
if ($manifest_result eq 'ok') { |
|
foreach my $res (sort keys %resources) { |
|
if ($importareas{$resources{$res}{type}}) { |
|
$includedres{$res} = 1; |
|
} |
|
} |
|
foreach my $itm (sort keys %items) { |
|
&Apache::imsprocessor::get_imports(\%includeditems,\%items,\%resources,\%importareas,$itm); |
|
} |
|
} |
|
|
|
foreach my $itm (sort keys %includeditems) { |
|
&Apache::imsprocessor::get_parents(\%includeditems,\%items,$itm); |
|
} |
|
|
|
$manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'build',\%includedres,\%includeditems); |
if ($manifest_result eq 'ok') { |
if ($manifest_result eq 'ok') { |
&Apache::imsprocessor::target_resources(\%resources,\%imports,\@targets); |
&Apache::imsprocessor::target_resources(\%resources,\%importareas,\@targets); |
|
|
my @boards = (); |
my @boards = (); |
my @announcements = (); |
my @announcements = (); |
my @quizzes = (); |
my @quizzes = (); |
my @surveys = (); |
my @surveys = (); |
|
my @pools = (); |
my @groups = (); |
my @groups = (); |
my %messages = (); |
my %messages = (); |
my @timestamp = (); |
my @timestamp = (); |
Line 679 sub display_three {
|
Line 695 sub display_three {
|
my @topnames = (); |
my @topnames = (); |
my @packages = (); |
my @packages = (); |
|
|
&Apache::imsprocessor::process_resinfo($cms,'CSTR',$tempdir,$destdir,\%items,\%resources,\@boards,\@announcements,\@quizzes,\@surveys,\@groups,\%messages,\@timestamp,\%boardnum,\%resinfo,$udom,$uname,$cdom,$crs,$db_handling,$user_handling,\%total,$newdir,$seqstem,\@resrcfiles,\@packages,\%hrefs,\@pages,\@sequences); |
&Apache::imsprocessor::process_resinfo($cms,'CSTR',$tempdir,$destdir,\%items,\%resources,\@targets,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\@groups,\%messages,\@timestamp,\%boardnum,\%resinfo,$udom,$uname,$cdom,$crs,$db_handling,$user_handling,\%total,$seqstem,$seqstem,\@resrcfiles,\@packages,\%hrefs,\@pages,\@sequences); |
|
|
my $copy_result = &Apache::imsprocessor::copy_resources('CSTR',$cms,\%hrefs,$tempdir,\@targets,\%urls,$crs,$cdom,$chome,$destdir,$timenow); |
my $copy_result = &Apache::imsprocessor::copy_resources('CSTR',$cms,\%hrefs,$tempdir,\@targets,\%urls,$crs,$cdom,$chome,$destdir,$timenow,\%importareas); |
|
|
&Apache::imsprocessor::build_structure($cms,'CSTR',$destdir,\%items,\%resinfo,\%resources,\%hrefs,$udom,$uname,$newdir,$timenow,$cdom,$crs,\@timestamp,\%total,\@boards,\@announcements,\@quizzes,\@surveys,\%boardnum,\@pages,\@sequences,\@topurls,\@topnames,\@packages); |
&Apache::imsprocessor::build_structure($cms,'CSTR',$destdir,\%items,\%resinfo,\%resources,\@targets,\%hrefs,$udom,$uname,$newdir,$timenow,$cdom,$crs,\@timestamp,\%total,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\%boardnum,\@pages,\@sequences,\@topurls,\@topnames,\@packages,\%includeditems); |
|
|
$r->print("<h3>Step 3: Publish your new LON-CAPA materials</h3>"); |
$r->print("<h3>IMS import completed</h3>"); |
|
|
if ($cms eq 'bb5') { |
if ($cms eq 'bb5') { |
$r->print("<font face='arial,helvetica,sans-serif'>Your IMS package has been processed successfully. A total of $total{seq} sequences, $total{page} pages, $total{board} bulletin boards, $total{quiz} quizzes, $total{surv} surveys and $total{prob} problems have been created.<br /><br />\n"); |
$r->print("<font face='arial,helvetica,sans-serif'>Your IMS package has been processed successfully. A total of $total{seq} sequences, $total{page} pages, $total{board} bulletin boards, $total{quiz} quizzes, $total{surv} surveys and $total{prob} problems have been created.<br /><br />\n"); |
} elsif ($cms eq 'angel') { |
} elsif ($cms eq 'angel') { |
$r->print("<font face='arial,helvetica,sans-serif'>Your IMS package has been processed successfully. A total of $total{seq} sequences, $total{page} pages, and $total{board} bulletin boards have been created.<br /><br />\n"); |
$r->print("<font face='arial,helvetica,sans-serif'>Your IMS package has been processed successfully. A total of $total{seq} sequences, $total{page} pages, and $total{board} bulletin boards have been created.<br /><br />\n"); |
} |
} |
# system (" rm -r -f $destdir/temp"); |
$r->print("Please view the imported items and use the LON-CAPA editing tools to make changes. The sequences directory contains a file named 'Top.sequence' whichincludes links to the items found at the top level of your IMS package. From there you can follow links to display all the imported items. Alternatively, you can browse the pages, sequences, problems and resfiles directories directly. Note if you rename a file, you will need to modify any .sequence files or .page files which include a reference to the renamed file.<br /><br />The final step in the IMS import process is to publish the materials you have imported into your Construction Space so that you can use them in a course. Once your file are published, subsequent re-publication will result in the storage of information about changes between the different versions.<br /><br /><a href='/priv/".$uname."/".$newdir."'>Display new directory</a></font>"); |
|
if ($destdir =~ m-^/home/$uname/public_html/-) { |
|
system (" rm -r -f $destdir/temp"); |
|
} |
} elsif ($manifest_result eq 'nomanifest') { |
} elsif ($manifest_result eq 'nomanifest') { |
$r->print("<font face='arial,helvetica,sans-serif'>Processing of your IMS package failed, because the IMS content package did not contain an IMS manifest file ."); |
$r->print("<font face='arial,helvetica,sans-serif'>Processing of your IMS package failed, because the IMS content package did not contain an IMS manifest file.</font>"); |
} |
} |
} |
} |
|
|