loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.207 and 1.214

version 1.207, 2009/04/07 15:40:38	version 1.214, 2009/05/16 18:06:41
Line 62 use Apache::lonlocal;	Line 62 use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use LONCAPA;	use LONCAPA;

	##############################################
	##############################################

	=pod

	=item confirm_success

	Successful completion of an operation message

	=cut

	sub confirm_success {
	my ($message,$failure)=@_;
	if ($failure) {
	return '<span class="LC_error">'."\n"
	.'<img src="/adm/lonIcons/navmap.wrong.gif" /> '."\n"
	.$message."\n"
	.'</span>'."\n";
	} else {
	return '<span class="LC_success">'."\n"
	.'<img src="/adm/lonIcons/navmap.correct.gif" /> '."\n"
	.$message."\n"
	.'</span>'."\n";
	}
	}

##############################################	##############################################
##############################################	##############################################
Line 955 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.
"\');".	"\');".
Line 1308 returns: nothing	Line 1333 returns: nothing
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_;	my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_;
#	#
$css_class \|\|= 'LC_breadcrumbs';	$css_class \|\|= 'LC_breadcrumbs';
my $Str1 = '<ol id="LC_MenuBreadcrumbs">';	my $Str1 = '<div id="LC_head_subbox"><ol id="LC_MenuBreadcrumbs">';

if($no_realBreadcrumb){	if($no_realBreadcrumb){
$Str1 = '<ul class="LC_CourseBreadcrumbs">';	$Str1 = '<ul class="LC_CourseBreadcrumbs">';
Line 1400 returns: nothing	Line 1425 returns: nothing
if($no_realBreadcrumb){	if($no_realBreadcrumb){
$Str1 .= $links.'</ul>';	$Str1 .= $links.'</ul>';
} else {	} else {
$Str1 .= $links.'</ol>';	$Str1 .= $links.'</ol></div>';
}	}
#	#
if (defined($component)) {	if (defined($component)) {
Line 1523 END	Line 1548 END
}	}

sub row_title {	sub row_title {
	my ($title,$css_title_class,$css_value_class) = @_;
$row_count[0]++;	$row_count[0]++;
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';	my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
my ($title,$css_title_class,$css_value_class) = @_;
$css_title_class \|\|= 'LC_pick_box_title';	$css_title_class \|\|= 'LC_pick_box_title';
$css_title_class = 'class="'.$css_title_class.'"';	$css_title_class = 'class="'.$css_title_class.'"';

Line 1784 sub topic_bar {	Line 1809 sub topic_bar {
return '	return '
<div class="LC_topic_bar">	<div class="LC_topic_bar">
<img alt="'.&mt('Step [_1]',$imgnum).	<img alt="'.&mt('Step [_1]',$imgnum).
'"src="/res/adm/pages/bl_step'.$imgnum.'.gif" />	' "src="/res/adm/pages/bl_step'.$imgnum.'.gif" />
<span>'.$title.'</span>	<span>'.$title.'</span>
</div>	</div>
';	';

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

Removed from v.1.207
changed lines
	Added in v.1.214