loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.258 and 1.260.2.1

version 1.258, 2004/06/29 22:32:12	version 1.260.2.1, 2004/08/13 18:51:33
Line 58 sub start_tex {	Line 58 sub start_tex {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result='';	my $result='';
my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser);	my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser);
	&Apache::lonnet::logthis("Hrrm? $bodytext --");
if ($target eq 'tex') {	if ($target eq 'tex') {
return $bodytext.' ';	return $bodytext.' ';
}	}
return $result;;	return $result;
}	}

sub end_tex {	sub end_tex {
Line 191 sub problem_edit_header {	Line 192 sub problem_edit_header {
<input type="submit" name="Undo" accesskey="u" value="'.&mt('undo').'" /> <hr />	<input type="submit" name="Undo" accesskey="u" value="'.&mt('undo').'" /> <hr />
<input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes and Edit').'" />	<input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes and Edit').'" />
<input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /><table><tr><td>'.	<input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /><table><tr><td>'.
&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index',	&Apache::loncommon::help_open_menu('','Problem Editing Help','Problem_Editor_XML_Index','',5,'Authoring',undef,undef,undef,'Problem Editing Help')
'Problem Editing Help').'</td><td>'.	.'</td></tr></table>'.
&Apache::loncommon::help_open_faq(5).
&Apache::loncommon::help_open_bug('Authoring').'</td></tr></table>'.
'<table border="0"><tr><td bgcolor="#DDDDDD">';	'<table border="0"><tr><td bgcolor="#DDDDDD">';
}	}

Line 1042 sub start_part {	Line 1041 sub start_part {
@Apache::inputtags::previous_version=();	@Apache::inputtags::previous_version=();
$Apache::lonhomework::problemstatus=&get_problem_status($id);	$Apache::lonhomework::problemstatus=&get_problem_status($id);
my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);	my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
	my $newtype=&Apache::lonnet::EXT("resource.$id.type");
	if ($newtype) { $Apache::lonhomework::type=$newtype; }

my $expression='$external::part=\''.$Apache::inputtags::part.'\';';	my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
	$expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
&Apache::run::run($expression,$safeeval);	&Apache::run::run($expression,$safeeval);

if ($target eq 'meta') {	if ($target eq 'meta') {
Line 1081 sub start_part {	Line 1084 sub start_part {
} else {	} else {
if ($target eq 'tex') {	if ($target eq 'tex') {
if (not $ENV{'form.problem_split'}=~/yes/) {	if (not $ENV{'form.problem_split'}=~/yes/) {
$result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';	if ($$tagstack[-2] eq 'td') {
	$result.='\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
	} else {
	$result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
	}
}	}
my $weight = &Apache::lonnet::EXT("resource.$id.weight");	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'packages');	my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'packages');
Line 1141 sub end_part {	Line 1148 sub end_part {
$gradestatus='';	$gradestatus='';
}	}
$result=$gradestatus;	$result=$gradestatus;
	if ($$tagstack[-2] eq 'td') {$result.='\end{minipage}';}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::end_table();	$result=&Apache::edit::end_table();
}	}

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

Removed from v.1.258
changed lines
	Added in v.1.260.2.1