Diff for /loncom/homework/edit.pm between versions 1.18 and 1.19

version 1.18, 2001/07/13 16:15:01 version 1.19, 2001/07/18 20:27:22
Line 315  sub select_arg { Line 315  sub select_arg {
   return $result;    return $result;
 }  }
   
   sub select_or_text_arg {
     my ($description,$name,$list,$token,$size) = @_;
     my $result;
     my $optionlist="";
     my $found=0;
     my $selected=$token->[2]{$name};
     foreach my $option (@$list) {
       if ( $selected eq $option ) {
         $optionlist.="<option selected=\"on\">$option</option>\n";
         $found=1;
       } else {
         $optionlist.="<option>$option</option>\n";
       }
     }
     $optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n";
     if ($found) {
       $result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">
          '.$optionlist.'
         </select></td></tr><tr><td colspan="3">';
     } else {
       $result.=&text_arg($description,$name,$token,$size);
     }
     return $result;
   }
 1;  1;
 __END__  __END__

Removed from v.1.18  
changed lines
  Added in v.1.19


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