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

Diff for /loncom/homework/edit.pm between versions 1.14 and 1.15

version 1.14, 2001/06/26 21:39:55 version 1.15, 2001/06/27 18:51:12
Line 146  $optionlist Line 146  $optionlist
 }  }
   
 sub handle_insert {  sub handle_insert {
   if (!$ENV{"form.insert_$Apache::lonxml::curdepth"}) { return ''; }    &Apache::lonxml::debug("Er handle insert called");
     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"};
     &Apache::lonxml::debug("Looking for :$func:");
   if ($func eq 'default') {    if ($func eq 'default') {
     my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};      my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
     my $namespace;      my $namespace;
     if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }      if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); }
     $result.="\n<$newtag>\n</$newtag>";      $result.="\n<$newtag>\n</$newtag>";
   } else {    } else {
     {      if (defined(&$func)) {
       no strict 'refs';        {
       $result.=&$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;    return $result;
 }  }
   
   sub insert_numericalresponse {
     return '
   <numericalresponse answer="">
       <textline />
       <hintgroup>
       </hintgroup>
   </numericalresponse>';
   }
   
 sub insert_optionresponse {  sub insert_optionresponse {
   return '    return '
 <optionresponse max="10">  <optionresponse max="10">
Line 219  sub insert_script { Line 235  sub insert_script {
   return "\n<script type=\"loncapa/perl\">\n</script>";    return "\n<script type=\"loncapa/perl\">\n</script>";
 }  }
   
 # Returns a 1 if the toekn 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)=@_;
Line 236  sub get_new_args { Line 252  sub get_new_args {
   return $rebuild;    return $rebuild;
 }  }
   
   # looks for /> on start tags
 sub rebuild_tag {  sub rebuild_tag {
   my ($token) = @_;    my ($token) = @_;
   my $result;    my $result;
Line 245  sub rebuild_tag { Line 262  sub rebuild_tag {
       &Apache::lonxml::debug("setting :$key: to  :$val:");        &Apache::lonxml::debug("setting :$key: to  :$val:");
       $result.=' '.$key.'="'.$val.'"';        $result.=' '.$key.'="'.$val.'"';
     }      }
     $result.=">";      if ($token->[4] =~ m:/>$:) {
         $result.=' />';
       } else {
         $result.='>';
       }
   } elsif ( $token->[0] eq 'E' ) {    } elsif ( $token->[0] eq 'E' ) {
     $result = '</'.$token->[1].'>';      $result = '</'.$token->[1].'>';
   }    }
Removed from v.1.14  
changed lines
  Added in v.1.15

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