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

Diff for /loncom/interface/loncommon.pm between versions 1.779 and 1.785

version 1.779, 2009/03/26 14:59:10 version 1.785, 2009/04/08 10:13:08
Line 935  sub help_open_topic { Line 935  sub help_open_topic {
     $template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'      $template.=' <a target="_top" href="'.$link.'" title="'.$title.'">'
               .'<img src="'.$helpicon.'" border="0"'                .'<img src="'.$helpicon.'" border="0"'
               .' alt="'.&mt('Help: [_1]',$topic).'"'                .' alt="'.&mt('Help: [_1]',$topic).'"'
               .' title="'.$title.'"'                .' title="'.$title.'"' 
               .' /></a>';                .' /></a>';
     if ($text ne "") {      if ($text ne "") {
         $template.='</span>';          $template.='</span>';
Line 2165  sub authform_kerberos { Line 2165  sub authform_kerberos {
         }          }
     } else {      } else {
         if ($authnum == 1) {          if ($authnum == 1) {
             $authtype = '<input type="hidden" name="login" value="krb">';              $authtype = '<input type="hidden" name="login" value="krb" />';
         }          }
     }      }
     if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {      if (!$can_assign{'krb4'} && !$can_assign{'krb5'}) {
Line 2174  sub authform_kerberos { Line 2174  sub authform_kerberos {
         if (defined($in{'mode'})) {          if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {              if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {                  if ($authnum == 1) {
                     $authtype = '<input type="hidden" name="login" value="krb">';                      $authtype = '<input type="hidden" name="login" value="krb" />';
                 }                  }
             }              }
         }          }
Line 2251  sub authform_internal{ Line 2251  sub authform_internal{
         }          }
     } else {      } else {
         if ($authnum == 1) {          if ($authnum == 1) {
             $authtype = '<input type="hidden" name="login" value="int">';              $authtype = '<input type="hidden" name="login" value="int" />';
         }          }
     }      }
     if (!$can_assign{'int'}) {      if (!$can_assign{'int'}) {
Line 2260  sub authform_internal{ Line 2260  sub authform_internal{
         if (defined($in{'mode'})) {          if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {              if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {                  if ($authnum == 1) {
                     $authtype = '<input type="hidden" name="login" value="int">';                      $authtype = '<input type="hidden" name="login" value="int" />';
                 }                  }
             }              }
         }          }
Line 2306  sub authform_local{ Line 2306  sub authform_local{
         }          }
     } else {      } else {
         if ($authnum == 1) {          if ($authnum == 1) {
             $authtype = '<input type="hidden" name="login" value="loc">';              $authtype = '<input type="hidden" name="login" value="loc" />';
         }          }
     }      }
     if (!$can_assign{'loc'}) {      if (!$can_assign{'loc'}) {
Line 2315  sub authform_local{ Line 2315  sub authform_local{
         if (defined($in{'mode'})) {          if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {              if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {                  if ($authnum == 1) {
                     $authtype = '<input type="hidden" name="login" value="loc">';                      $authtype = '<input type="hidden" name="login" value="loc" />';
                 }                  }
             }              }
         }          }
Line 2357  sub authform_filesystem{ Line 2357  sub authform_filesystem{
         }          }
     } else {      } else {
         if ($authnum == 1) {          if ($authnum == 1) {
             $authtype = '<input type="hidden" name="login" value="fsys">';              $authtype = '<input type="hidden" name="login" value="fsys" />';
         }          }
     }      }
     if (!$can_assign{'fsys'}) {      if (!$can_assign{'fsys'}) {
Line 2366  sub authform_filesystem{ Line 2366  sub authform_filesystem{
         if (defined($in{'mode'})) {          if (defined($in{'mode'})) {
             if ($in{'mode'} eq 'modifycourse') {              if ($in{'mode'} eq 'modifycourse') {
                 if ($authnum == 1) {                  if ($authnum == 1) {
                     $authtype = '<input type="hidden" name="login" value="fsys">';                      $authtype = '<input type="hidden" name="login" value="fsys" />';
                 }                  }
             }              }
         }          }
Line 2847  sub track_student_link { Line 2847  sub track_student_link {
  &help_open_topic('View_recent_activity');   &help_open_topic('View_recent_activity');
 }  }
   
   sub slot_reservations_link {
       my ($linktext,$sname,$sdom,$target) = @_;
       my $link ="/adm/slotrequest?command=showresv&amp;origin=aboutme";
       my $title = 'View slot reservation history';
       if (defined($sname) && $sname !~ /^\s*$/ &&
           defined($sdom)  && $sdom  !~ /^\s*$/) {
           $link .= "&amp;uname=$sname&amp;udom=$sdom";
           $title .= ' of this student';
       }
       if (defined($target) && $target !~ /^\s*$/) {
           $target = qq{target="$target"};
       } else {
           $target = '';
       }
       $title = &mt($title);
       $linktext = &mt($linktext);
       return qq{<a href="$link" title="$title" $target>$linktext</a>};
   # FIXME uncomment when help item created: &help_open_topic('Slot_Reservation_History');
   
   }
   
 # ===================================================== Display a student photo  # ===================================================== Display a student photo
   
   
Line 5601  p, .LC_ContentBox { Line 5622  p, .LC_ContentBox {
         padding: 4px;          padding: 4px;
         border: 1px solid #000033;          border: 1px solid #000033;
         white-space: nowrap;          white-space: nowrap;
   /* vertical-align: middle; */
 }  }
   
 dl,ul,div,fieldset {  dl,ul,div,fieldset {
Line 5693  ul.LC_TabContentBigger li, ul.LC_TabCont Line 5715  ul.LC_TabContentBigger li, ul.LC_TabCont
  font-weight:bold;   font-weight:bold;
 }  }
   
 ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcrumbs {  ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcrumbs, ul.LC_CourseBreadcrumbs{
  border-top: solid 1px RGB(255, 255, 255);   border-top: solid 1px RGB(255, 255, 255);
  height: 20px;   height: 20px;
  line-height: 20px;   line-height: 20px;
Line 5704  ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcr Line 5726  ol#LC_MenuBreadcrumbs, ol#LC_PathBreadcr
  background: url(/adm/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, ul.LC_CourseBreadcrumbs li {
 /*  /*
  background: url(/adm/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; */
  overflow:hidden;   overflow:hidden;
 }  }
   
 ol#LC_MenuBreadcrumbs li a {  ol#LC_MenuBreadcrumbs li a, ul.LC_CourseBreadcrumbs li a {
  text-decoration: none;   text-decoration: none;
  font-size:90%;   font-size:90%;
 }  }
Line 5844  div.LC_columnSection > .ContentBoxSpecia Line 5866  div.LC_columnSection > .ContentBoxSpecia
 .LC_loginpage_container {  .LC_loginpage_container {
  text-align:left;   text-align:left;
  margin : 0 auto;   margin : 0 auto;
  width:65%;   width:90%;
  padding: 10px;   padding: 10px;
  height: auto;   height: auto;
  background-color:#FFFFFF;   background-color:#FFFFFF;
Line 5855  div.LC_columnSection > .ContentBoxSpecia Line 5877  div.LC_columnSection > .ContentBoxSpecia
 .LC_loginpage_loginContainer {  .LC_loginpage_loginContainer {
  float:left;   float:left;
  width: 182px;   width: 182px;
    padding: 2px;
  border:1px solid #CCCCCC;   border:1px solid #CCCCCC;
  background-color:$loginbg;   background-color:$loginbg;
 }  }
Line 5866  div.LC_columnSection > .ContentBoxSpecia Line 5889  div.LC_columnSection > .ContentBoxSpecia
  color:$textcol;   color:$textcol;
  padding-left:5px;   padding-left:5px;
 }  }
   
 .LC_loginpage_loginInfo {  .LC_loginpage_loginInfo {
  margin-left:20px;  
  float:left;   float:left;
  width:30%;   width:182px;
  border:1px solid #CCCCCC;   border:1px solid #CCCCCC;
  padding:10px;   padding:2px;
 }  
   
 .LC_loginpage_loginDomain {  
  margin-right:20px;  
  width:20%;  
  float:left;  
  padding:10px;  
 }  }
   
 .LC_loginpage_space {  .LC_loginpage_space {
Line 5887  div.LC_columnSection > .ContentBoxSpecia Line 5903  div.LC_columnSection > .ContentBoxSpecia
  border-bottom: 1px solid #CCCCCC;   border-bottom: 1px solid #CCCCCC;
 }  }
   
   .LC_loginpage_floatLeft {
    float: left;
    width: 200px;
    margin: 0;
   }
   
 table em{  table em{
  font-weight: bold;   font-weight: bold;
  font-style: normal;   font-style: normal;
Line 5970  ul#LC_toolbar li{ Line 5992  ul#LC_toolbar li{
  vertical-align:middle;   vertical-align:middle;
 }  }
   
   /*
    This style is used for standard function lists, e.g. functions of Personal Information Page.
    It produces a horizontally aligned list with a bullet at the beginning of each function item.
    */
   .LC_fieldset_functions li {
    float: right;
    height: 35px;
    background-color: blue; 
    white-space: nowrap;
    margin-left: 10px;
   }
   
 a.LC_toolbarItem{  a.LC_toolbarItem{
  display:block;   display:block;
  padding:0;   padding:0;
Line 5982  a.LC_toolbarItem{ Line 6016  a.LC_toolbarItem{
  background-color:transparent;   background-color:transparent;
 }  }
   
   ul.LC_functionslist li {
     float: left;
     white-space: nowrap;
     height: 35px; /* at least as high as heighest list item */
     margin: 0px 15px 15px 10px;
   }
   
   
 END  END
 }  }
Line 7017  If the user's status includes multiple t Line 7058  If the user's status includes multiple t
 the largest default quota which applies to the user determines the  the largest default quota which applies to the user determines the
 default quota returned.  default quota returned.
   
   =back
   
 =cut  =cut
   
 ###############################################  ###############################################
Line 7565  sub get_institutional_codes { Line 7608  sub get_institutional_codes {
   
 =pod  =pod
   
   =head1 Slot Helpers
   
   =over 4
   
   =item * sorted_slots()
   
   Sorts an array of slot names in order of slot start time (earliest first). 
   
   Inputs:
   
   =over 4
   
   slotsarr  - Reference to array of unsorted slot names.
   
   slots     - Reference to hash of hash, where outer hash keys are slot names.
   
   =back
   
   Returns:
   
   =over 4
   
   sorted   - An array of slot names sorted by the start time of the slot.
   
 =back  =back
   
   =back
   
   =cut
   
   
   sub sorted_slots {
       my ($slotsarr,$slots) = @_;
       my @sorted;
       if ((ref($slotsarr) eq 'ARRAY') && (ref($slots) eq 'HASH')) {
           @sorted =
               sort {
                        if (ref($slots->{$a}) && ref($slots->{$b})) {
                            return $slots->{$a}{'starttime'} <=> $slots->{$b}{'starttime'}
                        }
                        if (ref($slots->{$a})) { return -1;}
                        if (ref($slots->{$b})) { return 1;}
                        return 0;
                    } @{$slotsarr};
       }
       return @sorted;
   }
   
   
   =pod
   
 =head1 HTTP Helpers  =head1 HTTP Helpers
   
 =over 4  =over 4
Removed from v.1.779  
changed lines
  Added in v.1.785

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