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

Diff for /loncom/interface/loncommon.pm between versions 1.742 and 1.744

version 1.742, 2009/02/05 00:45:29 version 1.744, 2009/02/10 12:20:17
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 5612  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 5620  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 5649  ul.LC_TabContent { Line 5655  ul.LC_TabContent {
 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:$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;
   }
 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 5664  ul.LC_TabContentBigger li{ Line 5674  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;
Removed from v.1.742  
changed lines
  Added in v.1.744

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