[system] / branches / rel-2-4-patches / webwork2 / lib / WeBWorK / ContentGenerator / Instructor / SetMaker.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-4-patches/webwork2/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm

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

Revision 3583 Revision 3584
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/SetMaker.pm,v 1.53 2005/08/22 02:40:26 jj Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.54 2005/08/28 20:54:51 jj 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.
… …
723 723
724 my $these_widths = "width: 23ex"; 724 my $these_widths = "width: 23ex";
725 725
726 if($have_local_sets ==0) { 726 if($have_local_sets ==0) {
727 $list_of_local_sets = [NO_LOCAL_SET_STRING]; 727 $list_of_local_sets = [NO_LOCAL_SET_STRING];
728 } elsif (not $set_selected or $set_selected eq SELECT_SET_STRING) { 728 } elsif (not defined($set_selected) or $set_selected eq ""
729 or $set_selected eq SELECT_SET_STRING) {
729 unshift @{$list_of_local_sets}, SELECT_SET_STRING; 730 unshift @{$list_of_local_sets}, SELECT_SET_STRING;
730 $set_selected = SELECT_SET_STRING; 731 $set_selected = SELECT_SET_STRING;
731 } 732 }
732 my $myjs = 'document.mainform.selfassign.value=confirm("Should I assign the new set to you now?\nUse OK for yes and Cancel for no.");true;'; 733 my $myjs = 'document.mainform.selfassign.value=confirm("Should I assign the new set to you now?\nUse OK for yes and Cancel for no.");true;';
733 734
Legend:
Removed from v.3583  
changed lines
  Added in v.3584
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9