--- loncom/interface/lonparmset.pm 2002/12/30 14:10:58 1.81
+++ loncom/interface/lonparmset.pm 2003/03/13 20:52:47 1.84
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.81 2002/12/30 14:10:58 www Exp $
+# $Id: lonparmset.pm,v 1.84 2003/03/13 20:52:47 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -72,6 +72,8 @@ my %mapp;
my %typep;
my %keyp;
+my %maptitles;
+
my $uname;
my $udom;
my $uhome;
@@ -96,13 +98,13 @@ Returns: A list, the first item is the
11- resource default
10- map default
9 - General Course
-8 - Map level in course
+8 - Map or Folder level in course
7 - resource level in course
6 - General for section
-5 - Map level for section
+5 - Map or Folder level for section
4 - resource level in section
3 - General for specific student
-2 - Map level for specific student
+2 - Map or Folder level for specific student
1 - resource level for specific student
=cut
@@ -549,6 +551,7 @@ sub extractResourceInformation {
my $defp = shift;
my $mapp = shift;
my $symbp = shift;
+ my $maptitles=shift;
foreach (keys %$bighash) {
if ($_=~/^src\_(\d+)\.(\d+)$/) {
@@ -589,6 +592,9 @@ sub extractResourceInformation {
&Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});
$$mapp{$mapid}=$$mapp{$id};
$$allmaps{$mapid}=$$mapp{$id};
+ $$maptitles{$mapid}=
+ $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};
+ $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
$$symbp{$id}=$$mapp{$id}.
'___'.$resid.'___'.
&Apache::lonnet::declutter($srcf);
@@ -756,7 +762,7 @@ sub assessparms {
}
# --------------------------------------------------------- Get all assessments
- extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp);
+ extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles);
$mapp{'0.0'} = '';
$symbp{'0.0'} = '';
@@ -915,13 +921,13 @@ sub assessparms {
$r->print('
| ');
- $r->print('
Select Enclosing Map | ');
+ $r->print('
Select Enclosing Map or Folder | ');
$r->print(' |
\n");
} else {
@@ -984,7 +990,7 @@ sub assessparms {
$r->print('Sort list by | ');
$r->print(' |