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

Diff for /loncom/homework/edit.pm between versions 1.84.2.1 and 1.96

version 1.84.2.1, 2004/08/19 21:03:23 version 1.96, 2005/11/15 15:57:45
Line 29 Line 29
 package Apache::edit;   package Apache::edit; 
   
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet;
 use HTML::Entities();  use HTML::Entities();
 use Apache::lonlocal;  use Apache::lonlocal;
   
Line 68  sub tag_start { Line 68  sub tag_start {
 #    "</tr><tr><td colspan=\"3\">\n";  #    "</tr><tr><td colspan=\"3\">\n";
  my @help = Apache::lonxml::helpinfo($token);   my @help = Apache::lonxml::helpinfo($token);
  if ($help[0]) {   if ($help[0]) {
     $result .= '<td align="right" valign="top">' .      $result .= '</td><td align="right" valign="top">' .
  Apache::loncommon::help_open_topic(@help) .   Apache::loncommon::help_open_topic(@help);
  '</td>';   } else { $result .= "</td><td>&nbsp;"; }
  } else { $result .= "<td>&nbsp;</td>"; }  
  $result .= &end_row().&start_spanning_row();   $result .= &end_row().&start_spanning_row();
     }      }
     return $result;      return $result;
Line 93  sub start_table { Line 92  sub start_table {
     foreach my $namespace (reverse @Apache::lonxml::namespace) {      foreach my $namespace (reverse @Apache::lonxml::namespace) {
  my $testtag=$namespace.'::'.$tag;   my $testtag=$namespace.'::'.$tag;
  $tagnum=$Apache::lonxml::insertlist{"$testtag.num"};   $tagnum=$Apache::lonxml::insertlist{"$testtag.num"};
    &Apache::lonxml::debug(" $testtag ");
  if (defined($tagnum)) { last; }   if (defined($tagnum)) { last; }
     }      }
     if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};}      if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};}
     my $color = $Apache::lonxml::insertlist{"$tagnum.color"};      my $color = $Apache::lonxml::insertlist{"$tagnum.color"};
       &Apache::lonxml::debug(" $tagnum -- $color");
     if (!defined($color)) {      if (!defined($color)) {
  $color = $Apache::edit::colorlist[$Apache::edit::colordepth];   $color = $Apache::edit::colorlist[$Apache::edit::colordepth];
     }      }
Line 110  sub start_table { Line 111  sub start_table {
 sub end_table {  sub end_table {
     $Apache::edit::colordepth--;      $Apache::edit::colordepth--;
     my $result='</table></div>';      my $result='</table></div>';
     $result.="<table><tr><td>";      $result.='<div align="left"><table><tr><td>';
   
     my ($tagname,$closingtag);      my ($tagname,$closingtag);
     if (defined($Apache::edit::inserttag[-2])) {      if (defined($Apache::edit::inserttag[-2])) {
Line 120  sub end_table { Line 121  sub end_table {
  $closingtag=$Apache::edit::inserttag[-1];   $closingtag=$Apache::edit::inserttag[-1];
     }      }
     $result.=&innerinsertlist('edit',$tagname,$closingtag).      $result.=&innerinsertlist('edit',$tagname,$closingtag).
  "</td></tr></table>";   "</td></tr></table></div>";
     pop(@Apache::edit::inserttag);      pop(@Apache::edit::inserttag);
     return $result;      return $result;
 }  }
Line 148  sub deletelist { Line 149  sub deletelist {
 }  }
   
 sub handle_delete {  sub handle_delete {
     if (!$ENV{"form.delete_$Apache::lonxml::curdepth"}) { return ''; }      if (!$env{"form.delete_$Apache::lonxml::curdepth"}) { return ''; }
     my ($space,$target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($space,$target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result=0;      my $result=0;
     if ($space) {      if ($space) {
Line 191  sub get_insert_list { Line 192  sub get_insert_list {
  $descrip."</option>\n";   $descrip."</option>\n";
  }   }
  foreach my $option (sort(keys(%options))) {$result.=$options{$option};}   foreach my $option (sort(keys(%options))) {$result.=$options{$option};}
  if ($result) { $result='<option selected="on"></option>'.$result; }   if ($result) { $result='<option selected="selected"></option>'.$result; }
     }      }
     return $result;      return $result;
 }  }
Line 223  sub innerinsertlist { Line 224  sub innerinsertlist {
 }  }
   
 sub handle_insert {  sub handle_insert {
     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"};
     if ($func eq 'default') {      if ($func eq 'default') {
  my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};   my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
Line 240  sub handle_insert { Line 241  sub handle_insert {
     }      }
  } else {   } else {
     my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};      my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
     &Apache::lonxml::error("Unable to insert tag $newtag, $func was not defined.");      &Apache::lonxml::error("Unable to insert tag ".$Apache::lonxml::curdepth." ($tagnum) $newtag, func was not defined.");
  }   }
     }      }
     return $result;      return $result;
Line 248  sub handle_insert { Line 249  sub handle_insert {
   
 sub handle_insertafter {  sub handle_insertafter {
     my $tagname=shift;      my $tagname=shift;
     if ($ENV{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"} eq '')      if ($env{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"} eq '')
     { return ''; }      { return ''; }
     my $result;      my $result;
     my $tagnum =$ENV{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"};      my $tagnum =$env{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"};
     my $func=$Apache::lonxml::insertlist{"$tagnum.function"};      my $func=$Apache::lonxml::insertlist{"$tagnum.function"};
     if ($func eq 'default') {      if ($func eq 'default') {
  my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};   my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
Line 282  sub insert_responseparam { Line 283  sub insert_responseparam {
     <responseparam />';      <responseparam />';
 }  }
   
   sub insert_parameter {
       return '
       <parameter />';
   }
   
 sub insert_formularesponse {  sub insert_formularesponse {
     return '      return '
 <formularesponse answer="" samples="">  <formularesponse answer="" samples="">
Line 296  sub insert_formularesponse { Line 302  sub insert_formularesponse {
 sub insert_numericalresponse {  sub insert_numericalresponse {
     return '      return '
 <numericalresponse answer="">  <numericalresponse answer="">
   <responseparam type="tolerance" default="5%" name="tol" description="Numerical Tolerance" />
   <responseparam name="sig" type="int_range,0-16" default="0,15" description="Significant Figures" />
     <textline />      <textline />
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
Line 303  sub insert_numericalresponse { Line 311  sub insert_numericalresponse {
 </numericalresponse>';  </numericalresponse>';
 }  }
   
   sub insert_customresponse {
       return '
   <customresponse>
       <answer type="loncapa/perl">
       </answer>
       <textline />
       <hintgroup>
       <startouttext /><endouttext />
       </hintgroup>
   </customresponse>';
   }
   
   sub insert_customresponse_answer {
       return '
       <answer type="loncapa/perl">
       </answer>
   ';
   }
   
 sub insert_stringresponse {  sub insert_stringresponse {
     return '      return '
 <stringresponse answer="" type="">  <stringresponse answer="" type="">
Line 324  sub insert_imageresponse { Line 351  sub insert_imageresponse {
     return '      return '
 <imageresponse max="1">  <imageresponse max="1">
     <foilgroup>      <foilgroup>
         <foil>
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
Line 335  sub insert_optionresponse { Line 364  sub insert_optionresponse {
     return '      return '
 <optionresponse max="10">  <optionresponse max="10">
     <foilgroup options="">      <foilgroup options="">
         <foil>
            <startouttext /><endouttext />
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
Line 362  sub insert_radiobuttonresponse { Line 394  sub insert_radiobuttonresponse {
     return '      return '
 <radiobuttonresponse max="10">  <radiobuttonresponse max="10">
     <foilgroup>      <foilgroup>
         <foil>
            <startouttext /><endouttext />
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
Line 383  sub insert_rankresponse { Line 418  sub insert_rankresponse {
     return '      return '
 <rankresponse max="10">  <rankresponse max="10">
     <foilgroup options="">      <foilgroup options="">
         <foil>
            <startouttext /><endouttext />
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
Line 396  sub insert_matchresponse { Line 434  sub insert_matchresponse {
     <foilgroup options="">      <foilgroup options="">
       <itemgroup>        <itemgroup>
       </itemgroup>        </itemgroup>
         <foil>
            <startouttext /><endouttext />
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
Line 408  sub insert_displaytitle   { return '<dis Line 449  sub insert_displaytitle   { return '<dis
 sub insert_hintpart {  sub insert_hintpart {
     return '      return '
 <hintpart on="default">  <hintpart on="default">
     <startouttext/>      <startouttext/><endouttext />
     <endouttext />  
 </hintpart>';  </hintpart>';
 }  }
   
Line 501  sub editfield { Line 541  sub editfield {
  push @Apache::lonxml::htmlareafields,'homework_edit_'.   push @Apache::lonxml::htmlareafields,'homework_edit_'.
     $Apache::lonxml::curdepth;      $Apache::lonxml::curdepth;
     }      }
     return $description."\n".'&nbsp;&nbsp;&nbsp;<textarea rows="'.$rows.      return $description."\n".'&nbsp;&nbsp;&nbsp;<textarea style="width:100%" rows="'.$rows.
  '" cols="'.$cols.'" name="homework_edit_'.   '" cols="'.$cols.'" name="homework_edit_'.
  $Apache::lonxml::curdepth.'" id="homework_edit_'.   $Apache::lonxml::curdepth.'" id="homework_edit_'.
  $Apache::lonxml::curdepth.'">'.   $Apache::lonxml::curdepth.'">'.
  &HTML::Entities::encode($data,'<>&"').'</textarea>'."\n";   &HTML::Entities::encode($data,'<>&"').'</textarea>'.
    ($usehtmlarea?&Apache::lonhtmlcommon::spelllink('lonhomework',
    'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";
 }  }
   
 sub modifiedfield {  sub modifiedfield {
     my ($endtag,$parser) = @_;      my ($endtag,$parser) = @_;
     my $result;      my $result;
 #  foreach my $envkey (sort keys %ENV) {  #  foreach my $envkey (sort keys %env) {
 #    &Apache::lonxml::debug("$envkey ---- $ENV{$envkey}");  #    &Apache::lonxml::debug("$envkey ---- $env{$envkey}");
 #  }  #  }
 #  &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");  #  &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");
 #  &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"});  #  &Apache::lonxml::debug($env{"form.homework_edit_$Apache::lonxml::curdepth"});
     $result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"};      $result=$env{"form.homework_edit_$Apache::lonxml::curdepth"};
     my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);      my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);
     # textareas throw away intial \n       # textareas throw away intial \n 
     if ($bodytext=~/^\n/) { $result="\n".$result; }      if ($bodytext=~/^\n/) { $result="\n".$result; }
Line 532  sub get_new_args { Line 574  sub get_new_args {
  #just want the string that it was set to   #just want the string that it was set to
  my $value=$token->[2]->{$arg};   my $value=$token->[2]->{$arg};
  my $element=&html_element_name($arg);   my $element=&html_element_name($arg);
  my $newvalue=$ENV{"form.$element"};   my $newvalue=$env{"form.$element"};
  &Apache::lonxml::debug("for:$arg: cur is :$value: new is :$newvalue:");   &Apache::lonxml::debug("for:$arg: cur is :$value: new is :$newvalue:");
  if (defined($newvalue) && $value ne $newvalue) {   if (defined($newvalue) && $value ne $newvalue) {
     if (ref($newvalue) eq 'ARRAY') {      if (ref($newvalue) eq 'ARRAY') {
Line 606  sub checked_arg { Line 648  sub checked_arg {
     &html_element_name($name)."'";      &html_element_name($name)."'";
  foreach my $selected (split(/,/,$allselected)) {   foreach my $selected (split(/,/,$allselected)) {
     if ( $selected eq $option ) {      if ( $selected eq $option ) {
  $result.=" checked='on' ";   $result.=" checked='checked' ";
  last;   last;
     }      }
  }   }
Line 633  sub select_arg { Line 675  sub select_arg {
     foreach my $option (@$list) {      foreach my $option (@$list) {
  my ($text,$value);   my ($text,$value);
  if ( ref($option) eq 'ARRAY') {   if ( ref($option) eq 'ARRAY') {
     $value='value="'.$$option[0].'"';      $value='value="'.&HTML::Entities::encode($$option[0]).'"';
     $text=$$option[1];      $text=$$option[1];
     $option=$$option[0];      $option=$$option[0];
  } else {   } else {
     $text=$option;      $text=$option;
     $value='value="'.$option.'"';      $value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"';
  }   }
  if ( $selected eq $option ) {   if ( $selected eq $option ) {
     $optionlist.="<option $value selected=\"on\">$text</option>\n";      $optionlist.="<option $value selected=\"selected\">$text</option>\n";
  } else {   } else {
     $optionlist.="<option $value >$text</option>\n";      $optionlist.="<option $value >$text</option>\n";
  }   }
Line 662  sub select_or_text_arg { Line 704  sub select_or_text_arg {
     foreach my $option (@$list) {      foreach my $option (@$list) {
  my ($text,$value);   my ($text,$value);
  if ( ref($option) eq 'ARRAY') {   if ( ref($option) eq 'ARRAY') {
     $value='value="'.$$option[0].'"';      $value='value="'.&HTML::Entities::encode($$option[0]).'"';
     $text=$$option[1];      $text=$$option[1];
     $option=$$option[0];      $option=$$option[0];
  } else {   } else {
     $text=$option;      $text=$option;
     $value='value="'.$option.'"';      $value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"';
  }   }
  if ( $selected eq $option ) {   if ( $selected eq $option ) {
     $optionlist.="<option $value selected=\"on\">$text</option>\n";      $optionlist.="<option $value selected=\"selected\">$text</option>\n";
     $found=1;      $found=1;
  } else {   } else {
     $optionlist.="<option $value>$text</option>\n";      $optionlist.="<option $value>$text</option>\n";
  }   }
     }      }
     $optionlist.="<option value=\"TYPEDINVALUE\"".      $optionlist.="<option value=\"TYPEDINVALUE\"".
   ((!$found)?' selected="on"':'').    ((!$found)?' selected="selected"':'').
   ">".&mt('Type-in value')."</option>\n";    ">".&mt('Type-in value')."</option>\n";
 #  #
     my $element=&html_element_name($name);      my $element=&html_element_name($name);
Removed from v.1.84.2.1  
changed lines
  Added in v.1.96

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