[system] / branches / rel-2-1-patches / webwork-modperl / lib / WeBWorK / ContentGenerator / Instructor / FileManager.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-1-patches/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3117 Revision 3118
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm,v 1.4 2004/10/12 18:13:58 gage Exp $ 4# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/FileManager.pm,v 1.5 2004/10/21 01:06:18 sh002i 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.
… …
222 # 222 #
223 my %button = (type=>"submit",name=>"action",style=>"width:10em"); 223 my %button = (type=>"submit",name=>"action",style=>"width:10em");
224 print CGI::Tr({valign=>"middle"}, 224 print CGI::Tr({valign=>"middle"},
225 CGI::td(CGI::scrolling_list( 225 CGI::td(CGI::scrolling_list(
226 -name => "files", id => "files", 226 -name => "files", id => "files",
227 -style => "font-family:monospace; width:30em; height:100%", 227 -style => "font-family:monospace; width:30em",
228 -size => 15, 228 -size => 15,
229 -multiple => 1, 229 -multiple => 1,
230 -values => $files, 230 -values => $files,
231 -labels => $filelabels, 231 -labels => $filelabels,
232 -onDblClick => "doForm('View')", 232 -onDblClick => "doForm('View')",
Legend:
Removed from v.3117  
changed lines
  Added in v.3118
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9