--- loncom/interface/loncommon.pm	2009/04/14 15:32:12	1.786
+++ loncom/interface/loncommon.pm	2009/04/24 05:14:09	1.792
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.786 2009/04/14 15:32:12 neumanie Exp $
+# $Id: loncommon.pm,v 1.792 2009/04/24 05:14:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -602,8 +602,13 @@ function setSect(sectionlist) {
 
 sub selectcourse_link {
    my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_;
-   return "<a href='".'javascript:opencrsbrowser("'.$form.'","'.$unameele.
-        '","'.$udomele.'","'.$desc.'","'.$extra_element.'","'.$multflag.'","'.$selecttype.'");'."'>".&mt('Select Course')."</a>";
+   return '<span class="LC_nobreak">'
+         ."<a href='"
+         .'javascript:opencrsbrowser("'.$form.'","'.$unameele
+         .'","'.$udomele.'","'.$desc.'","'.$extra_element
+         .'","'.$multflag.'","'.$selecttype.'");'
+         ."'>".&mt('Select Course').'</a>'
+         .'</span>';
 }
 
 sub selectauthor_link {
@@ -710,6 +715,21 @@ sub select_datelocale {
     return $output;
 }
 
+sub select_language {
+    my ($name,$selected,$includeempty) = @_;
+    my %langchoices;
+    if ($includeempty) {
+        %langchoices = ('' => 'No language preference');
+    }
+    foreach my $id (&languageids()) {
+        my $code = &supportedlanguagecode($id);
+        if ($code) {
+            $langchoices{$code} = &plainlanguagedescription($id);
+        }
+    }
+    return &select_form($selected,$name,%langchoices);
+}
+
 =pod
 
 =item * &linked_select_forms(...)
@@ -4362,8 +4382,8 @@ ENDROLE
     return(<<ENDBODY);
 $bodytag
 <table id="LC_title_bar" class="LC_with_remote">
-<tr><td class="LC_title_bar_role_logo">$upperleft</td>
-    <td class="LC_title_bar_domain_logo">$messages&nbsp;</td>
+<tr><td>$upperleft</td>
+    <td>$messages&nbsp;</td>
 </tr>
 <tr><td>$titleinfo $dc_info $menu</td>
 $roleinfo
@@ -4480,6 +4500,7 @@ sub standard_css {
     my $img    = &designparm($function.'.img',   $domain);
     my $tabbg  = &designparm($function.'.tabbg', $domain);
     my $font   = &designparm($function.'.font',  $domain);
+#second colour for later usage
     my $sidebg = &designparm($function.'.sidebg',$domain);
     my $pgbg_or_bgcolor =
 	         $bgcolor ||
@@ -4582,6 +4603,7 @@ form, .inline { display: inline; }
 
 .LC_icon {
   border: none;
+  vertical-align: middle;
 }
 
 .LC_indexer_icon {
@@ -4654,15 +4676,6 @@ table#LC_title_bar .LC_title_bar_realm {
 span.LC_metadata {
     font-family: $sans;
 }
-table#LC_title_bar td.LC_title_bar_domain_logo {
-  background: $sidebg;
-  text-align: right;
-  padding: 0px;
-}
-table#LC_title_bar td.LC_title_bar_role_logo {
-  background: $sidebg;
-  padding: 0px;
-}
 
 table#LC_menubuttons img{
   border: 0px;
@@ -5925,6 +5938,11 @@ table.LC_tableOfContent{
 	background-color: #FFFFFF;
 	font-size: 90%;
 }
+
+table.LC_tableOfContent{
+    border-collapse: collapse;
+}
+
 table.LC_tableBrowseRes a,
 table.LC_tableOfContent a {
         background-color: transparent;
@@ -5996,17 +6014,6 @@ ul#LC_toolbar li{
 	vertical-align:middle;
 }
 
-/*
- This style is used for standard function lists, e.g. functions of Personal Information Page.
- It produces a horizontally aligned list with a bullet at the beginning of each function item.
- */
-.LC_fieldset_functions li {
-	float: right;
-	height: 35px;
-	background-color: blue; 
-	white-space: nowrap;
-	margin-left: 10px;	
-}
 
 a.LC_toolbarItem{
 	display:block;