--- loncom/interface/loncommon.pm	2011/12/20 23:57:51	1.1041
+++ loncom/interface/loncommon.pm	2012/01/03 22:36:36	1.1049
@@ -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.1049 2012/01/03 22:36:36 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -154,6 +154,8 @@ sub ssi_with_retries {
 # ----------------------------------------------- Filetypes/Languages/Copyright
 my %language;
 my %supported_language;
+my %latex_language;		# For choosing hyphenation in <transl..>
+my %latex_language_bykey;	# for choosing hyphenation from metadata
 my %cprtag;
 my %scprtag;
 my %fe; my %fd; my %fm;
@@ -186,11 +188,15 @@ BEGIN {
             while (my $line = <$fh>) {
                 next if ($line=~/^\#/);
                 chomp($line);
-                my ($key,$two,$country,$three,$enc,$val,$sup)=(split(/\t/,$line));
+                my ($key,$two,$country,$three,$enc,$val,$sup,$latex)=(split(/\t/,$line));
                 $language{$key}=$val.' - '.$enc;
                 if ($sup) {
                     $supported_language{$key}=$sup;
                 }
+		if ($latex) {
+		    $latex_language_bykey{$key} = $latex;
+		    $latex_language{$two} = $latex;
+		}
             }
             close($fh);
         }
@@ -3227,11 +3233,29 @@ sub languagedescription {
 	    ($supported_language{$code}?' ('.&mt('interface available').')':'');
 }
 
+=pod
+
+=item * &plainlanguagedescription
+
+Returns both the plain language description (e.g. 'Creoles and Pidgins, English-based (Other)')
+and the language character encoding (e.g. ISO) separated by a ' - ' string.
+
+=cut
+
 sub plainlanguagedescription {
     my $code=shift;
     return $language{$code};
 }
 
+=pod
+
+=item * &supportedlanguagecode
+
+Returns the supported language code (e.g. sptutf maps to pt) given a language
+code.
+
+=cut
+
 sub supportedlanguagecode {
     my $code=shift;
     return $supported_language{$code};
@@ -3239,6 +3263,35 @@ sub supportedlanguagecode {
 
 =pod
 
+=item * &latexlanguage()
+
+Given a language key code returns the correspondnig language to use
+to select the correct hyphenation on LaTeX printouts.  This is undef if there
+is no supported hyphenation for the language code.
+
+=cut
+
+sub latexlanguage {
+    my $code = shift;
+    return $latex_language{$code};
+}
+
+=pod
+
+=item * &latexhyphenation()
+
+Same as above but what's supplied is the language as it might be stored
+in the metadata.
+
+=cut
+
+sub latexhyphenation {
+    my $key = shift;
+    return $latex_language_bykey{$key};
+}
+
+=pod
+
 =item * &copyrightids() 
 
 returns list of all copyrights
@@ -4980,7 +5033,6 @@ body {
 a:focus,
 a:focus img {
   color: red;
-  background: yellow;
 }
 
 form, .inline {
@@ -6314,6 +6366,12 @@ ul.LC_TabContent li.active a {
   background:#FFFFFF;
   outline: none;
 }
+
+ul.LC_TabContent li.goback {
+  float: left;
+  border-left: none;
+}
+
 #maincoursedoc {
   clear:both;
 }
@@ -6563,6 +6621,10 @@ a#LC_content_toolbar_changefolder_toggle
   background-image:url(/res/adm/pages/open-all-folders.gif);
 }
 
+a#LC_content_toolbar_edittoplevel {
+  background-image:url(/res/adm/pages/edittoplevel.gif);
+}
+
 ul#LC_toolbar li a:hover {
   background-position: bottom center;
 }
@@ -6969,7 +7031,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) {
@@ -6991,7 +7053,7 @@ ENDWISHLIST
 
 sub modal_window {
     return(<<'ENDMODAL');
-<script type="text/javascript" lang="javascript">
+<script type="text/javascript">
 // <![CDATA[
 // <!-- BEGIN LON-CAPA Internal
 var modalWindow = {
@@ -7046,7 +7108,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()
         {
@@ -7065,7 +7127,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().
@@ -7142,12 +7204,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');
@@ -7167,52 +7228,80 @@ 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>
 ENDPROGRESSUPDATE
 }
 
+my $LClastpercent;
+my $LCidcnt;
+my $LCcurrentid;
+
 sub LCprogressbar {
-    my ($r,$mode)=(@_);
+    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
-    $content.=&LCprogressbar_script();
-    if ($mode eq 'popup') {
-       $r->print(&modal_adhoc_launch('LCprogwin',500,50,$content));
-    } else {
-       $r->print($content);
-    }
-    $r->rflush();
+    &r_print($r,$content.&LCprogressbar_script($LCcurrentid));
 }
 
 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);
+    &r_print($r,<<ENDUPDATE);
 <script type="text/javascript">
 // <![CDATA[
-$function($val,'$text');
+LCupdateProgress($val,'$text','$LCcurrentid');
 // ]]>
 </script>
 ENDUPDATE
-    $r->rflush();
+}
+
+sub LCprogressbarClose {
+    my ($r)=@_;
+    $LClastpercent=0;
+    &r_print($r,<<ENDCLOSE);
+<script type="text/javascript">
+// <![CDATA[
+\$("#progressbar$LCcurrentid").hide('slow'); 
+// ]]>
+</script>
+ENDCLOSE
+}
+
+sub r_print {
+    my ($r,$to_print)=@_;
+    if ($r) {
+      $r->print($to_print);
+      $r->rflush();
+    } else {
+      print($to_print);
+    }
 }
 
 sub html_encode {
@@ -7222,6 +7311,7 @@ sub html_encode {
     
     return $result;
 }
+
 sub js_ready {
     my ($result) = @_;