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

Diff for /loncom/homework/edit.pm between versions 1.43 and 1.44

version 1.43, 2003/01/19 08:13:54 version 1.44, 2003/01/28 00:14:17
Line 337  sub insert_rankresponse { Line 337  sub insert_rankresponse {
 </rankresponse>';  </rankresponse>';
 }  }
   
   sub insert_matchresponse {
     return '
   <matchresponse max="10">
       <foilgroup options="">
         <itemgroup>
         </itemgroup>
       </foilgroup>
       <hintgroup>
       </hintgroup>
   </matchresponse>';
   }
   
 sub insert_displayduedate { return '<displayduedate />'; }  sub insert_displayduedate { return '<displayduedate />'; }
 sub insert_displaytitle   { return '<displaytitle />'; }  sub insert_displaytitle   { return '<displaytitle />'; }
 sub insert_hintpart {  sub insert_hintpart {
Line 462  sub text_arg { Line 474  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.'<input name="'."$Apache::lonxml::curdepth.$name".    $result=$description.'&nbsp;<input name="'."$Apache::lonxml::curdepth.$name".
     '" type="text" value="'.$arg.'" size="'.$size.'" />';      '" type="text" value="'.$arg.'" size="'.$size.'" />';
   return $result;    return $result;
 }  }
Line 486  sub select_arg { Line 498  sub select_arg {
     $optionlist.="<option $value >$option</option>\n";      $optionlist.="<option $value >$option</option>\n";
  }   }
     }      }
     $result.=$description.'<select name="'.      $result.=$description.'&nbsp;<select name="'.
  "$Apache::lonxml::curdepth.$name".'">   "$Apache::lonxml::curdepth.$name".'">
        '.$optionlist.'         '.$optionlist.'
       </select>';        </select>';
Line 516  sub select_or_text_arg { Line 528  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) || (!$selected)) {      if (($found) || (!$selected)) {
  $result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">   $result.=$description.'&nbsp;<select name="'."$Apache::lonxml::curdepth.$name".'">
        '.$optionlist.'         '.$optionlist.'
       </select>';        </select>';
     } else {      } else {
Removed from v.1.43  
changed lines
  Added in v.1.44

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