loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.160, 2003/01/06 19:43:01
+version 1.160.2.1, 2003/03/14 21:34:04
  Line 2094  sub parmval {
      # second, check map parms
      my $thisparm = $parmhash{$symbparm};
      return $thisparm if (defined($thisparm));
      # first, check default
-     return &Apache::lonnet::metadata($fn,$rwhat.'.default');
+     $thisparm = &Apache::lonnet::metadata($fn,$rwhat.'.default');
+     return $thisparm if (defined($thisparm));
+     #Cascade Up
+     my $space=$what;
+     $space=~s/\.\w+$//;
+     if ($space ne '0') {
+ 	my @parts=split(/_/,$space);
+ 	my $id=pop(@parts);
+ 	my $part=join('_',@parts);
+ 	if ($part eq '') { $part='0'; }
+ 	my $newwhat=$rwhat;
+ 	$newwhat=~s/\Q$space\E/$part/;
+ 	my $partgeneral=&parmval($newwhat,$symb,$uname,$udom,$csec);
+ 	if (defined($partgeneral)) { return $partgeneral; }
+     }
+     #nothing defined
+     return '';
  }