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

Diff for /loncom/interface/loncommon.pm between versions 1.722 and 1.726

version 1.722, 2008/12/17 16:07:45 version 1.726, 2008/12/19 17:19:48
Line 3168  sub relative_to_absolute { Line 3168  sub relative_to_absolute {
     }      }
     $thisdir=~s-/[^/]*$--;      $thisdir=~s-/[^/]*$--;
     foreach my $link (@rlinks) {      foreach my $link (@rlinks) {
  unless (($link=~/^http:\/\//i) ||   unless (($link=~/^https?\:\/\//i) ||
  ($link=~/^\//) ||   ($link=~/^\//) ||
  ($link=~/^javascript:/i) ||   ($link=~/^javascript:/i) ||
  ($link=~/^mailto:/i) ||   ($link=~/^mailto:/i) ||
Line 5501  h2,h3,h4,h5,h6 Line 5501  h2,h3,h4,h5,h6
 }  }
   
 .LC_bgLightGrey{  .LC_bgLightGrey{
  background:URL(lonIcons/lightGreyBG.png) repeat-x left top;    background:URL(/adm/lonIcons/lightGreyBG.png) repeat-x left top; 
 }  }
 .LC_bgLightGreyYellow {  .LC_bgLightGreyYellow {
  background-color:#EFECE0;   background-color:#EFECE0;
Line 5571  ol#LC_TabMainMenuContent li { Line 5571  ol#LC_TabMainMenuContent li {
  line-height: 140%;   line-height: 140%;
  font-weight: bold;   font-weight: bold;
  white-space:nowrap;   white-space:nowrap;
  background: url(lonIcons/lightGreyBG.png) repeat-x left top;   background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
 }  }
   
 ol#LC_TabMainMenuContent li a{  ol#LC_TabMainMenuContent li a{
Line 5592  ul.LC_TabContent li{ Line 5592  ul.LC_TabContent li{
  border-right:solid 1px $lg_border_color;   border-right:solid 1px $lg_border_color;
  padding:5px 10px 5px 10px;   padding:5px 10px 5px 10px;
  margin-right:2px;   margin-right:2px;
  background: url(lonIcons/lightGreyBG.png) repeat-x left top;   background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
 }  }
 ul.LC_TabContent li a, ul.LC_TabContent li{  ul.LC_TabContent li a, ul.LC_TabContent li{
  color:rgb(47,47,47);   color:rgb(47,47,47);
Line 5615  ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcr Line 5615  ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcr
  margin: 0px 0px 30px 0px;   margin: 0px 0px 30px 0px;
  padding-left: 10px;   padding-left: 10px;
  list-style-position: inside;   list-style-position: inside;
  background: url(lonIcons/lightGreyBG.png) repeat-x left top;   background: url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
 }  }
   
 ol#LC_MenuBreadcrumbs li, ol#LC_PathBreadcrumbs li {  ol#LC_MenuBreadcrumbs li, ol#LC_PathBreadcrumbs li {
  background: url(lonIcons/arrow_white.png) no-repeat left center;   background: url(/adm/lonIcons/arrow_white.png) no-repeat left center;
  display: inline;   display: inline;
  padding: 0px 0px 0px 10px;   padding: 0px 0px 0px 10px;
  vertical-align: bottom;   vertical-align: bottom;
Line 9367  sub construct_course { Line 9367  sub construct_course {
                    'policy.email',                     'policy.email',
                    'comment.email',                     'comment.email',
                    'pch.users.denied',                     'pch.users.denied',
                    'plc.users.denied'],                     'plc.users.denied',
                      'hidefromcat',
                      'categories'],
                    $$crsudom,$$crsunum);                     $$crsudom,$$crsunum);
     }      }
   
Line 9825  sub init_user_environment { Line 9827  sub init_user_environment {
     }      }
  }   }
   
           foreach my $tool ('aboutme','blog','portfolio') {
               $userenv{'availabletools.'.$tool} = 
                   &Apache::lonnet::usertools_access($username,$domain,$tool,'reload');
           }
   
  $env{'user.environment'} = "$lonids/$cookie.id";   $env{'user.environment'} = "$lonids/$cookie.id";
   
  if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",   if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",
Line 9863  sub _add_to_env { Line 9870  sub _add_to_env {
 # --- 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) = @_;
     (my $url=$env{'form.url'}) =~ s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;      (my $url=$env{'form.url'}) =~ s-^https?\://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
     my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url)));      my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url)));
     if ($symb eq '') {      if ($symb eq '') {
         if (!$silent) {          if (!$silent) {
Removed from v.1.722  
changed lines
  Added in v.1.726

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