[BACK]Return to lonparmset.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.187 and 1.189

version 1.187, 2005/03/17 22:12:52 version 1.189, 2005/03/18 15:17:36
Line 474  $assessparmhelp Line 474  $assessparmhelp
 </form>  </form>
 <hr />  <hr />
 ENDHEAD2  ENDHEAD2
 }      }
     $r->print(<<ENDHEAD3);      my %sectionhash=();
       my $sections='';
       if (&Apache::loncommon::get_sections(
                    $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
                    $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
    \%sectionhash)) {
           $sections=$lt{'sg'}.': <select name="csec">';
    foreach ('',sort keys %sectionhash) {
       $sections.='<option value="'.$_.'"'.
    ($_ eq $csec?'selected="selected"':'').'>'.$_.'</option>';
           }
           $sections.='</select>';
        }
        $r->print(<<ENDHEAD3);
 <form method="post" action="/adm/parmset" name="parmform">  <form method="post" action="/adm/parmset" name="parmform">
 <h4>$lt{'captm'}</h4>  <h4>$lt{'captm'}</h4>
 ENDHEAD3  ENDHEAD3
Line 485  ENDHEAD3 Line 498  ENDHEAD3
     } else {      } else {
  $r->print(<<ENDHEAD);   $r->print(<<ENDHEAD);
 <b>  <b>
 $lt{'sg'}:  $sections
 <input type="text" value="$csec" size="6" name="csec">  <br />
 <br>  
 $lt{'fu'}   $lt{'fu'} 
 <input type="text" value="$uname" size="12" name="uname">  <input type="text" value="$uname" size="12" name="uname" />
 $lt{'oi'}  $lt{'oi'}
 <input type="text" value="$id" size="12" name="id">   <input type="text" value="$id" size="12" name="id" /> 
 $lt{'ad'}  $lt{'ad'}
 $chooseopt  $chooseopt
 </b>  </b>
Line 797  sub assessparms { Line 809  sub assessparms {
     my $message='';      my $message='';
   
     $csec=$ENV{'form.csec'};      $csec=$ENV{'form.csec'};
   
     if      ($udom=$ENV{'form.udom'}) {      if      ($udom=$ENV{'form.udom'}) {
     } elsif ($udom=$ENV{'request.role.domain'}) {      } elsif ($udom=$ENV{'request.role.domain'}) {
     } elsif ($udom=$ENV{'user.domain'}) {      } elsif ($udom=$ENV{'user.domain'}) {
Line 902  sub assessparms { Line 915  sub assessparms {
     }      }
   
 # --------------------------------------------------------- Get all assessments  # --------------------------------------------------------- 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'} = '';      $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';      $symbp{'0.0'} = '';
Removed from v.1.187  
changed lines
  Added in v.1.189

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>