loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/scripttag.pm between versions 1.34 and 1.36

version 1.34, 2001/02/22 00:49:03	version 1.36, 2001/03/27 18:19:29
Line 131 sub start_window {	Line 131 sub start_window {
my $result = '';	my $result = '';
if ($target eq 'web') {	if ($target eq 'web') {
&Apache::lonxml::startredirection;	&Apache::lonxml::startredirection;
}	} elsif ($target eq 'tex') {
	$result = '\footnote{';
	}
return $result;	return $result;
}	}

Line 141 sub end_window {	Line 143 sub end_window {
if ($target eq 'web') {	if ($target eq 'web') {
my $output=&Apache::lonxml::endredirection;	my $output=&Apache::lonxml::endredirection;
$output =~ s/\"/\&quot\;/g;	$output =~ s/\"/\&quot\;/g;
$result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor="#FFFFFF"> $output </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";	$result = "<a href=\"javascript:newWindow=open(\'\',\'new_W\',\'width=500,height=200,scrollbars=1\');newWindow.document.open(\'text/html\',\'replace\');newWindow.document.writeln(\'<html><head><title>newwindow</title></head><body bgcolor="#FFFFFF"> $output </body></html>\');newWindow.document.close();void(0);\"><sup>*</sup></a>";
	} elsif ($target eq 'tex') {
	$result = '}';
} else {	} else {
$result = '';	$result = '';
}	}
return $result;	return $result;
}	}
Line 199 sub editfield {	Line 203 sub editfield {
map { $count++;	map { $count++;
if (length($_) > $maxlength) { $maxlength = length ($_); }	if (length($_) > $maxlength) { $maxlength = length ($_); }
} split ("\n", $data);	} split ("\n", $data);
	if ($maxlength > 80) { $maxlength = 80; }
return "<br />\n<$tag><br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n</$tag><br />\n";	return "<br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea>\n";
	# return "<br />\n<$tag><br />\n   <textarea rows=\"$count\" cols=\"$maxlength\" name=homework_edit_".$Apache::lonxml::curdepth.">$data</textarea><br />\n</$tag><br />\n";
}	}

sub getfilenothere {	sub getfilenothere {

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

Removed from v.1.34
changed lines
	Added in v.1.36