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

Diff for /loncom/homework/edit.pm between versions 1.45 and 1.145

version 1.45, 2003/02/07 22:03:21 version 1.145, 2013/06/25 15:07:30
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # 3/20 Guy  
 # 01/10/02 Matthew  =pod
 # 03/06/02 Matthew  
   =head1 NAME
   
   Apache::edit - edit mode helpers
   
   =head1 SYNOPSIS
   
   Invoked by many homework and xml related modules.
   
    &Apache::edit::SUBROUTINENAME(ARGUMENTS);
   
   =head1 INTRODUCTION
   
   This module outputs HTML syntax helpful for the rendering of edit
   mode interfaces.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 SUBROUTINES
   
   =over 4
   
   =item initialize_edit() 
   
   initialize edit (set colordepth to zero)
   
   =item tag_start($target,$token,$description)
   
   provide deletion and insertion lists
   for the manipulation of a start tag; return a scalar string
   
   =item tag_end($target,$token,$description)
   
   ending syntax corresponding to
   &tag_start. return a scalar string.
   
   =item  start_table($token)
   
   start table; update colordepth; return scalar string.
   
   =item end_table()
   
   reduce color depth; end table; return scalar string
   
   =item start_spanning_row()
   
   start a new table row spanning the 'edit' environment.
   
   =item start_row()
   
   start a new table row and element. 
   
   =item end_row() 
   
   end current table element and row.
   
   =item movebuttons($target,$token)
   
   move-up and move-down buttons; return scalar string
   
   =item deletelist($target,$token)
   
   provide a yes option in an HTML select element; return scalar string
   
   =item handle_delete($space,$target,$token,$tagstack,$parstack,$parser,$safeeval,
   $style)
   
   respond to a user delete request by passing relevant stack
   and array information to various rendering functions; return a scalar string
   
   =item get_insert_list($token)
   
   provide an insertion list based on possibilities from lonxml; return a scalar string
   
   =item insertlist($target,$token)
   
   api that uses get_insert_list; return a scalar string
   
   =item handleinsert($token)
   
   provide an insertion list based on possibilities from lonxml; return a scalar string
   
   =item get_insert_list($token)
   
   provide an insertion list based on possibilities from lonxml; return a scalar string
   
   =item browse($elementname)
   
   provide a link which will open up the filesystem browser (lonindexer) and, once a file is selected, place the result in the form element $elementname.
   
   =item search($elementname)
   
   provide a link which will open up the filesystem searcher (lonsearchcat) and, once a file is selected, place the result in the form element $elementname.
   
   =item editline(tag,data,description,size)
   
   Provide a <input type="text" ../> for single-line text entry.  This is to be used for text enclosed by tags, not arguements/parameters associated with a tag.
   
   =back
   
   =cut
   
 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 lib '/home/httpd/lib/perl/';
   use LONCAPA;
    
   
 # Global Vars  # Global Vars
 # default list of colors to use in editing  # default list of colors to use in editing
Line 40  use HTML::Entities(); Line 146  use HTML::Entities();
 # depth of nesting of edit  # depth of nesting of edit
 $Apache::edit::colordepth=0;  $Apache::edit::colordepth=0;
 @Apache::edit::inserttag=();  @Apache::edit::inserttag=();
   # image-type responses: active background image and curdepth at definition
   $Apache::edit::bgimgsrc='';
   $Apache::edit::bgimgsrccurdepth='';
   
 sub initialize_edit {  sub initialize_edit {
   $Apache::edit::colordepth=0;      $Apache::edit::colordepth=0;
   @Apache::edit::inserttag=();      @Apache::edit::inserttag=();
 }  }
   
 sub tag_start {  sub tag_start {
   my ($target,$token,$description) = @_;      my ($target,$token,$description) = @_;
   my $result='';      my $result='';
   if ($target eq "edit") {      if ($target eq "edit") {
     my $tag=$token->[1];   my $tag=$token->[1];
     if (!$description) {   if (!$description) {
       $description=&Apache::lonxml::description($token);      $description=&Apache::lonxml::description($token);
       if (!$description) { $description="&lt;$tag&gt;"; }      if (!$description) { $description="&lt;$tag&gt;"; }
     }   }
     $result.= &start_table($token)."<tr><td>$description</td>   $result.= &start_table($token)."<tr><td>$description</td>
 <td>Delete".                        <td>".&mt('Delete?').' '.
   &deletelist($target,$token)        &deletelist($target,$token)
   ."</td>        ."</td>
 <td>".                         <td>".
     &insertlist($target,$token).&end_row().&start_spanning_row();         &insertlist($target,$token);
 #<td>".   #<td>". 
 #  &movebuttons($target,$token).  #  &movebuttons($target,$token).
 #    "</tr><tr><td colspan=\"3\">\n";  #    "</tr><tr><td colspan=\"3\">\n";
   }   my @help = Apache::lonxml::helpinfo($token);
   return $result;   if ($help[0]) {
       $result .= '</td><td align="right" valign="top">' .
    Apache::loncommon::help_open_topic(@help);
    } else { $result .= "</td><td>&nbsp;"; }
    $result .= &end_row().&start_spanning_row();
       }
       return $result;
 }  }
   
 sub tag_end {  sub tag_end {
   my ($target,$token,$description) = @_;      my ($target,$token,$description) = @_;
   my $result='';      my $result='';
   if ($target eq 'edit') {      if ($target eq 'edit') {
     my $tag=$token->[1];   $result.="</td></tr>".&end_table()."\n";
     if (!defined($description)) {  
       $result.="</td></tr><tr><td>&lt;/$tag&gt;</td><td colspan=\"2\">&nbsp;</td>";  
     } else {  
       if ($description ne '') { $result.="</td></tr><tr><td>$description</td><td colspan=\"2\">&nbsp;</td>"; }  
     }      }
     $result.="</tr>".&end_table()."\n";      return $result;
   }  
   return $result;  
 }  }
   
 sub start_table {  sub start_table {
   my ($token)=@_;      my ($token)=@_;
   my $tag = $token->[1];      my $tag = &Apache::lonxml::get_tag($token);
   my $tagnum;      
   foreach my $namespace (reverse @Apache::lonxml::namespace) {      my $color = $Apache::lonxml::insertlist{"$tag.color"};
     my $testtag=$namespace.'::'.$tag;      &Apache::lonxml::debug(" $tag -- $color");
     $tagnum=$Apache::lonxml::insertlist{"$testtag.num"};      if (!defined($color)) {
     if (defined($tagnum)) { last; }   $color = $Apache::edit::colorlist[$Apache::edit::colordepth];
   }      }
   if (!defined ($tagnum)) { $tagnum=$Apache::lonxml::insertlist{"$tag.num"}; }      $Apache::edit::colordepth++;
   my $color = $Apache::lonxml::insertlist{"$tagnum.color"};      push(@Apache::edit::inserttag,$token->[1]);
   if (!defined($color)) {      my $result='<div align="right">';
     $color = $Apache::edit::colorlist[$Apache::edit::colordepth];      $result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="3" cellpadding="2">';
   }      return $result;
   $Apache::edit::colordepth++;  
   push(@Apache::edit::inserttag,$token->[1]);  
   my $result='<div align="right">';  
   $result.='<table bgcolor="'.$color.'" width="97%" border="0" cellspacing="5" cellpadding="3">';  
   return $result;  
 }  }
   
 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])) {
     $tagname=$Apache::edit::inserttag[-2];   $tagname=$Apache::edit::inserttag[-2];
   } else {$tagname='problem';}      } else {
   if (defined($Apache::edit::inserttag[-1])) {   if ($Apache::lonhomework::parsing_a_task) {
     $closingtag=$Apache::edit::inserttag[-1];      $tagname='Task';
   }   } else {
   $result.=&innerinsertlist('edit',$tagname,$closingtag).      $tagname='problem';
     "</td></tr></table>";   }
   pop(@Apache::edit::inserttag);      }
   return $result;      if (defined($Apache::edit::inserttag[-1])) {
    $closingtag=$Apache::edit::inserttag[-1];
       }
       $result.=&innerinsertlist('edit',$tagname,$closingtag).
    "</td></tr></table></div>";
       my $last = pop(@Apache::edit::inserttag);
       return $result;
 }  }
   
 sub start_spanning_row { return '<tr><td colspan="3" bgcolor="#DDDDDD">';}  sub start_spanning_row { return '<tr><td colspan="5" bgcolor="#F0F0F0">';}
 sub start_row          { return '<tr><td bgcolor="#DDDDDD">';            }  sub start_row          { return '<tr><td bgcolor="#DDDDDD">';            }
 sub end_row            { return '</td></tr>';          }  sub end_row            { return '</td></tr>';          }
   
 sub movebuttons {  sub movebuttons {
   my ($target,$token) = @_;      my ($target,$token) = @_;
   my $result='<input type="submit" name="moveup.'.      my $result='<input type="submit" name="moveup.'.
     $Apache::lonxml::curdepth.'" value="Move Up" />';   $Apache::lonxml::curdepth.'" value="Move Up" />';
   $result.='<input type="submit" name="movedown.'.      $result.='<input type="submit" name="movedown.'.
     $Apache::lonxml::curdepth.'" value="Move Down" />';   $Apache::lonxml::curdepth.'" value="Move Down" />';
   return $result;      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\">
 <option></option>  <option></option>
 <option>Yes</option>  <option>".&mt('yes')."</option>
 </select>";  </select>";
   return $result;      return $result;
 }  }
   
 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) {
     my $sub1="$space\:\:delete_$token->[1]";   my $sub1="$space\:\:delete_$token->[1]";
     {   {
       no strict 'refs';      no strict 'refs';
       if (defined &$sub1) {      if (defined &$sub1) {
  $result=&$sub1($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);   $result=&$sub1($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
       }      }
     }   }
   }      }
   if (!$result) {      if (!$result) {
     my $endtag='/'.$token->[1];   my $endtag='/'.$token->[1];
     my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);   my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser,$style);
     $$parser['-1']->get_token();   $$parser['-1']->get_token();
     &Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");   &Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");
     &Apache::lonxml::end_tag($tagstack,$parstack,$token);   &Apache::lonxml::end_tag($tagstack,$parstack,$token);
   }      }
   return 1;      return 1;
 }  }
   
 sub get_insert_list {  sub get_insert_list {
   my ($tagname) = @_;      my ($tagname) = @_;
   my $result='';      my $result='';
   my @tagnums= ();      my @tags= ();
   #&Apache::lonxml::debug("keys ".join("\n",sort(keys(%Apache::lonxml::insertlist))));      #&Apache::lonxml::debug("keys ".join("\n",sort(keys(%Apache::lonxml::insertlist))));
   if ($Apache::lonxml::insertlist{"$tagname.which"}) {      if ($Apache::lonxml::insertlist{"$tagname.which"}) {
     push (@tagnums, @{ $Apache::lonxml::insertlist{"$tagname.which"} });   push (@tags, @{ $Apache::lonxml::insertlist{"$tagname.which"} });
   }      }
   foreach my $namespace (@Apache::lonxml::namespace) {      foreach my $namespace (@Apache::lonxml::namespace) {
     if ($Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"}) {   if ($Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"}) {
       push (@tagnums, @{ $Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"} });      push (@tags, @{ $Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"} });
     }   }
   }      }
   if (@tagnums) {      if (@tags) {
     my %options;   my %options;
     foreach my $tagnum (@tagnums) {   foreach my $tag (@tags) {
       my $descrip=$Apache::lonxml::insertlist{"$tagnum.description"};      my $descrip=$Apache::lonxml::insertlist{"$tag.description"};
       $options{$descrip} ="<option value=\"$tagnum\">".$descrip."</option>\n";      my $tagnum =$Apache::lonxml::insertlist{"$tag.num"};
     }      $options{$descrip} ="<option value=\"$tagnum\">".
     foreach my $option (sort(keys(%options))) { $result.=$options{$option}; }   $descrip."</option>\n";
     if ($result) { $result='<option selected="on"></option>'.$result; }   }
   }   foreach my $option (sort(keys(%options))) {$result.=$options{$option};}
   return $result;   if ($result) { $result='<option selected="selected"></option>'.$result; }
       }
       return $result;
 }  }
   
 sub insertlist {  sub insertlist {
   my ($target,$token) = @_;      my ($target,$token) = @_;
   return &innerinsertlist($target,$token->[1]);      return &innerinsertlist($target,$token->[1]);
 }  }
   
 sub innerinsertlist {  sub innerinsertlist {
   my ($target,$tagname,$closingtag) = @_;      my ($target,$tagname,$closingtag) = @_;
   my $result;      my $result;
   my $after='';      my $after='';
   if ($closingtag) {      if ($closingtag) {
      $after='_after_'.$closingtag;    $after='_after_'.$closingtag; 
   }      }
   if ($target eq 'edit') {      if ($target eq 'edit') {
     my $optionlist= &get_insert_list($tagname);   my $optionlist= &get_insert_list($tagname);
     if ($optionlist) {   if ($optionlist) {
       $result = "Insert:      $result = &mt('Insert:')."
 <select name=\"insert$after\_$Apache::lonxml::curdepth\">              <select name=\"insert$after\_$Apache::lonxml::curdepth\">
 $optionlist                    $optionlist
 </select>"              </select>"
     } else {   } else {
       $result="&nbsp;";      $result="&nbsp;";
    }
     }      }
   }      return $result;
   return $result;  
 }  }
   
 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 $tagnum = $env{"form.insert_$Apache::lonxml::curdepth"};
   my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"};      return &do_insert($tagnum);
   my $func=$Apache::lonxml::insertlist{"$tagnum.function"};  
   if ($func eq 'default') {  
     my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};  
     my $namespace;  
     if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }  
     $result.="\n<$newtag>\n</$newtag>";  
   } else {  
     if (defined(&$func)) {  
       {  
  no strict 'refs';  
  $result.=&$func();  
       }  
     } else {  
       my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};  
       &Apache::lonxml::error("Unable to insert tag $newtag, $func was not defined.");  
     }  
   }  
   return $result;  
 }  }
   
 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 $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"};      return &do_insert($tagnum,1);
   if ($func eq 'default') {  }
     my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};  
     my $namespace;  sub do_insert {
     if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }      my ($tagnum,$after) = @_;
     $result.="\n<$newtag>\n</$newtag>";      my $result;
   } else {  
     if (defined(&$func)) {      my $newtag = $Apache::lonxml::insertlist{"$tagnum.tag"};
       {      my $func   = $Apache::lonxml::insertlist{"$newtag.function"};
  no strict 'refs';      if ($func eq 'default') {
  $result.=&$func();   my $namespace;
       }   if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }
    my $depth = scalar(@Apache::lonxml::depthcounter);
    $depth -- if ($after);
    my $inset = "\t"x$depth;
    $result.="\n$inset<$newtag></$newtag>";
     } else {      } else {
       my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};   if (defined(&$func)) {
       &Apache::lonxml::error("Unable to insert (after) tag $newtag, $func was not defined. ($tagname $tagnum)");      {
    no strict 'refs';
    $result.=&$func();
       }
    } else {
       &Apache::lonxml::error("Unable to insert tag $newtag, $func was not defined. ($tagnum)");
    }
     }      }
   }      return $result;
   return $result;  }
   
   sub insert_img {
       return '
       <img />';
 }  }
   
 sub insert_responseparam {  sub insert_responseparam {
   return '      return '
     <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 />
     </hintgroup>      </hintgroup>
 </formularesponse>';  </formularesponse>';
 }  }
   
   sub insert_functionplotresponse {
       return '
   <functionplotresponse>
   <functionplotelements>
   </functionplotelements>
   <functionplotruleset>
   </functionplotruleset>
   </functionplotresponse>';
   }
   
   sub insert_spline {
       return '
   <spline />';
   }
   
   sub insert_backgroundplot {
       return '
   <backgroundplot />';
   }
   
   sub insert_plotobject {
       return '
   <plotobject />';
   }
   
   sub insert_plotvector {
       return '
   <plotvector />';
   }
   
   sub insert_drawvectorsum {
       return '
   <drawvectorsum />';
   }
   
   
   sub insert_functionplotrule {
       return '
   <functionplotrule />';
   }
   
   sub insert_functionplotvectorrule {
       return '
   <functionplotvectorrule />';
   }
   
   sub insert_functionplotvectorsumrule {
       return '
   <functionplotvectorsumrule />';
   }
   
   sub insert_functionplotcustomrule {
       return '
   <functionplotcustomrule>
   <answer type="loncapa/perl">
   # &fpr_val("label"), &fpr_f($x), &fpr_dfdx($x), &fpr_d2fdx2($x)
   # ($xs,$xe,$ys,$ye)=&fpr_vectorcoords("Name"), ($x,$y)=&fpr_objectcoords("Name")
   # &fpr_vectorlength("Name"), &fpr_vectorangle("Name")
    
   # Return 0 or 1
   return 1;
   </answer>
   </functionplotcustomrule>';
   }
   
   sub insert_functionplotruleset {
       return '
   <functionplotruleset>
   <functionplotrule />
   </functionplotruleset>';
   }
   
   sub insert_functionplotelements {
       return '
   <functionplotelements>
   <spline />
   </functionplotelements>';
   }
   
 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 />
     </hintgroup>      </hintgroup>
 </numericalresponse>';  </numericalresponse>';
 }  }
   
   sub insert_externalresponse {
       return '
   <externalresponse url="" answer="" answerdisplay="" form="">
       <textfield spellcheck="none" />
   </externalresponse>';
   }
   
   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_customhint {
       return '
           <customhint>
               <answer type="loncapa/perl">
               </answer>
           </customhint>';
   }
   
   sub insert_customhint_answer {
       return '
               <answer type="loncapa/perl">
               </answer>
   ';
   }
   
   sub insert_mathresponse {
       return '
   <mathresponse>
       <answer>
       </answer>
       <textline />
       <hintgroup>
           <startouttext />
           <endouttext />
       </hintgroup>
   </mathresponse>';
   }
   
   sub insert_mathresponse_answer {
       return '
       <answer>
       </answer>
   ';
   }
   
   sub insert_mathhint {
       return '
           <mathhint>
               <answer>
               </answer>
           </mathhint>';
   }
   
   sub insert_mathhint_answer {
       return '
               <answer>
               </answer>
   ';
   }
   
 sub insert_stringresponse {  sub insert_stringresponse {
   return '      return '
 <stringresponse answer="" type="">  <stringresponse answer="" type="">
     <textline />      <textline />
     <hintgroup>      <hintgroup>
       <startouttext /><endouttext />
     </hintgroup>      </hintgroup>
 </stringresponse>';  </stringresponse>';
 }  }
   
 sub insert_essayresponse {  sub insert_essayresponse {
   return '      return '
 <essayresponse>  <essayresponse>
     <textfield></textfield>      <textfield></textfield>
 </essayresponse>';  </essayresponse>';
 }  }
   
   sub insert_imageresponse {
       return '
   <imageresponse max="1">
       <foilgroup>
         <foil>
         </foil>
       </foilgroup>
       <hintgroup>
       <startouttext /><endouttext />
       </hintgroup>
   </imageresponse>';
   }
   
 sub insert_optionresponse {  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 />
     </hintgroup>      </hintgroup>
 </optionresponse>';  </optionresponse>';
 }  }
   
   sub insert_organicresponse {
       return '
   <organicresponse>
       <textline />
       <hintgroup>
       <startouttext /><endouttext />
       </hintgroup>
   </organicresponse>';
   }
   
   sub insert_organicstructure {
       return '
   <organicstructure />
   ';
   }
   
 sub insert_radiobuttonresponse {  sub insert_radiobuttonresponse {
   return '      return '
 <radiobuttonresponse max="10">  <radiobuttonresponse max="10">
     <foilgroup>      <foilgroup>
         <foil>
            <startouttext /><endouttext />
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
       <startouttext /><endouttext />
     </hintgroup>      </hintgroup>
 </radiobuttonresponse>';  </radiobuttonresponse>';
 }  }
   
   sub insert_reactionresponse {
       return '
   <reactionresponse>
       <textline />
       <hintgroup>
       <startouttext /><endouttext />
       </hintgroup>
   </reactionresponse>';
   }
   
 sub insert_rankresponse {  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 />
     </hintgroup>      </hintgroup>
 </rankresponse>';  </rankresponse>';
 }  }
   
 sub insert_matchresponse {  sub insert_matchresponse {
   return '      return '
 <matchresponse max="10">  <matchresponse max="10">
     <foilgroup options="">      <foilgroup options="">
       <itemgroup>        <itemgroup>
       </itemgroup>        </itemgroup>
         <foil>
            <startouttext /><endouttext />
         </foil>
     </foilgroup>      </foilgroup>
     <hintgroup>      <hintgroup>
       <startouttext /><endouttext />
     </hintgroup>      </hintgroup>
 </matchresponse>';  </matchresponse>';
 }  }
   
   sub insert_startpartmarker { return '<startpartmarker />'; }
   sub insert_endpartmarker { return '<endpartmarker />'; }
   
 sub insert_displayduedate { return '<displayduedate />'; }  sub insert_displayduedate { return '<displayduedate />'; }
 sub insert_displaytitle   { return '<displaytitle />'; }  sub insert_displaytitle   { return '<displaytitle />'; }
 sub insert_hintpart {  sub insert_hintpart {
   return '      return '
 <hintpart on="default">  <hintpart on="default">
     <startouttext/>      <startouttext/><endouttext />
     <endouttext />  
 </hintpart>';  </hintpart>';
 }  }
   
 sub insert_numericalhint {  sub insert_hintgroup {
   return '    return '
   <hintgroup>
       <startouttext /><endouttext />
   </hintgroup>';
   }
   
   sub insert_numericalhint {
       return '
 <numericalhint>  <numericalhint>
 </numericalhint>';  </numericalhint>';
 }  }
   
   sub insert_reactionhint {
       return '
   <reactionhint>
   </reactionhint>';
   }
   
   sub insert_organichint {
       return '
   <organichint>
   </organichint>';
   }
   
   sub insert_stringhint {
       return '
   <stringhint>
   </stringhint>';
   }
   
   sub insert_formulahint {
       return '
   <formulahint>
   </formulahint>';
   }
   
 sub insert_radiobuttonhint {  sub insert_radiobuttonhint {
   return '      return '
 <radiobuttonhint>  <radiobuttonhint>
 </radiobuttonhint>';  </radiobuttonhint>';
 }  }
   
   sub insert_optionhint {
       return '
   <optionhint>
   </optionhint>';
   }
   
 sub insert_startouttext {  sub insert_startouttext {
   return "<startouttext />\n<endouttext />";      return "<startouttext /><endouttext />";
 }  }
   
 sub insert_script {  sub insert_script {
   return "\n<script type=\"loncapa/perl\">\n</script>";      return "\n<script type=\"loncapa/perl\"></script>";
   }
   
   sub js_change_detection {
       my $unsaved=&mt("There are unsaved changes");
       return (<<SCRIPT);
   <script type="text/javascript">
   // <![CDATA[
   var clean = true;
   var is_submit = false;
   var still_ask = false;
   function compareForm(event_) {
           if (!event_ && window.event) {
             event_ = window.event;
           }
    if ((!is_submit || (is_submit && still_ask)) && !clean) {
       still_ask = false;
       is_submit = false;
               event_.returnValue = "$unsaved";
               return "$unsaved";
           }
   }
   function unClean() {
        clean=false;
   }
   window.onbeforeunload = compareForm;
   // ]]>
   </script>
   SCRIPT
   }
   
   sub form_change_detection {
       return ' onsubmit="is_submit=true;" ';
   }
   
   sub element_change_detection {
       return ' onchange="unClean();" ';
   }
   
   sub submit_ask_anyway {
       my ($extra_action) = @_;
       return ' onclick="still_ask=true;'.$extra_action.'" ';
 }  }
   
   sub submit_dont_ask {
       my ($extra_action) = @_;
       return ' onclick="is_submit=true;'.$extra_action.'" ';
   }
   
   
 sub textarea_sizes {  sub textarea_sizes {
   my ($data)=@_;      my ($data)=@_;
   my $count=0;      my $count=0;
   my $maxlength=-1;      my $maxlength=-1;
   foreach (split ("\n", $$data)) { $count++;      foreach (split ("\n", $$data)) {
    $count+=int(length($_)/79);
    $count++;
  if (length($_) > $maxlength) { $maxlength = length($_); }   if (length($_) > $maxlength) { $maxlength = length($_); }
       }      }
   my $rows = $count;      my $rows = $count;
   my $cols = $maxlength;      my $cols = $maxlength;
   return ($rows,$cols);      return ($rows,$cols);
 }  }
   
 sub editline {  sub editline {
     my ($tag,$data,$description,$size)=@_;      my ($tag,$data,$description,$size)=@_;
     $data=&HTML::Entities::encode($data);      $data=&HTML::Entities::encode($data,'<>&"');
     if ($description) { $description="<br />".$description."<br />"; }      if ($description) { $description=$description."<br />"; }
       my $change_code = &element_change_detection();
     my $result = <<"END";      my $result = <<"END";
 $description  $description
 <input type="text" name="homework_edit_$Apache::lonxml::curdepth"   <input type="text" name="homework_edit_$Apache::lonxml::curdepth" 
        value="$data" size="$size" />         value="$data" size="$size" $change_code />
 END  END
     return $result;      return $result;
 }  }
   
 sub editfield {  sub editfield {
   my ($tag,$data,$description,$minwidth,$minheight)=@_;      my ($tag,$data,$description,$minwidth,$minheight,$usehtmlarea)=@_;
   
   my ($rows,$cols)=&textarea_sizes(\$data);      my ($rows,$cols)=&textarea_sizes(\$data);
   if ($cols > 80) { $cols = 80; }      my $textareaclass;
   if ($cols < $minwidth ) { $cols = $minwidth; }   
   if ($rows < $minheight) { $rows = $minheight; }      if (&Apache::lonhtmlcommon::htmlareabrowser() && $usehtmlarea) { 
   if ($description) { $description="<br />".$description."<br />"; }   $rows+=7;      # make room for HTMLarea
   return $description."\n".'&nbsp;&nbsp;&nbsp;<textarea rows="'.$rows.   $minheight+=7; # make room for HTMLarea
     '" cols="'.$cols.'" name="homework_edit_'.$Apache::lonxml::curdepth.'">'.          $textareaclass = ' class="LC_richDefaultOff"';
       &HTML::Entities::encode($data).'</textarea>'."\n";      }
       if ($cols > 80) { $cols = 80; }
       if ($cols < $minwidth ) { $cols = $minwidth; }
       if ($rows < $minheight) { $rows = $minheight; }
       if ($description) { $description='<br />'.&mt($description).'<br />'; }
   
       # remove typesetting whitespace from between data and the end tag
       # to make the edit look prettier
       $data =~ s/\n?[ \t]*$//;
   
       return $description."\n".'<textarea style="width:99%" rows="'.$rows.
    '" cols="'.$cols.'" name="homework_edit_'.
    $Apache::lonxml::curdepth.'" id="homework_edit_'.
    $Apache::lonxml::curdepth.'" '.&element_change_detection().
           $textareaclass.'>'.
    &HTML::Entities::encode($data,'<>&"').'</textarea>'.
           ($usehtmlarea?'<br />'.&Apache::lonhtmlcommon::spelllink('lonhomework',
                                      'homework_edit_'.$Apache::lonxml::curdepth):'')."\n";
 }  }
   
 sub modifiedfield {  sub modifiedfield {
   my ($token) = @_;      my ($endtag,$parser) = @_;
   my $result;      my $result;
 #  foreach my $envkey (sort keys %ENV) {      $result=$env{"form.homework_edit_$Apache::lonxml::curdepth"};
 #    &Apache::lonxml::debug("$envkey ---- $ENV{$envkey}");      my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);
 #  }      # textareas throw away intial \n 
 #  &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");      if ($bodytext=~/^\n/) {
 #  &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"});   $result="\n".$result;
   $result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"};      }
   return $result;      # if there is typesetting whitespace from between the data and the end tag
       # restore to keep the source looking pretty
       if ($bodytext =~ /(\n?[ \t]*)$/) {
    $result .= $1;
       }
       return $result;
 }  }
   
 # 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) {
     #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 $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"};   my $element=&html_element_name($arg);
     &Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:");   my $newvalue=$env{"form.$element"};
     if ($value ne $newvalue) {   &Apache::lonxml::debug("for:$arg: cur is :$value: new is :$newvalue:");
       $token->[2]->{$arg}=$newvalue;   if (defined($newvalue) && $value ne $newvalue) {
       $rebuild=1;      if (ref($newvalue) eq 'ARRAY') {
    $token->[2]->{$arg}=join(',',@$newvalue);
       } else {
    $token->[2]->{$arg}=$newvalue;
       }
       $rebuild=1;
       # add new attributes to the of the attribute seq
       if (!grep { $arg eq $_ } (@{ $token->[3] })) {
    push(@{ $token->[3] },$arg);
       }
    } elsif (!defined($newvalue) && defined($value)) {
       delete($token->[2]->{$arg});
       $rebuild=1;
    }
     }      }
   }      return $rebuild;
   return $rebuild;  
 }  }
   
 # looks for /> on start tags  # looks for /> on start tags
 sub rebuild_tag {  sub rebuild_tag {
   my ($token) = @_;      my ($token) = @_;
   my $result;      my $result;
   if ($token->[0] eq 'S') {      if ($token->[0] eq 'S') {
     $result = '<'.$token->[1];   $result = '<'.$token->[1];
     while (my ($key,$val)= each(%{$token->[2]})) {   foreach my $attribute (@{ $token->[3] }) {
       $val=~s:^\s+|\s+$::g;      my $value = $token->[2]{$attribute};
       $val=~s:"::g; #"      next if ($value eq '');
       &Apache::lonxml::debug("setting :$key: to  :$val:");      $value =~s/^\s+|\s+$//g;
       $result.=' '.$key.'="'.$val.'"';      $value =~s/\"//g;
     }      &Apache::lonxml::debug("setting :$attribute: to  :$value:");
     if ($token->[4] =~ m:/>$:) {      $result.=' '.$attribute.'="'.$value.'"';
       $result.=' />';   }
     } else {   if ($token->[4] =~ m:/>$:) {
       $result.='>';      $result.=' />';
    } else {
       $result.='>';
    }
       } elsif ( $token->[0] eq 'E' ) {
    $result = '</'.$token->[1].'>';
     }      }
   } elsif ( $token->[0] eq 'E' ) {      return $result;
     $result = '</'.$token->[1].'>';  
   }  
   return $result;  
 }  }
   
 sub text_arg {  sub html_element_name {
   my ($description,$name,$token,$size) = @_;      my ($name) = @_;
   my $result;      return $name.'_'.$Apache::lonxml::curdepth;
   if (!defined $size) { $size=20; }  
   my $arg=$token->[2]{$name};  
   $result=$description.'&nbsp;<input name="'."$Apache::lonxml::curdepth.$name".  
     '" type="text" value="'.$arg.'" size="'.$size.'" />';  
   return $result;  
 }  }
   
 sub select_arg {  sub hidden_arg {
       my ($name,$token) = @_;
       my $result;
       my $arg=$token->[2]{$name};
       $result='<input name="'.&html_element_name($name).
    '" type="hidden" value="'.$arg.'" />';
       return $result;
   }
   
   sub checked_arg {
     my ($description,$name,$list,$token) = @_;      my ($description,$name,$list,$token) = @_;
     my $result;      my $result;
     my $optionlist="";      my $optionlist="";
     my $selected=$token->[2]{$name};      my $allselected=$token->[2]{$name};
       $result=&mt($description);
     foreach my $option (@$list) {      foreach my $option (@$list) {
  my $value;   my ($value,$text);
  if ( ref($option) eq 'ARRAY') {   if ( ref($option) eq 'ARRAY') {
     $value='value="'.$$option[0].'"';      $value='value="'.$$option[0].'"';
     $option=$$option[1];      $text=$$option[1];
       $option=$$option[0];
  } else {   } else {
       $text=$option;
     $value='value="'.$option.'"';      $value='value="'.$option.'"';
  }   }
  if ( $selected eq $option ) {          $result.=' <span class="LC_edit_opt"><label><input type="checkbox" '.$value.' name="'.
     $optionlist.="<option $value selected=\"on\">$option</option>\n";      &html_element_name($name).'"';
  } else {   foreach my $selected (split(/,/,$allselected)) {
     $optionlist.="<option $value >$option</option>\n";      if ( $selected eq $option ) {
    $result.=' checked="checked" ';
    last;
       }
  }   }
    $result.=&element_change_detection().' />'.$text.'</label></span>'."\n";
     }      }
     $result.=$description.'&nbsp;<select name="'.      return $result;
  "$Apache::lonxml::curdepth.$name".'">  }
   
   sub text_arg {
       my ($description,$name,$token,$size, $class) = @_;
       my $result;
       if (!defined $size) { $size=20; }
       my $arg=$token->[2]{$name};
       $result=&mt($description).'&nbsp;<input name="'.&html_element_name($name).
    '" type="text" value="'.$arg.'" size="'.$size.'" ';
       if (defined $class) {
    $result .= 'class="' . $class . '" ';
       }
       $result .= &element_change_detection().'/>';
       return ' <span class="LC_edit_opt">'.$result.'</span>';
   }
   
   sub select_arg {
       my ($description,$name,$list,$token) = @_;
       my $result;
       my $optionlist="";
       my $selected=$token->[2]{$name};
       if (ref($list) eq 'ARRAY') {
           foreach my $option (@{$list}) {
       my ($text,$value);
       if (ref($option) eq 'ARRAY') {
           $value='value="'.&HTML::Entities::encode($option->[0]).'"';
           $text=$option->[1];
           $option=$option->[0];
       } else {
           $text=$option;
           $value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"';
       }
       if ( $selected eq $option ) {
           $optionlist.="<option $value selected=\"selected\">".&mt($text)."</option>\n";
       } else {
           $optionlist.="<option $value >".&mt($text)."</option>\n";
       }
           }
       }
       $result.=' <span class="LC_edit_opt">'.&mt($description).'&nbsp;<select name="'.
    &html_element_name($name).'" '.&element_change_detection().' >
        '.$optionlist.'         '.$optionlist.'
       </select>';        </select></span>';
     return $result;      return $result;
 }  }
   
Line 511  sub select_or_text_arg { Line 1016  sub select_or_text_arg {
     my $optionlist="";      my $optionlist="";
     my $found=0;      my $found=0;
     my $selected=$token->[2]{$name};      my $selected=$token->[2]{$name};
     foreach my $option (@$list) {      if (ref($list) eq 'ARRAY') {
  my $value;          foreach my $option (@{$list}) {
  if ( ref($option) eq 'ARRAY') {      my ($text,$value);
     $value='value="'.$$option[0].'"';      if (ref($option) eq 'ARRAY') {
     $option=$$option[1];          $value='value="'.&HTML::Entities::encode($option->[0]).'"';
  } else {          $text=$option->[1];
     $value='value="'.$option.'"';          $option=$option->[0];
  }      } else {
  if ( $selected eq $option ) {          $text=$option;
     $optionlist.="<option $value selected=\"on\">$option</option>\n";          $value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"';
     $found=1;      }
  } else {      if ( $selected eq $option ) {
     $optionlist.="<option $value>$option</option>\n";          $optionlist.="<option $value selected=\"selected\">$text</option>\n";
  }          $found=1;
       } else {
           $optionlist.="<option $value>$text</option>\n";
       }
           }
     }      }
     $optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n";      $optionlist.="<option value=\"TYPEDINVALUE\"".
     if (($found) || (!$selected)) {    ((!$found)?' selected="selected"':'').
  $result.=$description.'&nbsp;<select name="'."$Apache::lonxml::curdepth.$name".'">    ">".&mt('Type-in value')."</option>\n";
        '.$optionlist.'  #
       </select>';      my $change_code=&element_change_detection();
     } else {      my $element=&html_element_name($name);
  $result.=&text_arg($description,$name,$token,$size);      my $selectelement='select_list_'.$element;
       my $typeinelement='type_in_'.$element;
       my $typeinvalue=($found?'':$selected);
   #
       my $hiddenvalue='this.form.'.$element.'.value';
       my $selectedindex='this.form.'.$selectelement.'.selectedIndex';
       my $selectedvalue='this.form.'.$selectelement.
        '.options['.$selectedindex.'].value';
       my $typedinvalue='this.form.'.$typeinelement.'.value';
       my $selecttypeinindex='this.form.'.$selectelement.'.options.length';
       $description=&mt($description);
   #
       return (<<ENDSELECTORTYPE);
    <span class="LC_edit_opt">
   $description
   &nbsp;<select name="$selectelement"
   onChange="if ($selectedvalue!='TYPEDINVALUE') { $hiddenvalue=$selectedvalue; $typedinvalue=''; }" >
   $optionlist
   </select>
   <input type="text" size="$size" name="$typeinelement"
          value="$typeinvalue" 
   onChange="$hiddenvalue=$typedinvalue;"
   onFocus="$selectedindex=$selecttypeinindex-1;" />
   <input type="hidden" name="$element" value="$selected" $change_code />
   </span>
   ENDSELECTORTYPE
   }
   
   #----------------------------------------------------- image coordinates
   # single image coordinates, x, y 
   sub entercoords {
       my ($idx,$idy,$mode,$width,$height) = @_;
       unless ($Apache::edit::bgimgsrc) { return ''; }
       if ($idx) { $idx.='_'; }
       if ($idy) { $idy.='_'; }
       my $bgfile=&escape(&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$Apache::edit::bgimgsrc));
       my $form    = 'lonhomework';
       my $element;
       if (! defined($mode) || $mode eq 'attribute') {
           $element = &escape("$Apache::lonxml::curdepth");
       } elsif ($mode eq 'textnode') {  # for data between <tag> ... </tag>
           $element = &escape('homework_edit_'.
                                              $Apache::lonxml::curdepth);
       }
       my $id=$Apache::lonxml::curdepth;
       my %data=("imagechoice.$id.type"      =>'point',
         "imagechoice.$id.formname"  =>$form,
         "imagechoice.$id.formx"     =>"$idx$element",
         "imagechoice.$id.formy"     =>"$idy$element",
         "imagechoice.$id.file"      =>$bgfile,
         "imagechoice.$id.formcoord" =>$element);
       if ($height) {
    $data{"imagechoice.$id.formheight"}=$height.'_'.
       $Apache::edit::bgimgsrccurdepth;
       }
       if ($width) {
    $data{"imagechoice.$id.formwidth"}=$width.'_'.
       $Apache::edit::bgimgsrccurdepth;
     }      }
       &Apache::lonnet::appenv(\%data);
       my $text="Click Coordinates";
       my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';
     return $result;      return $result;
 }  }
   
   # coordinates (x1,y1)-(x2,y2)...
   # mode can be either box, or polygon
   sub entercoord {
       my ($idx,$mode,$width,$height,$type) = @_;
       unless ($Apache::edit::bgimgsrc) { return ''; }
       my $bgfile=&escape(&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$Apache::edit::bgimgsrc));
       my $form    = 'lonhomework';
       my $element;
       if (! defined($mode) || $mode eq 'attribute') {
           $element = &escape("$idx\_$Apache::lonxml::curdepth");
       } elsif ($mode eq 'textnode') {  # for data between <tag> ... </tag>
           $element = &escape('homework_edit_'.
                                              $Apache::lonxml::curdepth);
       }
       my $id=$Apache::lonxml::curdepth;
       my %data=("imagechoice.$id.type"      =>$type,
         "imagechoice.$id.formname"  =>$form,
         "imagechoice.$id.file"      =>$bgfile,
         "imagechoice.$id.formcoord" =>$element);
       if ($height) {
    $data{"imagechoice.$id.formheight"}=$height.'_'.
       $Apache::edit::bgimgsrccurdepth;
       }
       if ($width) {
    $data{"imagechoice.$id.formwidth"}=$width.'_'.
       $Apache::edit::bgimgsrccurdepth;
       }
       &Apache::lonnet::appenv(\%data);
       my $text="Enter Coordinates";
       if ($type eq 'polygon') { $text='Create Polygon Data'; }
       my $result='<a href="/adm/imagechoice?token='.$id.'" target="imagechoice">'.$text.'</a>';
       return $result;
   }
   
   sub deletecoorddata {
       &Apache::lonnet::delenv('imagechoice.');
   }
   
 #----------------------------------------------------- browse  #----------------------------------------------------- browse
 sub browse {  sub browse {
     # insert a link to call up the filesystem browser (lonindexer)      # insert a link to call up the filesystem browser (lonindexer)
     my ($id, $mode) = @_;      my ($id, $mode, $titleid, $only) = @_;
     my $form    = 'lonhomework';      my $form    = 'lonhomework';
     my $element;      my $element;
     if (! defined($mode) || $mode eq 'attribute') {      if (! defined($mode) || $mode eq 'attribute') {
         $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$id");          $element = &escape("$id\_$Apache::lonxml::curdepth");
     } elsif ($mode eq 'textnode') {  # for data between <tag> ... </tag>      } elsif ($mode eq 'textnode') {  # for data between <tag> ... </tag>
         $element = &Apache::lonnet::escape('homework_edit_'.          $element = &escape('homework_edit_'.
                                            $Apache::lonxml::curdepth);                                             $Apache::lonxml::curdepth);
       }
       my $titleelement;
       if ($titleid) {
    $titleelement=",'$only','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'";
       } else {
           $titleelement=",'$only'";
     }      }
     my $result = <<"ENDBUTTON";      my $result = <<"ENDBUTTON";
 <a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a>  <a href=\"javascript:openbrowser('$form','$element'$titleelement)\"\>Select</a>
 ENDBUTTON  ENDBUTTON
     return $result;      return $result;
 }  }
Line 558  ENDBUTTON Line 1171  ENDBUTTON
 #----------------------------------------------------- browse  #----------------------------------------------------- browse
 sub search {  sub search {
     # insert a link to call up the filesystem browser (lonindexer)      # insert a link to call up the filesystem browser (lonindexer)
     $_ = shift;      my ($id, $mode, $titleid) = @_;
     my $form    = 'lonhomework';      my $form    = 'lonhomework';
     my $element = &Apache::lonnet::escape("$Apache::lonxml::curdepth.$_");      my $element;
       if (! defined($mode) || $mode eq 'attribute') {
           $element = &escape("$id\_$Apache::lonxml::curdepth");
       } elsif ($mode eq 'textnode') {  # for data between <tag> ... </tag>
           $element = &escape('homework_edit_'.
                                              $Apache::lonxml::curdepth);
       }
       my $titleelement;
       if ($titleid) {
    $titleelement=",'".&escape("$titleid\_$Apache::lonxml::curdepth")."'";
       }
     my $result = <<"ENDBUTTON";      my $result = <<"ENDBUTTON";
 <a href=\"javascript:opensearcher('$form','$element')\"\>Search</a>  <a href=\"javascript:opensearcher('$form','$element'$titleelement)\"\>Search</a>
 ENDBUTTON  ENDBUTTON
     return $result;      return $result;
 }  }
Line 571  ENDBUTTON Line 1194  ENDBUTTON
 1;  1;
 __END__  __END__
   
 =head1 NAME  
   
 Apache::edit - edit mode helpers  
   
 =head1 SYNOPSIS  
   
 Invoked by many homework and xml related modules.  
   
  &Apache::edit::SUBROUTINENAME(ARGUMENTS);  
   
 =head1 INTRODUCTION  
   
 This module outputs HTML syntax helpful for the rendering of edit  
 mode interfaces.  
   
 This is part of the LearningOnline Network with CAPA project  
 described at http://www.lon-capa.org.  
   
 =head1 HANDLER SUBROUTINE  
   
 There is no handler subroutine.  
   
 =head1 OTHER SUBROUTINES  
   
 =over 4  
   
 =item *  
   
 initialize_edit() : initialize edit (set colordepth to zero)  
   
 =item *  
   
 tag_start($target,$token,$description) : provide deletion and insertion lists  
 for the manipulation of a start tag; return a scalar string  
   
 =item *  
   
 tag_end($target,$token,$description) : ending syntax corresponding to  
 &tag_start. return a scalar string.  
   
 =item *  
   
 start_table($token) : start table; update colordepth; return scalar string.  
   
 =item *  
   
 end_table() : reduce color depth; end table; return scalar string  
   
 =item *  
   
 start_spanning_row() : start a new table row spanning the 'edit' environment.  
   
 =item *  
   
 start_row() : start a new table row and element.   
   
 =item *  
   
 end_row() : end current table element and row.  
   
 =item *  
   
 movebuttons($target,$token) : move-up and move-down buttons; return scalar  
 string  
   
 =item *  
   
 deletelist($target,$token) : provide a yes option in an HTML select element;  
 return scalar string  
   
 =item *  
   
 handle_delete($space,$target,$token,$tagstack,$parstack,$parser,$safeeval,  
 $style) : respond to a user delete request by passing relevant stack  
 and array information to various rendering functions; return a scalar string  
   
 =item *  
   
 get_insert_list($token) : provide an insertion list based on possibilities  
 from lonxml; return a scalar string  
   
 =item *  
   
 insertlist($target,$token) : api that uses get_insert_list;  
 return a scalar string  
   
 =item *  
   
 handleinsert($token) : provide an insertion list based on possibilities  
 from lonxml; return a scalar string  
   
 =item *  
   
 get_insert_list($token) : provide an insertion list based on possibilities  
 from lonxml; return a scalar string  
   
 =item *  
 browse($elementname) : provide a link which will open up the filesystem  
 browser (lonindexer) and, once a file is selected, place the result in  
 the form element $elementname.  
   
 =item *  
 search($elementname) : provide a link which will open up the filesystem  
 searcher (lonsearchcat) and, once a file is selected, place the result in  
 the form element $elementname.  
   
 =item *  
 editline(tag,data,description,size): Provide a <input type="text" ../> for  
 single-line text entry.  This is to be used for text enclosed by tags, not  
 arguements/parameters associated with a tag.  
   
 =back  
   
 incomplete...  
   
 =cut  
Removed from v.1.45  
changed lines
  Added in v.1.145

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.