[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[www]

www		Thu Mar 17 17:34:24 2005 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  Nothing, really.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.187 loncom/interface/lonparmset.pm:1.188
--- loncom/interface/lonparmset.pm:1.187	Thu Mar 17 17:12:52 2005
+++ loncom/interface/lonparmset.pm	Thu Mar 17 17:34:24 2005
@@ -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 @@
 	$r->print(<<ENDHEAD);
 <b>
 $lt{'sg'}:
-<input type="text" value="$csec" size="6" name="csec">
-<br>
+<input type="text" value="$csec" size="6" name="csec" />
+<br />
 $lt{'fu'} 
-<input type="text" value="$uname" size="12" name="uname">
+<input type="text" value="$uname" size="12" name="uname" />
 $lt{'oi'}
-<input type="text" value="$id" size="12" name="id"> 
+<input type="text" value="$id" size="12" name="id" /> 
 $lt{'ad'}
 $chooseopt
 </b>
@@ -797,6 +797,7 @@
     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 @@
     }
 
 # --------------------------------------------------------- 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'} = '';