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

Diff for /loncom/homework/edit.pm between versions 1.115 and 1.116

version 1.115, 2008/08/26 03:18:29 version 1.116, 2008/10/24 16:22:54
Line 61  sub tag_start { Line 61  sub tag_start {
     if (!$description) { $description="<$tag>"; }      if (!$description) { $description="<$tag>"; }
  }   }
  $result.= &start_table($token)."<tr><td>$description</td>   $result.= &start_table($token)."<tr><td>$description</td>
                       <td>Delete".                        <td>".&mt('Delete?').' '.
       &deletelist($target,$token)        &deletelist($target,$token)
       ."</td>        ."</td>
                        <td>".                         <td>".
Line 145  sub deletelist { Line 145  sub deletelist {
     my ($target,$token) = @_;      my ($target,$token) = @_;
     my $result = "<select name=\"delete_$Apache::lonxml::curdepth\">      my $result = "<select name=\"delete_$Apache::lonxml::curdepth\">
 <option></option>  <option></option>
 <option>Yes</option>  <option>".&mt('yes')."</option>
 </select>";  </select>";
     return $result;      return $result;
 }  }
Line 215  sub innerinsertlist { Line 215  sub innerinsertlist {
     if ($target eq 'edit') {      if ($target eq 'edit') {
  my $optionlist= &get_insert_list($tagname);   my $optionlist= &get_insert_list($tagname);
  if ($optionlist) {   if ($optionlist) {
     $result = "Insert:      $result = &mt('Insert:')."
             <select name=\"insert$after\_$Apache::lonxml::curdepth\">              <select name=\"insert$after\_$Apache::lonxml::curdepth\">
                   $optionlist                    $optionlist
             </select>"              </select>"
Line 740  sub checked_arg { Line 740  sub checked_arg {
     $text=$option;      $text=$option;
     $value='value="'.$option.'"';      $value='value="'.$option.'"';
  }   }
  $result.="<nobr><label><input type='checkbox' $value name='".   $result.="<nobr><label><input type=\"checkbox\" $value name=\"".
     &html_element_name($name)."'";      &html_element_name($name)."\"";
  foreach my $selected (split(/,/,$allselected)) {   foreach my $selected (split(/,/,$allselected)) {
     if ( $selected eq $option ) {      if ( $selected eq $option ) {
  $result.=" checked='checked' ";   $result.=" checked=\"checked\" ";
  last;   last;
     }      }
  }   }
Line 780  sub select_arg { Line 780  sub select_arg {
     $value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"';      $value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"';
  }   }
  if ( $selected eq $option ) {   if ( $selected eq $option ) {
     $optionlist.="<option $value selected=\"selected\">$text</option>\n";      $optionlist.="<option $value selected=\"selected\">".&mt($text)."</option>\n";
  } else {   } else {
     $optionlist.="<option $value >$text</option>\n";      $optionlist.="<option $value >".&mt($text)."</option>\n";
  }   }
     }      }
     $result.='<nobr>'.$description.'&nbsp;<select name="'.      $result.='<nobr>'.&mt($description).'&nbsp;<select name="'.
  &html_element_name($name).'" '.&element_change_detection().' >   &html_element_name($name).'" '.&element_change_detection().' >
        '.$optionlist.'         '.$optionlist.'
       </select></nobr>';        </select></nobr>';
Removed from v.1.115  
changed lines
  Added in v.1.116

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