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

Diff for /loncom/homework/edit.pm between versions 1.105 and 1.107

version 1.105, 2007/02/18 02:00:59 version 1.107, 2007/06/19 19:41:52
Line 324  sub insert_customresponse_answer { Line 324  sub insert_customresponse_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="">
Line 870  sub deletecoorddata { Line 920  sub deletecoorddata {
 #----------------------------------------------------- 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, $titleid) = @_;      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') {
Line 881  sub browse { Line 931  sub browse {
     }      }
     my $titleelement;      my $titleelement;
     if ($titleid) {      if ($titleid) {
  $titleelement=",'','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'";   $titleelement=",'$only','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'";
     }      }
     my $result = <<"ENDBUTTON";      my $result = <<"ENDBUTTON";
 <a href=\"javascript:openbrowser('$form','$element'$titleelement)\"\>Select</a>  <a href=\"javascript:openbrowser('$form','$element'$titleelement)\"\>Select</a>
Removed from v.1.105  
changed lines
  Added in v.1.107

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