version 1.171, 2004/07/27 23:35:34
|
version 1.175, 2004/09/10 21:29:54
|
Line 581 sub extractResourceInformation {
|
Line 581 sub extractResourceInformation {
|
|
|
foreach (keys %$bighash) { |
foreach (keys %$bighash) { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
|
# there are no resources in the 0 level |
|
if ($1 eq '0') { next; } |
my $mapid=$1; |
my $mapid=$1; |
my $resid=$2; |
my $resid=$2; |
my $id=$mapid.'.'.$resid; |
my $id=$mapid.'.'.$resid; |
my $srcf=$$bighash{$_}; |
my $srcf=$$bighash{$_}; |
# if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
|
if (1) { |
if (1) { |
|
$srcf=~/\.(\w+)$/; |
$$ids[$#$ids+1]=$id; |
$$ids[$#$ids+1]=$id; |
$$typep{$id}=$1; |
$$typep{$id}=$1; |
$$keyp{$id}=''; |
$$keyp{$id}=''; |
Line 595 sub extractResourceInformation {
|
Line 597 sub extractResourceInformation {
|
my $key=$_; |
my $key=$_; |
my $allkey=$1; |
my $allkey=$1; |
$allkey=~s/\_/\./g; |
$allkey=~s/\_/\./g; |
|
if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq |
|
'parm') { |
|
next; #hide hidden things |
|
} |
my $display= &Apache::lonnet::metadata($srcf,$key.'.display'); |
my $display= &Apache::lonnet::metadata($srcf,$key.'.display'); |
my $name=&Apache::lonnet::metadata($srcf,$key.'.name'); |
my $name=&Apache::lonnet::metadata($srcf,$key.'.name'); |
my $part= &Apache::lonnet::metadata($srcf,$key.'.part'); |
my $part= &Apache::lonnet::metadata($srcf,$key.'.part'); |
Line 619 sub extractResourceInformation {
|
Line 625 sub extractResourceInformation {
|
&Apache::lonnet::declutter($$bighash{'map_id_'.$mapid}); |
&Apache::lonnet::declutter($$bighash{'map_id_'.$mapid}); |
$$mapp{$mapid}=$$mapp{$id}; |
$$mapp{$mapid}=$$mapp{$id}; |
$$allmaps{$mapid}=$$mapp{$id}; |
$$allmaps{$mapid}=$$mapp{$id}; |
$$maptitles{$mapid}= |
if ($mapid eq '1') { |
$$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}}; |
$$maptitles{$mapid}='Main Course Documents'; |
|
} else { |
|
$$maptitles{$mapid}= |
|
$$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}}; |
|
} |
$$maptitles{$$mapp{$id}}=$$maptitles{$mapid}; |
$$maptitles{$$mapp{$id}}=$$maptitles{$mapid}; |
$$symbp{$id}=$$mapp{$id}. |
$$symbp{$id}=$$mapp{$id}. |
'___'.$resid.'___'. |
'___'.$resid.'___'. |
Line 689 sub assessparms {
|
Line 699 sub assessparms {
|
my $message=''; |
my $message=''; |
|
|
$csec=$ENV{'form.csec'}; |
$csec=$ENV{'form.csec'}; |
$udom=$ENV{'form.udom'}; |
if ($udom=$ENV{'form.udom'}) { |
unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } |
} elsif ($udom=$ENV{'request.role.domain'}) { |
|
} elsif ($udom=$ENV{'user.domain'}) { |
|
} else { |
|
$udom=$r->dir_config('lonDefDomain'); |
|
} |
|
|
my @pscat=&Apache::loncommon::get_env_multiple('form.pscat'); |
my @pscat=&Apache::loncommon::get_env_multiple('form.pscat'); |
my $pschp=$ENV{'form.pschp'}; |
my $pschp=$ENV{'form.pschp'}; |
Line 1830 ENDOVER
|
Line 1844 ENDOVER
|
$middle=~s/\.$//; |
$middle=~s/\.$//; |
my $realm='<font color="red">'.&mt('All Resources').'</font>'; |
my $realm='<font color="red">'.&mt('All Resources').'</font>'; |
if ($middle=~/^(.+)\_\_\_\(all\)$/) { |
if ($middle=~/^(.+)\_\_\_\(all\)$/) { |
$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'</font>'; |
$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>'; |
} elsif ($middle) { |
} elsif ($middle) { |
$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'</font>'; |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle); |
|
$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>'; |
} |
} |
if ($section ne $oldsection) { |
if ($section ne $oldsection) { |
$r->print(&tableend()."\n<hr /><h1>$section</h1>"); |
$r->print(&tableend()."\n<hr /><h1>$section</h1>"); |