[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.47 and 1.48

version 1.47, 2002/08/22 21:05:25 version 1.48, 2002/09/09 20:54:52
Line 142  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 731  sub menu_phase_two_drop { Line 714  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 890  END Line 876  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 1098  sub handler { Line 1110  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 1119  sub handler { Line 1134  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.47  
changed lines
  Added in v.1.48

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