[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.137 and 1.138

version 1.137, 2006/02/18 01:27:07 version 1.138, 2006/03/21 18:34:23
Line 43  use Apache::lonlocal; Line 43  use Apache::lonlocal;
 ###############################################################  ###############################################################
 ###############################################################  ###############################################################
 sub header {  sub header {
     my $html=&Apache::lonxml::xmlbegin();      my $start_page=&Apache::loncommon::start_page('Enrollment Manager');
     my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');  
     my $title = &mt('LON-CAPA Enrollment Manager');  
     return(<<ENDHEAD);      return(<<ENDHEAD);
 $html  $start_page
 <head>  
 <title>$title</title>  
 </head>  
 $bodytag  
 <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 1586  sub print_modify_student_form { Line 1580  sub print_modify_student_form {
                   '<p>'.                    '<p>'.
                   &mt('Unable to retrieve environment data for').' '.$sname.                    &mt('Unable to retrieve environment data for').' '.$sname.
                   &mt('in domain').' '.$sdom.'</p><p>'.                    &mt('in domain').' '.$sdom.'</p><p>'.
                   &mt('Please contact your LON-CAPA administrator regarding this situation.').'</p></body></html>');                    &mt('Please contact your LON-CAPA administrator regarding this situation.').'</p>'.&Apache::loncommon::end_page());
         return;          return;
     }      }
     # determine the students starting and ending times and section      # determine the students starting and ending times and section
Line 1675  $lt{'disn'} Line 1669  $lt{'disn'}
 <p>$current_date_description</p>  <p>$current_date_description</p>
 <p>$date_table</p>  <p>$date_table</p>
 <input type="submit" value="$lt{'sm'}" />  <input type="submit" value="$lt{'sm'}" />
 </body></html>  
 END  END
       $r->print(&Apache::loncommon::end_page());
     return;      return;
 }  }
   
Line 1684  END Line 1678  END
 # modify a single students section   # modify a single students section 
 #  #
 sub modify_single_student {  sub modify_single_student {
     my $r = shift;      my ($r) = @_;
     #      #
     # Remove non alphanumeric values from the section      # Remove non alphanumeric values from the section
     $env{'form.section'} =~ s/\W//g;      $env{'form.section'} =~ s/\W//g;
Line 1826  END Line 1820  END
 <input type="hidden" name="sortby" value="$sortby" />  <input type="hidden" name="sortby" value="$sortby" />
 <input type="hidden" name="Status" value="$status" />  <input type="hidden" name="Status" value="$status" />
 <a href="javascript:document.studentform.submit();">$Masd</a>  <a href="javascript:document.studentform.submit();">$Masd</a>
 </body></html>  
 END  END
       $r->print(&Apache::loncommon::end_page());
     return;      return;
 }  }
   
Line 2056  sub print_first_courselist_upload_form { Line 2050  sub print_first_courselist_upload_form {
     $str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",      $str .= &Apache::loncommon::help_open_topic("Course_Convert_To_CSV",
                            &mt("How do I create a CSV file from a spreadsheet")).                             &mt("How do I create a CSV file from a spreadsheet")).
                                "<br />\n";                                 "<br />\n";
     $str .= "</body>\n</html>\n";      $str .= &Apache::loncommon::end_page();
     $r->print($str);      $r->print($str);
     return;      return;
 }  }
Line 2112  sub upfile_drop_add { Line 2106  sub upfile_drop_add {
         if (! exists($home_servers{$desiredhost})) {          if (! exists($home_servers{$desiredhost})) {
             $r->print('<font color="#ff0000">'.&mt('Error').'</font>'.              $r->print('<font color="#ff0000">'.&mt('Error').'</font>'.
                       &mt('Invalid home server specified'));                        &mt('Invalid home server specified'));
             $r->print("</body>\n</html>\n");              $r->print(&Apache::loncommon::end_page());
             return;              return;
         }          }
     }      }
Line 2484  sub handler { Line 2478  sub handler {
     }      }
     #      #
     # Finish up      # Finish up
     $r->print('</form></body></html>');      $r->print('</form>'.&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   
Removed from v.1.137  
changed lines
  Added in v.1.138

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