[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Sat, 05 Feb 2005 06:52:50 -0000
albertel Sat Feb 5 01:52:50 2005 EDT
Modified files:
/loncom/interface lonnavmaps.pm
Log:
- 3rd parmval fixed up for BUG#1444
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.314 loncom/interface/lonnavmaps.pm:1.315
--- loncom/interface/lonnavmaps.pm:1.314 Tue Feb 1 16:03:13 2005
+++ loncom/interface/lonnavmaps.pm Sat Feb 5 01:52:50 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.314 2005/02/01 21:03:13 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.315 2005/02/05 06:52:50 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2478,8 +2478,6 @@
if (defined($courseopt)) {
if (defined($$courseopt{$courselevelr})) { return $$courseopt{$courselevelr}; }
- if (defined($$courseopt{$courselevelm})) { return $$courseopt{$courselevelm}; }
- if (defined($$courseopt{$courselevel})) { return $$courseopt{$courselevel}; }
}
# ----------------------------------------------------- third, check map parms
@@ -2496,7 +2494,13 @@
$default=&Apache::lonnet::metadata($fn,'parameter_'.$meta_rwhat);
if (defined($default)) { return $default}
-# --------------------------------------------------- fifth , cascade up parts
+# --------------------------------------------------- fifth, check more course
+ if (defined($courseopt)) {
+ if (defined($$courseopt{$courselevelm})) { return $$courseopt{$courselevelm}; }
+ if (defined($$courseopt{$courselevel})) { return $$courseopt{$courselevel}; }
+ }
+
+# --------------------------------------------------- sixth , cascade up parts
my ($space,@qualifier)=split(/\./,$rwhat);
my $qualifier=join('.',@qualifier);