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

Diff for /loncom/homework/edit.pm between versions 1.16 and 1.24

version 1.16, 2001/06/29 18:53:50 version 1.24, 2001/11/08 20:42:32
Line 21  sub tag_start { Line 21  sub tag_start {
   my $result='';    my $result='';
   if ($target eq "edit") {    if ($target eq "edit") {
     my $tag=$token->[1];      my $tag=$token->[1];
     if (!$description) { $description="<$tag>"; }      if (!$description) {
         $description=&Apache::lonxml::description($token);
         if (!$description) { $description="<$tag>"; }
       }
     $result.= &start_table($token)."<tr><td>$description</td>      $result.= &start_table($token)."<tr><td>$description</td>
 <td>Delete".  <td>Delete".
   &deletelist($target,$token)    &deletelist($target,$token)
Line 30  sub tag_start { Line 33  sub tag_start {
   &insertlist($target,$token).    &insertlist($target,$token).
     "</td>      "</td>
 </tr><tr><td colspan=\"3\">\n";  </tr><tr><td colspan=\"3\">\n";
   #<td>".
   #  &movebuttons($target,$token).
   #    "</tr><tr><td colspan=\"3\">\n";
   }    }
   return $result;    return $result;
 }  }
Line 54  sub start_table { Line 60  sub start_table {
   my $tag = $token->[1];    my $tag = $token->[1];
   my $tagnum;    my $tagnum;
   foreach my $namespace (reverse @Apache::lonxml::namespace) {    foreach my $namespace (reverse @Apache::lonxml::namespace) {
     my $testtag=$Apache::lonxml::namespace['-1'].'::'.$tag;      my $testtag=$namespace.'::'.$tag;
     $tagnum=$Apache::lonxml::insertlist{"$testtag.num"};      $tagnum=$Apache::lonxml::insertlist{"$testtag.num"};
     if (defined($tagnum)) { last; }      if (defined($tagnum)) { last; }
   }    }
Line 74  sub end_table { Line 80  sub end_table {
   return $result;    return $result;
 }  }
   
   sub movebuttons {
     my ($target,$token) = @_;
     my $result='<input type="submit" name="moveup.'.
       $Apache::lonxml::curdepth.'" value="Move Up" />';
     $result.='<input type="submit" name="movedown.'.
       $Apache::lonxml::curdepth.'" value="Move Down" />';
     return $result;
   }
   
 sub deletelist {  sub deletelist {
   my ($target,$token) = @_;    my ($target,$token) = @_;
   my $result = "<select name=\"delete_$Apache::lonxml::curdepth\">    my $result = "<select name=\"delete_$Apache::lonxml::curdepth\">
Line 174  sub insert_responseparam { Line 189  sub insert_responseparam {
     <responseparam />';      <responseparam />';
 }  }
   
   sub insert_formularesponse {
     return '
   <formularesponse answer="" samples="">
       <textline />
       <hintgroup>
       </hintgroup>
   </formularesponse>';
   }
   
 sub insert_numericalresponse {  sub insert_numericalresponse {
   return '    return '
 <numericalresponse answer="">  <numericalresponse answer="">
Line 183  sub insert_numericalresponse { Line 207  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 193  sub insert_optionresponse { Line 226  sub insert_optionresponse {
 </optionresponse>';  </optionresponse>';
 }  }
   
   sub insert_radiobuttonresponse {
     return '
   <radiobuttonresponse max="10">
       <foilgroup>
       </foilgroup>
       <hintgroup>
       </hintgroup>
   </radiobuttonresponse>';
   }
   
   sub insert_displayduedate { return '<displayduedate />'; }
   sub insert_displaytitle   { return '<displaytitle />'; }
   sub insert_hintpart {
     return '
   <hintpart on="default">
       <startouttext/>
       <endouttext />
   </hintpart>';
   }
   
   sub insert_numericalhint {
     return '
   <numericalhint>
   </numericalhint>';
   }
   
   sub insert_startouttext {
     return "<startouttext />\n<endouttext />";
   }
   
   sub insert_script {
     return "\n<script type=\"loncapa/perl\">\n</script>";
   }
   
 sub editfield {  sub editfield {
   my ($tag,$data,$description,$minwidth,$minheight)=@_;    my ($tag,$data,$description,$minwidth,$minheight)=@_;
     
   my $count=0;    my $count=0;
   my $maxlength=-1;    my $maxlength=-1;
   map { $count++;    map { $count++;
Line 230  sub modifiedfield { Line 297  sub modifiedfield {
   return $result;    return $result;
 }  }
   
 sub insert_startouttext {  
   return "<startouttext />\n<endouttext />";  
 }  
   
 sub insert_script {  
   return "\n<script type=\"loncapa/perl\">\n</script>";  
 }  
   
 # Returns a 1 if the token has been modified and you should rebuild the tag  # Returns a 1 if the token has been modified and you should rebuild the tag
 # side-effects, will modify the $token if new values are found  # side-effects, will modify the $token if new values are found
 sub get_new_args {  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 262  sub rebuild_tag { Line 322  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 304  sub select_arg { Line 366  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.16  
changed lines
  Added in v.1.24

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