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

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.57 and 1.58

version 1.57, 2002/10/16 13:00:57 version 1.58, 2002/10/16 15:02:28
Line 762  sub print_html_classlist { Line 762  sub print_html_classlist {
     my $status_select = &Apache::lonhtmlcommon::StatusOptions      my $status_select = &Apache::lonhtmlcommon::StatusOptions
         ($ENV{'form.Status'},'studentform');          ($ENV{'form.Status'},'studentform');
     $r->print(<<END);      $r->print(<<END);
 <input type="hidden" name="action" value="classlist" />  <input type="hidden" name="action" value="$ENV{'form.action'}" />
 <input type="hidden" name="state"  value="" />  <input type="hidden" name="state"  value="" />
 <p>  <p>
 <font size="+1">Current Classlist</font>  <font size="+1">Current Classlist</font>
Line 838  sub show_class_list { Line 838  sub show_class_list {
 </tr>  </tr>
 END  END
     } elsif ($mode eq 'csv') {      } elsif ($mode eq 'csv') {
         $r->print('"'.join('","',("username","domain","ID","student name",          if($statusmode eq 'Expired') {
                                   "section")).'"'."\n");              $r->print('"Students with expired roles"');
           }
           if ($statusmode eq 'Any') {
               $r->print('"'.join('","',("username","domain","ID","student name",
                                         "section","status")).'"'."\n");
           } else {
               $r->print('"'.join('","',("username","domain","ID","student name",
                                         "section")).'"'."\n");
           }
     }      }
     #      #
     # Sort the students      # Sort the students
Line 894  END Line 902  END
             foreach ($username,$domain,$id,$name,$section) {              foreach ($username,$domain,$id,$name,$section) {
                 push @line,&Apache::loncommon::csv_translate($_);                  push @line,&Apache::loncommon::csv_translate($_);
             }              }
               if ($statusmode eq 'Any') {
                   push @line,&Apache::loncommon::csv_translate($status);
               }
             my $tmp = $";              my $tmp = $";
             $" = '","';              $" = '","';
             $r->print("\"@line\"\n");              $r->print("\"@line\"\n");
Removed from v.1.57  
changed lines
  Added in v.1.58

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