[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.144 and 1.147

version 1.144, 2006/07/03 04:14:21 version 1.147, 2006/08/08 19:02:04
Line 167  sub print_main_menu { Line 167  sub print_main_menu {
             permission => &Apache::lonnet::auto_run($cnum,$cdom),              permission => &Apache::lonnet::auto_run($cnum,$cdom),
             url  => '/adm/populate',              url  => '/adm/populate',
             },              },
 #          { text => 'Create a new group',            { text => 'Create a new group',
 #            help => 'Course_Create_Group',              help => 'Course_Create_Group',
 #            permission => $grp_manage_permission,              permission => $grp_manage_permission,
 #            url => '/adm/coursegroups?refpage=enrl&action=create',              url => '/adm/coursegroups?refpage=enrl&action=create',
 #            },              },
 #          { text => 'Modify an existing group',            { text => 'Modify an existing group',
 #            help => 'Course_Modify_Group',              help => 'Course_Modify_Group',
 #            permission => $grp_manage_permission,              permission => $grp_manage_permission,
 #            url => '/adm/coursegroups?refpage=enrl&action=modify',              url => '/adm/coursegroups?refpage=enrl&action=modify',
 #            },              },
 #          { text => 'Delete an existing group',  #          { text => 'Delete an existing group',
 #            help => 'Course_Delete_Group',  #            help => 'Course_Delete_Group',
 #            permission => $grp_manage_permission,  #            permission => $grp_manage_permission,
 #            url => '/adm/coursegroups?refpage=enrl&action=delete',  #            url => '/adm/coursegroups?refpage=enrl&action=delete',
 #            },  #            },
 #          { text => 'Enter an existing group',            { text => 'Enter an existing group',
 #            help => 'Course_Display_Group',              help => 'Course_Display_Group',
 #            permission => $grp_view_permission,              permission => $grp_view_permission,
 #            url => '/adm/coursegroups?refpage=enrl&action=view',              url => '/adm/coursegroups?refpage=enrl&action=view',
 #            },              },
           );            );
     my $menu_html = '';      my $menu_html = '';
     foreach my $menu_item (@menu) {      foreach my $menu_item (@menu) {
Line 1172  sub print_html_classlist { Line 1172  sub print_html_classlist {
     if (! exists($env{'form.sortby'})) {      if (! exists($env{'form.sortby'})) {
         $env{'form.sortby'} = 'username';          $env{'form.sortby'} = 'username';
     }      }
     if ($env{'form.Status'} !~ /^(Any|Expired|Active)$/) {      if ($env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) {
         $env{'form.Status'} = 'Active';          $env{'form.Status'} = 'Active';
     }      }
     my $status_select = &Apache::lonhtmlcommon::StatusOptions      my $status_select = &Apache::lonhtmlcommon::StatusOptions
Line 1383  END Line 1383  END
         if($statusmode eq 'Expired') {          if($statusmode eq 'Expired') {
             print $CSVfile '"'.&mt('Students with expired roles').'"'."\n";              print $CSVfile '"'.&mt('Students with expired roles').'"'."\n";
         }          }
           if($statusmode eq 'Future') {
               print $CSVfile '"'.&mt('Students with future roles').'"'."\n";
           }
         if ($statusmode eq 'Any') {          if ($statusmode eq 'Any') {
             print $CSVfile '"'.join('","',map {              print $CSVfile '"'.join('","',map {
  &Apache::loncommon::csv_translate(&mt($_))   &Apache::loncommon::csv_translate(&mt($_))
Line 1642  sub print_modify_student_form { Line 1645  sub print_modify_student_form {
     my $date_table = &date_setting_table($starttime,$endtime);      my $date_table = &date_setting_table($starttime,$endtime);
     #      #
     if (! exists($env{'form.Status'}) ||       if (! exists($env{'form.Status'}) || 
         $env{'form.Status'} !~ /^(Any|Expired|Active)$/) {          $env{'form.Status'} !~ /^(Any|Expired|Active|Future)$/) {
         $env{'form.Status'} = 'crap';          $env{'form.Status'} = 'crap';
     }      }
     # Make sure student is enrolled in course      # Make sure student is enrolled in course
Removed from v.1.144  
changed lines
  Added in v.1.147

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