version 1.42, 2013/07/15 16:13:16
|
version 1.43, 2013/07/27 22:04:49
|
Line 543 sub display_three {
|
Line 543 sub display_three {
|
my $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir, |
my $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir, |
\%resources,\%items,\%hrefs,\%resinfo,'prepare', |
\%resources,\%items,\%hrefs,\%resinfo,'prepare', |
\%includedres); |
\%includedres); |
|
|
if ($manifest_result eq 'ok') { |
if ($manifest_result eq 'ok') { |
|
my %possibledep; |
foreach my $res (sort keys %resources) { |
foreach my $res (sort keys %resources) { |
if ($importareas{$resources{$res}{type}}) { |
if ($importareas{$resources{$res}{type}}) { |
$includedres{$res} = 1; |
$includedres{$res} = 1; |
Line 552 sub display_three {
|
Line 554 sub display_three {
|
$resources{$res}{type} eq 'webct.question') { |
$resources{$res}{type} eq 'webct.question') { |
push(@assessmentfiles,$res); |
push(@assessmentfiles,$res); |
} |
} |
|
} elsif ($resources{$res}{usedby}) { |
|
$possibledep{$res} = 1; |
|
} |
|
} |
|
foreach my $res (sort(keys(%possibledep))) { |
|
if ($includedres{$resources{$res}{usedby}}) { |
|
$includedres{$res} = 1; |
} |
} |
} |
} |
foreach my $itm (sort keys %items) { |
foreach my $itm (sort keys %items) { |
Line 566 sub display_three {
|
Line 575 sub display_three {
|
$manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir, |
$manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir, |
\%resources,\%items,\%hrefs,\%resinfo,'build', |
\%resources,\%items,\%hrefs,\%resinfo,'build', |
\%includedres,\%includeditems); |
\%includedres,\%includeditems); |
|
|
if ($manifest_result eq 'ok') { |
if ($manifest_result eq 'ok') { |
&Apache::imsprocessor::target_resources(\%resources,\%importareas,\@targets); |
&Apache::imsprocessor::target_resources(\%resources,\%importareas,\@targets); |
|
|
Line 584 sub display_three {
|
Line 594 sub display_three {
|
|
|
&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,\%randompicks); |
&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,\%randompicks); |
|
|
my $copy_result = &Apache::imsprocessor::copy_resources('CSTR',$cms,\%hrefs,$tempdir,\@targets,\%urls,$crs,$cdom,$destdir,$timenow,\@assessmentfiles,\%total); |
my $copy_result = &Apache::imsprocessor::copy_resources('CSTR',$cms,\%hrefs,\%resources,$tempdir,\@targets,\%urls,$crs,$cdom,$destdir,$timenow,\@assessmentfiles,\%total); |
|
|
&Apache::imsprocessor::build_structure($cms,'CSTR',$destdir,\%items,\%resinfo,\%resources,\@targets,\%hrefs,$udom,$uname,$dirpath,$timenow,$cdom,$crs,\@timestamp,\%total,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\%boardnum,\@pages,\@sequences,\@topurls,\@topnames,\@packages,\%includeditems,\%randompicks); |
&Apache::imsprocessor::build_structure($cms,'CSTR',$destdir,\%items,\%resinfo,\%resources,\@targets,\%hrefs,$udom,$uname,$dirpath,$timenow,$cdom,$crs,\@timestamp,\%total,\@boards,\@announcements,\@quizzes,\@surveys,\@pools,\%boardnum,\@pages,\@sequences,\@topurls,\@topnames,\@packages,\%includeditems,\%randompicks); |
|
|