Diff for /loncom/homework/optionresponse.pm between versions 1.132 and 1.133

version 1.132, 2006/02/06 21:59:23 version 1.133, 2006/03/09 01:04:43
Line 414  sub displayfoils { Line 414  sub displayfoils {
       foreach my $option (@opt) {        foreach my $option (@opt) {
   my $escopt=&HTML::Entities::encode($option,'\'"&<>');    my $escopt=&HTML::Entities::encode($option,'\'"&<>');
   if ($option eq $lastopt) {    if ($option eq $lastopt) {
       $optionlist.="<option value='".$escopt."' selected=\"on\">$option</option>\n";        $optionlist.="<option value='".$escopt."' selected=\"selected\">$option</option>\n";
   } else {    } else {
       $optionlist.="<option value='".$escopt."'>$option</option>\n";        $optionlist.="<option value='".$escopt."'>$option</option>\n";
   }    }

Removed from v.1.132  
changed lines
  Added in v.1.133


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