--- loncom/interface/loncommon.pm 2011/12/21 21:25:40 1.1044 +++ loncom/interface/loncommon.pm 2011/12/22 00:17:04 1.1045 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1044 2011/12/21 21:25:40 www Exp $ +# $Id: loncommon.pm,v 1.1045 2011/12/22 00:17:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7146,12 +7146,11 @@ sub end_togglebox { } sub LCprogressbar_script { + my ($id)=@_; return(< // @@ -7181,19 +7182,23 @@ ENDPROGRESSUPDATE } my $LClastpercent; +my $LCidcnt; +my $LCcurrentid; sub LCprogressbar { my ($r)=(@_); $LClastpercent=0; + $LCidcnt++; + $LCcurrentid=$$.'_'.$LCidcnt; my $starting=&mt('Starting'); my $content=(< -
+
$starting

ENDPROGBAR - &r_print($r,$content.&LCprogressbar_script()); + &r_print($r,$content.&LCprogressbar_script($LCcurrentid)); } sub LCprogressbarUpdate { @@ -7213,7 +7218,7 @@ sub LCprogressbarUpdate { &r_print($r,< // ENDUPDATE @@ -7225,7 +7230,7 @@ sub LCprogressbarClose { &r_print($r,< // ENDCLOSE