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

Diff for /loncom/interface/loncommon.pm between versions 1.230 and 1.233

version 1.230, 2004/11/12 23:29:56 version 1.233, 2004/11/21 04:24:49
Line 2560  sub bodytag { Line 2560  sub bodytag {
     if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }      if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
 # construct main body tag  # construct main body tag
     my $bodytag = <<END;      my $bodytag = <<END;
 <style>  <style type="text/css">
 h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }  h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif }
 a:focus { color: red; background: yellow }   a:focus { color: red; background: yellow } 
 </style>  </style>
Line 2581  END Line 2581  END
 # No Remote  # No Remote
  my $roleinfo=(<<ENDROLE);   my $roleinfo=(<<ENDROLE);
 <td bgcolor="$tabbg" align="right">  <td bgcolor="$tabbg" align="right">
 <p>  
 <font size="2" face="Arial, Helvetica, sans-serif">  <font size="2" face="Arial, Helvetica, sans-serif">
     $ENV{'environment.firstname'}      $ENV{'environment.firstname'}
     $ENV{'environment.middlename'}      $ENV{'environment.middlename'}
Line 2592  END Line 2591  END
 <font size="2" face="Arial, Helvetica, sans-serif">$role</font>&nbsp;  <font size="2" face="Arial, Helvetica, sans-serif">$role</font>&nbsp;
 <br />  <br />
 <font size="2" face="Arial, Helvetica, sans-serif">$realm</font>&nbsp;  <font size="2" face="Arial, Helvetica, sans-serif">$realm</font>&nbsp;
 </p>  
 </td>  </td>
 ENDROLE  ENDROLE
         my $titleinfo = '<font face="Arial, Helvetica, sans-serif" size="+3" color="'.          my $titleinfo = '<font face="Arial, Helvetica, sans-serif" size="+3" color="'.
Line 2607  ENDROLE Line 2605  ENDROLE
     $formaction=~s/\/+/\//g;      $formaction=~s/\/+/\//g;
     $titleinfo = '<form name="dirs" method="post" action="'.$formaction      $titleinfo = '<form name="dirs" method="post" action="'.$formaction
  .'" target="_top">'   .'" target="_top">'
  .&Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn,'_top','/priv','','-1')   .&Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn,'_top','/priv','',-1,1)."<br />"
  .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')   .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
  .'</form>'   .'</form>'
  .&Apache::lonmenu::constspaceform();   .&Apache::lonmenu::constspaceform();
Line 2616  ENDROLE Line 2614  ENDROLE
     if ($thisdisfn!~m|/$|) {  $forcereg=1; }      if ($thisdisfn!~m|/$|) {  $forcereg=1; }
  }   }
   
  &Apache::lonnet::logthis("hrrm");  
         return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',          return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
                                                       $forcereg).                                                        $forcereg).
       '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td rowspan="3" bgcolor="'.$tabbg.'">'.$titleinfo.'</td>'.$roleinfo.'</tr></table>';        '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td rowspan="3" bgcolor="'.$tabbg.'">'.$titleinfo.'</td>'.$roleinfo.'</tr></table>';
Line 2686  sub get_users_function { Line 2683  sub get_users_function {
   
 ###############################################  ###############################################
   
   =pod
   
   =item get_sections
   
   Determines all the sections for a course including
   sections with students and sections containing other roles.
   Incoming parameters: domain, course number, reference to 
   section hash (keys to be section/group IDs), reference to 
   array containing roles for which sections should be gathered
   (optional). If the fourth argument is undefined, sections
   are gathered for any role.
    
   Returns number of sections.
   
   =cut
   
   ###############################################
   sub get_sections {
       my ($cdom,$cnum,$sectioncount,$possible_roles) = @_;
       my $cid = $cdom.'_'.$cnum;
       my $numsections = 0;
       if ($cdom && $cnum) {
           if (!defined($possible_roles) || (grep/^st$/,@$possible_roles)) {
               my ($classlist) = &Apache::loncoursedata::get_classlist($cid,$cdom,$cnum);
               my $sec_index = &Apache::loncoursedata::CL_SECTION();
               my $status_index = &Apache::loncoursedata::CL_STATUS();
               while (my ($student,$data) = each %$classlist) {
                   my ($section,$status) = ($data->[$sec_index],
                                            $data->[$status_index]);
                   unless ($section eq '' || $section =~ /^\s*$/) {
                       if (!defined($$sectioncount{$section})) {
                           $$sectioncount{$section} = 1;
                           $numsections ++;
                       } else {
                           $$sectioncount{$section} ++;
                       }
                   }
               }
           }
           my %courseroles = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
           foreach my $user (sort keys %courseroles) {
               if ($user =~ /^(\w{2})/) {
                   my $role = $1;
                   if (!defined($possible_roles) || (grep/^$role$/,@$possible_roles)) {
                       if ($role eq 'cr') {
                           if ($user =~ m-^$role/[^/]*/[^/]*/[^/]*:[^:]*:[^:]*:(\w+)-) {
                               if (!defined($$sectioncount{$1})) {
                                   $$sectioncount{$1} = 1;
                                   $numsections ++;
                               } else {
                                   $$sectioncount{$1} ++;
                               }
                           }
                       }
                       if ($user =~ /^$role:[^:]*:[^:]*:(\w+)/) {
                           if (!defined($$sectioncount{$1})) {
                               $$sectioncount{$1} = 1;
                               $numsections ++;
                           } else {
                               $$sectioncount{$1} ++;
                           }
                       }
                   }
               }
           }
       }
       return $numsections;
   }
   
   
 sub get_posted_cgi {  sub get_posted_cgi {
     my $r=shift;      my $r=shift;
   
Removed from v.1.230  
changed lines
  Added in v.1.233

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