loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.210, 2009/04/29 18:42:38	version 1.212, 2009/05/06 13:37:56
Line 76 Successful completion of an operation me	Line 76 Successful completion of an operation me
sub confirm_success {	sub confirm_success {
my ($message,$failure)=@_;	my ($message,$failure)=@_;
if ($failure) {	if ($failure) {
return '<span class="LC_error">'.	return '<span class="LC_error">'."\n"
$message.	.'<img src="/adm/lonIcons/navmap.wrong.gif" /> '."\n"
' <img src="/adm/lonIcons/navmap.wrong.gif" /></span>';	.$message."\n"
	.'</span>'."\n";
} else {	} else {
return '<span class="LC_success">'.	return '<span class="LC_success">'."\n"
$message.	.'<img src="/adm/lonIcons/navmap.correct.gif" /> '."\n"
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';	.$message."\n"
	.'</span>'."\n";
}	}
}	}

Line 978 sub Create_PrgWin {	Line 980 sub Create_PrgWin {
popwin=open(\'\',\'popwin\',\'width=400,height=100\');".	popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
"popwin.document.writeln(\'".$start_page.	"popwin.document.writeln(\'".$start_page.
"<h4>".&mt("$heading")."<\/h4>".	"<h4>".&mt("$heading")."<\/h4>".
"<form action= \"\" name=\"popremain\" method=\"post\">".	"<form action=\"\" name=\"popremain\" method=\"post\">".
'<input type="text" size="'.$width.'" name="remaining" value="'.	'<input type="text" size="'.$width.'" name="remaining" value="'.
&mt('Starting').'" /><\\/form>'.$end_page.	&mt('Starting').'" /><\\/form>'.$end_page.
"\');".	"\');".