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

Diff for /loncom/homework/edit.pm between versions 1.70 and 1.71

version 1.70, 2003/10/30 20:52:54 version 1.71, 2003/11/05 21:53:48
Line 33  package Apache::edit; Line 33  package Apache::edit;
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet();
 use HTML::Entities();  use HTML::Entities();
   use Apache::lonlocal;
   
 # Global Vars  # Global Vars
 # default list of colors to use in editing  # default list of colors to use in editing
Line 561  sub checked_arg { Line 562  sub checked_arg {
     my $result;      my $result;
     my $optionlist="";      my $optionlist="";
     my $allselected=$token->[2]{$name};      my $allselected=$token->[2]{$name};
     $result=$description;      $result=&mt($description);
     foreach my $option (@$list) {      foreach my $option (@$list) {
  my ($value,$text);   my ($value,$text);
  if ( ref($option) eq 'ARRAY') {   if ( ref($option) eq 'ARRAY') {
Line 590  sub text_arg { Line 591  sub text_arg {
     my $result;      my $result;
     if (!defined $size) { $size=20; }      if (!defined $size) { $size=20; }
     my $arg=$token->[2]{$name};      my $arg=$token->[2]{$name};
     $result=$description.'&nbsp;<input name="'.&html_element_name($name).      $result=&mt($description).'&nbsp;<input name="'.&html_element_name($name).
  '" type="text" value="'.$arg.'" size="'.$size.'" />';   '" type="text" value="'.$arg.'" size="'.$size.'" />';
     return '<nobr>'.$result.'</nobr>';      return '<nobr>'.$result.'</nobr>';
 }  }
Line 648  sub select_or_text_arg { Line 649  sub select_or_text_arg {
     }      }
     $optionlist.="<option value=\"TYPEDINVALUE\"".      $optionlist.="<option value=\"TYPEDINVALUE\"".
   ((!$found)?' selected="on"':'').    ((!$found)?' selected="on"':'').
   ">Type in value</option>\n";    ">".&mt('Type in value')."</option>\n";
 #  #
     my $element=&html_element_name($name);      my $element=&html_element_name($name);
     my $selectelement='select_list_'.$element;      my $selectelement='select_list_'.$element;
Line 661  sub select_or_text_arg { Line 662  sub select_or_text_arg {
      '.options['.$selectedindex.'].value';       '.options['.$selectedindex.'].value';
     my $typedinvalue='this.form.'.$typeinelement.'.value';      my $typedinvalue='this.form.'.$typeinelement.'.value';
     my $selecttypeinindex='this.form.'.$selectelement.'.options.length';      my $selecttypeinindex='this.form.'.$selectelement.'.options.length';
       $description=&mt($description);
 #  #
     return (<<ENDSELECTORTYPE);      return (<<ENDSELECTORTYPE);
 <nobr>  <nobr>
Removed from v.1.70  
changed lines
  Added in v.1.71

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