loncom/imspackages/imsimport.pm - diff

Return to imsimport.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

Diff for /loncom/imspackages/imsimport.pm between versions 1.18 and 1.19

version 1.18, 2006/03/27 19:05:15	version 1.19, 2006/04/04 08:18:33
Line 305 Please choose the CMS used to create you	Line 305 Please choose the CMS used to create you
<option value='bb6'>Blackboard 6</option>	<option value='bb6'>Blackboard 6</option>
<option value='angel'>ANGEL</option>	<option value='angel'>ANGEL</option>
<option value='webctce4'>WebCT 4 Campus Edition</option>	<option value='webctce4'>WebCT 4 Campus Edition</option>
	<option value='webctvista4'>WebCT Vista 4</option>
</select>	</select>
</font>	</font>
</td>	</td>
Line 408 sub display_two {	Line 409 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,'choose',\%includedres,\%includeditems);	$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' \|\| $cms eq 'webctce4') {	if ($cms eq 'bb5' \|\| $cms eq 'bb6' \|\| $cms eq 'webctce4'
	\|\| $cms eq 'webctvista4') {
foreach my $area (keys %{$$cmsmap{$cms}}) {	foreach my $area (keys %{$$cmsmap{$cms}}) {
if ($resources{$res}{type} eq $$cmsmap{$cms}{$area}) {	if ($resources{$res}{type} eq $$cmsmap{$cms}{$area}) {
$count{$area} ++;	$count{$area} ++;
Line 650 sub display_three {	Line 654 sub display_three {
my @pages = ();	my @pages = ();
my @sequences = ();	my @sequences = ();
my @resrcfiles = ();	my @resrcfiles = ();
	my @assessmentfiles = ();

my $tempdir = $env{'form.tempdir'};	my $tempdir = $env{'form.tempdir'};

Line 670 sub display_three {	Line 675 sub display_three {
}	}
}	}

my $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'prepare',\%includedres);	my $manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,
	\%resources,\%items,\%hrefs,\%resinfo,'prepare',
	\%includedres);
if ($manifest_result eq 'ok') {	if ($manifest_result eq 'ok') {
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;
	if ($resources{$res}{type} eq 'webct.manifest' \|\|
	$resources{$res}{type} eq 'webct.assessment' \|\|
	$resources{$res}{type} eq 'webct.question') {
	push(@assessmentfiles,$res);
	}
}	}
}	}
foreach my $itm (sort keys %items) {	foreach my $itm (sort keys %items) {
Line 686 sub display_three {	Line 698 sub display_three {
&Apache::imsprocessor::get_parents(\%includeditems,\%items,$itm);	&Apache::imsprocessor::get_parents(\%includeditems,\%items,$itm);
}	}

$manifest_result = &Apache::imsprocessor::process_manifest($cms,$tempdir,\%resources,\%items,\%hrefs,\%resinfo,'build',\%includedres,\%includeditems);	$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,\%importareas,\@targets);	&Apache::imsprocessor::target_resources(\%resources,\%importareas,\@targets);

Line 705 sub display_three {	Line 719 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,\%importareas);	my $copy_result = &Apache::imsprocessor::copy_resources('CSTR',$cms,\%hrefs,$tempdir,\@targets,\%urls,$crs,$cdom,$destdir,$timenow,\%importareas,\@assessmentfiles);

&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,\%randompicks);	&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,\%randompicks);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.18
changed lines
	Added in v.1.19