--- loncom/interface/loncommon.pm	2009/04/25 21:35:13	1.797
+++ loncom/interface/loncommon.pm	2009/05/05 16:51:22	1.803
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.797 2009/04/25 21:35:13 www Exp $
+# $Id: loncommon.pm,v 1.803 2009/05/05 16:51:22 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -517,6 +517,10 @@ sub coursebrowser_javascript {
             else {
                 if (formname == 'portform') {
                     url += '&setroles='+extra_element;
+                } else {
+                    if (formname == 'rules') {
+                        url += '&fixeddom='+extra_element; 
+                    }
                 }
             }     
         }
@@ -931,9 +935,6 @@ sub help_open_topic {
     my ($topic, $text, $stayOnPage, $width, $height) = @_;
     $text = "" if (not defined $text);
     $stayOnPage = 0 if (not defined $stayOnPage);
-    if ($env{'browser.interface'} eq 'textual') {
-	$stayOnPage=1;
-    }
     $width = 350 if (not defined $width);
     $height = 400 if (not defined $height);
     my $filename = $topic;
@@ -1039,8 +1040,7 @@ sub help_open_menu {
     $stayOnPage = 0 if (not defined $stayOnPage);
     # only use pop-up help (stayOnPage == 0)
     # if environment.remote is on (using remote control UI)
-    if ($env{'browser.interface'} eq 'textual' ||
-    	$env{'environment.remote'} eq 'off' ) {
+    if ($env{'environment.remote'} eq 'off' ) {
         $stayOnPage=1;
     }
     my $output;
@@ -1064,8 +1064,7 @@ sub top_nav_help {
     my ($text) = @_;
     $text = &mt($text);
     my $stay_on_page = 
-	($env{'browser.interface'}  eq 'textual' ||
-	 $env{'environment.remote'} eq 'off' );
+	($env{'environment.remote'} eq 'off' );
     my $link = ($stay_on_page) ? "javascript:helpMenu('display')"
 	                     : "javascript:helpMenu('open')";
     my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);
@@ -1082,8 +1081,7 @@ sub help_menu_js {
     my ($text) = @_;
 
     my $stayOnPage = 
-	($env{'browser.interface'}  eq 'textual' ||
-	 $env{'environment.remote'} eq 'off' );
+	($env{'environment.remote'} eq 'off' );
 
     my $width = 620;
     my $height = 600;
@@ -1142,8 +1140,7 @@ sub help_open_bug {
     unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }
     $text = "" if (not defined $text);
     $stayOnPage = 0 if (not defined $stayOnPage);
-    if ($env{'browser.interface'} eq 'textual' ||
-	$env{'environment.remote'} eq 'off' ) {
+    if ($env{'environment.remote'} eq 'off' ) {
 	$stayOnPage=1;
     }
     $width = 600 if (not defined $width);
@@ -1187,8 +1184,7 @@ sub help_open_faq {
     unless ($Apache::lonnet::perlvar{'FAQHost'}) { return ''; }
     $text = "" if (not defined $text);
     $stayOnPage = 0 if (not defined $stayOnPage);
-    if ($env{'browser.interface'} eq 'textual' ||
-	$env{'environment.remote'} eq 'off' ) {
+    if ($env{'environment.remote'} eq 'off' ) {
 	$stayOnPage=1;
     }
     $width = 350 if (not defined $width);
@@ -2818,6 +2814,26 @@ sub screenname {
 }
 
 
+# ------------------------------------------------------------- Confirm Wrapper
+=pod
+
+=item confirmwrapper
+
+Wrap messages about completion of operation in box
+
+=cut
+
+sub confirmwrapper {
+    my ($message)=@_;
+    if ($message) {
+        return "\n".'<div class="LC_confirm_box">'."\n"
+               .$message."\n"
+               .'</div>'."\n";
+    } else {
+        return $message;
+    }
+}
+
 # ------------------------------------------------------------- Message Wrapper
 
 sub messagewrapper {
@@ -2828,6 +2844,7 @@ sub messagewrapper {
 	'&amp;subject='.&escape($subject).'&amp;text='.&escape($text).'" '.
         'title="'.&mt('Send message').'">'.$link.'</a>';
 }
+
 # --------------------------------------------------------------- Notes Wrapper
 
 sub noteswrapper {
@@ -2835,6 +2852,7 @@ sub noteswrapper {
     return 
 "<a href='/adm/email?recordftf=retrieve&recname=$un&recdom=$do'>$link</a>";
 }
+
 # ------------------------------------------------------------- Aboutme Wrapper
 
 sub aboutmewrapper {
@@ -2848,12 +2866,13 @@ sub aboutmewrapper {
 
 # ------------------------------------------------------------ Syllabus Wrapper
 
-
 sub syllabuswrapper {
     my ($linktext,$coursedir,$domain)=@_;
     return qq{<a href="/public/$domain/$coursedir/syllabus">$linktext</a>};
 }
 
+# -----------------------------------------------------------------------------
+
 sub track_student_link {
     my ($linktext,$sname,$sdom,$target,$start) = @_;
     my $link ="/adm/trackstudent?";
@@ -4232,7 +4251,7 @@ sub bodytag {
     my $font =   &designparm($function.'.font',$domain);
     my $pgbg   = $bgcolor || &designparm($function.'.pgbg',$domain);
 
-    my %design = ( 'style'   => 'margin-top: 0px',
+    my %design = ( 'style'   => 'margin-top: 0',
 		   'bgcolor' => $pgbg,
 		   'text'    => $font,
                    'alink'   => &designparm($function.'.alink',$domain),
@@ -4268,15 +4287,7 @@ sub bodytag {
 
     if ($bodyonly) {
         return $bodytag;
-    } elsif ($env{'browser.interface'} eq 'textual') {
-# Accessibility
-          
-	$bodytag.=&Apache::lonmenu::menubuttons($forcereg,$forcereg);
-	if (!$notitle) {
-	    $bodytag.='<h1>LON-CAPA: '.$title.'</h1>';
-	}
-	return $bodytag;
-    }
+    } 
 
     my $name = &plainname($env{'user.name'},$env{'user.domain'});
     if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
@@ -4508,6 +4519,7 @@ sub standard_css {
     my $img    = &designparm($function.'.img',   $domain);
     my $tabbg  = &designparm($function.'.tabbg', $domain);
     my $font   = &designparm($function.'.font',  $domain);
+    my $fontmenu = &designparm($function.'.fontmenu', $domain);
 #second colour for later usage
     my $sidebg = &designparm($function.'.sidebg',$domain);
     my $pgbg_or_bgcolor =
@@ -4542,8 +4554,8 @@ sub standard_css {
     my $lg_border_color	     = '#C8C8C8';
 
     my $border = ($env{'browser.type'} eq 'explorer' ||
-		  $env{'browser.type'} eq 'safari'     ) ? '0px 2px 0px 2px'
-	                                                 : '0px 3px 0px 4px';
+		  $env{'browser.type'} eq 'safari'     ) ? '0 2px 0 2px'
+	                                                 : '0 3px 0 4px';
 
 
     return <<END;
@@ -4622,6 +4634,18 @@ form, .inline {
   color: green;
 }
 
+div.LC_confirm_box {
+  background-color: #FAFAFA;
+  border: 1px solid $lg_border_color;
+  margin-right: 0;
+  padding: 5px;
+}
+
+div.LC_confirm_box .LC_error img,
+div.LC_confirm_box .LC_success img {
+  vertical-align: middle;
+}
+
 .LC_unknown {
   color: yellow;
 }
@@ -4632,7 +4656,7 @@ form, .inline {
 }
 
 .LC_indexer_icon {
-  border: 0px;
+  border: none;
   height: 22px;
 }
 
@@ -4655,7 +4679,7 @@ form, .inline {
 .LC_disc_action_links_bar {
    background: $tabbg;
    font-family: $sans;
-   border: 0px;
+   border: none;
    margin: 4px;
 }
 
@@ -4691,7 +4715,11 @@ table#LC_nav_location {
   background: $pgbg;
   border: 2px;
   border-collapse: separate;
-  padding: 0px;
+  padding: 0;
+}
+
+table#LC_title_bar a {
+  color: $fontmenu;
 }
 
 table#LC_title_bar,
@@ -4702,9 +4730,10 @@ table#LC_title_bar.LC_with_remote {
   border-style: solid;
   border-width: $border;
   background: $pgbg;
+  color: $fontmenu;
   font-family: $sans;
   border-collapse: collapse;
-  padding: 0px;
+  padding: 0;
 }
 
 table.LC_docs_path {
@@ -4713,7 +4742,7 @@ table.LC_docs_path {
   background: $pgbg;
   font-family: $sans;
   border-collapse: collapse;
-  padding: 0px;
+  padding: 0;
 }
 
 table#LC_title_bar td {
@@ -4722,22 +4751,22 @@ table#LC_title_bar td {
 
 table#LC_title_bar .LC_title_bar_who {
   background: $tabbg;
-  color: $font;
+  color: $fontmenu;
   font: small $sans;
   text-align: right;
-  margin: 0px;
+  margin: 0;
 }
 
 table#LC_title_bar .LC_title_bar_name {
-  margin: 0px;
+  margin: 0;
 }
 
 table#LC_title_bar .LC_title_bar_role {
-  margin: 0px;
+  margin: 0;
 }
 
 table#LC_title_bar .LC_title_bar_realm {
-  margin: 0px;
+  margin: 0;
 }
 
 span.LC_metadata {
@@ -4745,12 +4774,12 @@ span.LC_metadata {
 }
 
 table#LC_menubuttons img{
-  border: 0px;
+  border: none;
 }
 
 table#LC_top_nav td {
   background: $tabbg;
-  border: 0px;
+  border: none;
   font-size: small;
   vertical-align:top;
   padding:2px 5px 2px 5px;
@@ -4770,7 +4799,7 @@ table#LC_top_nav td.LC_top_nav_logo {
 }
 
 table#LC_top_nav td.LC_top_nav_logo img {
-  border: 0px;
+  border: none;
   vertical-align: bottom;
 }
 
@@ -4787,7 +4816,7 @@ table#LC_top_nav td.LC_top_nav_login {
 table.LC_breadcrumbs td,
 table.LC_docs_path td  {
   background: $tabbg;
-  color: $font;
+  color: $fontmenu;
   font-family: $sans;
   font-size: smaller;
 }
@@ -4795,7 +4824,7 @@ table.LC_docs_path td  {
 table.LC_breadcrumbs td.LC_breadcrumbs_component,
 table.LC_docs_path td.LC_docs_path_component {
   background: $tabbg;
-  color: $font;
+  color: $fontmenu;
   font-family: $sans;
   font-size: larger;
   text-align: right;
@@ -4874,9 +4903,9 @@ td.LC_menubuttons_text {
 }
 
 table.LC_aboutme_port {
-  border: 0px;
+  border: none;
   border-collapse: collapse;
-  border-spacing: 0px;
+  border-spacing: 0;
 }
 
 table.LC_data_table,
@@ -4894,14 +4923,14 @@ table.LC_mail_list {
 table.LC_nested_outer {
   border: 1px solid #000000;
   border-collapse: collapse;
-  border-spacing: 0px;
+  border-spacing: 0;
   width: 100%;
 }
 
 table.LC_nested {
-  border: 0px;
+  border: none;
   border-collapse: collapse;
-  border-spacing: 0px;
+  border-spacing: 0;
   width: 100%;
 }
 
@@ -4911,6 +4940,7 @@ table.LC_mail_list tr th,
 table.LC_prior_tries tr th {
   font-weight: bold;
   background-color: $data_table_head;
+  color:$fontmenu;
   font-size:90%;
 }
 
@@ -4958,6 +4988,7 @@ table.LC_nested tr.LC_empty_row td {
 
 table.LC_nested_outer tr th {
   font-weight: bold;
+  color:$fontmenu;
   background-color: $data_table_head;
   font-size: small;
   border-bottom: 1px solid #000000;
@@ -5174,9 +5205,9 @@ table.LC_parm_overview_restrictions th {
 }
 
 table#LC_helpmenu {
-  border: 0px;
+  border: none;
   height: 55px;
-  border-spacing: 0px;
+  border-spacing: 0;
 }
 
 table#LC_helpmenu fieldset legend {
@@ -5188,7 +5219,7 @@ table#LC_helpmenu_links {
   width: 100%;
   border: 1px solid black;
   background: $pgbg;
-  padding: 0px;
+  padding: 0;
   border-spacing: 1px;
 }
 
@@ -5261,7 +5292,7 @@ table.LC_pick_box td.LC_pick_box_select
 }
 
 table.LC_pick_box td.LC_pick_box_separator {
-  padding: 0px;
+  padding: 0;
   height: 1px;
   background: black;
 }
@@ -5311,7 +5342,7 @@ table.LC_helpform_receipt td.LC_oddrow_v
 }
 
 table.LC_helpform_receipt td.LC_pick_box_separator {
-  padding: 0px;
+  padding: 0;
   height: 1px;
   background: black;
 }
@@ -5351,7 +5382,7 @@ table.LC_group_priv_box td.LC_groups_fun
 
 table.LC_group_priv td {
   text-align: left;
-  padding: 0px;
+  padding: 0;
 }
 
 table.LC_notify_front_page {
@@ -5519,7 +5550,7 @@ span.LC_cusr_subheading {
 
 table.LC_docs_documents {
   background: #BBBBBB;
-  border-width: 0px;
+  border-width: 0;
   border-collapse: collapse;
 }
 
@@ -5529,7 +5560,7 @@ table.LC_docs_documents td.LC_docs_docum
 }
 
 .LC_docs_entry_move {
-  border: 0px;
+  border: none;
   border-collapse: collapse;
 }
 
@@ -5591,7 +5622,7 @@ table.LC_sty_end {
 }
 
 table.LC_double_column {
-  border-width: 0px;
+  border-width: 0;
   border-collapse: collapse;
   width: 100%;
   padding: 2px;
@@ -5728,7 +5759,7 @@ table.LC_edit_problem_header_title {
   border-width: $border;
   background: $tabbg;
   border-collapse: collapse;
-  padding: 0px
+  padding: 0;
 }
 
 div.LC_edit_problem_discards {
@@ -5746,12 +5777,12 @@ hr.LC_edit_problem_divide {
   color: $tabbg;
   background-color: $tabbg;
   height: 3px;
-  border: 0px;
+  border: none;
 }
 
 img.stift{
-  border-width:0;
-  vertical-align:middle;
+  border-width: 0;
+  vertical-align: middle;
 }
 
 table#LC_mainmenu{
@@ -5800,20 +5831,21 @@ h1 {
 }
 
 h2,h3,h4,h5,h6 {
-	margin:5px 0px 5px 0px;
-	padding:0px;
+	margin: 5px 0 5px 0;
+	padding: 0;
 	line-height:130%;
 }
 
 .LC_hcell {
         padding:3px 15px 3px 15px;
-        margin:0px;
+        margin: 0;
 	background-color:$tabbg;
+	color:$fontmenu;
 	border-bottom:solid 1px $lg_border_color;
 }
 
 .LC_noBorder {
-        border:0px;
+        border: 0;
 }
 
 
@@ -5821,13 +5853,13 @@ h2,h3,h4,h5,h6 {
 
 .LC_Right {
         float: right;
-        margin: 0px;
-        padding: 0px;
+        margin: 0;
+        padding: 0;
 }
 
 .LC_FormSectionClearButton input {
         background-color:transparent;
-        border:0px;
+        border: none;
         cursor:pointer;
         text-decoration:underline;
 }
@@ -5843,17 +5875,17 @@ h2,h3,h4,h5,h6 {
 }
 
 dl,ul,div,fieldset {
-	margin: 10px 10px 10px 0px;
+	margin: 10px 10px 10px 0;
 	overflow:hidden;
 }
 
 ol.LC_smallMenu, ol#LC_PathBreadcrumbs {
-	margin: 0px;
+	margin: 0;
 }
 
 ol.LC_smallMenu li {
 	display: inline;
-	padding: 5px 5px 0px 10px;
+	padding: 5px 5px 0 10px;
 	vertical-align: top;
 }
 
@@ -5872,8 +5904,8 @@ ul.LC_TabContent ,
 ul.LC_TabContentBigger {
 	display:block;
 	list-style:none;
-	margin: 0px;
-	padding: 0px;
+	margin: 0;
+	padding: 0;
 }
 
 ol#LC_TabMainMenuContent li,
@@ -5907,7 +5939,7 @@ ul.LC_TabContent {
 
 ul.LC_TabContent li {
 	vertical-align:middle;
-	padding:0px 10px 0px 10px;
+	padding: 0 10px 0 10px;
 	background-color:$tabbg;
 	border-bottom:solid 1px $lg_border_color;
 }
@@ -5953,7 +5985,7 @@ ul.LC_CourseBreadcrumbs {
 	height: 20px;
 	line-height: 20px;
 	vertical-align: bottom;
-	margin: 0px 0px 30px 0px;
+	margin: 0 0 30px 0;
 	padding-left: 10px;
 	list-style-position: inside;
 	background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
@@ -5966,7 +5998,7 @@ ul.LC_CourseBreadcrumbs li {
 	background: url(/adm/lonIcons/arrow_white.png) no-repeat left center;
 */
 	display: inline;
-	padding: 0px 0px 0px 10px;
+	padding: 0 0 0 10px;
 /*	vertical-align: bottom; */
 	overflow:hidden;
 }
@@ -6023,7 +6055,7 @@ dl.LC_ListStyleClean dd {
 	list-style-position: inside;
 	list-style-type: none;
 	overflow: hidden;
-	padding: 0px;
+	padding: 0;
 }
 
 .LC_ListStyleSimple li,
@@ -6032,15 +6064,15 @@ dl.LC_ListStyleClean dd {
 .LC_ListStyleNormal dd,
 .LC_ListStyleSpecial li,
 .LC_ListStyleSpecial dd {
-	margin: 0px;
+	margin: 0;
 	padding: 5px 5px 5px 10px;
 	clear: both;
 }
 
 .LC_ListStyleClean li,
 .LC_ListStyleClean dd {
-	padding-top: 0px;
-	padding-bottom: 0px;
+	padding-top: 0;
+	padding-bottom: 0;
 }
 
 .LC_ListStyleSimple dd,
@@ -6061,7 +6093,7 @@ table.LC_SimpleTable {
 }
 
 table.LC_SimpleTable tr {
-	padding:0px;
+	padding: 0;
 	border:solid 1px $lg_border_color;
 }
 
@@ -6073,12 +6105,12 @@ div.LC_columnSection {
 	display: block;
 	clear: both;
 	overflow: hidden;
-	margin:0px;
+	margin: 0;
 }
 
 div.LC_columnSection>* {
 	float: left;
-	margin: 10px 20px 10px 0px;
+	margin: 10px 20px 10px 0;
 	overflow:hidden;
 }
 
@@ -6097,9 +6129,9 @@ div.LC_columnSection > .ContentBoxSpecia
 
 .clear {
 	clear: both;
-	line-height: 0px;
-	font-size: 0px;
-	height: 0px;
+	line-height: 0;
+	font-size: 0;
+	height: 0;
 }
 
 .LC_loginpage_container {
@@ -6122,7 +6154,7 @@ div.LC_columnSection > .ContentBoxSpecia
 }
 
 .LC_loginpage_loginContainer h2 {
-	margin-top:0;
+	margin-top: 0;
 	display:block;
 	background:$bgcol;
 	color:$textcol;
@@ -6221,7 +6253,7 @@ ul#LC_toolbar li a:hover {
 }
 
 ul#LC_toolbar {
-	padding:0;
+	padding: 0;
 	margin: 2px;
 	list-style:none;
 	position:relative;
@@ -6230,7 +6262,7 @@ ul#LC_toolbar {
 
 ul#LC_toolbar li {
 	border:1px solid white;
-	padding:0;
+	padding: 0;
 	margin: 0;
         float: left;
 	display:inline;
@@ -6240,12 +6272,12 @@ ul#LC_toolbar li {
 
 a.LC_toolbarItem {
 	display:block;
-	padding:0;
-	margin:0;
+	padding: 0;
+	margin: 0;
 	height: 32px;
 	width: 32px;
 	color:white;
-	border:0 none;
+	border: none;
 	background-repeat:no-repeat;
 	background-color:transparent;
 }
@@ -6254,7 +6286,7 @@ ul.LC_functionslist li {
   float: left;
   white-space: nowrap;
   height: 35px; /* at least as high as heighest list item */
-  margin: 0px 15px 15px 10px;
+  margin: 0 15px 15px 10px;
 }
 
 
@@ -7485,12 +7517,17 @@ sub user_picker {
                 if ($cancreate) {
                     $new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';
                 } else {
-                    my $helplink = ' href="javascript:helpMenu('."'display'".')"';
+                    my $helplink = 'javascript:helpMenu('."'display'".')';
                     my %usertypetext = (
                         official   => 'institutional',
                         unofficial => 'non-institutional',
                     );
-                    $new_user_create = '<br /><span class="LC_warning">'.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.").' '.&mt('Contact the <a[_1]>helpdesk</a> for assistance.',$helplink).'</span><br /><br />';
+                    $new_user_create = '<p class="LC_warning">'
+                                      .&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.")
+                                      .' '
+                                      .&mt('Please contact the [_1]helpdesk[_2] for assistance.'
+                                          ,'<a href="'.$helplink.'">','</a>')
+                                      .'</p><br />';
                 }
             }
         }