loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.104, 2003/10/30 20:57:28
+version 1.105, 2003/12/10 22:11:56
  Line 287  sub end_parserlib {
  }
  sub start_window {
-   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-   my $result = '';
+     my $result = '';
-   if ($target eq 'web') {
+     if ($target eq 'web') {
-     &Apache::lonxml::startredirection;
+ 	&Apache::lonxml::startredirection;
-   }  elsif ($target eq 'tex') {
+     } elsif ($target eq 'tex') {
-        $result = '\unskip\footnote{';
+ 	$result = '\unskip\footnote{';
-    }
+     } elsif ($target eq 'edit') {
-   return $result;
+ 	$result.=&Apache::edit::tag_start($target,$token);
+ 	$result.=&Apache::edit::text_arg('Text of Link:','linktext',$token,70);
+ 	$result.=&Apache::edit::text_arg('Height:','width',$token,5);
+ 	$result.=&Apache::edit::text_arg('Width:','height',$token,5);
+ 	$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
+     } elsif ($target eq 'modified') {
+ 	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
+ 						     $safeeval,'linttext',
+ 						     'width','height');
+ 	if ($constructtag) { $result=&Apache::edit::rebuild_tag($token); }
+     }
+     return $result;
  }
  sub end_window {