loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1043, 2011/12/21 20:21:49	version 1.1044, 2011/12/21 21:25:40
Line 7193 sub LCprogressbar {	Line 7193 sub LCprogressbar {
</div>	</div>
</p>	</p>
ENDPROGBAR	ENDPROGBAR
$r->print($content.&LCprogressbar_script());	&r_print($r,$content.&LCprogressbar_script());
$r->rflush();
}	}

sub LCprogressbarUpdate {	sub LCprogressbarUpdate {
Line 7211 sub LCprogressbarUpdate {	Line 7210 sub LCprogressbarUpdate {
$LClastpercent=$val;	$LClastpercent=$val;
unless ($text) { $text=$val.'%'; }	unless ($text) { $text=$val.'%'; }
$text=&js_ready($text);	$text=&js_ready($text);
$r->print(<<ENDUPDATE);	&r_print($r,<<ENDUPDATE);
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
LCupdateProgress($val,'$text');	LCupdateProgress($val,'$text');
// ]]>	// ]]>
</script>	</script>
ENDUPDATE	ENDUPDATE
$r->rflush();
}	}

sub LCprogressbarClose {	sub LCprogressbarClose {
my ($r)=@_;	my ($r)=@_;
$LClastpercent=0;	$LClastpercent=0;
$r->print(<<ENDCLOSE);	&r_print($r,<<ENDCLOSE);
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
\$("#progressbar").hide('slow');	\$("#progressbar").hide('slow');
// ]]>	// ]]>
</script>	</script>
ENDCLOSE	ENDCLOSE
$r->rflush();	}

	sub r_print {
	my ($r,$to_print)=@_;
	if ($r) {
	$r->print($to_print);
	$r->rflush();
	} else {
	print($to_print);
	}
}	}

sub html_encode {	sub html_encode {
Line 7241 sub html_encode {	Line 7248 sub html_encode {

return $result;	return $result;
}	}

sub js_ready {	sub js_ready {
my ($result) = @_;	my ($result) = @_;