[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.45.6.2 and 1.49

version 1.45.6.2, 2002/09/13 18:59:53 version 1.49, 2002/09/13 15:33:39
Line 59  use Apache::Constants qw(:common :http R Line 59  use Apache::Constants qw(:common :http R
 # ================================================================ Print header  # ================================================================ Print header
   
 sub header {  sub header {
       my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');
     return(<<ENDHEAD);      return(<<ENDHEAD);
 <html>  <html>
 <head>  <head>
 <title>LON-CAPA Enrollment Manager</title>  <title>LON-CAPA Enrollment Manager</title>
 </head>  </head>
 <body bgcolor="#FFFFFF">  $bodytag
 <img align=right src=/adm/lonIcons/lonlogos.gif>  
 <h1>$ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h1>  
 <h2>Enrollment Manager</h2>  
 <form method="post" enctype="multipart/form-data"    <form method="post" enctype="multipart/form-data"  
       action="/adm/dropadd" name="studentform">        action="/adm/dropadd" name="studentform">
 ENDHEAD  ENDHEAD
Line 144  sub domain_form { Line 142  sub domain_form {
 # ============================================================== Menu Phase One  # ============================================================== Menu Phase One
 sub menu_phase_one {  sub menu_phase_one {
     my $r=shift;      my $r=shift;
     my $upfile_select=&Apache::loncommon::upfile_select_html();      $r->print(<<END);
     my $create_classlist_help =   <p>
  &Apache::loncommon::help_open_topic("Course_Create_Class_List",  <font size="+1"><a href="/adm/dropadd?phase=two&uplist=yes">Upload a course list</a></font>
            "How do I create a class list from a spreadsheet");  </p><p>
     my $create_csv_help =  <font size="+1"><a href="/adm/dropadd?phase=two&enroll=yes">Enroll a single student</a></font>
  &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",  </p><p>
            "How do I create a CSV file from a spreadsheet");  <font size="+1"><a href="/adm/dropadd?phase=two&view=yes">View Classlist</a></font>
     $r->print(<<ENDUPFORM);  </p><p>
 <input type=hidden name=phase value=two>  <font size="+1"><a href="/adm/dropadd?phase=two&drop=yes">Drop Students</a></font>
 <hr>  </p>
 <h3>Upload a courselist</h3>  END
 $upfile_select  
 <p><input type=submit name="fileupload" value="Upload Courselist">  
 <br />  
 $create_classlist_help <br />  
 $create_csv_help  
   
 <hr />  
 <h3>Enroll a single student</h3>  
 <p><input type=submit name="enroll" value="Enroll Student"></p>  
 <hr />  
 <h3>Classlist</h3>  
 <p><input type=submit name="view" value="View Class List">  
 <input type=submit name="viewcsv" value="Comma Separated Class List"></p>  
 <hr />  
 <h3>Drop students</h3>  
 <p><input type=submit name="drop" value="Selection List"></p>  
 ENDUPFORM  
 }  }
   
 sub phase_two_header {  sub phase_two_header {
Line 752  sub menu_phase_two_drop { Line 733  sub menu_phase_two_drop {
 # ============================================== view classlist  # ============================================== view classlist
 sub menu_phase_two_view {  sub menu_phase_two_view {
     my $r=shift;      my $r=shift;
     $r->print("<h3>Current Classlist</h3>");      $r->print(<<END);
   <font size="+1">Current Classlist</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
   <font size="+1"><a href="/adm/dropadd?phase=two&viewcsv=yes">CSV format</a></font><br />
   END
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
     my ($error,%currentlist)=&get_current_classlist      my ($error,%currentlist)=&get_current_classlist
         ($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});          ($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});
Line 911  END Line 895  END
 END  END
 }  }
   
   #
   # Print out the initial form to get the courselist file
   #
   sub print_first_courselist_upload_form {
       my $r=shift;
       my $upfile_select=&Apache::loncommon::upfile_select_html();
       my $create_classlist_help = 
    &Apache::loncommon::help_open_topic("Course_Create_Class_List",
              "How do I create a class list from a spreadsheet");
       my $create_csv_help =
    &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
              "How do I create a CSV file from a spreadsheet");
       $r->print(<<ENDUPFORM);
   <input type=hidden name=phase value=two>
   <hr>
   <h3>Upload a courselist</h3>
   $upfile_select
   <p><input type=submit name="fileupload" value="Upload Courselist">
   <br />
   $create_classlist_help <br />
   $create_csv_help
   </body></html>
   ENDUPFORM
       return;
   }
   
 # ================================================= Drop/Add from uploaded file  # ================================================= Drop/Add from uploaded file
 sub upfile_drop_add {  sub upfile_drop_add {
     my $r=shift;      my $r=shift;
Line 1119  sub handler { Line 1129  sub handler {
         $r->send_http_header;          $r->send_http_header;
         return OK;          return OK;
     }      }
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['enroll','drop','view','phase',
                                                'viewcsv','uplist']);
     #  Needs to be in a course      #  Needs to be in a course
     if (($ENV{'request.course.fn'}) &&       if (($ENV{'request.course.fn'}) && 
         (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {          (&Apache::lonnet::allowed('cst',$ENV{'request.course.id'}))) {
Line 1140  sub handler { Line 1153  sub handler {
             }              }
         }          }
         if ($ENV{'form.phase'} eq 'two') {          if ($ENV{'form.phase'} eq 'two') {
             if ($ENV{'form.fileupload'}) {              if ($ENV{'form.uplist'}) {
                   &print_first_courselist_upload_form($r);
               } elsif ($ENV{'form.fileupload'}) {
                 &menu_phase_two_upload($r);                  &menu_phase_two_upload($r);
             } elsif ($ENV{'form.enroll'}) {              } elsif ($ENV{'form.enroll'}) {
                 &menu_phase_two_enroll($r);                  &menu_phase_two_enroll($r);
Removed from v.1.45.6.2  
changed lines
  Added in v.1.49

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