[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.17 and 1.948.2.23

version 1.948.2.17, 2010/12/25 16:01:54 version 1.948.2.23, 2011/01/05 19:57:17
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 5160  td.LC_table_cell_checkbox { Line 5164  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;
Line 7816  sub get_secgrprole_info { Line 7820  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 7911  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 7958  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 8887  sub upload_embedded { Line 8896  sub upload_embedded {
         if ($env{'form.embedded_ref_'.$i}) {          if ($env{'form.embedded_ref_'.$i}) {
             $pathchange{$i} = 1;              $pathchange{$i} = 1;
         }          }
       }
     if ($output) {      if ($output) {
         $output = '<p>'.$output.'</p>';          $output = '<p>'.$output.'</p>';
     }      }
Line 9086  sub check_for_upload { Line 9096  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 9096  sub check_for_upload { Line 9106  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 9104  sub check_for_upload { Line 9119  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.17  
changed lines
  Added in v.1.948.2.23

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