loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.225, 2007/05/21 23:09:57	version 1.226, 2007/05/29 21:14:45
Line 1180 sub previous_tries {	Line 1180 sub previous_tries {
my ($match,$which) = &find_which_previous($i);	my ($match,$which) = &find_which_previous($i);
$message=$previousmsg;	$message=$previousmsg;
my $previous = $count_lookup{$which};	my $previous = $count_lookup{$which};
$message =~ s{(</td>)}{ as submission # $previous $1};	$message =~ s{(</td>)}{ as submission \# $previous $1};
} elsif ($Apache::lonhomework::history{"$prefix.tries"}) {	} elsif ($Apache::lonhomework::history{"$prefix.tries"}) {
if (!(lc($Apache::lonhomework::problemstatus) eq 'no'	if (!(lc($Apache::lonhomework::problemstatus) eq 'no'
&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER')	&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER')
Line 1228 sub previous_tries {	Line 1228 sub previous_tries {
$output=~s/\\/\\\\/g;	$output=~s/\\/\\\\/g;
$output=~s/\'/\\\'/g;	$output=~s/\'/\\\'/g;
$output=~s/\s+/ /g;	$output=~s/\s+/ /g;
	$output.='<br /><form action=""><center><input type="button" name="close" value="'.&mt('Close Window').'" onClick="window.close()" /></center></form>';

my $windowopen=&Apache::lonhtmlcommon::javascript_docopen();	my $windowopen=&Apache::lonhtmlcommon::javascript_docopen();
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Previous Tries', undef,	&Apache::loncommon::start_page('Previous Tries', undef,