--- loncom/interface/loncommon.pm	2011/12/21 20:21:49	1.1043
+++ loncom/interface/loncommon.pm	2011/12/23 16:55:34	1.1046
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1043 2011/12/21 20:21:49 raeburn Exp $
+# $Id: loncommon.pm,v 1.1046 2011/12/23 16:55:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6973,7 +6973,7 @@ sub end_page {
 
 sub wishlist_window {
     return(<<'ENDWISHLIST');
-<script type="text/javascript" lang="javascript">
+<script type="text/javascript">
 // <![CDATA[
 // <!-- BEGIN LON-CAPA Internal
 function set_wishlistlink(title, path) {
@@ -6995,7 +6995,7 @@ ENDWISHLIST
 
 sub modal_window {
     return(<<'ENDMODAL');
-<script type="text/javascript" lang="javascript">
+<script type="text/javascript">
 // <![CDATA[
 // <!-- BEGIN LON-CAPA Internal
 var modalWindow = {
@@ -7050,7 +7050,7 @@ sub modal_link {
 sub modal_adhoc_script {
     my ($funcname,$width,$height,$content)=@_;
     return (<<ENDADHOC);
-<script type="text/javascript" lang="javascript">
+<script type="text/javascript">
 // <![CDATA[
         var $funcname = function()
         {
@@ -7146,12 +7146,11 @@ sub end_togglebox {
 }
 
 sub LCprogressbar_script {
+   my ($id)=@_;
    return(<<ENDPROGRESS);
 <script type="text/javascript">
 // <![CDATA[
-var LCprogressTxt='---';
-
-\$('#progressbar').progressbar({
+\$('#progressbar$id').progressbar({
   value: 0,
   change: function(event, ui) {
     var newVal = \$(this).progressbar('option', 'value');
@@ -7171,9 +7170,11 @@ sub LCprogressbarUpdate_script {
 </style>
 <script type="text/javascript">
 // <![CDATA[
-function LCupdateProgress(percent,progresstext) {
+var LCprogressTxt='---';
+
+function LCupdateProgress(percent,progresstext,id) {
    LCprogressTxt=progresstext;
-   \$('#progressbar').progressbar('value',percent);
+   \$('#progressbar'+id).progressbar('value',percent);
 }
 // ]]>
 </script>
@@ -7181,20 +7182,23 @@ ENDPROGRESSUPDATE
 }
 
 my $LClastpercent;
+my $LCidcnt;
+my $LCcurrentid;
 
 sub LCprogressbar {
     my ($r)=(@_);
     $LClastpercent=0;
+    $LCidcnt++;
+    $LCcurrentid=$$.'_'.$LCidcnt;
     my $starting=&mt('Starting');
     my $content=(<<ENDPROGBAR);
 <p>
-  <div id="progressbar">
+  <div id="progressbar$LCcurrentid">
     <span class="pblabel">$starting</span>
   </div>
 </p>
 ENDPROGBAR
-    $r->print($content.&LCprogressbar_script());
-    $r->rflush();
+    &r_print($r,$content.&LCprogressbar_script($LCcurrentid));
 }
 
 sub LCprogressbarUpdate {
@@ -7211,27 +7215,35 @@ sub LCprogressbarUpdate {
     $LClastpercent=$val;
     unless ($text) { $text=$val.'%'; }
     $text=&js_ready($text);
-    $r->print(<<ENDUPDATE);
+    &r_print($r,<<ENDUPDATE);
 <script type="text/javascript">
 // <![CDATA[
-LCupdateProgress($val,'$text');
+LCupdateProgress($val,'$text','$LCcurrentid');
 // ]]>
 </script>
 ENDUPDATE
-    $r->rflush();
 }
 
 sub LCprogressbarClose {
     my ($r)=@_;
     $LClastpercent=0;
-    $r->print(<<ENDCLOSE);
+    &r_print($r,<<ENDCLOSE);
 <script type="text/javascript">
 // <![CDATA[
-\$("#progressbar").hide('slow'); 
+\$("#progressbar$LCcurrentid").hide('slow'); 
 // ]]>
 </script>
 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 {
@@ -7241,6 +7253,7 @@ sub html_encode {
     
     return $result;
 }
+
 sub js_ready {
     my ($result) = @_;