| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm,v 1.18 2006/04/02 12:32:02 dpvc Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm,v 1.19 2006/07/12 01:19:14 gage Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 323 | CGI::td({colspan=>3}, |
323 | CGI::td({colspan=>3}, |
| 324 | CGI::input({type=>"submit",name=>"action",style=>"width:7em",value=>"Upload:",id=>"Upload"}), |
324 | CGI::input({type=>"submit",name=>"action",style=>"width:7em",value=>"Upload:",id=>"Upload"}), |
| 325 | CGI::input({type=>"file",name=>"file",id=>"file",size=>40,onChange=>"checkFile()"}), |
325 | CGI::input({type=>"file",name=>"file",id=>"file",size=>40,onChange=>"checkFile()"}), |
| 326 | CGI::br(), |
326 | CGI::br(), |
| 327 | CGI::small(join(' ',"Format:", |
327 | CGI::small(join(' ',"Format:", |
| 328 | CGI::radio_group(name=>'format',values=>['Text','Binary','Automatic'], |
328 | CGI::radio_group(name=>'format', value=>['Text','Binary','Automatic'], |
| 329 | default=>$self->getFlag('format','Automatic')))), |
329 | default=>$self->getFlag('format','Automatic')))), |
| 330 | ), |
330 | ), |
| 331 | ]); |
331 | ]); |
| 332 | print CGI::Tr([ |
332 | print CGI::Tr([ |
| 333 | CGI::td(), |
333 | CGI::td(), |