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

Diff for /loncom/homework/edit.pm between versions 1.32 and 1.36

version 1.32, 2002/03/22 20:05:19 version 1.36, 2002/08/07 16:23:05
Line 165  sub get_insert_list { Line 165  sub get_insert_list {
     }      }
   }    }
   if (@tagnums) {    if (@tagnums) {
       my %options;
     foreach my $tagnum (@tagnums) {      foreach my $tagnum (@tagnums) {
       $result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tagnum.description"}."</option>\n";        my $descrip=$Apache::lonxml::insertlist{"$tagnum.description"};
         $options{$descrip} ="<option value=\"$tagnum\">".$descrip."</option>\n";
     }      }
       foreach my $option (sort(keys(%options))) { $result.=$options{$option}; }
     if ($result) { $result='<option selected="on"></option>'.$result; }      if ($result) { $result='<option selected="on"></option>'.$result; }
   }    }
   return $result;    return $result;
Line 246  sub insert_stringresponse { Line 249  sub insert_stringresponse {
 </stringresponse>';  </stringresponse>';
 }  }
   
   sub insert_essayresponse {
     return '
   <essayresponse>
       <textfield></textfield>
   </essayresponse>';
   }
   
 sub insert_optionresponse {  sub insert_optionresponse {
   return '    return '
 <optionresponse max="10">  <optionresponse max="10">
Line 423  sub select_or_text_arg { Line 433  sub select_or_text_arg {
     }      }
   }    }
   $optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n";    $optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n";
   if ($found) {    if (($found) || (!$selected)) {
     $result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">      $result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">
        '.$optionlist.'         '.$optionlist.'
       </select>';        </select>';
Line 567  search($elementname) : provide a link wh Line 577  search($elementname) : provide a link wh
 searcher (lonsearchcat) and, once a file is selected, place the result in  searcher (lonsearchcat) and, once a file is selected, place the result in
 the form element $elementname.  the form element $elementname.
   
 = item *  =item *
 editline(tag,data,description,size): Provide a <input type="text" ../> for  editline(tag,data,description,size): Provide a <input type="text" ../> for
 single-line text entry.  This is to be used for text enclosed by tags, not  single-line text entry.  This is to be used for text enclosed by tags, not
 arguements/parameters associated with a tag.  arguements/parameters associated with a tag.
Removed from v.1.32  
changed lines
  Added in v.1.36

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