[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.21

version 1.15, 2001/06/27 18:51:12 version 1.21, 2001/08/13 21:43:48
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 190  sub insert_optionresponse { Line 202  sub insert_optionresponse {
 </optionresponse>';  </optionresponse>';
 }  }
   
   sub insert_displayduedate { return '<displayduedate />'; }
   sub insert_displaytitle   { return '<displaytitle />'; }
   
 sub editfield {  sub editfield {
   my ($tag,$data,$description,$minwidth,$minheight)=@_;    my ($tag,$data,$description,$minwidth,$minheight)=@_;
       
Line 241  sub get_new_args { Line 256  sub get_new_args {
   my ($token,$parstack,$safeeval,@args)=@_;    my ($token,$parstack,$safeeval,@args)=@_;
   my $rebuild=0;    my $rebuild=0;
   foreach my $arg (@args) {    foreach my $arg (@args) {
     my $value=&Apache::lonxml::get_param($arg,$parstack,$safeeval);      #just want the string that it was set to
       my $value=$token->[2]->{$arg};
     my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"};      my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"};
     &Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:");      &Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:");
     if ($value ne $newvalue) {      if ($value ne $newvalue) {
Line 259  sub rebuild_tag { Line 275  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.'"';
     }      }
Line 301  sub select_arg { Line 319  sub select_arg {
   return $result;    return $result;
 }  }
   
   sub select_or_text_arg {
     my ($description,$name,$list,$token,$size) = @_;
     my $result;
     my $optionlist="";
     my $found=0;
     my $selected=$token->[2]{$name};
     foreach my $option (@$list) {
       if ( $selected eq $option ) {
         $optionlist.="<option selected=\"on\">$option</option>\n";
         $found=1;
       } else {
         $optionlist.="<option>$option</option>\n";
       }
     }
     $optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n";
     if ($found) {
       $result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'">
          '.$optionlist.'
         </select></td></tr><tr><td colspan="3">';
     } else {
       $result.=&text_arg($description,$name,$token,$size);
     }
     return $result;
   }
 1;  1;
 __END__  __END__
Removed from v.1.15  
changed lines
  Added in v.1.21

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