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

Diff for /loncom/interface/loncommon.pm between versions 1.467 and 1.476

version 1.467, 2006/11/01 22:22:31 version 1.476, 2006/11/29 19:33:29
Line 386  sub selectstudent_link { Line 386  sub selectstudent_link {
 }  }
   
 sub coursebrowser_javascript {  sub coursebrowser_javascript {
     my ($domainfilter)=@_;      my ($domainfilter,$sec_element,$formname)=@_;
     my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Group - for which you wish to add/modify a user role');      my $crs_or_grp_alert = &mt('Please select the type of LON-CAPA entity - Course or Group - for which you wish to add/modify a user role');
    return (<<ENDSTDBRW);     my $output = '
 <script type="text/javascript" language="Javascript" >  <script type="text/javascript" language="Javascript" >
     var stdeditbrowser;      var stdeditbrowser;'."\n";
      $output .= <<"ENDSTDBRW";
     function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,crstype) {      function opencrsbrowser(formname,uname,udom,desc,extra_element,multflag,crstype) {
         var url = '/adm/pickcourse?';          var url = '/adm/pickcourse?';
         var filter;          var domainfilter = '';
         if (filter != null) {          var formid = getFormIdByName(formname);
            if (filter != '') {          if (formid > -1) {
                url += 'filter='+filter+'&';              var domid = getIndexByName(formid,udom);
    }              if (domid > -1) {
                   if (document.forms[formid].elements[domid].type == 'select-one') {
                       domainfilter=document.forms[formid].elements[domid].options[document.forms[formid].elements[domid].selectedIndex].value;
                   }
                   if (document.forms[formid].elements[domid].type == 'hidden') {
                       domainfilter=document.forms[formid].elements[domid].value;
                   }
               }
         }          }
         var domainfilter='$domainfilter';  
         if (domainfilter != null) {          if (domainfilter != null) {
            if (domainfilter != '') {             if (domainfilter != '') {
                url += 'domainfilter='+domainfilter+'&';                 url += 'domainfilter='+domainfilter+'&';
Line 408  sub coursebrowser_javascript { Line 415  sub coursebrowser_javascript {
         url += 'form=' + formname + '&cnumelement='+uname+          url += 'form=' + formname + '&cnumelement='+uname+
                             '&cdomelement='+udom+                              '&cdomelement='+udom+
                                     '&cnameelement='+desc;                                      '&cnameelement='+desc;
         if (extra_element !=null && extra_element != '' && formname == 'rolechoice') {          if (extra_element !=null && extra_element != '') {
             url += '&roleelement='+extra_element;              if (formname == 'rolechoice') {
             if (domainfilter == null || domainfilter == '') {                  url += '&roleelement='+extra_element;
                 url += '&domainfilter='+extra_element;                  if (domainfilter == null || domainfilter == '') {
                       url += '&domainfilter='+extra_element;
                   }
             }              }
               else {
                   if (formname == 'portform') {
                       url += '&setroles='+extra_element;
                   }
               }     
         }          }
         if (multflag !=null && multflag != '') {          if (multflag !=null && multflag != '') {
             url += '&multiple='+multflag;              url += '&multiple='+multflag;
Line 435  sub coursebrowser_javascript { Line 449  sub coursebrowser_javascript {
         stdeditbrowser = open(url,title,options,'1');          stdeditbrowser = open(url,title,options,'1');
         stdeditbrowser.focus();          stdeditbrowser.focus();
     }      }
 </script>  
       function getFormIdByName(formname) {
           for (var i=0;i<document.forms.length;i++) {
               if (document.forms[i].name == formname) {
                   return i;
               }
           }
           return -1; 
       }
   
       function getIndexByName(formid,item) {
           for (var i=0;i<document.forms[formid].elements.length;i++) {
               if (document.forms[formid].elements[i].name == item) {
                   return i;
               }
           }
           return -1;
       }
 ENDSTDBRW  ENDSTDBRW
       if ($sec_element ne '') {
           $output .= &setsec_javascript($sec_element,$formname);
       }
       $output .= '
   </script>';
       return $output;
 }  }
   
   sub setsec_javascript {
       my ($sec_element,$formname) = @_;
       my $setsections = qq|
   function setSect(sectionlist) {
       var sectionsArray = sectionlist.split(",");
       var numSections = sectionsArray.length;
       document.$formname.$sec_element.length = 0;
       if (numSections == 0) {
           document.$formname.$sec_element.multiple=false;
           document.$formname.$sec_element.size=1;
           document.$formname.$sec_element.options[0] = new Option('No existing sections','',false,false)
       } else {
           if (numSections == 1) {
               document.$formname.$sec_element.multiple=false;
               document.$formname.$sec_element.size=1;
               document.$formname.$sec_element.options[0] = new Option('Select','',true,true);
               document.$formname.$sec_element.options[1] = new Option('No section','',false,false)
               document.$formname.$sec_element.options[2] = new Option(sectionsArray[0],sectionsArray[0],false,false);
           } else {
               for (var i=0; i<numSections; i++) {
                   document.$formname.$sec_element.options[i] = new Option(sectionsArray[i],sectionsArray[i],false,false)
               }
               document.$formname.$sec_element.multiple=true
               if (numSections < 3) {
                   document.$formname.$sec_element.size=numSections;
               } else {
                   document.$formname.$sec_element.size=3;
               }
               document.$formname.$sec_element.options[0].selected = false
           }
       }
   }
   |;
       return $setsections;
   }
   
   
 sub selectcourse_link {  sub selectcourse_link {
    my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_;     my ($form,$unameele,$udomele,$desc,$extra_element,$multflag,$selecttype)=@_;
     return "<a href='".'javascript:opencrsbrowser("'.$form.'","'.$unameele.      return "<a href='".'javascript:opencrsbrowser("'.$form.'","'.$unameele.
Line 1303  sub select_form { Line 1377  sub select_form {
     return $selectform;      return $selectform;
 }  }
   
   # For display filters
   
   sub display_filter {
       if (!$env{'form.show'}) { $env{'form.show'}=10; }
       return '<nobr><label>'.&mt('Records [_1]',
          &Apache::lonmeta::selectbox('show',$env{'form.show'},undef,
      (&mt('all'),10,20,50,100,1000,10000))).
      '</label></nobr> <nobr><label>'.
              &mt('Filter [_1]',
      &select_form(($env{'form.displayfilter'}?$env{'form.displayfilter'}:'currentfolder'),
    'displayfilter',
    ('currentfolder' => 'Current folder',
    'containing' => 'Containing phrase',
    'none' => 'None'))).
      '<input type="text" name="containingphrase" size="30" /></label></nobr>';
   }
   
 sub gradeleveldescription {  sub gradeleveldescription {
     my $gradelevel=shift;      my $gradelevel=shift;
     my %gradelevels=(0 => 'Not specified',      my %gradelevels=(0 => 'Not specified',
Line 2718  sub findallcourses { Line 2809  sub findallcourses {
     my %courses;      my %courses;
     my $now=time;      my $now=time;
     foreach my $key (keys(%env)) {      foreach my $key (keys(%env)) {
  if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)} ) {   if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)/?(\w*)$} ||
     my ($role,$domain,$id) = ($1,$2,$3);               $key=~m{^user\.role\.(cr/\w+/\w+/\w+)\./(\w+)/(\w+)}) {
       my ($role,$domain,$id,$sec) = ($1,$2,$3,$4);
     next if ($role eq 'ca' || $role eq 'aa');      next if ($role eq 'ca' || $role eq 'aa');
     next if (%roles && !exists($roles{$role}));      next if (%roles && !exists($roles{$role}));
     my ($starttime,$endtime)=split(/\./,$env{$key});      my ($starttime,$endtime)=split(/\./,$env{$key});
Line 2730  sub findallcourses { Line 2822  sub findallcourses {
             if ($endtime) {              if ($endtime) {
                 if ($now>$endtime) { $active=0; }                  if ($now>$endtime) { $active=0; }
             }              }
             if ($active) { $courses{$domain.'_'.$id}=1; }              if ($active) {
                   if ($sec eq '') {
                       $sec = 'none';
                   }
                   $courses{$domain.'_'.$id}{$sec} = 1;
               }
         }          }
     }      }
     return keys(%courses);      return %courses;
 }  }
   
 ###############################################  ###############################################
   
   sub blockcheck {
       my ($setters,$activity) = @_;
       # Retrieve active student roles and active course coordinator/instructor roles
   
       my %live_courses = &findallcourses();
   
       # Retrieve blocking times and identity of blocker for active courses
       # unless user has 'evb' privilege.
   
       my $startblock = 0;
       my $endblock = 0;
   
       foreach my $course (keys(%live_courses)) {
           my $cdom = $env{'course.'.$course.'.domain'};
           my $cnum = $env{'course.'.$course.'.num'};
           my $noblock = 0;
           foreach my $sec (keys(%{$live_courses{$course}})) {
               my $role = 'cm./'.$cdom.'/'.$cnum;
               if ($sec ne 'none') {
                   $role .= '/'.$sec;
               }
               if (&Apache::lonnet::allowed('evb',undef,undef,$role)) {
                   $noblock = 1;
                   last;
               }
           }
           # if they have the evb priv and are currently not playing student
           next if (($noblock) &&
                    ($env{'request.role'} !~ m{^st\./$cdom/$cnum}));
   
           $setters->{$course} = {};
           $setters->{$course}{'staff'} = [];
           $setters->{$course}{'times'} = [];
           my %records = &Apache::lonnet::dump('comm_block',$cdom,$cnum);
           foreach my $record (keys(%records)) {
               my ($start,$end) = ($record =~ m/^(\d+)____(\d+)$/);
               if ($start <= time && $end >= time) {
                   my ($staff_name,$staff_dom,$title,$blocks) =
                       &parse_block_record($records{$record});
                   if ($blocks->{$activity} eq 'on') {
                       push(@{$$setters{$course}{'staff'}}, [$staff_name,$staff_dom]);                    push(@{$$setters{$course}{'times'}}, [$start,$end]);
                       if ( ($startblock == 0) || ($startblock > $1) ) {
                           $startblock = $1;
                       }
                       if ( ($endblock == 0) || ($endblock < $2) ) {
                           $endblock = $2;
                       }
                   }
               }
           }
       }
       return ($startblock,$endblock);
   }
   
   sub parse_block_record {
       my ($record) = @_;
       my ($setuname,$setudom,$title,$blocks);
       if (ref($record) eq 'HASH') {
           ($setuname,$setudom) = split(/:/,$record->{'setter'});
           $title = &unescape($record->{'event'});
           $blocks = $record->{'blocks'};
       } else {
           my @data = split(/:/,$record,3);
           if (scalar(@data) eq 2) {
               $title = $data[1];
               ($setuname,$setudom) = split(/@/,$data[0]);
           } else {
               ($setuname,$setudom,$title) = @data;
           }
           $blocks = { 'com' => 'on' };
       }
       return ($setuname,$setudom,$title,$blocks);
   }
   
   sub build_block_table {
       my ($startblock,$endblock,$setters) = @_;
       my %lt = &Apache::lonlocal::texthash(
           'cacb' => 'Currently active communication blocks',
           'cour' => 'Course',
           'dura' => 'Duration',
           'blse' => 'Block set by'
       );
       my $output;
       $output = '<br />'.$lt{'cacb'}.':<br />';
       $output .= &start_data_table();
       $output .= '
   <tr>
    <th>'.$lt{'cour'}.'</th>
    <th>'.$lt{'dura'}.'</th>
    <th>'.$lt{'blse'}.'</th>
   </tr>
   ';
       foreach my $course (keys(%{$setters})) {
           my %courseinfo=&Apache::lonnet::coursedescription($course);
           for (my $i=0; $i<@{$$setters{$course}{staff}}; $i++) {
               my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};
               my $fullname = &aboutmewrapper(&plainname($uname,$udom),$uname,$udom);
               my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};
               $openblock = &Apache::lonlocal::locallocaltime($openblock);
               $closeblock= &Apache::lonlocal::locallocaltime($closeblock);
               $output .= &Apache::loncommon::start_data_table_row().
                          '<td>'.$courseinfo{'description'}.'</td>'.
                          '<td>'.$openblock.' to '.$closeblock.'</td>'.
                          '<td>'.$fullname.'.</td>'.
                           &Apache::loncommon::end_data_table_row();
           }
       }
       $output .= &end_data_table();
   }
   
 ###############################################  ###############################################
   
 =pod  =pod
Line 3194  sub standard_css { Line 3402  sub standard_css {
     my $mono                 = 'monospace';      my $mono                 = 'monospace';
     my $data_table_head      = $tabbg;      my $data_table_head      = $tabbg;
     my $data_table_light     = '#EEEEEE';      my $data_table_light     = '#EEEEEE';
     my $data_table_dark      = '#DDD';      my $data_table_dark      = '#DDDDDD';
     my $data_table_darker    = '#CCC';      my $data_table_darker    = '#CCCCCC';
     my $data_table_highlight = '#FFFF00';      my $data_table_highlight = '#FFFF00';
     my $mail_new             = '#FFBB77';      my $mail_new             = '#FFBB77';
     my $mail_new_hover       = '#DD9955';      my $mail_new_hover       = '#DD9955';
Line 3280  table#LC_title_bar td.LC_title_bar_who { Line 3488  table#LC_title_bar td.LC_title_bar_who {
   font: small $sans;    font: small $sans;
   text-align: right;    text-align: right;
 }  }
   span.LC_metadata {
       font-family: $sans;
   }
 span.LC_title_bar_title {  span.LC_title_bar_title {
   font: bold x-large $sans;    font: bold x-large $sans;
 }  }
Line 3437  table.LC_whatsnew tr.LC_odd_row td { Line 3648  table.LC_whatsnew tr.LC_odd_row td {
   background-color: #EEE;    background-color: #EEE;
 }  }
   
   table.LC_createuser {
   }
   
   table.LC_createuser tr.LC_section_row td {
     font-size: smaller;
   }
   
   table.LC_createuser tr.LC_info_row td  {
     background-color: #CCC;
     font-weight: bold;
     text-align: center;
   }
   
 table.LC_calendar {  table.LC_calendar {
   border: 1px solid #000000;    border: 1px solid #000000;
   border-collapse: collapse;    border-collapse: collapse;
Line 4126  sub simple_error_page { Line 4350  sub simple_error_page {
  $css_class = (join(' ',$css_class,$add_class));   $css_class = (join(' ',$css_class,$add_class));
  return  '<tr class="'.$css_class.'">'."\n";;   return  '<tr class="'.$css_class.'">'."\n";;
     }      }
       
       sub continue_data_table_row {
    my ($add_class) = @_;
    my $css_class = ($row_count % 2)?'':'LC_even_row';
    $css_class = (join(' ',$css_class,$add_class));
    return  '<tr class="'.$css_class.'">'."\n";;
       }
   
     sub end_data_table_row {      sub end_data_table_row {
  return '</tr>'."\n";;   return '</tr>'."\n";;
Line 4528  sub get_user_info { Line 4759  sub get_user_info {
     return;      return;
 }  }
   
   ###############################################
   
   =pod
   
   =item * &get_user_quota()
   
   Retrieves quota assigned for storage of portfolio files for a user  
   
   Incoming parameters:
   1. user's username
   2. user's domain
   
   Returns:
   1. Disk quota (in Mb) assigned to student. 
   
   If a value has been stored in the user's environment, 
   it will return that, otherwise it returns the default
   for users in the domain.
   
   =cut
   
   ###############################################
   
   
   sub get_user_quota {
       my ($uname,$udom) = @_;
       my $quota;
       if (!defined($udom)) {
           $udom = $env{'user.domain'};
       }
       if (!defined($uname)) {
           $uname = $env{'user.name'};
       }
       if (($udom eq '' || $uname eq '') ||
           ($udom eq 'public') && ($uname eq 'public')) {
           $quota = 0;
       } else {
           if ($udom eq $env{'user.domain'} && $uname eq $env{'user.name'}) {
               $quota = $env{'environment.portfolioquota'};
           } else {
               my %userenv = &Apache::lonnet::dump('environment',$udom,$uname);
               my ($tmp) = keys(%userenv);
               if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
                   $quota = $userenv{'portfolioquota'};
               } else {
                   undef(%userenv);
               }
           }
           if ($quota eq '') {
               $quota = &default_quota($udom);
           }
       }
       return $quota;
   }
   
   ###############################################
   
   =pod
   
   =item * &default_quota()
   
   Retrieves default quota assigned for storage of user portfolio files
   
   Incoming parameters:
   1. domain
   
   Returns:
   1. Default disk quota (in Mb) for user portfolios in the domain.
   
   If a value has been stored in the domain's configuration db,
   it will return that, otherwise it returns 20 (for backwards 
   compatibility with domains which have not set up a configuration
   db file; the original statically defined portfolio quota was 20 Mb). 
   
   =cut
   
   ###############################################
   
   
   sub default_quota {
       my ($udom) = @_;
       my %defaults = &Apache::lonnet::get_dom('configuration',
                                               ['portfolioquota'],$udom);
       if ($defaults{'portfolioquota'} ne '') {
           return $defaults{'portfolioquota'};
       } else {
           return '20';
       }
   }
   
 sub get_secgrprole_info {  sub get_secgrprole_info {
     my ($cdom,$cnum,$needroles,$type)  = @_;      my ($cdom,$cnum,$needroles,$type)  = @_;
     my %sections_count = &get_sections($cdom,$cnum);      my %sections_count = &get_sections($cdom,$cnum);
Removed from v.1.467  
changed lines
  Added in v.1.476

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