loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.12, 2001/06/16 20:33:33
+version 1.13, 2001/06/16 21:23:11
  Line 223  sub rebuild_tag {
    }
    return $result;
  }
+ sub text_arg {
+   my ($description,$name,$token,$size) = @_;
+   my $result;
+   if (!defined $size) { $size=20; }
+   my $arg=$token->[2]{$name};
+   $result=$description.'<input name="'."$Apache::lonxml::curdepth.$name".
+     '" type="text" value="'.$arg.'" size="'.$size.'" />';
+   return $result;
+ }
+ sub select_arg {
+   my ($description,$name,$list,$token) = @_;
+   my $result;
+   my $optionlist="";
+   my $selected=$token->[2]{$name};
+   foreach my $option (@$list) {
+     if ( $selected eq $option ) {
+       $optionlist.="<option selected=\"on\">$option</option>\n";
+     } else {
+       $optionlist.="<option>$option</option>\n";
+     }
+   }
+   $result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">
+        '.$optionlist.'
+       </select></td></tr><tr><td colspan="3">';
+   return $result;
+ }
 ;
  __END__