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

Diff for /loncom/homework/edit.pm between versions 1.15 and 1.18

version 1.15, 2001/06/27 18:51:12 version 1.18, 2001/07/13 16:15:01
Line 146  $optionlist Line 146  $optionlist
 }  }
   
 sub handle_insert {  sub handle_insert {
   &Apache::lonxml::debug("Er handle insert called");  
   if ($ENV{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; }    if ($ENV{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; }
   my $result;    my $result;
   my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"};    my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"};
   my $func=$Apache::lonxml::insertlist{"$tagnum.function"};    my $func=$Apache::lonxml::insertlist{"$tagnum.function"};
   &Apache::lonxml::debug("Looking for :$func:");  
   if ($func eq 'default') {    if ($func eq 'default') {
     my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};      my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
     my $namespace;      my $namespace;
Line 171  sub handle_insert { Line 169  sub handle_insert {
   return $result;    return $result;
 }  }
   
   sub insert_responseparam {
     return '
       <responseparam />';
   }
   
 sub insert_numericalresponse {  sub insert_numericalresponse {
   return '    return '
 <numericalresponse answer="">  <numericalresponse answer="">
Line 180  sub insert_numericalresponse { Line 183  sub insert_numericalresponse {
 </numericalresponse>';  </numericalresponse>';
 }  }
   
   sub insert_stringresponse {
     return '
   <stringresponse answer="" type="">
       <textline />
       <hintgroup>
       </hintgroup>
   </stringresponse>';
   }
   
 sub insert_optionresponse {  sub insert_optionresponse {
   return '    return '
 <optionresponse max="10">  <optionresponse max="10">
Line 259  sub rebuild_tag { Line 271  sub rebuild_tag {
   if ($token->[0] eq 'S') {    if ($token->[0] eq 'S') {
     $result = '<'.$token->[1];      $result = '<'.$token->[1];
     while (my ($key,$val)= each(%{$token->[2]})) {      while (my ($key,$val)= each(%{$token->[2]})) {
         $val=~s:^\s|\s$::g;
         $val=~s:"::g; #"
       &Apache::lonxml::debug("setting :$key: to  :$val:");        &Apache::lonxml::debug("setting :$key: to  :$val:");
       $result.=' '.$key.'="'.$val.'"';        $result.=' '.$key.'="'.$val.'"';
     }      }
Removed from v.1.15  
changed lines
  Added in v.1.18

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