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

Diff for /loncom/homework/edit.pm between versions 1.85 and 1.92

version 1.85, 2004/07/27 23:35:33 version 1.92, 2005/04/07 06:56:21
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 148  sub deletelist { Line 147  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 190  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 222  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 239  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 247  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 281  sub insert_responseparam {
     <responseparam />';      <responseparam />';
 }  }
   
   sub insert_parameter {
       return '
       <parameter />';
   }
   
 sub insert_formularesponse {  sub insert_formularesponse {
     return '      return '
 <formularesponse answer="" samples="">  <formularesponse answer="" samples="">
     <textline />      <responseparam description="Numerical Tolerance" type="tolerance" default="0.00001" name="tol" />
       <textline size="25"/>
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
     </hintgroup>      </hintgroup>
Line 295  sub insert_formularesponse { Line 300  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 323  sub insert_imageresponse { Line 330  sub insert_imageresponse {
     return '      return '
 <imageresponse max="1">  <imageresponse max="1">
     <foilgroup>      <foilgroup>
         <foil>
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
Line 334  sub insert_optionresponse { Line 343  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 361  sub insert_radiobuttonresponse { Line 373  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 382  sub insert_rankresponse { Line 397  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 395  sub insert_matchresponse { Line 413  sub insert_matchresponse {
     <foilgroup options="">      <foilgroup options="">
       <itemgroup>        <itemgroup>
       </itemgroup>        </itemgroup>
         <foil>
            <startouttext /><endouttext />
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
     <startouttext /><endouttext />      <startouttext /><endouttext />
Line 407  sub insert_displaytitle   { return '<dis Line 428  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 500  sub editfield { Line 520  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.'">'.
Line 512  sub editfield { Line 532  sub editfield {
 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 533  sub get_new_args { Line 553  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 607  sub checked_arg { Line 627  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 642  sub select_arg { Line 662  sub select_arg {
     $value='value="'.$option.'"';      $value='value="'.$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 671  sub select_or_text_arg { Line 691  sub select_or_text_arg {
     $value='value="'.$option.'"';      $value='value="'.$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.85  
changed lines
  Added in v.1.92

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