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

Diff for /loncom/interface/loncommon.pm between versions 1.741 and 1.749

version 1.741, 2009/02/03 19:36:19 version 1.749, 2009/02/14 13:43:35
Line 1746  sub select_level_form { Line 1746  sub select_level_form {
   
 =pod  =pod
   
 =item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc)  =item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$autosubmit)
   
 Returns a string containing a <select name='$name' size='1'> form to   Returns a string containing a <select name='$name' size='1'> form to 
 allow a user to select the domain to preform an operation in.    allow a user to select the domain to preform an operation in.  
Line 1755  See loncreateuser.pm for an example invo Line 1755  See loncreateuser.pm for an example invo
 If the $includeempty flag is set, it also includes an empty choice ("no domain  If the $includeempty flag is set, it also includes an empty choice ("no domain
 selected");  selected");
   
 If the $showdomdesc flag is set, the domain name is followed by the domain description.   If the $showdomdesc flag is set, the domain name is followed by the domain description.
   
   If the $autosubmit flag is set, the form containing the domain selector will be auto-submitted by an onchange action.  
   
 =cut  =cut
   
 #-------------------------------------------  #-------------------------------------------
 sub select_dom_form {  sub select_dom_form {
     my ($defdom,$name,$includeempty,$showdomdesc) = @_;      my ($defdom,$name,$includeempty,$showdomdesc,$autosubmit) = @_;
       my $onchange;
       if ($autosubmit) {
           $onchange = ' onchange="this.form.submit()"';
       }
     my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains());      my @domains = sort {lc($a) cmp lc($b)} (&Apache::lonnet::all_domains());
     if ($includeempty) { @domains=('',@domains); }      if ($includeempty) { @domains=('',@domains); }
     my $selectdomain = "<select name=\"$name\" size=\"1\">\n";      my $selectdomain = "<select name=\"$name\" size=\"1\"$onchange>\n";
     foreach my $dom (@domains) {      foreach my $dom (@domains) {
         $selectdomain.="<option value=\"$dom\" ".          $selectdomain.="<option value=\"$dom\" ".
             ($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;              ($dom eq $defdom ? 'selected="selected" ' : '').'>'.$dom;
Line 3073  sub languages { Line 3079  sub languages {
     return $preferred_possibilities[0];      return $preferred_possibilities[0];
 }  }
   
   sub user_lang {
       my ($touname,$toudom,$fromcid) = @_;
       my @userlangs;
       if (($fromcid ne '') && ($env{'course.'.$fromcid.'.languages'} ne '')) {
           @userlangs=(@userlangs,split(/\s*(\,|\;|\:)\s*/,
                       $env{'course.'.$fromcid.'.languages'}));
       } else {
           my %langhash = &getlangs($touname,$toudom);
           if ($langhash{'languages'} ne '') {
               @userlangs = split(/\s*(\,|\;|\:)\s*/,$langhash{'languages'});
           } else {
               my %domdefs = &Apache::lonnet::get_domain_defaults($toudom);
               if ($domdefs{'lang_def'} ne '') {
                   @userlangs = ($domdefs{'lang_def'});
               }
           }
       }
       my @languages=&Apache::lonlocal::get_genlanguages(@userlangs);
       my $user_lh = Apache::localize->get_handle(@languages);
       return $user_lh;
   }
   
   
 ###############################################################  ###############################################################
 ##               Student Answer Attempts                     ##  ##               Student Answer Attempts                     ##
 ###############################################################  ###############################################################
Line 5589  ol.LC_smallMenu a { Line 5618  ol.LC_smallMenu a {
  color: RGB(80, 80, 80);   color: RGB(80, 80, 80);
  text-decoration: none;   text-decoration: none;
 }  }
 ol#LC_TabMainMenueContent, ul.LC_TabContent,  ol#LC_TabMainMenueContent, ul.LC_TabContent ,
 ul.LC_TabContentBigger {  ul.LC_TabContentBigger {
  display:block;   display:block;
  list-style:none;   list-style:none;
Line 5597  ul.LC_TabContentBigger { Line 5626  ul.LC_TabContentBigger {
  padding: 0px;   padding: 0px;
 }  }
   
 ol#LC_TabMainMenuContent li, ul.LC_TabContent,  ol#LC_TabMainMenuContent li, ul.LC_TabContent li,
 ul.LC_TabContentBigger li{  ul.LC_TabContentBigger li{
  display: inline;   display: inline;
  border-right: solid 1px $lg_border_color;   border-right: solid 1px $lg_border_color;
Line 5621  ol#LC_TabMainMenuContent li a{ Line 5650  ol#LC_TabMainMenuContent li a{
 }  }
 ul.LC_TabContent {  ul.LC_TabContent {
  min-height:1.6em;   min-height:1.6em;
  border-bottom:solid 1px $lg_border_color;  
 }  }
 ul.LC_TabContent li{  ul.LC_TabContent li{
  vertical-align:middle;   vertical-align:middle;
  padding:0px 10px 0px 10px;   padding:0px 10px 0px 10px;
    background-color:$tabbg;
    border-bottom:solid 1px $lg_border_color;
 }  }
 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);
  text-decoration:none;   text-decoration:none;
  font-size:95%;   font-size:95%;
  font-weight:bold;   font-weight:bold;
 }  }
   ul.LC_TabContent li:hover, ul.LC_TabContent li.active{
    background-color:#FFFFFF;
    border-bottom:solid 1px #FFFFFF;
   }
 ul.LC_TabContentBigger li{  ul.LC_TabContentBigger li{
  vertical-align:bottom;   vertical-align:bottom;
  border-top:solid 1px $lg_border_color;   border-top:solid 1px $lg_border_color;
Line 5641  ul.LC_TabContentBigger li{ Line 5675  ul.LC_TabContentBigger li{
  margin-left:2px;   margin-left:2px;
  background:url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;   background:url(/adm/lonIcons/lightGreyBG.png) repeat-x left top;
 }  }
   ul.LC_TabContentBigger li:hover, ul.LC_TabContentBigger li.active{
    background:url(/adm/lonIcons/lightGreyBG.png) repeat-x right bottom;
   }
 ul.LC_TabContentBigger li, ul.LC_TabContentBigger li a{  ul.LC_TabContentBigger li, ul.LC_TabContentBigger li a{
  font-size:110%;   font-size:110%;
  font-weight:bold;   font-weight:bold;
Line 5690  ol#LC_PathBreadcrumbs li a{ Line 5727  ol#LC_PathBreadcrumbs li a{
 {  {
  border: solid 1px $lg_border_color;   border: solid 1px $lg_border_color;
 }  }
   .LC_ContentBoxSpecialContactInfo
   {
    border: solid 1px $lg_border_color;
    max-width:25%;
    min-width:25%;
   }
   .LC_AboutMe_Image
   {
    float:left;
    margin-right:10px;
   }
   .LC_Clear_AboutMe_Image
   {
    clear:left;
   }
 dl.LC_ListStyleClean dt {  dl.LC_ListStyleClean dt {
  padding-right: 5px;   padding-right: 5px;
  display: table-header-group;   display: table-header-group;
Line 5766  div.LC_columnSection { Line 5817  div.LC_columnSection {
 div.LC_columnSection>* {  div.LC_columnSection>* {
  float: left;   float: left;
  margin: 10px 20px 10px 0px;   margin: 10px 20px 10px 0px;
  overflow:hidden;   overflow:hidden;
 }  }
 div.LC_columnSection > .LC_ContentBox,  div.LC_columnSection > .LC_ContentBox,
 div.LC_columnSection > .LC_ContentBoxSpecial  div.LC_columnSection > .LC_ContentBoxSpecial
  {   {
  width: 400px;   width: 400px;
 }  }
   
 .ContentBoxSpecialTemplate  .ContentBoxSpecialTemplate
Line 5842  div.LC_columnSection > .ContentBoxSpecia Line 5893  div.LC_columnSection > .ContentBoxSpecia
  border-bottom: 1px solid #CCCCCC;   border-bottom: 1px solid #CCCCCC;
 }  }
   
   table em{
    font-weight:bold;
    font-style:normal;
   }
   
 END  END
 }  }
   
Removed from v.1.741  
changed lines
  Added in v.1.749

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