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

Diff for /loncom/interface/loncommon.pm between versions 1.948.2.18 and 1.948.2.25

version 1.948.2.18, 2010/12/25 17:35:53 version 1.948.2.25, 2011/01/12 05:13:03
Line 4496  Returns: HTML div with $content Line 4496  Returns: HTML div with $content
 sub head_subbox {  sub head_subbox {
     my ($content)=@_;      my ($content)=@_;
     my $output =      my $output =
         '<div id="LC_head_subbox">'          '<div class="LC_head_subbox">'
        .$content         .$content
        .'</div>'         .'</div>'
 }  }
Line 4689  sub bodytag { Line 4689  sub bodytag {
     $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;      $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
     &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);      &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);
   
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} ne 'on') {
         # No Remote          # No Remote
         if ($no_nav_bar || $env{'form.inhibitmenu'} eq 'yes') {           if ($no_nav_bar || $env{'form.inhibitmenu'} eq 'yes') { 
             return $bodytag;               return $bodytag;
         }           }
   
         if ($env{'request.state'} eq 'construct') { $forcereg=1; }          if ($env{'request.state'} eq 'construct') { $forcereg=1; }
   
Line 4711  sub bodytag { Line 4711  sub bodytag {
                 <em>$realm</em> $dc_info</div>|;                  <em>$realm</em> $dc_info</div>|;
             return $bodytag;              return $bodytag;
         }          }
           if (($env{'request.noversionuri'} =~ m{^/adm/navmaps}) &&
                ($env{'environment.remotenavmap'} eq 'on')) {
               return $bodytag;
           }
   
         unless ($env{'request.symb'} =~ m/\.page___\d+___/) {          unless ($env{'request.symb'} =~ m/\.page___\d+___/) {
             $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>|;              $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>|;
Line 4765  sub bodytag { Line 4769  sub bodytag {
         $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;          $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;
     }      }
   
     $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>      unless ($env{'form.inhibitmenu'}) {
             <ol class="LC_primary_menu LC_right">          $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>
                 <li>$menu</li>                         <ol class="LC_primary_menu LC_right">
             </ol><div id="LC_realm"> $realm $dc_info</div>| unless $env{'form.inhibitmenu'};                         <li>$menu</li>
                          </ol><div id="LC_realm"> $realm $dc_info</div>|;
       }
   
     return(<<ENDBODY);      return(<<ENDBODY);
 $bodytag  $bodytag
 <table id="LC_title_bar" class="LC_with_remote">  <table id="LC_title_bar" class="LC_with_remote">
Line 5153  td.LC_table_cell_checkbox { Line 5160  td.LC_table_cell_checkbox {
   overflow: hidden;    overflow: hidden;
   margin: 0;    margin: 0;
   padding: 0;    padding: 0;
     text-align: left;
 }  }
   
 /* Preliminary fix to hide breadcrumbs inside remote control window */  /* Preliminary fix to hide breadcrumbs inside remote control window */
Line 5160  td.LC_table_cell_checkbox { Line 5168  td.LC_table_cell_checkbox {
   display:none;    display:none;
 }  }
   
 #LC_head_subbox {  .LC_head_subbox {
   clear:both;    clear:both;
   background: #F8F8F8; /* $sidebg; */    background: #F8F8F8; /* $sidebg; */
   border: 1px solid $sidebg;    border: 1px solid $sidebg;
   margin: 0 0 10px 0;          margin: 0 0 10px 0;      
   padding: 3px;    padding: 3px;
     text-align: left;
 }  }
   
 .LC_fontsize_medium {  .LC_fontsize_medium {
Line 6143  fieldset > legend { Line 6152  fieldset > legend {
   
 #LC_nav_bar {  #LC_nav_bar {
   float: left;    float: left;
     background-color: $pgbg_or_bgcolor;
   margin: 0 0 2px 0;    margin: 0 0 2px 0;
 }  }
   
Line 6151  fieldset > legend { Line 6161  fieldset > legend {
   padding: 0;    padding: 0;
   font-weight: bold;    font-weight: bold;
   text-align: center;    text-align: center;
     background-color: $pgbg_or_bgcolor;
 }  }
   
 #LC_nav_bar em {  #LC_nav_bar em {
Line 6166  fieldset > legend { Line 6177  fieldset > legend {
 ol.LC_primary_menu {  ol.LC_primary_menu {
   float: right;    float: right;
   margin: 0;    margin: 0;
     background-color: $pgbg_or_bgcolor;
 }  }
   
 span.LC_new_message{  span.LC_new_message{
Line 6225  ul#LC_secondary_menu { Line 6237  ul#LC_secondary_menu {
   padding: 0;    padding: 0;
   margin: 0;    margin: 0;
   width: 100%;    width: 100%;
     text-align: left;
 }  }
   
 ul#LC_secondary_menu li {  ul#LC_secondary_menu li {
Line 7816  sub get_secgrprole_info { Line 7829  sub get_secgrprole_info {
 }  }
   
 sub user_picker {  sub user_picker {
     my ($dom,$srch,$forcenewuser,$caller,$cancreate,$usertype) = @_;      my ($dom,$srch,$forcenewuser,$caller,$cancreate,$usertype,$context) = @_;
     my $currdom = $dom;      my $currdom = $dom;
     my %curr_selected = (      my %curr_selected = (
                         srchin => 'dom',                          srchin => 'dom',
Line 7907  sub user_picker { Line 7920  sub user_picker {
     $srchtypesel .= "\n  </select>\n";      $srchtypesel .= "\n  </select>\n";
   
     my ($newuserscript,$new_user_create);      my ($newuserscript,$new_user_create);
       my $context_dom = $env{'request.role.domain'};
       if ($context eq 'requestcrs') {
           if ($env{'form.coursedom'} ne '') {
               $context_dom = $env{'form.coursedom'};
           }
       }
     if ($forcenewuser) {      if ($forcenewuser) {
         if (ref($srch) eq 'HASH') {          if (ref($srch) eq 'HASH') {
             if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $env{'request.role.domain'}) {              if ($srch->{'srchby'} eq 'uname' && $srch->{'srchtype'} eq 'exact' && $srch->{'srchin'} eq 'dom' && $srch->{'srchdomain'} eq $context_dom) {
                 if ($cancreate) {                  if ($cancreate) {
                     $new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';                      $new_user_create = '<p> <input type="submit" name="forcenew" value="'.&HTML::Entities::encode(&mt('Make new user "[_1]"',$srchterm),'<>&"').'" onclick="javascript:setSearch(\'1\','.$caller.');" /> </p>';
                 } else {                  } else {
Line 7949  function setSearch(createnew,callingForm Line 7967  function setSearch(createnew,callingForm
             }              }
         }          }
         for (var i=0; i<callingForm.srchdomain.length; i++) {          for (var i=0; i<callingForm.srchdomain.length; i++) {
             if (callingForm.srchdomain.options[i].value == '$env{'request.role.domain'}') {              if (callingForm.srchdomain.options[i].value == '$context_dom') {
                 callingForm.srchdomain.selectedIndex = i;                  callingForm.srchdomain.selectedIndex = i;
             }              }
         }          }
Line 9087  sub check_for_upload { Line 9105  sub check_for_upload {
                   &mt('Unable to upload [_1]. (size = [_2] bytes)',                    &mt('Unable to upload [_1]. (size = [_2] bytes)',
                       '<span class="LC_filename">'.$fname.'</span>',                        '<span class="LC_filename">'.$fname.'</span>',
                       $filesize).'<br />'.                        $filesize).'<br />'.
                   &mt('Either the file you uploaded was empty, or your web browser was unable to read its contents.').'<br />';                    &mt('Either the file you attempted to upload was empty, or your web browser was unable to read its contents.').'<br />';
                   '</span>';                    '</span>';
         return ('zero_bytes',$msg);          return ('zero_bytes',$msg);
     }      }
Line 9097  sub check_for_upload { Line 9115  sub check_for_upload {
                                             $getpropath);                                              $getpropath);
     my $found_file = 0;      my $found_file = 0;
     my $locked_file = 0;      my $locked_file = 0;
       my @lockers;
       my $navmap;
       if ($env{'request.course.id'}) {
           $navmap = Apache::lonnavmaps::navmap->new();
       }
     foreach my $line (@dir_list) {      foreach my $line (@dir_list) {
         my ($file_name,$rest)=split(/\&/,$line,2);          my ($file_name,$rest)=split(/\&/,$line,2);
         if ($file_name eq $fname){          if ($file_name eq $fname){
Line 9105  sub check_for_upload { Line 9128  sub check_for_upload {
                 $file_name = $group.$file_name;                  $file_name = $group.$file_name;
             }              }
             $found_file = 1;              $found_file = 1;
             if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {              if (&Apache::lonnet::is_locked($file_name,$udom,$uname,\@lockers) eq 'true') {
                 $locked_file = 1;                  foreach my $lock (@lockers) {
                       if (ref($lock) eq 'ARRAY') {
                           my ($symb,$crsid) = @{$lock};
                           if ($crsid eq $env{'request.course.id'}) {
                               if (ref($navmap)) {
                                   my $res = $navmap->getBySymb($symb);
                                   foreach my $part (@{$res->parts()}) {
                                       my ($slot_status,$slot_time,$slot_name)=$res->check_for_slot($part);
                                       unless (($slot_status == $res->RESERVED) ||
                                               ($slot_status == $res->RESERVED_LOCATION)) {
                                           $locked_file = 1;
                                       }
                                   }
                               } else {
                                   $locked_file = 1;
                               }
                           } else {
                               $locked_file = 1;
                           }
                       }
                   }
             } else {              } else {
                 my @info = split(/\&/,$rest);                  my @info = split(/\&/,$rest);
                 my $currsize = $info[6]/1000;                  my $currsize = $info[6]/1000;
Removed from v.1.948.2.18  
changed lines
  Added in v.1.948.2.25

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