--- loncom/interface/lonparmset.pm 2005/03/17 22:12:52 1.187 +++ loncom/interface/lonparmset.pm 2005/03/17 22:34:24 1.188 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.187 2005/03/17 22:12:52 www Exp $ +# $Id: lonparmset.pm,v 1.188 2005/03/17 22:34:24 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -486,12 +486,12 @@ ENDHEAD3 $r->print(< $lt{'sg'}: - -
+ +
$lt{'fu'} - + $lt{'oi'} - + $lt{'ad'} $chooseopt @@ -797,6 +797,7 @@ sub assessparms { my $message=''; $csec=$ENV{'form.csec'}; + if ($udom=$ENV{'form.udom'}) { } elsif ($udom=$ENV{'request.role.domain'}) { } elsif ($udom=$ENV{'user.domain'}) { @@ -902,7 +903,7 @@ sub assessparms { } # --------------------------------------------------------- Get all assessments - extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles); + &extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles); $mapp{'0.0'} = ''; $symbp{'0.0'} = '';