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

Diff for /loncom/interface/loncommon.pm between versions 1.818 and 1.821

version 1.818, 2009/05/16 07:59:09 version 1.821, 2009/05/18 16:29:55
Line 4674  table#LC_title_bar a { Line 4674  table#LC_title_bar a {
 }  }
           
 table#LC_title_bar {  table#LC_title_bar {
     clear: both;
   /*display: none;*/    /*display: none;*/
 }  }
   
Line 4689  table#LC_title_bar.LC_with_remote { Line 4690  table#LC_title_bar.LC_with_remote {
   font-family: $sans;    font-family: $sans;
   border-collapse: collapse;    border-collapse: collapse;
   padding: 0;    padding: 0;
     margin: 0;
 }  }
   
 table.LC_docs_path {  table.LC_docs_path {
Line 4712  table#LC_title_bar .LC_title_bar_who { Line 4714  table#LC_title_bar .LC_title_bar_who {
   margin: 0;    margin: 0;
 }  }
   
 table#LC_title_bar .LC_title_bar_name {  table#LC_title_bar div.LC_title_bar_name {
   margin: 0;    margin: 0;
 }  }
   
 table#LC_title_bar .LC_title_bar_role {  table#LC_title_bar div.LC_title_bar_role {
   margin: 0;    margin: 0;
 }  }
   
 table#LC_title_bar .LC_title_bar_realm {  table#LC_title_bar div.LC_title_bar_realm {
   margin: 0;    margin: 0;
 }  }
   
Line 4797  table#LC_mainmenu td.LC_mainmenu_column Line 4799  table#LC_mainmenu td.LC_mainmenu_column
  font-size: 70%;   font-size: 70%;
 }  }
   
   #LC_head_subbox {
    clear:both;
    background: $sidebg;
    border-bottom: 1px solid #999999;
    height: 32px;
    line-height: 32px; 
    margin: 0 0 10px;
    padding: 0;
   }
   
 .LC_fontsize_medium {  .LC_fontsize_medium {
  font-size: 85%;   font-size: 85%;
 }  }
Line 5941  ul.LC_TabContentBigger li a { Line 5953  ul.LC_TabContentBigger li a {
 ol#LC_MenuBreadcrumbs,   ol#LC_MenuBreadcrumbs, 
 ol#LC_PathBreadcrumbs,   ol#LC_PathBreadcrumbs, 
 ul.LC_CourseBreadcrumbs {  ul.LC_CourseBreadcrumbs {
  border-top: solid 1px RGB(255, 255, 255);  
  height: 20px;  
  line-height: 20px;  
  vertical-align: bottom;  
  margin: 0 0 30px 0;  
  padding-left: 10px;   padding-left: 10px;
    margin: 0;
  list-style-position: inside;   list-style-position: inside;
  background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;  
 }  }
   
 ol#LC_MenuBreadcrumbs li,   ol#LC_MenuBreadcrumbs li, 
 ol#LC_PathBreadcrumbs li,   ol#LC_PathBreadcrumbs li, 
 ul.LC_CourseBreadcrumbs li {  ul.LC_CourseBreadcrumbs li {
 /*  
  background: url(/adm/lonIcons/arrow_white.png) no-repeat left center;  
 */  
  display: inline;   display: inline;
  padding: 0 0 0 10px;   padding: 0 0 0 10px;
 /* vertical-align: bottom; */  
  overflow:hidden;   overflow:hidden;
 }  }
   
Line 6791  sub get_users_function { Line 6794  sub get_users_function {
   
 =pod  =pod
   
   =item * &show_course()
   
   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.
   
   Inputs:
   None
   
   Outputs:
   Scalar: 1 if 'Course' to be used, 0 otherwise.
   
   =cut
   
   ###############################################
   sub show_course {
       my $course = !$env{'user.adv'};
       if (!$env{'user.adv'}) {
           foreach my $env (keys(%env)) {
               next if ($env !~ m/^user\.priv\./);
               if ($env !~ m/^user\.priv\.(?:st|cm)/) {
                   $course = 0;
                   last;
               }
           }
       }
       return $course;
   }
   
   ###############################################
   
   =pod
   
 =item * &check_user_status()  =item * &check_user_status()
   
 Determines current status of supplied role for a  Determines current status of supplied role for a
Line 10209  sub escape_url { Line 10244  sub escape_url {
     return join('/',@urlslices).'/'.$lastitem;      return join('/',@urlslices).'/'.$lastitem;
 }  }
   
   sub compare_arrays {
       my ($arrayref1,$arrayref2) = @_;
       my (@difference,%count);
       @difference = ();
       %count = ();
       if ((ref($arrayref1) eq 'ARRAY') && (ref($arrayref2) eq 'ARRAY')) {
           foreach my $element (@{$arrayref1}, @{$arrayref2}) { $count{$element}++; }
           foreach my $element (keys(%count)) {
               if ($count{$element} == 1) {
                   push(@difference,$element);
               }
           }
       }
       return @difference;
   }
   
 # -------------------------------------------------------- Initialize 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) = @_;
Removed from v.1.818  
changed lines
  Added in v.1.821

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