--- loncom/interface/loncommon.pm	2011/12/20 23:57:51	1.1041
+++ loncom/interface/loncommon.pm	2011/12/21 18:01:58	1.1042
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1041 2011/12/20 23:57:51 www Exp $
+# $Id: loncommon.pm,v 1.1042 2011/12/21 18:01:58 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7065,7 +7065,7 @@ sub modal_adhoc_inner {
     my ($funcname,$width,$height,$content)=@_;
     my $innerwidth=$width-20;
     $content=&js_ready(
-               &start_page('Dialog',undef,{'only_body'=>1,'add_progressbar'=>1,'bgcolor'=>'#FFFFFF'}).
+               &start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).
                  &start_scrollbox($width.'px',$innerwidth.'px',$height.'px').
                     $content.
                  &end_scrollbox().
@@ -7176,8 +7176,11 @@ function LCupdateProgress(percent,progre
 ENDPROGRESSUPDATE
 }
 
+my $LClastpercent;
+
 sub LCprogressbar {
-    my ($r,$mode)=(@_);
+    my ($r)=(@_);
+    $LClastpercent=0;
     my $starting=&mt('Starting');
     my $content=(<<ENDPROGBAR);
 <p>
@@ -7186,35 +7189,47 @@ sub LCprogressbar {
   </div>
 </p>
 ENDPROGBAR
-    $content.=&LCprogressbar_script();
-    if ($mode eq 'popup') {
-       $r->print(&modal_adhoc_launch('LCprogwin',500,50,$content));
-    } else {
-       $r->print($content);
-    }
+    $r->print($content.&LCprogressbar_script());
     $r->rflush();
 }
 
 sub LCprogressbarUpdate {
-    my ($r,$val,$text,$mode)=@_;
-    unless ($val) { $val=0; }
+    my ($r,$val,$text)=@_;
+    unless ($val) { 
+       if ($LClastpercent) {
+           $val=$LClastpercent;
+       } else {
+           $val=0;
+       }
+    }
     if ($val<0) { $val=0; }
     if ($val>100) { $val=0; }
+    $LClastpercent=$val;
     unless ($text) { $text=$val.'%'; }
-    my $function='';
-    if ($mode eq 'popup') { $function='modalWindow.'; }
-    $function.='LCupdateProgress';
     $text=&js_ready($text);
     $r->print(<<ENDUPDATE);
 <script type="text/javascript">
 // <![CDATA[
-$function($val,'$text');
+LCupdateProgress($val,'$text');
 // ]]>
 </script>
 ENDUPDATE
     $r->rflush();
 }
 
+sub LCprogressbarClose {
+    my ($r)=@_;
+    $LClastpercent=0;
+    $r->print(<<ENDCLOSE);
+<script type="text/javascript">
+// <![CDATA[
+\$("#progressbar").hide('slow'); 
+// ]]>
+</script>
+ENDCLOSE
+    $r->rflush();
+}
+
 sub html_encode {
     my ($result) = @_;