[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.692.4.26 and 1.925.2.21

version 1.692.4.26, 2010/01/19 16:42:15 version 1.925.2.21, 2010/12/05 16:38:37
Line 271  BEGIN { Line 271  BEGIN {
         }          }
     }      }
     &Apache::lonnet::logthis(      &Apache::lonnet::logthis(
               "<font color=yellow>INFO: Read file types</font>");               "<span style='color:yellow;'>INFO: Read file types</span>");
     $readit=1;      $readit=1;
     }  # end of unless($readit)       }  # end of unless($readit) 
           
Line 452  sub selectstudent_link { Line 452  sub selectstudent_link {
               &mt('Select User').'</a></span>';                &mt('Select User').'</a></span>';
    }     }
    if ($env{'request.role'}=~/^(au|dc|su)/) {     if ($env{'request.role'}=~/^(au|dc|su)/) {
        $callargs .= ",1";         $callargs .= ",1"; 
        return '<span class="LC_nobreak">'.         return '<span class="LC_nobreak">'.
               '<a href="javascript:openstdbrowser('.$callargs.');">'.                '<a href="javascript:openstdbrowser('.$callargs.');">'.
               &mt('Select User').'</a></span>';                &mt('Select User').'</a></span>';
Line 462  sub selectstudent_link { Line 462  sub selectstudent_link {
   
 sub authorbrowser_javascript {  sub authorbrowser_javascript {
     return <<"ENDAUTHORBRW";      return <<"ENDAUTHORBRW";
 <script type="text/javascript">  <script type="text/javascript" language="JavaScript">
 // <![CDATA[  // <![CDATA[
 var stdeditbrowser;  var stdeditbrowser;
   
Line 475  function openauthorbrowser(formname,udom Line 475  function openauthorbrowser(formname,udom
     stdeditbrowser = open(url,title,options,'1');      stdeditbrowser = open(url,title,options,'1');
     stdeditbrowser.focus();      stdeditbrowser.focus();
 }  }
   
 // ]]>  // ]]>
 </script>  </script>
 ENDAUTHORBRW  ENDAUTHORBRW
Line 482  ENDAUTHORBRW Line 483  ENDAUTHORBRW
   
 sub coursebrowser_javascript {  sub coursebrowser_javascript {
     my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_;      my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_;
     my $wintitle = 'Course_Browser';      my $wintitle = &mt('Course Browser');
     if ($crstype eq 'Community') {      if ($crstype ne '') {
         $wintitle = 'Community_Browser';          $wintitle = &mt($crstype);
     }      }
     my $id_functions = &javascript_index_functions();      my $id_functions = &javascript_index_functions();
     my $output = '      my $output = '
Line 517  sub coursebrowser_javascript { Line 518  sub coursebrowser_javascript {
                     url += '&setroles='+extra_element;                      url += '&setroles='+extra_element;
                 } else {                  } else {
                     if (formname == 'rules') {                      if (formname == 'rules') {
                         url += '&fixeddom='+extra_element;                          url += '&fixeddom='+extra_element; 
                     }                      }
                 }                  }
             }                   }     
Line 656  $id_functions Line 657  $id_functions
 ENDUSERBRW  ENDUSERBRW
 }  }
   
   
 sub setsec_javascript {  sub setsec_javascript {
     my ($sec_element,$formname,$role_element) = @_;      my ($sec_element,$formname,$role_element) = @_;
     my (@courserolenames,@communityrolenames,$rolestr,$courserolestr,      my (@courserolenames,@communityrolenames,$rolestr,$courserolestr,
Line 1098  sub help_open_topic { Line 1098  sub help_open_topic {
     my ($topic, $text, $stayOnPage, $width, $height) = @_;      my ($topic, $text, $stayOnPage, $width, $height) = @_;
     $text = "" if (not defined $text);      $text = "" if (not defined $text);
     $stayOnPage = 0 if (not defined $stayOnPage);      $stayOnPage = 0 if (not defined $stayOnPage);
     if ($env{'browser.interface'} eq 'textual') {  
  $stayOnPage=1;  
     }  
     $width = 350 if (not defined $width);      $width = 350 if (not defined $width);
     $height = 400 if (not defined $height);      $height = 400 if (not defined $height);
     my $filename = $topic;      my $filename = $topic;
Line 1118  sub help_open_topic { Line 1115  sub help_open_topic {
     }      }
   
     # Add the text      # Add the text
     if ($text ne "") {      if ($text ne "") {
  $template .=    $template.='<span class="LC_help_open_topic">'
             "<table bgcolor='#3333AA' cellspacing='1' cellpadding='1' border='0'><tr>".                    .'<a target="_top" href="'.$link.'">'
             "<td bgcolor='#5555FF'><span class=\"LC_nobreak\"><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";                    .$text.'</a>';
     }      }
   
     # Add the graphic      # (Always) Add the graphic
     my $title = &mt('Online Help');      my $title = &mt('Online Help');
     my $helpicon=&lonhttpdurl("/adm/help/help.png");      my $helpicon=&lonhttpdurl("/adm/help/help.png");
     $template .= '<a target="_top" href="'.$link.'" title="'.$title.'">'.      $template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'
                  '<img src="'.$helpicon.'" border="0" alt="'.&mt('Help: [_1]',$topic).                .'<img src="'.$helpicon.'" border="0"'
                  '" title="'.$title.'" /></a>';                .' alt="'.&mt('Help: [_1]',$topic).'"'
     if ($text ne '') {                .' title="'.$title.'"' 
         $template.='</span></td></tr></table>';                .' /></a>';
       if ($text ne "") {
           $template.='</span>';
     }      }
     return $template;      return $template;
   
Line 1144  sub helpLatexCheatsheet { Line 1143  sub helpLatexCheatsheet {
     my $out;      my $out;
     my $addOther = '';      my $addOther = '';
     if ($topic) {      if ($topic) {
  $addOther = &Apache::loncommon::help_open_topic($topic,$text,   $addOther = '<span>'.&Apache::loncommon::help_open_topic($topic,&mt($text),
        undef, undef, 600) .         undef, undef, 600).
    '</td><td>';     '</span> ';
     }      }
     $out = '<table><tr><td>'.      $out = '<span>' # Start cheatsheet
            $addOther .    .$addOther
            &Apache::loncommon::help_open_topic("Greek_Symbols",&mt('Greek Symbols'),            .'<span>'
                                                undef,undef,600).    .&Apache::loncommon::help_open_topic('Greek_Symbols',&mt('Greek Symbols'),
            '</td><td>'.         undef,undef,600)
            &Apache::loncommon::help_open_topic("Other_Symbols",&mt('Other Symbols'),    .'</span> <span>'
                                                undef,undef,600).    .&Apache::loncommon::help_open_topic('Other_Symbols',&mt('Other Symbols'),
            '</td>';         undef,undef,600)
     .'</span>';
     unless ($not_author) {      unless ($not_author) {
         $out .= '<td>'.          $out .= ' <span>'
                 &Apache::loncommon::help_open_topic("Authoring_Output_Tags",&mt('Output Tags'),         .&Apache::loncommon::help_open_topic('Authoring_Output_Tags',&mt('Output Tags'),
                                                     undef,undef,600).                                              undef,undef,600)
                 '</td>';         .'</span>';
     }      }
     $out .= '</tr></table>';      $out .= '</span>'; # End cheatsheet
     return $out;      return $out;
 }  }
   
Line 1205  sub help_open_menu { Line 1205  sub help_open_menu {
     $stayOnPage = 0 if (not defined $stayOnPage);      $stayOnPage = 0 if (not defined $stayOnPage);
     # only use pop-up help (stayOnPage == 0)      # only use pop-up help (stayOnPage == 0)
     # if environment.remote is on (using remote control UI)      # if environment.remote is on (using remote control UI)
     if ($env{'browser.interface'} eq 'textual' ||      if ($env{'environment.remote'} eq 'off' ) {
     $env{'environment.remote'} eq 'off' ) {  
         $stayOnPage=1;          $stayOnPage=1;
     }      }
     my $output;      my $output;
Line 1230  sub top_nav_help { Line 1229  sub top_nav_help {
     my ($text) = @_;      my ($text) = @_;
     $text = &mt($text);      $text = &mt($text);
     my $stay_on_page =       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')"      my $link = ($stay_on_page) ? "javascript:helpMenu('display')"
                      : "javascript:helpMenu('open')";                       : "javascript:helpMenu('open')";
     my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);      my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);
Line 1248  sub help_menu_js { Line 1246  sub help_menu_js {
     my ($text) = @_;      my ($text) = @_;
   
     my $stayOnPage =       my $stayOnPage = 
  ($env{'browser.interface'}  eq 'textual' ||   ($env{'environment.remote'} eq 'off' );
  $env{'environment.remote'} eq 'off' );  
   
     my $width = 620;      my $width = 620;
     my $height = 600;      my $height = 600;
Line 1308  sub help_open_bug { Line 1305  sub help_open_bug {
     unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }      unless ($Apache::lonnet::perlvar{'BugzillaHost'}) { return ''; }
     $text = "" if (not defined $text);      $text = "" if (not defined $text);
     $stayOnPage = 0 if (not defined $stayOnPage);      $stayOnPage = 0 if (not defined $stayOnPage);
     if ($env{'browser.interface'} eq 'textual' ||      if ($env{'environment.remote'} eq 'off' ) {
  $env{'environment.remote'} eq 'off' ) {  
  $stayOnPage=1;   $stayOnPage=1;
     }      }
     $width = 600 if (not defined $width);      $width = 600 if (not defined $width);
Line 1333  sub help_open_bug { Line 1329  sub help_open_bug {
     {      {
  $template .=    $template .= 
   "<table bgcolor='#AA3333' cellspacing='1' cellpadding='1' border='0'><tr>".    "<table bgcolor='#AA3333' cellspacing='1' cellpadding='1' border='0'><tr>".
   "<td bgcolor='#FF5555'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";    "<td bgcolor='#FF5555'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF;font-size:10pt;\">$text</span></a>";
     }      }
   
     # Add the graphic      # Add the graphic
Line 1353  sub help_open_faq { Line 1349  sub help_open_faq {
     unless ($Apache::lonnet::perlvar{'FAQHost'}) { return ''; }      unless ($Apache::lonnet::perlvar{'FAQHost'}) { return ''; }
     $text = "" if (not defined $text);      $text = "" if (not defined $text);
     $stayOnPage = 0 if (not defined $stayOnPage);      $stayOnPage = 0 if (not defined $stayOnPage);
     if ($env{'browser.interface'} eq 'textual' ||      if ($env{'environment.remote'} eq 'off' ) {
  $env{'environment.remote'} eq 'off' ) {  
  $stayOnPage=1;   $stayOnPage=1;
     }      }
     $width = 350 if (not defined $width);      $width = 350 if (not defined $width);
Line 1378  sub help_open_faq { Line 1373  sub help_open_faq {
     {      {
  $template .=    $template .= 
   "<table bgcolor='#337733' cellspacing='1' cellpadding='1' border='0'><tr>".    "<table bgcolor='#337733' cellspacing='1' cellpadding='1' border='0'><tr>".
   "<td bgcolor='#448844'><a target=\"_top\" href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";    "<td bgcolor='#448844'><a target=\"_top\" href=\"$link\"><span style=\"color:#FFFFFF; font-size:10pt;\">$text</span></a>";
     }      }
   
     # Add the graphic      # Add the graphic
Line 1882  sub select_form { Line 1877  sub select_form {
         $selectform.=          $selectform.=
     '<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.      '<option value="'.&HTML::Entities::encode($key,'"<>&').'" '.
             ($key eq $def ? 'selected="selected" ' : '').              ($key eq $def ? 'selected="selected" ' : '').
                 ">".&mt($hash{$key})."</option>\n";                  ">".$hash{$key}."</option>\n";
     }      }
     $selectform.="</select>";      $selectform.="</select>";
     return $selectform;      return $selectform;
Line 1960  If the $showdomdesc flag is set, the dom Line 1955  If the $showdomdesc flag is set, the dom
   
 The optional $onchange argument specifies what should occur if the domain selector is changed, e.g., 'this.form.submit()' if the form is to be automatically submitted.  The optional $onchange argument specifies what should occur if the domain selector is changed, e.g., 'this.form.submit()' if the form is to be automatically submitted.
   
 The optional $incdoms is a reference to an array of domains which will be the only available options.  The optional $incdoms is a reference to an array of domains which will be the only available options. 
   
 =cut  =cut
   
Line 1983  sub select_dom_form { Line 1978  sub select_dom_form {
             ($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;              ($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;
         if ($showdomdesc) {          if ($showdomdesc) {
             if ($dom ne '') {              if ($dom ne '') {
                 my $domdesc = &Apache::lonnet::domain($dom,'description');                  my $domdesc;
                   if ($name eq 'srchdomain') {
                       if ($dom =~ /^\w+ci$/) {
                           $domdesc = 'Faculty';
                       } else {
                           $domdesc = 'Students';
                       }
                   } else {
                       $domdesc = &Apache::lonnet::domain($dom,'description');
                   }
                 if ($domdesc ne '') {                  if ($domdesc ne '') {
                     $selectdomain .= ' ('.$domdesc.')';                      $selectdomain .= ' ('.$domdesc.')';
                 }                  }
Line 2474  sub authform_internal{ Line 2478  sub authform_internal{
     }      }
     $autharg = '<input type="password" size="10" name="intarg" value="'.      $autharg = '<input type="password" size="10" name="intarg" value="'.
                $intarg.'" onchange="'.$jscall.'" />';                 $intarg.'" onchange="'.$jscall.'" />';
     $result = &mt      my $authtext = '[_1] Internally authenticated (with initial password [_2])';
         ('[_1] Internally authenticated (with initial password [_2])',      if ($in{'caller'} eq 'requestcrs') {
          '<label>'.$authtype,'</label>'.$autharg);          $authtext = "[_1] Students' password, if none in the uploaded file: [_2]";
       }
       $result = &mt($authtext,'<label>'.$authtype,'</label>'.$autharg);
     $result.="<label><input type=\"checkbox\" name=\"visible\" onclick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';      $result.="<label><input type=\"checkbox\" name=\"visible\" onclick='if (this.checked) { this.form.intarg.type=\"text\" } else { this.form.intarg.type=\"password\" }' />".&mt('Visible input').'</label>';
     return $result;      return $result;
 }  }
Line 2991  sub screenname { Line 2997  sub screenname {
     return $names{'screenname'};      return $names{'screenname'};
 }  }
   
   
 # ------------------------------------------------------------- Confirm Wrapper  # ------------------------------------------------------------- Confirm Wrapper
 =pod  =pod
   
Line 3021  sub messagewrapper { Line 3028  sub messagewrapper {
  '&amp;subject='.&escape($subject).'&amp;text='.&escape($text).'" '.   '&amp;subject='.&escape($subject).'&amp;text='.&escape($text).'" '.
         'title="'.&mt('Send message').'">'.$link.'</a>';          'title="'.&mt('Send message').'">'.$link.'</a>';
 }  }
   
 # --------------------------------------------------------------- Notes Wrapper  # --------------------------------------------------------------- Notes Wrapper
   
 sub noteswrapper {  sub noteswrapper {
     my ($link,$un,$do)=@_;      my ($link,$un,$do)=@_;
     return       return 
 "<a href='/adm/email?recordftf=retrieve&recname=$un&recdom=$do'>$link</a>";  "<a href='/adm/email?recordftf=retrieve&amp;recname=$un&amp;recdom=$do'>$link</a>";
 }  }
   
 # ------------------------------------------------------------- Aboutme Wrapper  # ------------------------------------------------------------- Aboutme Wrapper
   
 sub aboutmewrapper {  sub aboutmewrapper {
Line 3035  sub aboutmewrapper { Line 3044  sub aboutmewrapper {
     if (!defined($username)  && !defined($domain)) {      if (!defined($username)  && !defined($domain)) {
         return;          return;
     }      }
     return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.      return '<a href="/adm/'.$domain.'/'.$username.'/aboutme?forcestudent=1"'.
  ($target?' target="$target"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';   ($target?' target="$target"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';
 }  }
   
 # ------------------------------------------------------------ Syllabus Wrapper  # ------------------------------------------------------------ Syllabus Wrapper
   
   
 sub syllabuswrapper {  sub syllabuswrapper {
     my ($linktext,$coursedir,$domain,$fontcolor)=@_;      my ($linktext,$coursedir,$domain)=@_;
     if ($fontcolor) {   
         $linktext='<font color="'.$fontcolor.'">'.$linktext.'</font>';   
     }  
     return qq{<a href="/public/$domain/$coursedir/syllabus">$linktext</a>};      return qq{<a href="/public/$domain/$coursedir/syllabus">$linktext</a>};
 }  }
   
   # -----------------------------------------------------------------------------
   
 sub track_student_link {  sub track_student_link {
     my ($linktext,$sname,$sdom,$target,$start,$only_body) = @_;      my ($linktext,$sname,$sdom,$target,$start,$only_body) = @_;
     my $link ="/adm/trackstudent?";      my $link ="/adm/trackstudent?";
Line 3352  sub user_lang { Line 3359  sub user_lang {
     return $user_lh;      return $user_lh;
 }  }
   
   
 ###############################################################  ###############################################################
 ##               Student Answer Attempts                     ##  ##               Student Answer Attempts                     ##
 ###############################################################  ###############################################################
Line 3932  sub blockcheck { Line 3940  sub blockcheck {
                  ($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));                   ($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));
         next if ($no_userblock);          next if ($no_userblock);
   
         # Retrieve blocking times and identity of blocker for course          # Retrieve blocking times and identity of locker for course
         # of specified user, unless user has 'evb' privilege.          # of specified user, unless user has 'evb' privilege.
                   
         my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);          my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);
Line 3997  sub parse_block_record { Line 4005  sub parse_block_record {
     return ($setuname,$setudom,$title,$blocks);      return ($setuname,$setudom,$title,$blocks);
 }  }
   
 sub build_block_table {  
     my ($startblock,$endblock,$setters) = @_;  
     my %lt = &Apache::lonlocal::texthash(  
         'cacb' => 'Currently active communication blocks',  
         'cour' => 'Course',  
         'dura' => 'Duration',  
         'blse' => 'Block set by'  
     );  
     my $output;  
     $output = '<br />'.$lt{'cacb'}.':<br />';  
     $output .= &start_data_table();  
     $output .= '  
 <tr>  
  <th>'.$lt{'cour'}.'</th>  
  <th>'.$lt{'dura'}.'</th>  
  <th>'.$lt{'blse'}.'</th>  
 </tr>  
 ';  
     foreach my $course (keys(%{$setters})) {  
         my %courseinfo=&Apache::lonnet::coursedescription($course);  
         for (my $i=0; $i<@{$$setters{$course}{staff}}; $i++) {  
             my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};  
             my $fullname = &plainname($uname,$udom);  
             if (defined($env{'user.name'}) && defined($env{'user.domain'})  
                 && $env{'user.name'} ne 'public'   
                 && $env{'user.domain'} ne 'public') {  
                 $fullname = &aboutmewrapper($fullname,$uname,$udom);  
             }  
             my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};  
             $openblock = &Apache::lonlocal::locallocaltime($openblock);  
             $closeblock= &Apache::lonlocal::locallocaltime($closeblock);  
             $output .= &Apache::loncommon::start_data_table_row().  
                        '<td>'.$courseinfo{'description'}.'</td>'.  
                        '<td>'.$openblock.' to '.$closeblock.'</td>'.  
                        '<td>'.$fullname.'</td>'.  
                         &Apache::loncommon::end_data_table_row();  
         }  
     }  
     $output .= &end_data_table();  
 }  
   
 sub blocking_status {  sub blocking_status {
     my ($activity,$uname,$udom) = @_;    my ($activity,$uname,$udom) = @_;
     my %setters;    my %setters;
     my ($blocked,$output,$ownitem,$is_course);  
     my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);    # check for active blocking
     if ($startblock && $endblock) {    my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);
         $blocked = 1;  
         if (wantarray) {    my $blocked = $startblock && $endblock ? 1 : 0;
             my $category;  
             if ($activity eq 'boards') {    # caller just wants to know whether a block is active
                 $category = 'Discussion posts in this course';    if (!wantarray) { return $blocked; }
             } elsif ($activity eq 'blogs') {  
                 $category = 'Blogs';    # build a link to a popup window containing the details
             } elsif ($activity eq 'port') {    my $querystring  = "?activity=$activity";
                 if (defined($uname) && defined($udom)) {    # $uname and $udom decide whose portfolio the user is trying to look at
                     if ($uname eq $env{'user.name'} &&       $querystring .= "&amp;udom=$udom"      if $udom;
                         $udom eq $env{'user.domain'}) {       $querystring .= "&amp;uname=$uname"    if $uname;
                         $ownitem = 1;  
                     }    my $output .= <<'END_MYBLOCK';
                 }      function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
                 $is_course = &Apache::lonnet::is_course($udom,$uname);          var options = "width=" + w + ",height=" + h + ",";
                 if ($ownitem) {           options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
                     $category = 'Your portfolio files';            options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
                 } elsif ($is_course) {          var newWin = window.open(url, wdwName, options);
                     my $coursedesc;          newWin.focus();
                     foreach my $course (keys(%setters)) {      }
                         my %courseinfo =  END_MYBLOCK
                              &Apache::lonnet::coursedescription($course);  
                         $coursedesc = $courseinfo{'description'};    $output = Apache::lonhtmlcommon::scripttag($output);
                     }    
                     $category = "Group portfolio files in the course '$coursedesc'";    my $popupUrl = "/adm/blockingstatus/$querystring";
                 } else {    my $text = mt('Communication Blocked');
                     $category = 'Portfolio files belonging to ';  
                     if ($env{'user.name'} eq 'public' &&     $output .= <<"END_BLOCK";
                         $env{'user.domain'} eq 'public') {  <div class='LC_comblock'>
                         $category .= &plainname($uname,$udom);    <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'
                     } else {    title='$text'>
                         $category .= &aboutmewrapper(&plainname($uname,$udom),$uname,$udom);      <img class='LC_noBorder LC_middle' title='$text' src='/res/adm/pages/comblock.png' alt='$text'/></a>
                     }    <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring' 
                 }    title='$text'>$text</a>
             } elsif ($activity eq 'groups') {  </div>
                 $category = 'Groups in this course';  
             }  END_BLOCK
             my $showstart = &Apache::lonlocal::locallocaltime($startblock);  
             my $showend = &Apache::lonlocal::locallocaltime($endblock);    return ($blocked, $output);
             $output = '<br />'.&mt('[_1] will be inaccessible between [_2] and [_3] because communication is being blocked.',$category,$showstart,$showend).'<br />';  
             if (!($activity eq 'port' && !($ownitem) && !($is_course))) {   
                 $output .= &build_block_table($startblock,$endblock,\%setters);  
             }  
         }  
     }  
     if (wantarray) {  
         return ($blocked,$output);  
     } else {  
         return $blocked;  
     }  
 }  }
   
 ###############################################  ###############################################
Line 4202  sub get_domainconf { Line 4158  sub get_domainconf {
                 foreach my $key (keys(%{$domconfig{'login'}})) {                  foreach my $key (keys(%{$domconfig{'login'}})) {
                     if (ref($domconfig{'login'}{$key}) eq 'HASH') {                      if (ref($domconfig{'login'}{$key}) eq 'HASH') {
                         foreach my $img (keys(%{$domconfig{'login'}{$key}})) {                          foreach my $img (keys(%{$domconfig{'login'}{$key}})) {
                             $designhash{$udom.'.login.'.$key.'_'.$img} =                              $designhash{$udom.'.login.'.$key.'_'.$img} = 
                                 $domconfig{'login'}{$key}{$img};                                  $domconfig{'login'}{$key}{$img};
                         }                          }
                     } else {                      } else {
Line 4322  Returns: value of designparamter $which Line 4278  Returns: value of designparamter $which
 ##############################################  ##############################################
 sub designparm {  sub designparm {
     my ($which,$domain)=@_;      my ($which,$domain)=@_;
     if ($env{'browser.blackwhite'} eq 'on') {  
  if ($which=~/\.(font|alink|vlink|link|textcol)$/) {  
     return '#000000';  
  }  
  if ($which=~/\.(pgbg|sidebg|bgcol)$/) {  
     return '#FFFFFF';  
  }  
  if ($which=~/\.tabbg$/) {  
     return '#CCCCCC';  
  }  
     }  
     if (exists($env{'environment.color.'.$which})) {      if (exists($env{'environment.color.'.$which})) {
  return $env{'environment.color.'.$which};          return $env{'environment.color.'.$which};
     }      }
     $domain=&determinedomain($domain);      $domain=&determinedomain($domain);
     my %domdesign = &get_domainconf($domain);      my %domdesign = &get_domainconf($domain);
     my $output;      my $output;
     if ($domdesign{$domain.'.'.$which} ne '') {      if ($domdesign{$domain.'.'.$which} ne '') {
  $output = $domdesign{$domain.'.'.$which};          $output = $domdesign{$domain.'.'.$which};
     } else {      } else {
         $output = $defaultdesign{$which};          $output = $defaultdesign{$which};
     }      }
     if (($which =~ /^(student|coordinator|author|admin)\.img$/) ||      if (($which =~ /^(student|coordinator|author|admin)\.img$/) ||
         ($which =~ /login\.(img|logo|domlogo|login)/)) {          ($which =~ /login\.(img|logo|domlogo|login)/)) {
         if ($output =~ m{^/(adm|res)/}) {          if ($output =~ m{^/(adm|res)/}) {
     if ($output =~ m{^/res/}) {              if ($output =~ m{^/res/}) {
  my $local_name = &Apache::lonnet::filelocation('',$output);                  my $local_name = &Apache::lonnet::filelocation('',$output);
  &Apache::lonnet::repcopy($local_name);                  &Apache::lonnet::repcopy($local_name);
     }              }
             $output = &lonhttpdurl($output);              $output = &lonhttpdurl($output);
         }          }
     }      }
     return $output;      return $output;
 }  }
   
   ##############################################
   =pod
   
   =item * &authorspace()
   
   Inputs: ./.
   
   Returns: Path to the Construction Space of the current user's
            accessed author space
            The author space will be that of the current user
            when accessing the own author space
            and that of the co-author/assistent co-author
            when accessing the co-author's/assistent co-author's
            space
   
   =cut
   
   sub authorspace {
       my $caname = '';
       if ($env{'request.role'} =~ /^ca|^aa/) {
           (undef,$caname) =
               ($env{'request.role'}=~/($match_domain)\/($match_username)$/);
       } else {
           $caname = $env{'user.name'};
       }
       return '/priv/'.$caname.'/';
   }
   
   ##############################################
   =pod
   
   =item * &head_subbox()
   
   Inputs: $content (contains HTML code with page functions, etc.)
   
   Returns: HTML div with $content
            To be included in page header
   
   =cut
   
   sub head_subbox {
       my ($content)=@_;
       my $output =
           '<div id="LC_head_subbox">'
          .$content
          .'</div>'
   }
   
   ##############################################
   =pod
   
   =item * &CSTR_pageheader()
   
   Inputs: ./.
   
   Returns: HTML div with CSTR path and recent box
            To be included on Construction Space pages
   
   =cut
   
   sub CSTR_pageheader {
       # this is for resources; directories have customtitle, and crumbs
               # and select recent are created in lonpubdir.pm  
       my ($uname,$thisdisfn)=
           ($env{'request.filename'} =~ m|^/home/([^/]+)/public_html/(.*)|);
       my $formaction='/priv/'.$uname.'/'.$thisdisfn;
       $formaction=~s/\/+/\//g;
   
       my $parentpath = '';
       my $lastitem = '';
       if ($thisdisfn =~ m-(.+/)([^/]*)$-) {
           $parentpath = $1;
           $lastitem = $2;
       } else {
           $lastitem = $thisdisfn;
       }
   
       my $output =
            '<div>'
           .&Apache::loncommon::help_open_menu('','',3,'Authoring') #FIXME: Broken? Where is it?
           .'<b>'.&mt('Construction Space:').'</b> '
           .'<form name="dirs" method="post" action="'.$formaction
           .'" target="_top">' #FIXME lonpubdir: target="_parent"
           .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv',undef,undef);
   
       if ($lastitem) {
           $output .=
                '<span class="LC_filename">'
               .$lastitem
               .'</span>';
       }
       $output .=
            '<br />'
           #FIXME lonpubdir: &Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />"
           .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
           .'</form>'
           .&Apache::lonmenu::constspaceform()
           .'</div>';
   
       return $output;
   }
   
 ###############################################  ###############################################
 ###############################################  ###############################################
   
Line 4389  Inputs: Line 4436  Inputs:
 =item * $forcereg, if page should register as content page (relevant for   =item * $forcereg, if page should register as content page (relevant for 
             text interface only)              text interface only)
   
 =item * $customtitle, alternate text to use instead of $title  =item * $no_nav_bar, if true, keep the 'what is this' info but remove the
                       in the title box that appears, this text                       navigational links
                       is not auto translated like the $title is  
   
 =item * $notopbar, if true, keep the 'what is this' info but remove the  
                    navigational links  
   
 =item * $bgcolor, used to override the bgcolor on a webpage to a specific value  =item * $bgcolor, used to override the bgcolor on a webpage to a specific value
   
 =item * $notitle, if true keep the nav controls, but remove the title bar  
   
 =item * $no_inline_link, if true and in remote mode, don't show the   =item * $no_inline_link, if true and in remote mode, don't show the 
          'Switch To Inline Menu' link           'Switch To Inline Menu' link
   
Line 4419  other decorations will be returned. Line 4460  other decorations will be returned.
 =cut  =cut
   
 sub bodytag {  sub bodytag {
     my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,      my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,
  $notopbar,$bgcolor,$notitle,$no_inline_link,$args)=@_;          $no_nav_bar,$bgcolor,$no_inline_link,$args)=@_;
   
       my $public;
       if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
           || ($env{'user.name'} eq '') && ($env{'user.domain'} eq '')) {
           $public = 1;
       }
     if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }      if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }
   
     $function = &get_users_function() if (!$function);      $function = &get_users_function() if (!$function);
Line 4437  sub bodytag { Line 4483  sub bodytag {
    'link'    => &designparm($function.'.link',$domain),);     'link'    => &designparm($function.'.link',$domain),);
     @design{keys(%$addentries)} = @$addentries{keys(%$addentries)};       @design{keys(%$addentries)} = @$addentries{keys(%$addentries)}; 
   
       my $custommenu;
       if ($env{'environment.remote'} eq 'off') {
           $custommenu = &needs_gci_custom();
       }
  # role and realm   # role and realm
     my ($role,$realm) = split(/\./,$env{'request.role'},2);      my ($role,$realm) = split(/\./,$env{'request.role'},2);
     if ($role  eq 'ca') {      if ($role  eq 'ca') {
Line 4446  sub bodytag { Line 4496  sub bodytag {
 # realm  # realm
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         if ($env{'request.role'} !~ /^cr/) {          if ($env{'request.role'} !~ /^cr/) {
             $role = &Apache::lonnet::plaintext($role,&course_type());              if (($custommenu) && (($role eq 'cm') || ($env{'form.context'} eq 'requestcrs'))) {
                   undef($role);
               } else {
                   $role = &Apache::lonnet::plaintext($role,&course_type());
               }
           }
           if (defined($role) && $env{'request.course.sec'}) {
               $role .= ('&nbsp;'x2).'-&nbsp;'.&mt('section:').'&nbsp;'.$env{'request.course.sec'};
           }
           if ($env{'form.context'} eq 'requestcrs') {
               undef($realm);
           } else {
       $realm = $env{'course.'.$env{'request.course.id'}.'.description'};
         }          }
  $realm = $env{'course.'.$env{'request.course.id'}.'.description'};  
     } else {      } else {
         $role = &Apache::lonnet::plaintext($role);          if (($custommenu) && ($role eq 'cm')) {
               undef($role);
           } else {
               $role = &Apache::lonnet::plaintext($role);
           }
     }      }
   
     if (!$realm) { $realm='&nbsp;'; }      if (!$realm) { $realm='&nbsp;'; }
Line 4465  sub bodytag { Line 4530  sub bodytag {
   
     if ($bodyonly) {      if ($bodyonly) {
         return $bodytag;          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'});      my $name = &plainname($env{'user.name'},$env{'user.domain'});
     if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {      if ($public) {
  undef($role);   undef($role);
     } else {      } else {
  $name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'});   $name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'});
     }      }
           
     my $roleinfo=(<<ENDROLE);      my $titleinfo = '<h1>'.$title.'</h1>';
 <td class="LC_title_bar_who">  
 <div class="LC_title_bar_name">  
     $name  
     &nbsp;  
 </div>  
 <div class="LC_title_bar_role">  
 $role&nbsp;  
 </div>  
 <div class="LC_title_bar_realm">  
 $realm&nbsp;  
 </div>  
 </td>  
 ENDROLE  
   
     my $titleinfo = '<span class="LC_title_bar_title">'.$title.'</span>';  
     if ($customtitle) {  
         $titleinfo = $customtitle;  
     }  
     #      #
     # Extra info if you are the DC      # Extra info if you are the DC
     my $dc_info = '';      my $dc_info = '';
Line 4508  ENDROLE Line 4547  ENDROLE
                         $env{'course.'.$env{'request.course.id'}.                          $env{'course.'.$env{'request.course.id'}.
                                  '.domain'}.'/'})) {                                   '.domain'}.'/'})) {
         my $cid = $env{'request.course.id'};          my $cid = $env{'request.course.id'};
         $dc_info.= $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};          $dc_info = $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};
         $dc_info =~ s/\s+$//;          $dc_info =~ s/\s+$//;
         $dc_info = '('.$dc_info.')';  
     }      }
   
     if (($env{'environment.remote'} eq 'off') || ($args->{'suppress_header_logos'})) {      $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
       &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);
   
       if ($env{'environment.remote'} ne 'on') {
         # No Remote          # No Remote
  if ($env{'request.state'} eq 'construct') {          if ($no_nav_bar || $env{'form.inhibitmenu'} eq 'yes') { 
     $forcereg=1;              return $bodytag; 
  }          } 
   
  if (!$customtitle && $env{'request.state'} eq 'construct') {          if ($env{'request.state'} eq 'construct') { $forcereg=1; }
     # this is for resources; directories have customtitle, and crumbs  
             # and select recent are created in lonpubdir.pm            #    if ($env{'request.state'} eq 'construct') {
     my ($uname,$thisdisfn)=          #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
  ($env{'request.filename'} =~ m|^/home/([^/]+)/public_html/(.*)|);          #    }
     my $formaction='/priv/'.$uname.'/'.$thisdisfn;  
     $formaction=~s/\/+/\//g;          my $role_selector;
           if (($custommenu) && !($env{'form.context'} eq 'requestcrs') && 
     my $parentpath = '';              ($env{'request.course.id'}) && 
     my $lastitem = '';              ($env{'course.'.$env{'request.course.id'}.'.domain'} =~ /^\w+citest$/)) {
     if ($thisdisfn =~ m-(.+/)([^/]*)$-) {              $role_selector = &Apache::lonmenu::roles_selector(
  $parentpath = $1;                          $env{'course.' . $env{'request.course.id'} . '.domain'},
  $lastitem = $2;                          $env{'course.' . $env{'request.course.id'} . '.num'}  );
     } else {              if ($role_selector) {
  $lastitem = $thisdisfn;                  $role_selector = '<br />'.$role_selector;
     }  
     $titleinfo =   
  &Apache::loncommon::help_open_menu('','',3,'Authoring')  
  .'<b>'.&mt('Construction Space').'</b>:&nbsp;'  
  .'<form name="dirs" method="post" action="'.$formaction  
  .'" target="_top"><tt><b>'  
  .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />"  
  .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')  
  .'</form>'  
  .&Apache::lonmenu::constspaceform();  
         }  
   
         my $titletable;  
  if (!$notitle) {  
     $titletable =  
  '<table id="LC_title_bar">'.  
                          "<tr><td> $titleinfo $dc_info</td>".$roleinfo.  
  '</tr></table>';  
  }  
  if ($notopbar) {  
     $bodytag .= $titletable;  
  } else {  
     if ($env{'request.state'} eq 'construct') {  
                 $bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg,  
   $titletable);  
             } else {  
                 $bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg).  
     $titletable;  
             }              }
         }          }
           my $cid = $env{'request.course.id'};
           my %cicourses;
           my $udom = $env{'user.domain'};
           my %allnums = &get_faculty_cnums();
           if ($udom ne '' && ref($allnums{$udom} eq 'HASH') {
                foreach my $key (%{$allnums{$udom}}) {
                    $cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key};
                }
           }
           if (($custommenu && $cid && !$cicourses{$cid}) && 
                !($env{'form.context'} eq 'requestcrs') ||
                ($env{'user.domain'} =~ /^\w+citest$/)) {
               my $role = 'st';
               if ($custommenu) {
                   $role = 'cc';
               }
               my ($switcher_js,$switcher,$formname);
               $formname = 'pickrole';
               my %courses = &existing_gcitest_courses($role);
               my $numcourses = keys(%courses);
               my $reqdcount = 0;
               if ($cid) {
                   if ($courses{$cid}) {
                       $reqdcount = 1; 
                   }
               }
               if ($numcourses > $reqdcount) {
                   $switcher = &gcitest_switcher($role,$formname,%courses);
                   my $current;
                   if ($cid) {
                       $current = $role.'./'.$env{'course.'.$cid.'.domain'}.
                                  '/'.$env{'course.'.$cid.'.num'};
                   }
                   $switcher_js = &gcitest_switcher_js($current,$numcourses,$formname);
                   if ($switcher_js) {  
                       $switcher_js= <<"ENDSCRIPT";
   <script type="text/javascript">
   // <![CDATA[
   
   $switcher_js
   
   // ]]>
   </script>
   ENDSCRIPT
                   }
               }
               if ($switcher) {
                   $switcher = $switcher_js.$switcher;
                   if ($role_selector) {
                       $role_selector .= '&nbsp;&nbsp;&nbsp;'.$switcher;
                   } else {
                       $role_selector .= '<br />'.$switcher;
                   }
               }
           }
   
           if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
                if ($dc_info) {
                    $dc_info = qq|<span class="LC_cusr_subheading">$dc_info</span>|;
                }
                $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />
                   <em>$realm</em> $dc_info</div>|;
               return $bodytag;
           }
           if ($env{'request.noversionuri'} eq '/adm/navmaps' &&
                   $env{'environment.remotenavmap'} eq 'on') {
               return $bodytag;
           }
   
           if ($cid && $cicourses{$cid} eq 'tutorial') {
               $bodytag .= '<div class="LC_page_header">';
           }
    
           $bodytag .= qq|<div id="LC_nav_bar">$name $role $role_selector</div>|;
   
           $bodytag .= Apache::lonhtmlcommon::scripttag(
               Apache::lonmenu::utilityfunctions('',$custommenu), 'start');
   
           $bodytag .= Apache::lonmenu::primary_menu();
   
           if ($dc_info) {
               $dc_info = &dc_courseid_toggle($dc_info);
           }
           $bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|;
           if ($cid && $cicourses{$cid} eq 'tutorial') {
               $bodytag .= '</div>';
           }
   
           #don't show menus for public users
           if(!$public){
               if (($custommenu) && 
                   ($env{'request.role'} !~ m{^st\./(\w+)citest/$match_courseid})) {
                   $bodytag .= &Apache::lonmenu::gci_secondary_menu();
               } elsif ($env{'request.role'} ne 'cm' || &check_for_gci_dc()) {    
                   $bodytag .= Apache::lonmenu::secondary_menu();
               }
               $bodytag .= Apache::lonmenu::serverform();
               $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
               if ($env{'request.state'} eq 'construct') {
                   $bodytag .= &Apache::lonmenu::innerregister($forcereg,'',
                                   $args->{'bread_crumbs'});
               } elsif ($forcereg) { 
                   $bodytag .= &Apache::lonmenu::innerregister($forcereg);
               } elsif ($custommenu && $env{'request.course.id'} && 
                        &Apache::lonnet::allowed('mdc', $env{'request.course.id'})) {
                   if ((($env{'request.noversionuri'} eq '/adm/navmaps') && 
                       ($env{'request.noversionuri'} ne 'on')) ||
                       (($env{'request.noversionuri'} eq '/adm/coursedocs') &&
                        (!($env{'form.context'} eq 'requestcrs'))) ||
                       (($env{'request.noversionuri'} eq '/adm/createuser') &&
                        (!($env{'form.context'} eq 'requestcrs'))) ||
                       ($env{'request.noversionuri'} eq '/adm/whatsnew') ||
                       ($env{'request.noversionuri'} eq '/cgi-bin/printout.pl') ||
                       ($env{'request.noversionuri'} eq '/adm/printout') ||
                       ($env{'request.noversionuri'} eq '/adm/statistics')) {
   
                       my @advtools = &concept_test_manager();
                       &Apache::lonhtmlcommon::clear_breadcrumbs();
                       &Apache::lonhtmlcommon::add_breadcrumb_tool(
                                         'advtools',@advtools);
                       my $advlinks;
                       my $legendtext = '<a class="LC_menubuttons_link" href="/adm/menu">'.&mt('Management').'</a>';
                       &Apache::lonhtmlcommon::render_advtools(\$advlinks,$legendtext);
                       $bodytag .= $advlinks;
                   }
               }
           }else{
               # this is to seperate menu from content when there's no secondary
               # menu. Especially needed for public accessible ressources.
               $bodytag .= '<hr style="clear:both" />';
               $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); 
           }
   
         return $bodytag;          return $bodytag;
     }      }
   
Line 4579  ENDROLE Line 4725  ENDROLE
   
     # Explicit link to get inline menu      # Explicit link to get inline menu
     my $menu= ($no_inline_link?''      my $menu= ($no_inline_link?''
        :'<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>');         :'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
     #  
     if ($notitle) {      if ($dc_info) {
  return $bodytag;          $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;
     }      }
   
       $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>
               <ol class="LC_primary_menu LC_right">
                   <li>$menu</li>
               </ol><div id="LC_realm"> $realm $dc_info</div>| unless $env{'form.inhibitmenu'};
     return(<<ENDBODY);      return(<<ENDBODY);
 $bodytag  $bodytag
 <table id="LC_title_bar" class="LC_with_remote">  <table id="LC_title_bar" class="LC_with_remote">
 <tr><td class="LC_title_bar_role_logo">$upperleft</td>  <tr><td>$upperleft</td>
     <td class="LC_title_bar_domain_logo">$messages&nbsp;</td>      <td>$messages&nbsp;</td>
 </tr>  </tr>
 <tr><td>$titleinfo $dc_info $menu</td>  <tr><td>$titleinfo $dc_info $menu</td>
 $roleinfo  
 </tr>  </tr>
 </table>  </table>
 ENDBODY  ENDBODY
 }  }
   
   sub concept_test_manager {
       my @advtools;
       my  %items = (
                      docs => { 
                                 desc    => 'Edit Test',
                                 action  => "go('/adm/coursedocs')",
                                 tooltip => 'Assemble or modify Concept Test'
                              },
                      cprv => {
                                 desc => 'Enrollment/Activity',
                                 action => "go('/adm/createuser')",
                                 tooltip => 'Enrollment and student activity',
                              },
                      new => { 
                                 desc   => "What's New?",
                                 action => "go('/adm/whatsnew')",
                                 tooltip => 'Recent events/action items in Concept Test' ,
                              },
                      prnt => {
                                 desc => 'Print Test',
                                 action => "go('/adm/printout');",
                                 tooltip => 'Prepare printable Concept Test',
                              },
                      chrt => { 
                                 desc   => 'Test Statistics',
                                 action => "go('/adm/statistics');",
                                 tooltip => 'Concept Test Statistics',
                              },
                      rcrs => {
                                 desc   => 'Create New Test',
                                 action  => "switchpage('createtest');",
                                 tooltip => 'Create new Concept Test',
                              },
                    );
       my @ordered = ('docs','cprv','new','prnt','chrt','rcrs');
       foreach my $item (@ordered) {
            push(@advtools,
                     '<a title="'.$items{$item}{tooltip}.'" class="LC_menubuttons_link" href="javascript:'.
                     $items{$item}{action}.';">'.
                     '<img src="'.'/res/adm/pages/'.$item.'22.png" alt="'.$items{$item}{tooltip}.
                     '" border="0" class="LC_icon" />'.
                     '<span class="LC_menubuttons_inline_text">'.$items{$item}{desc}.'</span></a>');
       }
       return @advtools;
   }
   
   sub dc_courseid_toggle {
       my ($dc_info) = @_;
       return ' <span id="dccidtext" class="LC_cusr_subheading">'.
              '<a href="javascript:showCourseID();">'.
              &mt('(More ...)').'</a></span>'.
              '<div id="dccid" class="LC_dccid">'.$dc_info.'</div>';
   }
   
 sub make_attr_string {  sub make_attr_string {
     my ($register,$attr_ref) = @_;      my ($register,$attr_ref) = @_;
   
Line 4636  sub make_attr_string { Line 4840  sub make_attr_string {
  $attr_ref->{'style'}=$style.'; font-size: x-large;';   $attr_ref->{'style'}=$style.'; font-size: x-large;';
     }      }
   
     if ($env{'browser.blackwhite'} eq 'on') {  
  delete($attr_ref->{'font'});  
  delete($attr_ref->{'link'});  
  delete($attr_ref->{'alink'});  
  delete($attr_ref->{'vlink'});  
  delete($attr_ref->{'bgcolor'});  
  delete($attr_ref->{'background'});  
     }  
   
     my $attr_string;      my $attr_string;
     foreach my $attr (keys(%$attr_ref)) {      foreach my $attr (keys(%$attr_ref)) {
  $attr_string .= " $attr=\"".$attr_ref->{$attr}.'" ';   $attr_string .= " $attr=\"".$attr_ref->{$attr}.'" ';
Line 4705  sub standard_css { Line 4900  sub standard_css {
     my $img    = &designparm($function.'.img',   $domain);      my $img    = &designparm($function.'.img',   $domain);
     my $tabbg  = &designparm($function.'.tabbg', $domain);      my $tabbg  = &designparm($function.'.tabbg', $domain);
     my $font   = &designparm($function.'.font',  $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 $sidebg = &designparm($function.'.sidebg',$domain);
     my $pgbg_or_bgcolor =      my $pgbg_or_bgcolor =
          $bgcolor ||           $bgcolor ||
Line 4714  sub standard_css { Line 4911  sub standard_css {
     my $vlink  = &designparm($function.'.vlink', $domain);      my $vlink  = &designparm($function.'.vlink', $domain);
     my $link   = &designparm($function.'.link',  $domain);      my $link   = &designparm($function.'.link',  $domain);
   
       my $loginbg = &designparm('login.sidebg',$domain);
       my $bgcol = &designparm('login.bgcol',$domain);
       my $textcol = &designparm('login.textcol',$domain);
   
     my $sans                 = 'Verdana,Arial,Helvetica,sans-serif';      my $sans                 = 'Verdana,Arial,Helvetica,sans-serif';
     my $mono                 = 'monospace';      my $mono                 = 'monospace';
     my $data_table_head      = $tabbg;      my $data_table_head      = $sidebg;
     my $data_table_light     = '#FAFAFA';      my $data_table_light     = '#FAFAFA';
     my $data_table_dark      = '#F0F0F0';      my $data_table_dark      = '#F0F0F0';
     my $data_table_darker    = '#CCCCCC';      my $data_table_darker    = '#CCCCCC';
Line 4734  sub standard_css { Line 4935  sub standard_css {
     my $lg_border_color      = '#C8C8C8';      my $lg_border_color      = '#C8C8C8';
   
     my $border = ($env{'browser.type'} eq 'explorer' ||      my $border = ($env{'browser.type'} eq 'explorer' ||
   $env{'browser.type'} eq 'safari'     ) ? '0 2px 0 2px'        $env{'browser.type'} eq 'safari'     ) ? '0 2px 0 2px'
                                                  : '0 3px 0 4px';                                               : '0 3px 0 4px';
   
   
     return <<END;      return <<END;
 h1, h2, h3, th { font-family: $sans }  body {
 a:focus { color: red; background: yellow }     font-family: $sans;
     line-height:130%;
     font-size:0.83em;
     color:$font;
   }
   
 hr {  a:focus {
   clear: both;    color: red;
   color: $tabbg;    background: yellow;
   background-color: $tabbg;  }
   height: 3px;  
   border: none;  form, .inline {
     display: inline;
 }  }
   
 table.thinborder,  .LC_right {
     text-align:right;
   }
   
 table.thinborder tr th {  .LC_middle {
   border-style: solid;    vertical-align:middle;
   border-width: 1px;  
   background: $tabbg;  
 }  }
 table.thinborder tr td {  
   border-style: solid;  /* just for tests */
   border-width: 1px  .LC_400Box {
     width:400px;
   }
   /* end */
   
   .LC_filename {
     font-family: $mono;
     white-space:pre;
     font-size: 120%;
   }
   
   .LC_fileicon {
     border: none;
     height: 1.3em;
     vertical-align: text-bottom;
     margin-right: 0.3em;
     text-decoration:none;
 }  }
   
 form, .inline { display: inline; }  
 .center { text-align: center; }  
 .LC_filename {font-family: $mono; white-space:pre;}  
 .LC_error {  .LC_error {
   color: red;    color: red;
   font-size: larger;    font-size: larger;
 }  }
   
 .LC_warning,  .LC_warning,
 .LC_diff_removed {  .LC_diff_removed {
   color: red;    color: red;
Line 4794  div.LC_confirm_box .LC_success img { Line 5014  div.LC_confirm_box .LC_success img {
   
 .LC_icon {  .LC_icon {
   border: none;    border: none;
     vertical-align: middle;
 }  }
 .LC_indexer_icon {  
   border: 0;  
   height: 22px;  
 }  
 .LC_docs_spacer {  .LC_docs_spacer {
   width: 25px;    width: 25px;
   height: 1px;    height: 1px;
Line 4810  div.LC_confirm_box .LC_success img { Line 5028  div.LC_confirm_box .LC_success img {
 }  }
   
 .LC_discussion {  .LC_discussion {
    background: $tabbg;    background: $tabbg;
    border: 1px solid black;    border: 1px solid black;
    margin: 2px;    margin: 2px;
 }  }
   
 .LC_disc_action_links_bar {  .LC_disc_action_links_bar {
    background: $tabbg;    background: $tabbg;
    border: none;    border: none;
    margin: 4px;    margin: 4px;
 }  }
   
 .LC_disc_action_left {  .LC_disc_action_left {
    text-align: left;    text-align: left;
 }  }
   
 .LC_disc_action_right {  .LC_disc_action_right {
    text-align: right;    text-align: right;
 }  }
   
 .LC_disc_new_item {  .LC_disc_new_item {
    background: white;    background: white;
    border: 2px solid red;    border: 2px solid red;
    margin: 2px;    margin: 2px;
 }  }
   
 .LC_disc_old_item {  .LC_disc_old_item {
    background: white;    background: white;
    border: 1px solid black;    border: 1px solid black;
    margin: 2px;    margin: 2px;
 }  }
   
 table.LC_pastsubmission {  table.LC_pastsubmission {
Line 4846  table.LC_pastsubmission { Line 5064  table.LC_pastsubmission {
   margin: 2px;    margin: 2px;
 }  }
   
 table#LC_top_nav, table#LC_menubuttons,table#LC_nav_location {  table#LC_menubuttons {
   width: 100%;    width: 100%;
   background: $pgbg;    background: $pgbg;
   border: 2px;    border: 2px;
Line 4854  table#LC_top_nav, table#LC_menubuttons,t Line 5072  table#LC_top_nav, table#LC_menubuttons,t
   padding: 0;    padding: 0;
 }  }
   
 table#LC_title_bar, table.LC_breadcrumbs,   table#LC_title_bar a {
     color: $fontmenu;
   }
   
   table#LC_title_bar {
     clear: both;
     display: none;
   }
   
   table#LC_title_bar,
   table.LC_breadcrumbs,
 table#LC_title_bar.LC_with_remote {  table#LC_title_bar.LC_with_remote {
   width: 100%;    width: 100%;
   border-color: $pgbg;    border-color: $pgbg;
   border-style: solid;    border-style: solid;
   border-width: $border;    border-width: $border;
   
   background: $pgbg;    background: $pgbg;
   font-family: $sans;    color: $fontmenu;
   border-collapse: collapse;    border-collapse: collapse;
   padding: 0;    padding: 0;
     margin: 0;
 }  }
   
 table.LC_docs_path {  ul.LC_breadcrumb_tools_outerlist {
   width: 100%;      margin: 0;
   border: 0;      padding: 0;
   background: $pgbg;      position: relative;
   font-family: $sans;      list-style: none;
   border-collapse: collapse;  }
   padding: 0;  ul.LC_breadcrumb_tools_outerlist li {
       display: inline;
 }  }
   
 table#LC_title_bar td {  .LC_breadcrumb_tools_navigation {
   background: $tabbg;      padding: 0;
       margin: 0;
       float: left;
 }  }
 table#LC_title_bar td.LC_title_bar_who {  .LC_breadcrumb_tools_tools {
   background: $tabbg;      padding: 0;
   color: $font;      margin: 0;
   font: small $sans;      float: right;
   text-align: right;  
 }  }
 span.LC_metadata {  
     font-family: $sans;  div.LC_GCI_Menu {
       width:900px;
 }  }
 span.LC_title_bar_title {  
   font: bold x-large $sans;  div.LC_GCI_Menu:after {
       content:'';
       display:block;
       clear:both;
 }  }
 table#LC_title_bar td.LC_title_bar_domain_logo {  
   background: $sidebg;  div.LC_GCI_Menu_left {
   text-align: right;      float:left;
   padding: 0;      width:400px;
 }  }
 table#LC_title_bar td.LC_title_bar_role_logo {  
   background: $sidebg;  div.LC_GCI_Menu_right {
   padding: 0;      float:left;
       width:400px;;
 }  }
   
 table#LC_menubuttons_mainmenu {  dl.LC_GCI_Menu {
   width: 100%;      width:300px;
   border: 0;      float:left;
   border-spacing: 1px;      margin-right:2em;
   padding: 0 1px;  
   margin: 0;  
   border-collapse: separate;  
 }  }
 table#LC_menubuttons img, table#LC_menubuttons_mainmenu img {  
   border: none;  dl.LC_GCI_Menu dt {
       font-weight: bold;
       font-size:0.9em;
       margin-bottom:0.7em;
 }  }
 table#LC_top_nav td {  
   background: $tabbg;  dl.LC_GCI_Menu dt a {
   border: none;      color: $font;
   font-size: small;  
 }  }
 table#LC_top_nav td a, div#LC_top_nav a {  
   color: $font;  dl.LC_GCI_Menu dd {
   font-family: $sans;      font-size:0.8em;
       margin:0 0 2em 0;
       padding-left:4.5em;
       line-height:1.5em;
       background:none no-repeat left top;
 }  }
 table#LC_top_nav td.LC_top_nav_logo {  
   table#LC_title_bar td {
   background: $tabbg;    background: $tabbg;
   text-align: left;  
   white-space: nowrap;  
   width: 31px;  
 }  }
 table#LC_top_nav td.LC_top_nav_logo img {  
   table#LC_menubuttons img {
   border: none;    border: none;
   vertical-align: bottom;  
 }  }
 table#LC_top_nav td.LC_top_nav_exit,  
 table#LC_top_nav td.LC_top_nav_help {  .LC_breadcrumbs_component {
   width: 2.0em;    float: right;
     margin: 0.25em 1em;
   }
   .LC_breadcrumbs_component img {
     vertical-align: middle;
 }  }
 table#LC_top_nav td.LC_top_nav_login {  
   width: 4.0em;  td.LC_table_cell_checkbox {
   text-align: center;    text-align: center;
 }  }
 table.LC_breadcrumbs td, table.LC_docs_path td  {  
   background: $tabbg;  .LC_fontsize_small {
   color: $font;    font-size: 70%;
   font-family: $sans;  
   font-size: smaller;  
 }  }
 table.LC_breadcrumbs td.LC_breadcrumbs_component,  
 table.LC_docs_path td.LC_docs_path_component {  #LC_breadcrumbs {
   background: $tabbg;    clear:both;
   color: $font;    background: $sidebg;
   font-family: $sans;    border-bottom: 1px solid $lg_border_color;
   font-size: larger;    line-height: 2.5em;
   text-align: right;    overflow: hidden;
     margin: 0;
     padding: 0;
     text-align: left;
 }  }
 td.LC_table_cell_checkbox {  
   text-align: center;  /* Preliminary fix to hide breadcrumbs inside remote control window */
   #LC_remote #LC_breadcrumbs {
     display:none;
 }  }
 table#LC_mainmenu td.LC_mainmenu_column {  
     vertical-align: top;  #LC_head_subbox {
     clear:both;
     background: #F8F8F8; /* $sidebg; */
     border: 1px solid $sidebg;
     margin: 0 0 0 0;      
   }
   
   .LC_fontsize_medium {
     font-size: 85%;
   }
   
   .LC_fontsize_large {
     font-size: 120%;
 }  }
   
 .LC_menubuttons_inline_text {  .LC_menubuttons_inline_text {
   color: $font;    color: $font;
   font-family: $sans;    font-size: 90%;
   font-size: smaller;    padding-left:3px;
 }  }
   
 .LC_menubuttons_link {  .LC_menubuttons_link {
   text-decoration: none;    text-decoration: none;
 }  }
 /*2008--9-5: new menu style sheet.Changed category*/  
 .LC_menubuttons_category {  .LC_menubuttons_category {
   color: $font;    color: $font;
   background: $pgbg;    background: $pgbg;
   font-family: $sans;  
   font-size: larger;    font-size: larger;
   font-weight: bold;    font-weight: bold;
 }  }
   
 td.LC_menubuttons_text {  td.LC_menubuttons_text {
   width: 90%;  
   color: $font;    color: $font;
   font-family: $sans;  
 }  
   
 td.LC_menubuttons_img {  
 }  }
   
 .LC_current_location {  .LC_current_location {
   font-family: $sans;  
   background: $tabbg;    background: $tabbg;
 }  }
 .LC_new_mail {  
   font-family: $sans;  
   background: $tabbg;  
   font-weight: bold;  
 }  
   
 .LC_dropadd_labeltext {  table.LC_data_table,
   font-family: $sans;  table.LC_mail_list {
   text-align: right;  
 }  
   
 .LC_preferences_labeltext {  
   font-family: $sans;  
   text-align: right;  
 }  
   
 .LC_roleslog_note {  
   font-size: smaller;  
 }  
   
 .LC_mail_functions {  
     font-weight: bold;  
 }  
   
 table.LC_aboutme_port {  
   border: none;  
   border-collapse: collapse;  
   border-spacing: 0;  
 }  
 table.LC_data_table, table.LC_mail_list {  
   border: 1px solid #000000;    border: 1px solid #000000;
   border-collapse: separate;    border-collapse: separate;
   border-spacing: 1px;    border-spacing: 1px;
   background: $pgbg;    background: $pgbg;
 }  }
   
 .LC_data_table_dense {  .LC_data_table_dense {
   font-size: small;    font-size: small;
 }  }
   
 table.LC_nested_outer {  table.LC_nested_outer {
   border: 1px solid #000000;    border: 1px solid #000000;
   border-collapse: collapse;    border-collapse: collapse;
   border-spacing: 0;    border-spacing: 0;
   width: 100%;    width: 100%;
 }  }
   
 table.LC_innerpickbox,  table.LC_innerpickbox,
 table.LC_nested {  table.LC_nested {
   border: none;    border: none;
Line 5042  table.LC_nested { Line 5266  table.LC_nested {
   border-spacing: 0;    border-spacing: 0;
   width: 100%;    width: 100%;
 }  }
 table.LC_data_table tr th, table.LC_calendar tr th, table.LC_mail_list tr th,  
   table.LC_data_table tr th,
   table.LC_calendar tr th,
   table.LC_mail_list tr th,
 table.LC_prior_tries tr th,  table.LC_prior_tries tr th,
 table.LC_innerpickbox tr th {  table.LC_innerpickbox tr th {
   font-weight: bold;    font-weight: bold;
   background-color: $data_table_head;    background-color: $data_table_head;
   font-size: smaller;    color:$fontmenu;
     font-size:90%;
 }  }
   
 table.LC_innerpickbox tr th,  table.LC_innerpickbox tr th,
 table.LC_innerpickbox tr td {  table.LC_innerpickbox tr td {
   vertical-align: top;    vertical-align: top;
 }  }
   
 table.LC_data_table tr.LC_info_row > td {  table.LC_data_table tr.LC_info_row > td {
   background-color: #CCCCCC;    background-color: #CCCCCC;
   font-weight: bold;    font-weight: bold;
   text-align: left;    text-align: left;
 }  }
 table.LC_data_table tr.LC_odd_row > td,   
 table.LC_pick_box tr > td.LC_odd_row,  table.LC_data_table tr.LC_odd_row > td {
 table.LC_aboutme_port tr td {  
   background-color: $data_table_light;    background-color: $data_table_light;
   padding: 2px;    padding: 2px;
     vertical-align: top;
 }  }
 table.LC_data_table tr.LC_even_row > td,  
 table.LC_pick_box tr > td.LC_even_row,  table.LC_pick_box tr > td.LC_odd_row {
 table.LC_aboutme_port tr.LC_even_row td {    background-color: $data_table_light;
     vertical-align: top;
   }
   
   table.LC_data_table tr.LC_even_row > td {
   background-color: $data_table_dark;    background-color: $data_table_dark;
   padding: 2px;    padding: 2px;
     vertical-align: top;
 }  }
   
   table.LC_pick_box tr > td.LC_even_row {
     background-color: $data_table_dark;
     vertical-align: top;
   }
   
 table.LC_data_table tr.LC_data_table_highlight td {  table.LC_data_table tr.LC_data_table_highlight td {
   background-color: $data_table_darker;    background-color: $data_table_darker;
 }  }
   
 table.LC_data_table tr td.LC_leftcol_header {  table.LC_data_table tr td.LC_leftcol_header {
   background-color: $data_table_head;    background-color: $data_table_head;
   font-weight: bold;    font-weight: bold;
 }  }
   
 table.LC_data_table tr.LC_empty_row td,  table.LC_data_table tr.LC_empty_row td,
 table.LC_nested tr.LC_empty_row td {  table.LC_nested tr.LC_empty_row td {
   background-color: #FFFFFF;    background-color: #FFFFFF;
Line 5085  table.LC_nested tr.LC_empty_row td { Line 5328  table.LC_nested tr.LC_empty_row td {
   text-align: center;    text-align: center;
   padding: 8px;    padding: 8px;
 }  }
   
   table.LC_caption {
   }
   
 table.LC_nested tr.LC_empty_row td {  table.LC_nested tr.LC_empty_row td {
   padding: 4ex    padding: 4ex
 }  }
   
 table.LC_nested_outer tr th {  table.LC_nested_outer tr th {
   font-weight: bold;    font-weight: bold;
     color:$fontmenu;
   background-color: $data_table_head;    background-color: $data_table_head;
   font-size: smaller;    font-size: small;
   border-bottom: 1px solid #000000;    border-bottom: 1px solid #000000;
 }  }
   
 table.LC_nested_outer tr td.LC_subheader {  table.LC_nested_outer tr td.LC_subheader {
   background-color: $data_table_head;    background-color: $data_table_head;
   font-weight: bold;    font-weight: bold;
Line 5101  table.LC_nested_outer tr td.LC_subheader Line 5351  table.LC_nested_outer tr td.LC_subheader
   border-bottom: 1px solid #000000;    border-bottom: 1px solid #000000;
   text-align: right;    text-align: right;
 }  }
   
 table.LC_nested tr.LC_info_row td {  table.LC_nested tr.LC_info_row td {
   background-color: #CCCCCC;    background-color: #CCCCCC;
   font-weight: bold;    font-weight: bold;
   font-size: small;    font-size: small;
   text-align: center;    text-align: center;
 }  }
   
 table.LC_nested tr.LC_info_row td.LC_left_item,  table.LC_nested tr.LC_info_row td.LC_left_item,
 table.LC_nested_outer tr th.LC_left_item {  table.LC_nested_outer tr th.LC_left_item {
   text-align: left;    text-align: left;
 }  }
   
 table.LC_nested td {  table.LC_nested td {
   background-color: #FFFFFF;    background-color: #FFFFFF;
   font-size: small;    font-size: small;
 }  }
   
 table.LC_nested_outer tr th.LC_right_item,  table.LC_nested_outer tr th.LC_right_item,
 table.LC_nested tr.LC_info_row td.LC_right_item,  table.LC_nested tr.LC_info_row td.LC_right_item,
 table.LC_nested tr.LC_odd_row td.LC_right_item,  table.LC_nested tr.LC_odd_row td.LC_right_item,
Line 5130  table.LC_createuser { Line 5384  table.LC_createuser {
 }  }
   
 table.LC_createuser tr.LC_section_row td {  table.LC_createuser tr.LC_section_row td {
   font-size: smaller;    font-size: small;
 }  }
   
 table.LC_createuser tr.LC_info_row td  {  table.LC_createuser tr.LC_info_row td  {
Line 5142  table.LC_createuser tr.LC_info_row td  { Line 5396  table.LC_createuser tr.LC_info_row td  {
 table.LC_calendar {  table.LC_calendar {
   border: 1px solid #000000;    border: 1px solid #000000;
   border-collapse: collapse;    border-collapse: collapse;
     width: 98%;
 }  }
   
 table.LC_calendar_pickdate {  table.LC_calendar_pickdate {
   font-size: xx-small;    font-size: xx-small;
 }  }
   
 table.LC_calendar tr td {  table.LC_calendar tr td {
   border: 1px solid #000000;    border: 1px solid #000000;
   vertical-align: top;    vertical-align: top;
     width: 14%;
 }  }
   
 table.LC_calendar tr td.LC_calendar_day_empty {  table.LC_calendar tr td.LC_calendar_day_empty {
   background-color: $data_table_dark;    background-color: $data_table_dark;
 }  }
   
 table.LC_calendar tr td.LC_calendar_day_current {  table.LC_calendar tr td.LC_calendar_day_current {
   background-color: $data_table_highlight;    background-color: $data_table_highlight;
 }  }
Line 5160  table.LC_calendar tr td.LC_calendar_day_ Line 5420  table.LC_calendar tr td.LC_calendar_day_
 table.LC_mail_list tr.LC_mail_new {  table.LC_mail_list tr.LC_mail_new {
   background-color: $mail_new;    background-color: $mail_new;
 }  }
   
 table.LC_mail_list tr.LC_mail_new:hover {  table.LC_mail_list tr.LC_mail_new:hover {
   background-color: $mail_new_hover;    background-color: $mail_new_hover;
 }  }
   
 table.LC_mail_list tr.LC_mail_read {  table.LC_mail_list tr.LC_mail_read {
   background-color: $mail_read;    background-color: $mail_read;
 }  }
   
 table.LC_mail_list tr.LC_mail_read:hover {  table.LC_mail_list tr.LC_mail_read:hover {
   background-color: $mail_read_hover;    background-color: $mail_read_hover;
 }  }
   
 table.LC_mail_list tr.LC_mail_replied {  table.LC_mail_list tr.LC_mail_replied {
   background-color: $mail_replied;    background-color: $mail_replied;
 }  }
   
 table.LC_mail_list tr.LC_mail_replied:hover {  table.LC_mail_list tr.LC_mail_replied:hover {
   background-color: $mail_replied_hover;    background-color: $mail_replied_hover;
 }  }
   
 table.LC_mail_list tr.LC_mail_other {  table.LC_mail_list tr.LC_mail_other {
   background-color: $mail_other;    background-color: $mail_other;
 }  }
   
 table.LC_mail_list tr.LC_mail_other:hover {  table.LC_mail_list tr.LC_mail_other:hover {
   background-color: $mail_other_hover;    background-color: $mail_other_hover;
 }  }
 table.LC_mail_list tr.LC_mail_even {  
 }  
 table.LC_mail_list tr.LC_mail_odd {  
 }  
   
   table.LC_data_table tr > td.LC_browser_file,
 table#LC_portfolio_actions {  table.LC_data_table tr > td.LC_browser_file_published {
   width: auto;    background: #AAEE77;
   background: $pgbg;  
   border: none;  
   border-spacing: 2px 2px;  
   padding: 0;  
   margin: 0;  
   border-collapse: separate;  
 }  
 table#LC_portfolio_actions td.LC_label {  
   background: $tabbg;  
   text-align: right;  
 }  
 table#LC_portfolio_actions td.LC_value {  
   background: $tabbg;  
 }  }
   
 table#LC_cstr_controls {  table.LC_data_table tr > td.LC_browser_file_locked,
   width: 100%;  table.LC_data_table tr > td.LC_browser_file_unpublished {
   border-collapse: collapse;  
 }  
 table#LC_cstr_controls tr td {  
   border: 4px solid $pgbg;  
   padding: 4px;  
   text-align: center;  
   background: $tabbg;  
 }  
 table#LC_cstr_controls tr th {  
   border: 4px solid $pgbg;  
   background: $table_header;  
   text-align: center;  
   font-family: $sans;  
   font-size: smaller;  
 }  
   
 table#LC_browser {  
    
 }  
 table#LC_browser tr th {  
   background: $table_header;  
 }  
 table#LC_browser tr td {  
   padding: 2px;  
 }  
 table#LC_browser tr.LC_browser_file,  
 table#LC_browser tr.LC_browser_file_published {  
   background: #CCFF88;  
 }  
 table#LC_browser tr.LC_browser_file_locked,  
 table#LC_browser tr.LC_browser_file_unpublished {  
   background: #FFAA99;    background: #FFAA99;
 }  }
 table#LC_browser tr.LC_browser_file_obsolete {  
   background: #AAAAAA;  table.LC_data_table tr > td.LC_browser_file_obsolete {
     background: #888888;
 }  }
 table#LC_browser tr.LC_browser_file_modified,  
 table#LC_browser tr.LC_browser_file_metamodified {  table.LC_data_table tr > td.LC_browser_file_modified,
   background: #FFFF77;  table.LC_data_table tr > td.LC_browser_file_metamodified {
     background: #F8F866;
 }  }
 table#LC_browser tr.LC_browser_folder {  
   background: #CCCCFF;  table.LC_data_table tr.LC_browser_folder > td {
     background: #E0E8FF;
 }  }
   
 table.LC_data_table tr > td.LC_roles_is {  table.LC_data_table tr > td.LC_roles_is {
 /*  background: #77FF77; */    /* background: #77FF77; */
 }  }
   
 table.LC_data_table tr > td.LC_roles_future {  table.LC_data_table tr > td.LC_roles_future {
   background: #FFFF77;    background: #FFFF77;
 }  }
   
 table.LC_data_table tr > td.LC_roles_will {  table.LC_data_table tr > td.LC_roles_will {
   background: #FFAA77;    background: #FFAA77;
 }  }
   
 table.LC_data_table tr > td.LC_roles_expired {  table.LC_data_table tr > td.LC_roles_expired {
   background: #FF7777;    background: #FF7777;
 }  }
   
 table.LC_data_table tr > td.LC_roles_will_not {  table.LC_data_table tr > td.LC_roles_will_not {
   background: #AAFF77;    background: #AAFF77;
 }  }
   
 table.LC_data_table tr > td.LC_roles_selected {  table.LC_data_table tr > td.LC_roles_selected {
   background: #11CC55;    background: #11CC55;
 }  }
   
 span.LC_current_location {  span.LC_current_location {
   font-size: x-large;    font-size:larger;
   background: $pgbg;    background: $pgbg;
 }  }
   
 span.LC_parm_menu_item {  span.LC_parm_menu_item {
   font-size: larger;    font-size: larger;
   font-family: $sans;  
 }  }
   
 span.LC_parm_scope_all {  span.LC_parm_scope_all {
   color: red;    color: red;
 }  }
   
 span.LC_parm_scope_folder {  span.LC_parm_scope_folder {
   color: green;    color: green;
 }  }
   
 span.LC_parm_scope_resource {  span.LC_parm_scope_resource {
   color: orange;    color: orange;
 }  }
   
 span.LC_parm_part {  span.LC_parm_part {
   color: blue;    color: blue;
 }  }
 span.LC_parm_folder, span.LC_parm_symb {  
   span.LC_parm_folder,
   span.LC_parm_symb {
   font-size: x-small;    font-size: x-small;
   font-family: $mono;    font-family: $mono;
   color: #AAAAAA;    color: #AAAAAA;
 }  }
   
 td.LC_parm_overview_level_menu, td.LC_parm_overview_map_menu,  td.LC_parm_overview_level_menu,
 td.LC_parm_overview_parm_selectors, td.LC_parm_overview_parm_restrictions {  td.LC_parm_overview_map_menu,
   td.LC_parm_overview_parm_selectors,
   td.LC_parm_overview_restrictions  {
   border: 1px solid black;    border: 1px solid black;
   border-collapse: collapse;    border-collapse: collapse;
 }  }
   
 table.LC_parm_overview_restrictions td {  table.LC_parm_overview_restrictions td {
   border-width: 1px 4px 1px 4px;    border-width: 1px 4px 1px 4px;
   border-style: solid;    border-style: solid;
   border-color: $pgbg;    border-color: $pgbg;
   text-align: center;    text-align: center;
 }  }
   
 table.LC_parm_overview_restrictions th {  table.LC_parm_overview_restrictions th {
   background: $tabbg;    background: $tabbg;
   border-width: 1px 4px 1px 4px;    border-width: 1px 4px 1px 4px;
   border-style: solid;    border-style: solid;
   border-color: $pgbg;    border-color: $pgbg;
 }  }
   
 table#LC_helpmenu {  table#LC_helpmenu {
   border: none;    border: none;
   height: 55px;    height: 55px;
Line 5321  table#LC_helpmenu { Line 5558  table#LC_helpmenu {
   
 table#LC_helpmenu fieldset legend {  table#LC_helpmenu fieldset legend {
   font-size: larger;    font-size: larger;
   font-weight: bold;  
 }  }
   
 table#LC_helpmenu_links {  table#LC_helpmenu_links {
   width: 100%;    width: 100%;
   border: 1px solid black;    border: 1px solid black;
Line 5330  table#LC_helpmenu_links { Line 5567  table#LC_helpmenu_links {
   padding: 0;    padding: 0;
   border-spacing: 1px;    border-spacing: 1px;
 }  }
   
 table#LC_helpmenu_links tr td {  table#LC_helpmenu_links tr td {
   padding: 1px;    padding: 1px;
   background: $tabbg;    background: $tabbg;
Line 5337  table#LC_helpmenu_links tr td { Line 5575  table#LC_helpmenu_links tr td {
   font-weight: bold;    font-weight: bold;
 }  }
   
 table#LC_helpmenu_links a:link, table#LC_helpmenu_links a:visited,  table#LC_helpmenu_links a:link,
   table#LC_helpmenu_links a:visited,
 table#LC_helpmenu_links a:active {  table#LC_helpmenu_links a:active {
   text-decoration: none;    text-decoration: none;
   color: $font;    color: $font;
 }  }
   
 table#LC_helpmenu_links a:hover {  table#LC_helpmenu_links a:hover {
   text-decoration: underline;    text-decoration: underline;
   color: $vlink;    color: $vlink;
Line 5351  table#LC_helpmenu_links a:hover { Line 5591  table#LC_helpmenu_links a:hover {
   border: 1px solid #339933;    border: 1px solid #339933;
   margin: -1px;    margin: -1px;
 }  }
   
 .LC_chrt_popup_up {  .LC_chrt_popup_up {
   border: 1px solid yellow;    border: 1px solid yellow;
   margin: -1px;    margin: -1px;
 }  }
   
 .LC_chrt_popup {  .LC_chrt_popup {
   border: 1px solid #8888FF;    border: 1px solid #8888FF;
   background: #CCCCFF;    background: #CCCCFF;
 }  }
   
 table.LC_pick_box {  table.LC_pick_box {
   border-collapse: separate;    border-collapse: separate;
   background: white;    background: white;
   border: 1px solid black;    border: 1px solid black;
   border-spacing: 1px;    border-spacing: 1px;
 }  }
   
 table.LC_pick_box td.LC_pick_box_title {  table.LC_pick_box td.LC_pick_box_title {
   background: $tabbg;    background: $sidebg;
   font-weight: bold;    font-weight: bold;
   text-align: right;    text-align: left;
   vertical-align: top;    vertical-align: top;
   width: 184px;    width: 184px;
   padding: 8px;    padding: 8px;
 }  }
 table.LC_pick_box td.LC_selfenroll_pick_box_title {  
   background: $tabbg;  
   font-weight: bold;  
   text-align: right;  
   width: 350px;  
   padding: 8px;  
 }  
   
 table.LC_pick_box td.LC_pick_box_value {  table.LC_pick_box td.LC_pick_box_value {
   text-align: left;    text-align: left;
   padding: 8px;    padding: 8px;
 }  }
   
 table.LC_pick_box td.LC_pick_box_select {  table.LC_pick_box td.LC_pick_box_select {
   text-align: left;    text-align: left;
   padding: 8px;    padding: 8px;
 }  }
   
 table.LC_pick_box td.LC_pick_box_separator {  table.LC_pick_box td.LC_pick_box_separator {
   padding: 0;    padding: 0;
   height: 1px;    height: 1px;
   background: black;    background: black;
 }  }
   
 table.LC_pick_box td.LC_pick_box_submit {  table.LC_pick_box td.LC_pick_box_submit {
   text-align: right;    text-align: right;
 }  }
   
 table.LC_pick_box td.LC_evenrow_value {  table.LC_pick_box td.LC_evenrow_value {
   text-align: left;    text-align: left;
   padding: 8px;    padding: 8px;
   background-color: $data_table_light;    background-color: $data_table_light;
 }  }
   
 table.LC_pick_box td.LC_oddrow_value {  table.LC_pick_box td.LC_oddrow_value {
   text-align: left;    text-align: left;
   padding: 8px;    padding: 8px;
   background-color: $data_table_light;    background-color: $data_table_light;
 }  }
 table.LC_helpform_receipt {  
   width: 620px;  
   border-collapse: separate;  
   background: white;  
   border: 1px solid black;  
   border-spacing: 1px;  
 }  
 table.LC_helpform_receipt td.LC_pick_box_title {  
   background: $tabbg;  
   font-weight: bold;  
   text-align: right;  
   width: 184px;  
   padding: 8px;  
 }  
 table.LC_helpform_receipt td.LC_evenrow_value {  
   text-align: left;  
   padding: 8px;  
   background-color: $data_table_light;  
 }  
 table.LC_helpform_receipt td.LC_oddrow_value {  
   text-align: left;  
   padding: 8px;  
   background-color: $data_table_light;  
 }  
 table.LC_helpform_receipt td.LC_pick_box_separator {  
   padding: 0;  
   height: 1px;  
   background: black;  
 }  
 span.LC_helpform_receipt_cat {  span.LC_helpform_receipt_cat {
   font-weight: bold;    font-weight: bold;
 }  }
   
 table.LC_group_priv_box {  table.LC_group_priv_box {
   background: white;    background: white;
   border: 1px solid black;    border: 1px solid black;
   border-spacing: 1px;    border-spacing: 1px;
 }  }
   
 table.LC_group_priv_box td.LC_pick_box_title {  table.LC_group_priv_box td.LC_pick_box_title {
   background: $tabbg;    background: $tabbg;
   font-weight: bold;    font-weight: bold;
   text-align: right;    text-align: right;
   width: 184px;    width: 184px;
 }  }
   
 table.LC_group_priv_box td.LC_groups_fixed {  table.LC_group_priv_box td.LC_groups_fixed {
   background: $data_table_light;    background: $data_table_light;
   text-align: center;    text-align: center;
 }  }
   
 table.LC_group_priv_box td.LC_groups_optional {  table.LC_group_priv_box td.LC_groups_optional {
   background: $data_table_dark;    background: $data_table_dark;
   text-align: center;    text-align: center;
 }  }
   
 table.LC_group_priv_box td.LC_groups_functionality {  table.LC_group_priv_box td.LC_groups_functionality {
   background: $data_table_darker;    background: $data_table_darker;
   text-align: center;    text-align: center;
   font-weight: bold;    font-weight: bold;
 }  }
   
 table.LC_group_priv td {  table.LC_group_priv td {
   text-align: left;    text-align: left;
   padding: 0;    padding: 0;
Line 5473  table.LC_notify_front_page { Line 5693  table.LC_notify_front_page {
   border: 1px solid black;    border: 1px solid black;
   padding: 8px;    padding: 8px;
 }  }
   
 table.LC_notify_front_page td {  table.LC_notify_front_page td {
   padding: 8px;    padding: 8px;
 }  }
   
 .LC_navbuttons {  .LC_navbuttons {
   margin: 2ex 0ex 2ex 0ex;    margin: 2ex 0ex 2ex 0ex;
 }  }
   
 .LC_topic_bar {  .LC_topic_bar {
   font-family: $sans;  
   font-weight: bold;    font-weight: bold;
   width: 100%;  
   background: $tabbg;    background: $tabbg;
   vertical-align: middle;    margin: 1em 0em 1em 2em;
   margin: 2ex 0ex 2ex 0ex;  
   padding: 3px;    padding: 3px;
     font-size: 1.2em;
 }  }
   
 .LC_topic_bar span {  .LC_topic_bar span {
     left: 0.5em;
     position: absolute;
   vertical-align: middle;    vertical-align: middle;
     font-size: 1.2em;
 }  }
   
 .LC_topic_bar img {  .LC_topic_bar img {
   vertical-align: bottom;    vertical-align: bottom;
 }  }
   
 table.LC_course_group_status {  table.LC_course_group_status {
   margin: 20px;    margin: 20px;
 }  }
   
 table.LC_status_selector td {  table.LC_status_selector td {
   vertical-align: top;    vertical-align: top;
   text-align: center;    text-align: center;
   padding: 4px;    padding: 4px;
 }  }
 table.LC_descriptive_input td.LC_description {  
   vertical-align: top;  
   text-align: right;  
   font-weight: bold;  
 }  
 div.LC_feedback_link {  div.LC_feedback_link {
   clear: both;    clear: both;
   background: white;    background: $sidebg;
   width: 100%;      width: 100%;
     padding-bottom: 10px;
     border: 1px $tabbg solid;
     height: 22px;
     line-height: 22px;
     padding-top: 5px;
   }
   
   div.LC_feedback_link img {
     height: 22px;
     vertical-align:middle;
   }
   
   div.LC_feedback_link a {
     text-decoration: none;
   }
   
   div.LC_comblock {
     display:inline;
     color:$font;
     font-size:90%;
 }  }
   
   div.LC_feedback_link div.LC_comblock {
     padding-left:5px;
   }
   
   div.LC_feedback_link div.LC_comblock a {
     color:$font;
   }
   
 span.LC_feedback_link {  span.LC_feedback_link {
   background: $feedback_link_bg;    /* background: $feedback_link_bg; */
   font-size: larger;    font-size: larger;
 }  }
   
 span.LC_message_link {  span.LC_message_link {
   background: $feedback_link_bg;    /* background: $feedback_link_bg; */
   font-size: larger;    font-size: larger;
   position: absolute;    position: absolute;
   right: 1em;    right: 1em;
Line 5534  table.LC_prior_tries td { Line 5788  table.LC_prior_tries td {
 }  }
   
 .LC_answer_correct {  .LC_answer_correct {
   background: #AAFFAA;    background: lightgreen;
   color: black;    color: darkgreen;
     padding: 6px;
 }  }
   
 .LC_answer_charged_try {  .LC_answer_charged_try {
   background: #FFAAAA ! important;    background: #FFAAAA;
   color: black;    color: darkred;
     padding: 6px;
 }  }
 .LC_answer_not_charged_try,   
   .LC_answer_not_charged_try,
 .LC_answer_no_grade,  .LC_answer_no_grade,
 .LC_answer_late {  .LC_answer_late {
   background: #FFFFAA;    background: lightyellow;
   color: black;    color: black;
     padding: 6px;
 }  }
   
 .LC_answer_previous {  .LC_answer_previous {
   background: #AAAAFF;    background: lightblue;
   color: black;    color: darkblue;
     padding: 6px;
 }  }
   
 .LC_answer_no_message {  .LC_answer_no_message {
   background: #FFFFFF;    background: #FFFFFF;
   color: black;    color: black;
     padding: 6px;
 }  }
   
 .LC_answer_unknown {  .LC_answer_unknown {
   background: orange;    background: orange;
   color: black;    color: black;
     padding: 6px;
 }  }
   
   
 span.LC_prior_numerical,  span.LC_prior_numerical,
 span.LC_prior_string,  span.LC_prior_string,
 span.LC_prior_custom,  span.LC_prior_custom,
 span.LC_prior_reaction,  span.LC_prior_reaction,
 span.LC_prior_math {  span.LC_prior_math {
   font-family: monospace;    font-family: $mono;
   white-space: pre;    white-space: pre;
 }  }
   
 span.LC_prior_string {  span.LC_prior_string {
   font-family: monospace;    font-family: $mono;
   white-space: pre;    white-space: pre;
 }  }
   
Line 5579  table.LC_prior_option { Line 5843  table.LC_prior_option {
   width: 100%;    width: 100%;
   border-collapse: collapse;    border-collapse: collapse;
 }  }
 table.LC_prior_rank, table.LC_prior_match {  
   table.LC_prior_rank,
   table.LC_prior_match {
   border-collapse: collapse;    border-collapse: collapse;
 }  }
   
 table.LC_prior_option tr td,  table.LC_prior_option tr td,
 table.LC_prior_rank tr td,  table.LC_prior_rank tr td,
 table.LC_prior_match tr td {  table.LC_prior_match tr td {
   border: 1px solid #000000;    border: 1px solid #000000;
 }  }
   
 span.LC_nobreak {  .LC_nobreak {
   white-space: nowrap;    white-space: nowrap;
 }  }
   
Line 5601  span.LC_cusr_subheading { Line 5868  span.LC_cusr_subheading {
   font-size: 85%;    font-size: 85%;
 }  }
   
 table.LC_docs_documents {  div.LC_docs_entry_move {
   background: #BBBBBB;    border: 1px solid #BBBBBB;
   border-width: 0;  
   border-collapse: collapse;  
 }  
   
 table.LC_docs_documents td.LC_docs_document {  
   border: 2px solid black;  
   padding: 4px;  
 }  
   
 .LC_docs_course_commands div {  
   float: left;  
   border: 4px solid #AAAAAA;  
   padding: 4px;  
   background: #DDDDCC;  
 }  
   
 .LC_docs_entry_move {  
   border: none;  
   border-collapse: collapse;  
 }  
   
 .LC_docs_entry_move td {  
   border: 2px solid #BBBBBB;  
   background: #DDDDDD;    background: #DDDDDD;
     width: 22px;
     padding: 1px;
     margin: 0;
 }  }
   
 .LC_docs_editor td.LC_docs_entry_commands {  table.LC_data_table tr > td.LC_docs_entry_commands,
   table.LC_data_table tr > td.LC_docs_entry_parameter {
   background: #DDDDDD;    background: #DDDDDD;
   font-size: x-small;    font-size: x-small;
 }  }
   
   .LC_docs_entry_parameter {
     white-space: nowrap;
   }
   
 .LC_docs_copy {  .LC_docs_copy {
   color: #000099;    color: #000099;
 }  }
   
 .LC_docs_cut {  .LC_docs_cut {
   color: #550044;    color: #550044;
 }  }
   
 .LC_docs_rename {  .LC_docs_rename {
   color: #009900;    color: #009900;
 }  }
   
 .LC_docs_remove {  .LC_docs_remove {
   color: #990000;    color: #990000;
 }  }
Line 5651  table.LC_docs_documents td.LC_docs_docum Line 5907  table.LC_docs_documents td.LC_docs_docum
   font-size: x-small;    font-size: x-small;
 }  }
   
 .LC_docs_editor td.LC_docs_entry_title,  
 .LC_docs_editor td.LC_docs_entry_icon {  
   background: #FFFFBB;  
 }  
 .LC_docs_editor td.LC_docs_entry_parameter {  
   background: #BBBBFF;  
   font-size: x-small;  
   white-space: nowrap;  
 }  
   
 table.LC_docs_adddocs td,  table.LC_docs_adddocs td,
 table.LC_docs_adddocs th {  table.LC_docs_adddocs th {
   border: 1px solid #BBBBBB;    border: 1px solid #BBBBBB;
Line 5671  table.LC_docs_adddocs th { Line 5917  table.LC_docs_adddocs th {
 table.LC_sty_begin {  table.LC_sty_begin {
   background: #BBFFBB;    background: #BBFFBB;
 }  }
   
 table.LC_sty_end {  table.LC_sty_end {
   background: #FFBBBB;    background: #FFBBBB;
 }  }
Line 5691  table.LC_double_column tr td.LC_left_col Line 5938  table.LC_double_column tr td.LC_left_col
   
 table.LC_double_column tr td.LC_right_col {  table.LC_double_column tr td.LC_right_col {
   top: 2px;    top: 2px;
   right: 2px;     right: 2px;
   width: 47%;    width: 47%;
   vertical-align: top;    vertical-align: top;
 }  }
   
 span.LC_role_level {  
   font-weight: bold;  
 }  
   
 div.LC_left_float {  div.LC_left_float {
   float: left;    float: left;
   padding-right: 5%;    padding-right: 5%;
Line 5715  div.LC_clear_float_footer { Line 5958  div.LC_clear_float_footer {
   clear: both;    clear: both;
 }  }
   
   
 div.LC_grade_select_mode {  
   font-family: $sans;  
 }  
 div.LC_grade_select_mode div div {  
   margin: 5px;  
 }  
 div.LC_grade_select_mode_selector {  
   margin: 5px;  
   float: left;  
 }  
 div.LC_grade_select_mode_selector_header {  
   font: bold medium $sans;  
 }  
 div.LC_grade_select_mode_type {  
   clear: left;  
 }  
   
 div.LC_grade_show_user {  div.LC_grade_show_user {
   margin-top: 20px;    margin-top: 20px;
   border: 1px solid black;    border: 1px solid black;
 }  }
   
 div.LC_grade_user_name {  div.LC_grade_user_name {
   background: #DDDDEE;    background: #DDDDEE;
   border-bottom: 1px solid black;    border-bottom: 1px solid black;
   font: bold large $sans;    font-weight: bold;
     font-size: large;
 }  }
   
 div.LC_grade_show_user_odd_row div.LC_grade_user_name {  div.LC_grade_show_user_odd_row div.LC_grade_user_name {
   background: #DDEEDD;    background: #DDEEDD;
 }  }
Line 5755  div.LC_grade_assign { Line 5983  div.LC_grade_assign {
   width: 99%;    width: 99%;
   background: #FFFFFF;    background: #FFFFFF;
 }  }
   
 div.LC_grade_show_problem_header,  div.LC_grade_show_problem_header,
 div.LC_grade_submissions_header,  div.LC_grade_submissions_header,
 div.LC_grade_message_center_header,  div.LC_grade_message_center_header,
 div.LC_grade_assign_header {  div.LC_grade_assign_header {
   font: bold large $sans;    font-weight: bold;
     font-size: large;
 }  }
   
 div.LC_grade_show_problem_problem,  div.LC_grade_show_problem_problem,
 div.LC_grade_submissions_body,  div.LC_grade_submissions_body,
 div.LC_grade_message_center_body,  div.LC_grade_message_center_body,
Line 5769  div.LC_grade_assign_body { Line 6000  div.LC_grade_assign_body {
   width: 99%;    width: 99%;
   background: #FFFFFF;    background: #FFFFFF;
 }  }
   
 span.LC_grade_check_note {  span.LC_grade_check_note {
   font: normal medium $sans;    font-weight: normal;
     font-size: medium;
   display: inline;    display: inline;
   position: absolute;    position: absolute;
   right: 1em;    right: 1em;
Line 5779  span.LC_grade_check_note { Line 6012  span.LC_grade_check_note {
 table.LC_scantron_action {  table.LC_scantron_action {
   width: 100%;    width: 100%;
 }  }
   
 table.LC_scantron_action tr th {  table.LC_scantron_action tr th {
   font: normal bold $sans;    font-weight:bold;
     font-style:normal;
 }  }
   
 div.LC_edit_problem_header,   .LC_edit_problem_header,
 div.LC_edit_problem_footer {  div.LC_edit_problem_footer {
   font: normal medium $sans;    font-weight: normal;
     font-size:  medium;
   margin: 2px;    margin: 2px;
 }  }
   
 div.LC_edit_problem_header,  div.LC_edit_problem_header,
 div.LC_edit_problem_header div,  div.LC_edit_problem_header div,
 div.LC_edit_problem_footer,  div.LC_edit_problem_footer,
Line 5796  div.LC_edit_problem_editxml_header, Line 6033  div.LC_edit_problem_editxml_header,
 div.LC_edit_problem_editxml_header div {  div.LC_edit_problem_editxml_header div {
   margin-top: 5px;    margin-top: 5px;
 }  }
 div.LC_edit_problem_header_edit_row {  
   background: $tabbg;  
   padding: 3px;  
   margin-bottom: 5px;  
 }  
 div.LC_edit_problem_header_title {  div.LC_edit_problem_header_title {
   font: larger bold $sans;    font-weight: bold;
     font-size: larger;
   background: $tabbg;    background: $tabbg;
   padding: 3px;    padding: 3px;
 }  }
   
 table.LC_edit_problem_header_title {  table.LC_edit_problem_header_title {
   font: larger bold $sans;    font-size: larger;
     font-weight:  bold;
   width: 100%;    width: 100%;
   border-color: $pgbg;    border-color: $pgbg;
   border-style: solid;    border-style: solid;
   border-width: $border;    border-width: $border;
   
   background: $tabbg;    background: $tabbg;
   border-collapse: collapse;    border-collapse: collapse;
   padding: 0;    padding: 0;
Line 5822  div.LC_edit_problem_discards { Line 6057  div.LC_edit_problem_discards {
   float: left;    float: left;
   padding-bottom: 5px;    padding-bottom: 5px;
 }  }
   
 div.LC_edit_problem_saves {  div.LC_edit_problem_saves {
   float: right;    float: right;
   padding-bottom: 5px;    padding-bottom: 5px;
 }  }
 hr.LC_edit_problem_divide {  
   clear: both;  img.stift {
   color: $tabbg;    border-width: 0;
   background-color: $tabbg;    vertical-align: middle;
   height: 3px;  }
   
   table td.LC_mainmenu_col_fieldset {
     vertical-align: top;
   }
   
   div.LC_createcourse {
     margin: 10px 10px 10px 10px;
   }
   
   .LC_dccid {
     margin: 0.2em 0 0 0;
     padding: 0;
     font-size: 90%;
     display:none;
   }
   
   /* ---- Remove when done ----
   # The following styles is part of the redesign of LON-CAPA and are
   # subject to change during this project.
   # Don't rely on their current functionality as they might be 
   # changed or removed.
   # --------------------------*/
   
   a:hover,
   ol.LC_primary_menu a:hover,
   ol#LC_MenuBreadcrumbs a:hover,
   ol#LC_PathBreadcrumbs a:hover,
   ul#LC_secondary_menu a:hover,
   .LC_FormSectionClearButton input:hover
   ul.LC_TabContent   li:hover a {
     color:#BF2317;
     text-decoration:none;
   }
   
   h1 {
     padding: 0;
     line-height:130%;
   }
   
   h2,
   h3,
   h4,
   h5,
   h6 {
     margin: 5px 0 5px 0;
     padding: 0;
     line-height:130%;
   }
   
   .LC_hcell {
     padding:3px 15px 3px 15px;
     margin: 0;
     background-color:$tabbg;
     color:$fontmenu;
     border-bottom:solid 1px $lg_border_color;
   }
   
   .LC_Box > .LC_hcell {
     margin: 0 -10px 10px -10px;
   }
   
   .LC_noBorder {
     border: 0;
   }
   
   .LC_FormSectionClearButton input {
     background-color:transparent;
   border: none;    border: none;
     cursor:pointer;
     text-decoration:underline;
 }  }
 img.stift{  
   border-width:0;  .LC_help_open_topic {
   vertical-align:middle;    color: #FFFFFF;
     background-color: #EEEEFF;
     margin: 1px;
     padding: 4px;
     border: 1px solid #000033;
     white-space: nowrap;
     /* vertical-align: middle; */
   }
   
   dl,
   ul,
   div,
   fieldset {
     margin: 10px 10px 10px 0;
     /* overflow: hidden; */
   }
   
   fieldset > legend {
     font-weight: bold;
     padding: 0 5px 0 5px;
   }
   
   div.LC_page_header {
     background-color: $pgbg_or_bgcolor;
     margin: 0 0 1.0em 0;
   }
   
   #LC_nav_bar {
     float: left;
     margin: 0.2em 0 0 0;
   }
   
   #LC_realm {
     margin: 0.2em 0 0 0;
     padding: 0;
     font-weight: bold;
     text-align: center;
 }  }
   
 table#LC_mainmenu{  #LC_nav_bar em {
  margin-top:10px;    font-weight: bold;
  width:80%;    font-style: normal;
   }
   
   ol.LC_primary_menu {
     float: right;
     margin: 0.2em 0 0 0;
 }  }
   
 table#LC_mainmenu td.LC_mainmenu_col_fieldset{  ol#LC_PathBreadcrumbs {
     margin: 0;
   }
   
   ol.LC_primary_menu li {
     display: inline;
     padding: 5px 5px 0 10px;
   vertical-align: top;    vertical-align: top;
   width: 45%;  
 }  }
 .LC_mainmenu_fieldset_category {  
   color: $font;  ol.LC_primary_menu li img {
   background: $pgbg;    vertical-align: bottom;
   font-family: $sans;  }
   font-size: small;  
   ol.LC_primary_menu a {
     font-size: 90%;
     color: RGB(80, 80, 80);
     text-decoration: none;
   }
   
   ol.LC_primary_menu a.LC_new_message {
     font-weight:bold;
     color: darkred;
   }
   
   ul#LC_secondary_menu {
     clear: both;
     color: $fontmenu;
     background: $tabbg;
     list-style: none;
     padding: 0;
     margin: 0;
     width: 100%;
   }
   
   ul#LC_secondary_menu li {
   font-weight: bold;    font-weight: bold;
     line-height: 1.8em;
     padding: 0 0.8em;
     border-right: 1px solid black;
     display: inline;
     vertical-align: middle;
 }  }
 fieldset#LC_mainmenu_fieldset {  
   margin:0 10px 10px 0;  
   
   ul.LC_TabContent {
     display:block;
     background: $sidebg;
     border-bottom: solid 1px $lg_border_color;
     list-style:none;
     margin: 0 -10px;
     padding: 0;
 }  }
   
 div.LC_createcourse {  ul.LC_TabContent li,
     margin: 10px 10px 10px 10px;  ul.LC_TabContentBigger li {
     float:left;
   }
   
   ul#LC_secondary_menu li a {
     color: $fontmenu;
     text-decoration: none;
   }
   
   ul.LC_TabContent {
     min-height:1.5em;
   }
   
   ul.LC_TabContent li {
     vertical-align:middle;
     padding: 0 10px 0 10px;
     background-color:$tabbg;
     border-bottom:solid 1px $lg_border_color;
   }
   
   ul.LC_TabContent .right {
     float:right;
   }
   
   ul.LC_TabContent li a,
   ul.LC_TabContent li {
     color:rgb(47,47,47);
     text-decoration:none;
     font-size:95%;
     font-weight:bold;
     padding-right: 16px;
   }
   
   ul.LC_TabContent li:hover,
   ul.LC_TabContent li.active {
     background:#FFFFFF url(/adm/lonIcons/open.gif) no-repeat scroll right center;
     border-bottom:solid 2px #FFFFFF;
     padding-right: 16px;
   }
   
   #maincoursedoc {
     clear:both;
   }
   
   ul.LC_TabContentBigger {
     display:block;
     list-style:none;
     padding: 0;
   }
   
   ul.LC_TabContentBigger li {
     vertical-align:bottom;
     height: 30px;
     font-size:110%;
     font-weight:bold;
     color: #737373;
   }
   
   
   ul.LC_TabContentBigger li a {
     background:url('/adm/lonIcons/tabbgleft.gif') left bottom no-repeat;
     height: 30px;
     line-height: 30px;
     text-align: center;
     display: block;
     text-decoration: none;
   }
   
   ul.LC_TabContentBigger li:hover a,
   ul.LC_TabContentBigger li.active a {
     background:url('/adm/lonIcons/tabbgleft.gif') left top no-repeat;
     color:$font;
     text-decoration: underline;
   }
   
   
   ul.LC_TabContentBigger li b {
     background: url('/adm/lonIcons/tabbgright.gif') no-repeat right bottom;
     display: block;
     float: left;
     padding: 0 30px;
   }
   
   ul.LC_TabContentBigger li:hover b,
   ul.LC_TabContentBigger li.active b {
     background:url('/adm/lonIcons/tabbgright.gif') right top no-repeat;
     color:$font;
     border-bottom: 1px solid #FFFFFF;
   }
   
   
   ul.LC_CourseBreadcrumbs {
     background: $sidebg;
     line-height: 32px;
     padding-left: 10px;
     margin: 0 0 10px 0;
     list-style-position: inside;
   
   }
   
   ol#LC_MenuBreadcrumbs,
   ol#LC_PathBreadcrumbs {
     padding-left: 10px;
     margin: 0;
     margin: 0;
     height: 2.5em;  /* equal to #LC_breadcrumbs line-height */
   }
   
   ol#LC_MenuBreadcrumbs li,
   ol#LC_PathBreadcrumbs li,
   ul.LC_CourseBreadcrumbs li {
     display: inline;
     white-space: normal;
   }
   
   ol#LC_MenuBreadcrumbs li a,
   ul.LC_CourseBreadcrumbs li a {
     text-decoration: none;
     font-size:90%;
   }
   
   ol#LC_MenuBreadcrumbs h1 {
     display: inline;
     font-size: 90%;
     line-height: 2.5em;
     margin: 0;
     padding: 0;
   }
   
   ol#LC_PathBreadcrumbs li a {
     text-decoration:none;
     font-size:100%;
     font-weight:bold;
   }
   
   .LC_Box {
     border: solid 1px $lg_border_color;
     padding: 0 10px 10px 10px;
   }
   
   .LC_AboutMe_Image {
     float:left;
     margin-right:10px;
   }
   
   .LC_Clear_AboutMe_Image {
     clear:left;
   }
   
   dl.LC_ListStyleClean dt {
     padding-right: 5px;
     display: table-header-group;
   }
   
   dl.LC_ListStyleClean dd {
     display: table-row;
   }
   
   .LC_ListStyleClean,
   .LC_ListStyleSimple,
   .LC_ListStyleNormal,
   .LC_ListStyleSpecial {
     /* display:block; */
     list-style-position: inside;
     list-style-type: none;
     overflow: hidden;
     padding: 0;
   }
   
   .LC_ListStyleSimple li,
   .LC_ListStyleSimple dd,
   .LC_ListStyleNormal li,
   .LC_ListStyleNormal dd,
   .LC_ListStyleSpecial li,
   .LC_ListStyleSpecial dd {
     margin: 0;
     padding: 5px 5px 5px 10px;
     clear: both;
   }
   
   .LC_ListStyleClean li,
   .LC_ListStyleClean dd {
     padding-top: 0;
     padding-bottom: 0;
   }
   
   .LC_ListStyleSimple dd,
   .LC_ListStyleSimple li {
     border-bottom: solid 1px $lg_border_color;
   }
   
   .LC_ListStyleSpecial li,
   .LC_ListStyleSpecial dd {
     list-style-type: none;
     background-color: RGB(220, 220, 220);
     margin-bottom: 4px;
   }
   
   table.LC_SimpleTable {
     margin:5px;
     border:solid 1px $lg_border_color;
   }
   
   table.LC_SimpleTable tr {
     padding: 0;
     border:solid 1px $lg_border_color;
   }
   
   table.LC_SimpleTable thead {
     background:rgb(220,220,220);
   }
   
   div.LC_columnSection {
     display: block;
     clear: both;
     overflow: hidden;
     margin: 0;
   }
   
   div.LC_columnSection>* {
     float: left;
     margin: 10px 20px 10px 0;
     overflow:hidden;
   }
   
   .LC_loginpage_container {
     text-align:left;
     margin : 0 auto;
     width:90%;
     padding: 10px;
     height: auto;
     background-color:#FFFFFF;
     border:1px solid #CCCCCC;
   }
   
   
   .LC_loginpage_loginContainer {
     float:left;
     width: 182px;
     padding: 2px;
     border:1px solid #CCCCCC;
     background-color:$loginbg;
   }
   
   .LC_loginpage_loginContainer h2 {
     margin-top: 0;
     display:block;
     background:$bgcol;
     color:$textcol;
     padding-left:5px;
   }
   
   .LC_loginpage_loginInfo {
     float:left;
     width:182px;
     border:1px solid #CCCCCC;
     padding:2px;
   }
   
   .LC_loginpage_space {
     clear: both;
     margin-bottom: 20px;
     border-bottom: 1px solid #CCCCCC;
   }
   
   .LC_loginpage_floatLeft {
     float: left;
     width: 200px;
     margin: 0;
   }
   
   table em {
     font-weight: bold;
     font-style: normal;
   }
   
   table.LC_tableBrowseRes,
   table.LC_tableOfContent {
     border:none;
     border-spacing: 1px;
     padding: 3px;
     background-color: #FFFFFF;
     font-size: 90%;
   }
   
   table.LC_tableOfContent {
     border-collapse: collapse;
   }
   
   table.LC_tableBrowseRes a,
   table.LC_tableOfContent a {
     background-color: transparent;
     text-decoration: none;
   }
   
   table.LC_tableOfContent img {
     border: none;
     height: 1.3em;
     vertical-align: text-bottom;
     margin-right: 0.3em;
   }
   
   a#LC_content_toolbar_firsthomework {
     background-image:url(/res/adm/pages/open-first-problem.gif);
   }
   
   a#LC_content_toolbar_launchnav {
     background-image:url(/res/adm/pages/start-navigation.gif);
   }
   
   a#LC_content_toolbar_closenav {
     background-image:url(/res/adm/pages/close-navigation.gif);
   }
   
   a#LC_content_toolbar_everything {
     background-image:url(/res/adm/pages/show-all.gif);
   }
   
   a#LC_content_toolbar_uncompleted {
     background-image:url(/res/adm/pages/show-incomplete-problems.gif);
   }
   
   #LC_content_toolbar_clearbubbles {
     background-image:url(/res/adm/pages/mark-discussionentries-read.gif);
   }
   
   a#LC_content_toolbar_changefolder {
     background : url(/res/adm/pages/close-all-folders.gif) top center ;
   }
   
   a#LC_content_toolbar_changefolder_toggled {
     background-image:url(/res/adm/pages/open-all-folders.gif);
   }
   
   a#LC_content_toolbar_management {
     background-image:url(/res/adm/pages/navtomenu.png);
   }
   
   ul#LC_toolbar li a:hover {
     background-position: bottom center;
   }
   
   ul#LC_toolbar {
     padding: 0;
     margin: 2px;
     list-style:none;
     position:relative;
     background-color:white;
   }
   
   ul#LC_toolbar li {
     border:1px solid white;
     padding: 0;
     margin: 0;
     float: left;
     display:inline;
     vertical-align:middle;
   }
   
   
   a.LC_toolbarItem {
     display:block;
     padding: 0;
     margin: 0;
     height: 32px;
     width: 32px;
     color:white;
     border: none;
     background-repeat:no-repeat;
     background-color:transparent;
   }
   
   ul.LC_funclist {
       margin: 0;
       padding: 0.5em 1em 0.5em 0;
   }
   
   ul.LC_funclist > li:first-child {
       font-weight:bold;
       margin-left:0.8em;
   }
   
   ul.LC_funclist + ul.LC_funclist {
       /* 
          left border as a seperator if we have more than
          one list 
       */
       border-left: 1px solid $sidebg;
       /* 
          this hides the left border behind the border of the 
          outer box if element is wrapped to the next 'line' 
       */
       margin-left: -1px;
   }
   
   ul.LC_funclist li {
     display: inline;
     white-space: nowrap;
     margin: 0 0 0 25px;
     line-height: 150%;
   }
   
   #gciheader {
     float:left;
     width:100%;
     background:#DAE0D2 url("/gcimenu_bg.gif") repeat-x bottom;
     font-size:93%;
     line-height:normal;
     margin: 0.5em 0 0.5em 0;
   }
   #gciheader ul {
     margin:0;
     padding:10px 10px 0;
     list-style:none;
   }
   #gciheader li {
     float:left;
     background:url("/gcimenu_left.gif") no-repeat left top;
     margin:0;
     padding:0 0 0 9px;
   }
   #gciheader a {
     display:block;
     background:url("/gcimenu_right.gif") no-repeat right top;
     padding:5px 15px 4px 6px;
   }
   #gciheader #current {
     background-image:url("/gcimenu_left_on.gif");
   }
   #gciheader #current a {
     background-image:url("/gcimenu_right_on.gif");
     padding-bottom:5px;
 }  }
   
 END  END
Line 5991  sub xml_begin { Line 6804  sub xml_begin {
             .'<html xmlns:math="http://www.w3.org/1998/Math/MathML" '               .'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' 
     .'xmlns="http://www.w3.org/1999/xhtml">';      .'xmlns="http://www.w3.org/1999/xhtml">';
     } else {      } else {
  $output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'.   $output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
             '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">';             .'<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">';
     }      }
     return $output;      return $output;
 }  }
Line 6054  $args - additional optional args support Line 6867  $args - additional optional args support
   
              only_body      -> is true will set &bodytag() onlybodytag               only_body      -> is true will set &bodytag() onlybodytag
                                     arg on                                      arg on
              no_nav_bar     -> is true will set &bodytag() notopbar arg on               no_nav_bar     -> is true will set &bodytag() no_nav_bar arg on
              add_entries    -> additional attributes to add to the  <body>               add_entries    -> additional attributes to add to the  <body>
              domain         -> force to color decorate a page for a                domain         -> force to color decorate a page for a 
                                     specific domain                                      specific domain
Line 6068  $args - additional optional args support Line 6881  $args - additional optional args support
                                     a html attribute                                      a html attribute
              force_register -> if is true will turn on the &bodytag()               force_register -> if is true will turn on the &bodytag()
                                     $forcereg arg                                      $forcereg arg
              body_title     -> alternate text to use instead of $title  
                                     in the title box that appears, this text  
                                     is not auto translated like the $title is  
              frameset       -> if true will start with a <frameset>               frameset       -> if true will start with a <frameset>
                                     rather than <body>                                      rather than <body>
              no_title       -> if true the title bar won't be shown  
              skip_phases    -> hash ref of                skip_phases    -> hash ref of 
                                     head -> skip the <html><head> generation                                      head -> skip the <html><head> generation
                                     body -> skip all <body> generation                                      body -> skip all <body> generation
Line 6083  $args - additional optional args support Line 6892  $args - additional optional args support
              inherit_jsmath -> when creating popup window in a page,               inherit_jsmath -> when creating popup window in a page,
                                     should it have jsmath forced on by the                                      should it have jsmath forced on by the
                                     current page                                      current page
                bread_crumbs ->             Array containing breadcrumbs
                bread_crumbs_components ->  if exists show it as headline else show only the breadcrumbs
   
 =back  =back
   
Line 6115  sub start_page { Line 6926  sub start_page {
     my $attr_string = &make_attr_string($args->{'force_register'},      my $attr_string = &make_attr_string($args->{'force_register'},
  $args->{'add_entries'});   $args->{'add_entries'});
     $result .= "\n<frameset $attr_string>\n";      $result .= "\n<frameset $attr_string>\n";
  } else {          } else {
     $result .=              $result .=
  &bodytag($title,                   &bodytag($title, 
  $args->{'function'},       $args->{'add_entries'},                           $args->{'function'},       $args->{'add_entries'},
  $args->{'only_body'},      $args->{'domain'},                           $args->{'only_body'},      $args->{'domain'},
  $args->{'force_register'}, $args->{'body_title'},                           $args->{'force_register'}, $args->{'no_nav_bar'},
  $args->{'no_nav_bar'},     $args->{'bgcolor'},                           $args->{'bgcolor'},        $args->{'no_inline_link'},
  $args->{'no_title'},       $args->{'no_inline_link'},                           $args);
  $args);          }
  }  
     }      }
   
     if ($args->{'js_ready'}) {      if ($args->{'js_ready'}) {
  $result = &js_ready($result);   $result = &js_ready($result);
     }      }
     if ($args->{'html_encode'}) {      if ($args->{'html_encode'}) {
  $result = &html_encode($result);   $result = &html_encode($result);
     }      }
   
       # Preparation for new and consistent functionlist at top of screen
       # if ($args->{'functionlist'}) {
       #            $result .= &build_functionlist();
       #}
   
       # Don't add anything more if only_body wanted
       return $result if $args->{'only_body'};
   
       #Breadcrumbs for Construction Space provided by &bodytag. 
       if (($env{'environment.remote'} eq 'off') && ($env{'request.state'} eq 'construct')) {
           return $result;
       }
    
     #Breadcrumbs      #Breadcrumbs
     if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {      if (exists($args->{'bread_crumbs'}) or exists($args->{'bread_crumbs_component'})) {
         &Apache::lonhtmlcommon::clear_breadcrumbs();   &Apache::lonhtmlcommon::clear_breadcrumbs();
         #if any br links exists, add them to the breadcrumbs   #if any br links exists, add them to the breadcrumbs
         if (exists($args->{'bread_crumbs'}) and ref($args->{'bread_crumbs'}) eq 'ARRAY') {   if (exists($args->{'bread_crumbs'}) and ref($args->{'bread_crumbs'}) eq 'ARRAY') {         
             foreach my $crumb (@{$args->{'bread_crumbs'}}){   foreach my $crumb (@{$args->{'bread_crumbs'}}){
                 &Apache::lonhtmlcommon::add_breadcrumb($crumb);   &Apache::lonhtmlcommon::add_breadcrumb($crumb);
             }   }
         }   }
   
         #if bread_crumbs_component exists show it as headline else show only the breadcrumbs   #if bread_crumbs_component exists show it as headline else show only the breadcrumbs
         if (exists($args->{'bread_crumbs_component'})){   if(exists($args->{'bread_crumbs_component'})){
             $result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});   $result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});
         } else {   } elsif (exists($args->{'bread_crumbs_menulink'})) {
             $result .= &Apache::lonhtmlcommon::breadcrumbs();   $result .= &Apache::lonhtmlcommon::breadcrumbs('','',$args->{'bread_crumbs_menulink'});
         }                  } else {
    $result .= &Apache::lonhtmlcommon::breadcrumbs(); 
    }
     }      }
     return $result;      return $result;
 }  }
   
   
 =pod  =pod
   
 =item * &head()  =item * &head()
Line 6279  sub simple_error_page { Line 7106  sub simple_error_page {
  my ($add_class) = @_;   my ($add_class) = @_;
  $row_count[0]++;   $row_count[0]++;
  my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';   my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
  $css_class = (join(' ',$css_class,$add_class));   $css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');
  return  '<tr class="'.$css_class.'">'."\n";;   return  '<tr class="'.$css_class.'">'."\n";;
     }      }
           
     sub continue_data_table_row {      sub continue_data_table_row {
  my ($add_class) = @_;   my ($add_class) = @_;
  my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';   my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row';
  $css_class = (join(' ',$css_class,$add_class));   $css_class = (join(' ',$css_class,$add_class)) unless ($add_class eq '');;
  return  '<tr class="'.$css_class.'">'."\n";;   return  '<tr class="'.$css_class.'">'."\n";;
     }      }
   
Line 6295  sub simple_error_page { Line 7122  sub simple_error_page {
     }      }
   
     sub start_data_table_empty_row {      sub start_data_table_empty_row {
  $row_count[0]++;  # $row_count[0]++;
  return  '<tr class="LC_empty_row" >'."\n";;   return  '<tr class="LC_empty_row" >'."\n";;
     }      }
   
Line 6310  sub simple_error_page { Line 7137  sub simple_error_page {
     sub end_data_table_header_row {      sub end_data_table_header_row {
  return '</tr>'."\n";;   return '</tr>'."\n";;
     }      }
   
       sub data_table_caption {
           my $caption = shift;
           return "<caption class=\"LC_caption\">$caption</caption>";
       }
 }  }
   
 =pod  =pod
Line 6376  Returns either 'student','coordinator',' Line 7208  Returns either 'student','coordinator','
   
 ###############################################  ###############################################
 sub get_users_function {  sub get_users_function {
     my $function = 'student';      my $function = 'norole';
       if ($env{'request.role'}=~/^(st)/) {
           $function='student';
       }
     if ($env{'request.role'}=~/^(cc|co|in|ta|ep)/) {      if ($env{'request.role'}=~/^(cc|co|in|ta|ep)/) {
         $function='coordinator';          $function='coordinator';
     }      }
Line 6398  sub get_users_function { Line 7233  sub get_users_function {
   
 Used by lonmenu.pm and lonroles.pm to determine whether to use the word  Used by lonmenu.pm and lonroles.pm to determine whether to use the word
 'Courses' or 'Roles' in inline navigation and on screen displaying user's roles.  'Courses' or 'Roles' in inline navigation and on screen displaying user's roles.
   
 Inputs:  Inputs:
 None  None
   
Line 7068  sub user_picker { Line 7904  sub user_picker {
                     'whse'      => "When searching by last,first you must include at least one character in the first name.",                      'whse'      => "When searching by last,first you must include at least one character in the first name.",
                      'thfo'     => "The following need to be corrected before the search can be run:",                       'thfo'     => "The following need to be corrected before the search can be run:",
                                        );                                         );
     my $domform = &select_dom_form($currdom,'srchdomain',1,1);      my $domform = &select_dom_form($currdom,'srchdomain',undef,1);
     my $srchinsel = ' <select name="srchin">';      my $srchinsel = ' <select name="srchin">';
        
     my @srchins = ('crs','dom','alc','instd');      my @srchins = ('crs','dom','alc','instd');
   
     foreach my $option (@srchins) {      foreach my $option (@srchins) {
Line 7078  sub user_picker { Line 7914  sub user_picker {
         #       loncreateuser::print_user_query_page()          #       loncreateuser::print_user_query_page()
         #       has been completed.          #       has been completed.
         next if ($option eq 'alc');          next if ($option eq 'alc');
         next if (($option eq 'crs') && ($env{'form.form'} eq 'requestcrs'));          next if (($option eq 'crs') && ($env{'form.form'} eq 'requestcrs'));  
         next if ($option eq 'crs' && !$env{'request.course.id'});          next if ($option eq 'crs' && !$env{'request.course.id'});
           next if ($option eq 'instd');
         if ($curr_selected{'srchin'} eq $option) {          if ($curr_selected{'srchin'} eq $option) {
             $srchinsel .= '               $srchinsel .= ' 
    <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';         <option value="'.$option.'" selected="selected">'.$lt{$option}.'</option>';
         } else {          } else {
             $srchinsel .= '              $srchinsel .= '
    <option value="'.$option.'">'.$lt{$option}.'</option>';      <option value="'.$option.'">'.$lt{$option}.'</option>';
         }          }
     }      }
     $srchinsel .= "\n  </select>\n";      $srchinsel .= "\n  </select>\n";
Line 7127  sub user_picker { Line 7964  sub user_picker {
                         official   => 'institutional',                          official   => 'institutional',
                         unofficial => 'non-institutional',                          unofficial => 'non-institutional',
                     );                      );
                     $new_user_create = '<p class="LC_warning">'.                      $new_user_create = '<p class="LC_warning">'
                                        &mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.").' '.                                        .&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 />';                                        .'<br />'
                                         .&mt('Enter a valid e-mail address as the username for the new user.').' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.'
                                         ,'<a href="'.$helplink.'">','</a>')
                                         .'</p><br />';
                 }                  }
             }              }
         }          }
Line 7248  END_BLOCK Line 8088  END_BLOCK
                &Apache::lonhtmlcommon::row_closure().                 &Apache::lonhtmlcommon::row_closure().
                &Apache::lonhtmlcommon::row_title($lt{'usr'}).                 &Apache::lonhtmlcommon::row_title($lt{'usr'}).
                $srchbysel.                 $srchbysel.
                $srchtypesel.                 $srchtypesel. 
                '<input type="text" size="15" name="srchterm" value="'.$srchterm.'" />'.                 '<input type="text" size="15" name="srchterm" value="'.$srchterm.'" />'.
                $srchinsel.                 $srchinsel.
                &Apache::lonhtmlcommon::row_closure(1).                 &Apache::lonhtmlcommon::row_closure(1). 
                &Apache::lonhtmlcommon::end_pick_box().                 &Apache::lonhtmlcommon::end_pick_box().
                '<br />';                 '<br />';
     return $output;      return $output;
Line 7485  sub get_institutional_codes { Line 8325  sub get_institutional_codes {
   
 =item * sorted_slots()  =item * sorted_slots()
   
 Sorts an array of slot names in order of slot start time (earliest first).  Sorts an array of slot names in order of slot start time (earliest first). 
   
 Inputs:  Inputs:
   
Line 7527  sub sorted_slots { Line 8367  sub sorted_slots {
     return @sorted;      return @sorted;
 }  }
   
   
 =pod  =pod
   
 =head1 HTTP Helpers  =head1 HTTP Helpers
Line 7818  sub upload_embedded { Line 8659  sub upload_embedded {
                                    '&nbsp;<a href="'.$url.'">'.                                     '&nbsp;<a href="'.$url.'">'.
                                    $orig_uploaded_filename.'</a><br />';                                     $orig_uploaded_filename.'</a><br />';
                     } else {                      } else {
                         $output .= '<font size="+2">'.                          $output .= '<span class=\"LC_fontsize_large\">'.
                                    &mt('View embedded file: [_1]','<a href="'.$url.'">'.                                     &mt('View embedded file: [_1]','<a href="'.$url.'">'.
                                    $orig_uploaded_filename.'</a>').'</font><br />';                                     $orig_uploaded_filename.'</a>').'</span><br />';
                     }                      }
                 }                  }
                 close($fh);                  close($fh);
Line 8125  sub csv_print_samples { Line 8966  sub csv_print_samples {
     $r->print(&mt('Samples').'<br />'.&start_data_table().      $r->print(&mt('Samples').'<br />'.&start_data_table().
               &start_data_table_header_row());                &start_data_table_header_row());
     foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {       foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { 
         $r->print('<th>'.&mt('Column [_1]',($sample+1)).'</th>');          $r->print('<th>'.&mt('Column [_1]',($sample+1)).'</th>'); }
     }  
     $r->print(&end_data_table_header_row());      $r->print(&end_data_table_header_row());
     foreach my $hash (@$samples) {      foreach my $hash (@$samples) {
  $r->print(&start_data_table_row());   $r->print(&start_data_table_row());
Line 8170  sub csv_print_select_table { Line 9010  sub csv_print_select_table {
  my ($value,$display,$defaultcol)=@{ $array_ref };   my ($value,$display,$defaultcol)=@{ $array_ref };
  $r->print(&start_data_table_row().'<td>'.$display.'</td>');   $r->print(&start_data_table_row().'<td>'.$display.'</td>');
   
  $r->print('<td><select name"f'.$i.'"'.   $r->print('<td><select name="f'.$i.'"'.
   ' onchange="javascript:flip(this.form,'.$i.');">');    ' onchange="javascript:flip(this.form,'.$i.');">');
  $r->print('<option value="none"></option>');   $r->print('<option value="none"></option>');
  foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {   foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) {
Line 8857  sub build_recipient_list { Line 9697  sub build_recipient_list {
                 my @contacts = ('adminemail','supportemail');                  my @contacts = ('adminemail','supportemail');
                 foreach my $item (@contacts) {                  foreach my $item (@contacts) {
                     if ($domconfig{'contacts'}{$mailing}{$item}) {                      if ($domconfig{'contacts'}{$mailing}{$item}) {
                         my $addr = $domconfig{'contacts'}{$item};                          my $addr = $domconfig{'contacts'}{$item}; 
                         if (!grep(/^\Q$addr\E$/,@recipients)) {                          if (!grep(/^\Q$addr\E$/,@recipients)) {
                             push(@recipients,$addr);                              push(@recipients,$addr);
                         }                          }
Line 9110  Inputs: Line 9950  Inputs:
 cathash - reference to hash of categories defined for the domain (from  cathash - reference to hash of categories defined for the domain (from
           configuration.db)            configuration.db)
   
 currcat - scalar with an & separated list of categories assigned to a course.  currcat - scalar with an & separated list of categories assigned to a course. 
   
 type    - scalar contains course type (Course or Community).  type    - scalar contains course type (Course or Community).
   
Line 9146  sub assign_categories_table { Line 9986  sub assign_categories_table {
                     my $checked = '';                      my $checked = '';
                     if (@currcategories > 0) {                      if (@currcategories > 0) {
                         if (grep(/^\Q$item\E$/,@currcategories)) {                          if (grep(/^\Q$item\E$/,@currcategories)) {
                             $checked = ' checked="checked" ';                              $checked = ' checked="checked"';
                         }                          }
                     }                      }
                     my $parent_title = $parent;                      my $parent_title = $parent;
Line 9220  sub assign_category_rows { Line 10060  sub assign_category_rows {
                     if (ref($currcategories) eq 'ARRAY') {                      if (ref($currcategories) eq 'ARRAY') {
                         if (@{$currcategories} > 0) {                          if (@{$currcategories} > 0) {
                             if (grep(/^\Q$item\E$/,@{$currcategories})) {                              if (grep(/^\Q$item\E$/,@{$currcategories})) {
                                 $checked = ' checked="checked" ';                                  $checked = ' checked="checked"';
                             }                              }
                         }                          }
                     }                      }
Line 9413  sub check_clone { Line 10253  sub check_clone {
     my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);      my $clonehome=&Apache::lonnet::homeserver($clonecrsunum,$clonecrsudom);
     my $clonemsg;      my $clonemsg;
     my $can_clone = 0;      my $can_clone = 0;
     my $lctype = lc($args->{'type'});      my $lctype = lc($args->{'crstype'});
     if ($lctype ne 'community') {      if ($lctype ne 'community') {
         $lctype = 'course';          $lctype = 'course';
     }      }
     if ($clonehome eq 'no_host') {      if ($clonehome eq 'no_host') {
         if ($args->{'type'} eq 'Community') {          if ($args->{'crstype'} eq 'Community') {
             $clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a non-existent community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});              $clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a non-existent community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
         } else {          } else {
             $clonemsg = &mt('No new course created.').$linefeed.&mt('A new course could not be cloned from the specified original - [_1] - because it is a non-existent course.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});              $clonemsg = &mt('No new course created.').$linefeed.&mt('A new course could not be cloned from the specified original - [_1] - because it is a non-existent course.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
         }          }     
     } else {      } else {
  my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});   my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});
         if ($args->{'type'} eq 'Community') {          if ($args->{'crstype'} eq 'Community') {
             if ($clonedesc{'type'} ne 'Community') {              if ($clonedesc{'type'} ne 'Community') {
                  $clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a course not a community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});                   $clonemsg = &mt('No new community created.').$linefeed.&mt('A new community could not be cloned from the specified original - [_1] - because it is a course not a community.',$args->{'clonecourse'}.':'.$args->{'clonedomain'});
                 return ($can_clone, $clonemsg, $cloneid, $clonehome);                  return ($can_clone, $clonemsg, $cloneid, $clonehome);
             }              }
         }          }
         if (($env{'request.role.domain'} eq $args->{'clonedomain'}) &&   if (($env{'request.role.domain'} eq $args->{'clonedomain'}) && 
             (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) {              (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'}))) {
             $can_clone = 1;      $can_clone = 1;
         } else {   } else {
             my %clonehash = &Apache::lonnet::get('environment',['cloners'],      my %clonehash = &Apache::lonnet::get('environment',['cloners'],
                                                  $args->{'clonedomain'},$args->{'clonecourse'});   $args->{'clonedomain'},$args->{'clonecourse'});
             my @cloners = split(/,/,$clonehash{'cloners'});      my @cloners = split(/,/,$clonehash{'cloners'});
             if (grep(/^\*$/,@cloners)) {              if (grep(/^\*$/,@cloners)) {
                 $can_clone = 1;                  $can_clone = 1;
             } elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) {              } elsif (grep(/^\*\:\Q$args->{'ccdomain'}\E$/,@cloners)) {
                 $can_clone = 1;                  $can_clone = 1;
             } else {              } else {
                 my $ccrole = 'cc';                  my $ccrole = 'cc';
                 if ($args->{'type'} eq 'Community') {                  if ($args->{'crstype'} eq 'Community') {
                     $ccrole = 'co';                      $ccrole = 'co';
                 }                  }
                 my %roleshash =          my %roleshash =
                     &Apache::lonnet::get_my_roles($args->{'ccuname'},      &Apache::lonnet::get_my_roles($args->{'ccuname'},
                                          $args->{'ccdomain'},   $args->{'ccdomain'},
                                          'userroles',['active'],[$ccrole],                                           'userroles',['active'],[$ccrole],
                                          [$args->{'clonedomain'}]);   [$args->{'clonedomain'}]);
                 if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {          if (($roleshash{$args->{'clonecourse'}.':'.$args->{'clonedomain'}.':'.$ccrole}) || (grep(/^\Q$args->{'ccuname'}\E:\Q$args->{'ccdomain'}\E$/,@cloners))) {
                     $can_clone = 1;      $can_clone = 1;
                 } else {          } else {
                     if ($args->{'type'} eq 'Community') {                      if ($args->{'crstype'} eq 'Community') {
                         $clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});                          $clonemsg = &mt('No new community created.').$linefeed.&mt('The new community could not be cloned from the existing community because the new community owner ([_1]) does not have cloning rights in the existing community ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});
                     } else {                      } else {
                         $clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});                          $clonemsg = &mt('No new course created.').$linefeed.&mt('The new course could not be cloned from the existing course because the new course owner ([_1]) does not have cloning rights in the existing course ([_2]).',$args->{'ccuname'}.':'.$args->{'ccdomain'},$clonedesc{'description'});
                     }                      }
                 }          }
             }      }
         }          }
     }      }
     return ($can_clone, $clonemsg, $cloneid, $clonehome);      return ($can_clone, $clonemsg, $cloneid, $clonehome);
Line 9509  sub construct_course { Line 10349  sub construct_course {
                                              $args->{'crstype'},                                               $args->{'crstype'},
                                              $cnum,$context,$category);                                               $cnum,$context,$category);
   
   
     # Note: The testing routines depend on this being output; see       # Note: The testing routines depend on this being output; see 
     # Utils::Course. This needs to at least be output as a comment      # Utils::Course. This needs to at least be output as a comment
     # if anyone ever decides to not show this, and Utils::Course::new      # if anyone ever decides to not show this, and Utils::Course::new
Line 9795  sub construct_course { Line 10634  sub construct_course {
         $outcome .= ($fatal?$errtext:'write ok').$linefeed;          $outcome .= ($fatal?$errtext:'write ok').$linefeed;
     }      }
   
       if ($args->{'cloneroster'}) {
           my ($numadded,$clisterror) = &Apache::lonclonecourse::copyroster($cloneid,$$courseid,$args->{'startaccess'},$args->{'endaccess'});
           if ($clisterror) {
               $outcome .= "\0".&mt('An error occurred when copying the student roster from the old course to the new course; the error was: [_1].',$clisterror).$linefeed;
               if ($numadded) {
                   $outcome .= &mt('Although [quant,_1,student] have received roles in the new course the roster does not report this. It is  ').$linefeed;
               } 
           } else {
               if ($numadded) {
                   $outcome .= "\0".&mt('[quant,_1,student] copied from roster for old course to roster for new course.',$numadded).$linefeed;
               } else {
                   $outcome .= "\0".&mt('No students have been enrolled in the new Concept Test.').' '.&mt('This is because either (a) an error occurred, or (b) there were no students with either current access or access which ended on/after the current default end date set for access to the old course.').$linefeed;
               }
           }
       }
     return (1,$outcome);      return (1,$outcome);
 }  }
   
Line 9816  sub course_type { Line 10670  sub course_type {
 sub group_term {  sub group_term {
     my $crstype = &course_type();      my $crstype = &course_type();
     my %names = (      my %names = (
                   'Course'    => 'group',                    'Course' => 'group',
                   'Community' => 'group',                    'Community' => 'group',
                 );                  );
     return $names{$crstype};      return $names{$crstype};
Line 9907  sub compare_arrays { Line 10761  sub compare_arrays {
     return @difference;      return @difference;
 }  }
   
 # -------------------------------------------------------- Initliaze user login  # -------------------------------------------------------- Initialize user login
 sub init_user_environment {  sub init_user_environment {
     my ($r, $username, $domain, $authhost, $form, $args) = @_;      my ($r, $username, $domain, $authhost, $form, $args) = @_;
     my $lonids=$Apache::lonnet::perlvar{'lonIDsDir'};      my $lonids=$Apache::lonnet::perlvar{'lonIDsDir'};
Line 9961  sub init_user_environment { Line 10815  sub init_user_environment {
     my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,      my ($httpbrowser,$clientbrowser,$clientversion,$clientmathml,
         $clientunicode,$clientos) = &decode_user_agent($r);          $clientunicode,$clientos) = &decode_user_agent($r);
   
 # -------------------------------------- Any accessibility options to remember?  
     if (($form->{'interface'}) && ($form->{'remember'} eq 'true')) {  
  foreach my $option ('imagesuppress','appletsuppress',  
     'embedsuppress','fontenhance','blackwhite') {  
     if ($form->{$option} eq 'true') {  
  &Apache::lonnet::put('environment',{$option => 'on'},  
      $domain,$username);  
     } else {  
  &Apache::lonnet::del('environment',[$option],  
      $domain,$username);  
     }  
  }  
     }  
 # ------------------------------------------------------------- Get environment  # ------------------------------------------------------------- Get environment
   
     my %userenv = &Apache::lonnet::dump('environment',$domain,$username);      my %userenv = &Apache::lonnet::dump('environment',$domain,$username);
Line 9991  sub init_user_environment { Line 10832  sub init_user_environment {
     if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }      if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }
   
 # --------------- Do not trust query string to be put directly into environment  # --------------- Do not trust query string to be put directly into environment
     foreach my $option ('imagesuppress','appletsuppress',      foreach my $option ('interface','localpath','localres') {
  'embedsuppress','fontenhance','blackwhite',          $form->{$option}=~s/[\n\r\=]//gs;
  'interface','localpath','localres') {  
  $form->{$option}=~s/[\n\r\=]//gs;  
     }      }
 # --------------------------------------------------------- Write first profile  # --------------------------------------------------------- Write first profile
   
Line 10028  sub init_user_environment { Line 10867  sub init_user_environment {
     $form->{'interface'}=~s/\W//gs;      $form->{'interface'}=~s/\W//gs;
     $initial_env{"browser.interface"} = $form->{'interface'};      $initial_env{"browser.interface"} = $form->{'interface'};
     $env{'browser.interface'}=$form->{'interface'};      $env{'browser.interface'}=$form->{'interface'};
     foreach my $option ('imagesuppress','appletsuppress',  
  'embedsuppress','fontenhance','blackwhite') {  
  if (($form->{$option} eq 'true') ||  
     ($userenv{$option} eq 'on')) {  
     $initial_env{"browser.$option"} = "on";  
  }  
     }  
  }   }
   
         foreach my $tool ('aboutme','blog','portfolio') {          foreach my $tool ('aboutme','blog','portfolio') {
             $userenv{'availabletools.'.$tool} =              $userenv{'availabletools.'.$tool} = 
                 &Apache::lonnet::usertools_access($username,$domain,$tool,'reload');                  &Apache::lonnet::usertools_access($username,$domain,$tool,'reload');
         }          }
   
Line 10060  sub init_user_environment { Line 10892  sub init_user_environment {
     }      }
     untie(%disk_env);      untie(%disk_env);
  } else {   } else {
     &Apache::lonnet::logthis("<font color=\"blue\">WARNING: ".      &Apache::lonnet::logthis("<span style=\"color:blue;\">WARNING: ".
    'Could not create environment storage in lonauth: '.$!.'</font>');     'Could not create environment storage in lonauth: '.$!.'</span>');
     return 'error: '.$!;      return 'error: '.$!;
  }   }
     }      }
Line 10083  sub _add_to_env { Line 10915  sub _add_to_env {
     }      }
 }  }
   
   sub new_roles_update {
       my $rolecount = 0;
       foreach my $envkey (keys(%env)) {
           next unless ($envkey =~ /^user\.role\./);
           $rolecount ++;
       }
       my $newrolecount = 0;
       if (!$rolecount) {
           my %userenv;
           foreach my $crstype ('official','unofficial','community') {
               $userenv{'canrequest.'.$crstype} =
                   &Apache::lonnet::usertools_access($env{'user.name'},
                   $env{'user.domain'},$crstype,'reload','requestcourses');
           }
           my $then=$env{'user.login.time'};
           my $refresh=time;
           my (%userroles,%allroles,%allgroups,@newroles);
           my %roleshash =
               &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles',['active','future','previous'],undef,undef,1);
           foreach my $item (keys(%roleshash)) {
               my ($uname,$udom,$role,$section) = split(':',$item);
               my $where = '/'.$udom.'/'.$uname;
               my ($tstart,$tend) = split(':',$roleshash{$item});
               if ($section ne '') {
                   $where .= '/'.$section;
               }
               my $spec = $role.'.'.$where;
               &Apache::lonnet::set_arearole($role,$where,$tstart,$tend,
                                             $env{'user.domain'},$env{'user.name'});
               $userroles{'user.role.'.$spec} = $tstart.'.'.$tend;
               $newrolecount ++;
               unless (grep(/^\Q$role\E$/,@newroles)) {
                   push(@newroles,$role);
               }
               my $status =
                   &Apache::lonnet::curr_role_status($tstart,$tend,$refresh,$then);
               if ($status eq 'active') {
                   &Apache::lonnet::gather_roleprivs(\%allroles,\%allgroups,\%userroles,
                                                     $where,$role,$tstart,$tend);
               }
           }
           if (@newroles) {
               my ($author,$adv) = &Apache::lonnet::set_userprivs(\%userroles,\%allroles,
                                                                  \%allgroups);
               &Apache::lonnet::appenv(\%userroles,[@newroles,'cm']);
               $userenv{'user.adv'} = $adv;
               $userenv{'user.author'} = $author;
               $userenv{'user.refresh.time'} = $refresh;
           }
           &Apache::lonnet::appenv(\%userenv);
       }
       return $newrolecount;
   }
   
 # --- Get the symbolic name of a problem and the url  # --- Get the symbolic name of a problem and the url
 sub get_symb {  sub get_symb {
     my ($request,$silent) = @_;      my ($request,$silent) = @_;
Line 10124  sub clean_symb { Line 11010  sub clean_symb {
     return ($symb,$enc);      return ($symb,$enc);
 }  }
   
   sub needs_gci_custom {
       my $custommenu;
       my $numdc = &check_for_gci_dc();
       my $udom = $env{'user.domain'};
       return if ($udom eq '');
       unless ($numdc) {
           my $then=$env{'user.login.time'};
           my $now = time;
           my %allnums = &get_faculty_cnums();
           my $cnums = $allnums{$udom};
           return unless (ref($cnums) eq 'HASH');
           if ($env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}}) {
               my ($start,$end) =
                   split('.',$env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}});
               if (((!$start) || ($start && $start <= $now)) &&
                   ((!$end) || ($end > $now))) {
                   $custommenu = 1;
                   if ($env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}}) {
                       my ($ccstart,$ccend) =
                           split('.',$env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}});
                       if (((!$start) || ($start && $start <= $now)) &&
                               ((!$end) || ($end > $now))) {
                           $custommenu = '';
                       }
                   }
               }
           }
       }
       return $custommenu;
   }
   
   sub check_for_gci_dc {
       my $then=$env{'user.login.time'};
       my $numdc = 0;
       my @doms = &Apache::lonnet::current_machine_domains();
       foreach my $dom (@doms) {
           if ($env{'user.role.dc./'.$dom.'/'}) {
               my $livedc = 1;
               my ($tstart,$tend)=split(/\./,$env{'user.role.dc./'.$dom.'/'});
               if ($tstart && $tstart>$then) { $livedc = 0; }
               if ($tend   && $tend  <$then) { $livedc = 0; }
               if ($livedc) {
                   $numdc++;
               }
           }
       }
       return $numdc;
   }
   
   sub get_faculty_cnums {
       my %cnums = (
            gci => { 
                       review => '9615072b469884921gcil1',
                       submit => '1H96711d710194bfegcil1',
                       tutorial' => '5422913620b814c90gcil1',
                   },
            slci => {
                       review => '',
                       submit => '',
                       tutorial' => '',
                    }
       );
       return %cnums;
   }
   
   sub existing_gcitest_courses {
       my ($role) = @_;
       my %courses;
       my $cdom = $env{'user.domain'}.'test';
       my $now = time;
       foreach my $envkey (keys(%env)) {
           my $cnum;
           if ($envkey =~ m{^user\.role\.\Q$role\E\./\Q$cdom\E/($match_courseid)$}) {
               $cnum = $1;
           } else {
               next;
           }
           my ($tstart,$tend) = split(/\./,$env{$envkey});
           if (((!$tstart) || ($tstart < $now)) && ((!$tend) || ($tend > $now))) {
               my $descr = $env{'course.'.$cdom.'_'.$cnum.'.description'};
               if ($descr ne '') {
                   $courses{$cdom.'_'.$cnum}{'description'} = $descr;
               }
           }
       }
       return %courses;
   }
   
   sub gcitest_switcher {
       my ($role,$formname,%courses) = @_;
       my $output;
       my %Sortby;
       foreach my $course (sort(keys(%courses))) {
           next unless (ref($courses{$course}) eq 'HASH');
           my $clean_title = $courses{$course}{'description'};
           $clean_title =~ s/\W+//g;
           if ($clean_title eq '') {
               $clean_title = $courses{$course}{'description'};
           }
           push(@{$Sortby{$clean_title}},$course);
       }
       my @sorted_courses = sort { lc($a) cmp lc($b) } (keys(%Sortby));
       my $default;
       if (@sorted_courses > 1) {
           if (($env{'request.course.id'}) && ($courses{$env{'request.course.id'}})) {
               $default = &mt('Switch concept test ...');
           } else {
               $default = &mt('Select a concept test ...');
           }
       } else {
           unless (($env{'request.course.id'}) && ($courses{$env{'request.course.id'}})) {
               $default = &mt('Select concept test ...');
           }
       }
       if ($default) {
           $output = '<form name="'.$formname.'" action="/adm/roles" method="post">'.
                     '<select name="newrole" onchange="javascript:courseswitcher();">'.
                     '<option value="" selected="selected">'.$default.'</option>';
           foreach my $item (@sorted_courses) {
               foreach my $course (@{$Sortby{$item}}) {
                   my ($cdom,$cnum) = split('_',$course);
                   $output .= '<option value="'.$role.'./'.$cdom.'/'.$cnum.'">'.$courses{$course}{'description'}.'</option>';
               }
           }
           $output .= '</select><input type="hidden" name="selectrole" value="" /></form>';
       }
       return $output;
   }
   
   sub gcitest_switcher_js {
       my ($current,$numcourses,$formname) = @_;
       my $output = <<"ENDJS";
   
   function courseswitcher(caller) {
       var numcourses = $numcourses;
       var current = '$current';
       var choice = document.$formname.newrole.options[document.$formname.newrole.selectedIndex].value;
       if (choice == '') {
           if (caller == 'icon') {
               alert('No Concept Test selected');
           }
           document.$formname.selectrole.value = '';
           return;
       }
       if (choice == current) {
           if ((caller != 'icon') && (numcourses > 1)) {
               alert('You have selected the current course.\\nPlease select a different Concept Test course');
           }
           document.$formname.newrole.selectedIndex = 0;
           document.$formname.selectrole.value = '';
           return;
       }
       document.$formname.selectrole.value = '1';
       document.$formname.submit();
       return;
   }
   
   ENDJS
       return $output;
   }
   
   sub get_citest_map {
       my ($cdom) = @_;
       my %questionnaires = (
                              gcitest  => 'default_1261144274.sequence',
                              slcitest => 'default_1261144274.sequence',
                            );
       return $questionnaires{$cdom};
   }
   
 =pod  =pod
   
 =back  =back
Removed from v.1.692.4.26  
changed lines
  Added in v.1.925.2.21

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>