[system] / trunk / webwork-modperl / lib / WeBWorK / ContentGenerator / Instructor / ProblemSetEditor.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetEditor.pm

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

Revision 2243 Revision 2244
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: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetEditor.pm,v 1.54 2004/05/19 18:24:50 toenail Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetEditor.pm,v 1.55 2004/05/24 20:36:25 apizer 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.
… …
352 ]) 352 ])
353 ]) 353 ])
354 ); 354 );
355 355
356 if (@editForUser) { 356 if (@editForUser) {
357 my $publishedColor = ($setRecord->published) ? "Published" : "Unpublished"; 357 my $publishedClass = ($setRecord->published) ? "Published" : "Unpublished";
358 print CGI::p("This set is currently", CGI::font({class=>$publishedColor}, (($setRecord->published) ? "visable to students." : "hidden from students.")), 358 my $publishedText = ($setRecord->published) ? "visable to students" : "hidden from students";
359 print CGI::p("This set is currently", CGI::font({class=>$publishedClass}, $publishedText),
359 CGI::br(), "(You cannot hide or make visable a set for specific users.)"); 360 CGI::br(), "(You cannot hide or make a set visable for specific users.)");
360 } else { 361 } else {
361 print CGI::checkbox({type=>"checkbox", name=>"published", label=>"Visable to students", value=>"1", checked=>(($setRecord->published) ? 1 : 0)}), CGI::br(); 362 print CGI::checkbox({type=>"checkbox", name=>"published", label=>"Visable to students", value=>"1", checked=>(($setRecord->published) ? 1 : 0)}), CGI::br();
362 363
363 } 364 }
364 365
Legend:
Removed from v.2243  
changed lines
  Added in v.2244
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9