version 1.45, 2013/09/30 17:42:12
|
version 1.46, 2014/12/11 01:07:38
|
Line 378 sub display_two {
|
Line 378 sub display_two {
|
$tempdir,\%resources,\%items,\%hrefs,\%resinfo, |
$tempdir,\%resources,\%items,\%hrefs,\%resinfo, |
'choose',\%includedres,\%includeditems); |
'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') { |
|| $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} ++; |
} |
} |
} |
} |
} elsif ($cms eq 'angel5') { |
} elsif ($cms eq 'angel5') { |
foreach my $area (keys %{$$cmsmap{$cms}}) { |
foreach my $area (keys(%{$$cmsmap{$cms}})) { |
if ($area eq 'doc') { |
if ($area eq 'doc') { |
if (grep/^$resources{$res}{type}$/,@{$$cmsmap{$cms}{doc}}) { |
if (grep/^$resources{$res}{type}$/,@{$$cmsmap{$cms}{doc}}) { |
$count{$area} ++; |
$count{$area} ++; |
Line 564 sub display_three {
|
Line 564 sub display_three {
|
|
|
if ($manifest_result eq 'ok') { |
if ($manifest_result eq 'ok') { |
my %possibledep; |
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; |
if ($resources{$res}{type} eq 'webct.manifest' || |
if ($resources{$res}{type} eq 'webct.manifest' || |
Line 581 sub display_three {
|
Line 581 sub display_three {
|
$includedres{$res} = 1; |
$includedres{$res} = 1; |
} |
} |
} |
} |
foreach my $itm (sort keys %items) { |
foreach my $itm (sort(keys(%items))) { |
&Apache::imsprocessor::get_imports(\%includeditems,\%items,\%resources,\%importareas,$itm); |
&Apache::imsprocessor::get_imports(\%includeditems,\%items,\%resources,\%importareas,$itm); |
} |
} |
} |
} |
|
|
foreach my $itm (sort keys %includeditems) { |
foreach my $itm (sort(keys(%includeditems))) { |
&Apache::imsprocessor::get_parents(\%includeditems,\%items,$itm); |
&Apache::imsprocessor::get_parents(\%includeditems,\%items,$itm); |
} |
} |
|
|
Line 686 sub get_ccroles {
|
Line 686 sub get_ccroles {
|
push @{$courses{$currcode}}, $cdom.'/'.$crs; |
push @{$courses{$currcode}}, $cdom.'/'.$crs; |
} |
} |
} |
} |
foreach my $code (sort @codes) { |
foreach my $code (sort(@codes)) { |
foreach my $crsdom (@{$courses{$code}}) { |
foreach my $crsdom (@{$courses{$code}}) { |
my ($cdom,$crs) = split/\//,$crsdom; |
my ($cdom,$crs) = split/\//,$crsdom; |
my $showcode = ''; |
my $showcode = ''; |