Parent Directory
| 
Revision Log
nothing should change
1 #!/usr/local/bin/perl 2 3 4 5 ## This file is profBuildProblemSetPage.pl 6 ## It provides access to utilities for building problem sets 7 ## 8 9 #################################################################### 10 # Copyright @ 1995-1998 University of Rochester 11 # All Rights Reserved 12 #################################################################### 13 14 use lib '.'; use webworkInit; # WeBWorKInitLine 15 use CGI qw(:standard); 16 use Global; 17 use Auth; 18 use strict; 19 20 # begin Timing code 21 use Benchmark; 22 my $beginTime = new Benchmark; 23 # end Timing code 24 25 my $cgi = new CGI; 26 my %inputs = $cgi->Vars(); 27 28 # get information from CGI inputs (see also below for additional information) 29 30 my $Course = $inputs{'course'}; 31 my $User = $inputs{'user'}; 32 my $Session_key = $inputs{'key'}; 33 34 # verify that information has been received 35 unless($Course && $User && $Session_key) { 36 &wwerror("$0","The script did not receive the proper input data.","",""); 37 } 38 39 # establish environment for this script 40 41 &Global::getCourseEnvironment($inputs{'course'}); 42 43 44 my $cgiURL = getWebworkCgiURL; 45 my $courseScriptsDirectory = getCourseScriptsDirectory; 46 my $databaseDirectory = getCourseDatabaseDirectory; 47 my $htmlURL = getCourseHtmlURL; 48 my $scriptDirectory = getWebworkScriptDirectory; 49 my $templateDirectory = getCourseTemplateDirectory; 50 my $dat = getDat; 51 my $dd = getDirDelim; 52 53 require "${scriptDirectory}$Global::DBglue_pl"; 54 require "${scriptDirectory}$Global::FILE_pl"; 55 require "${scriptDirectory}$Global::HTMLglue_pl"; 56 57 # log access 58 &Global::log_info('', query_string); 59 60 61 my $permissionsFile = &Global::getCoursePermissionsFile($inputs{'course'}); 62 my $permissions = &get_permissions($inputs{'user'}, $permissionsFile); 63 my $keyFile = &Global::getCourseKeyFile($inputs{'course'}); 64 # my $defaultClasslistFile = getCourseClasslistFile($Course); 65 66 #verify session key 67 &verify_key($inputs{'user'}, $inputs{'key'}, $keyFile, $inputs{'course'}); 68 69 # verify permissions are correct 70 if ($permissions != $Global::instructor_permissions ) { 71 print "permissions = $permissions instructor_permissions = $Global::instructor_permissions\n"; 72 print &html_NO_PERMISSION; 73 exit(0); 74 } 75 # get the rest of the information from the submitted form 76 # nothing further to get in this case 77 78 # print HTML text 79 print &htmlTOP("Build Problem Set Utilities"); 80 81 # print navigation button 82 print $cgi->a( { -href=>"${cgiURL}login.pl?user=$User&key=$Session_key&course=$Course" }, 83 84 $cgi->img({ # -name=>'upImg', # name is not an attribute of img 85 -src=>"${Global::upImgUrl}", 86 -align=>'right', 87 -border=>'1', 88 -alt=>'[Up]' 89 }) 90 ), 91 $cgi->p; 92 93 print "\n", 94 $cgi->hr, $cgi->br, 95 "\n\n", $cgi->h3({ -align=>'left' }, "WeBWorK Housekeeping Utilities for $Course"), "\n", 96 $cgi->p, 97 "From this page, you can build a problem set, edit a set definition or header file, or 98 destroy and rebuild sets in one operation"; 99 100 # build problem sets 101 print heading('Build', "1. Build Problem Sets for $Course"), 102 $cgi->p, "Select the Set Definition file(s) to be used to build the set(s). Note that 103 by selecting multiple Set Definition files, you can build multiple sets at one time. If you want to 104 see lists of actions for individual students, select the appropriate button. Note that some of these 105 selections may return a lot of data.", 106 $cgi->p, "Building a set which already exists will not change any data for students already in the set. It 107 will however add all new students to the set.\n", 108 $cgi->startform(-action=>"${cgiURL}profBuildProblemSet.pl"); 109 110 ## find the available set definition files 111 112 opendir SETDEFDIR, $templateDirectory or wweror($0,"Can't open directory $templateDirectory","",""); 113 my @allFiles = grep !/^\./, readdir SETDEFDIR; 114 closedir SETDEFDIR; 115 116 ## sort the files 117 118 my @setDefFiles = grep /\.def$/, @allFiles; 119 my @sortedNames = sort @setDefFiles; 120 121 ## print list of files 122 my $fileName; 123 124 my ($ind,$label,$date,@stat); 125 my %labels; 126 for $ind (@sortedNames) { 127 $fileName = "${templateDirectory}$ind"; 128 if (-e $fileName) { 129 @stat = stat($fileName); 130 $date = $stat[9]; 131 $date = formatDateAndTime($date); 132 $date =~ s|\s*at.*||; 133 $label = " Last Changed $date"; 134 } 135 $labels{$ind} = "$ind $label"; 136 } 137 138 print $cgi->popup_menu(-name=>'setDefinition', -size=>4, -multiple=>undef, -values=>\@sortedNames, -labels=>\%labels), "\n"; 139 140 my %formatLabels = (); 141 %formatLabels = ('no_students'=>'Don\'t list actions for individual students', 'new_students'=>'List actions only for new students', 'all_students'=>'List actions for all students'); 142 143 print $cgi->br, $cgi->radio_group(-name=>'outputFormat', -values=>['no_students','new_students','all_students'], -default=>'no_students', -linebreak=>'true', -labels=>\%formatLabels), 144 $cgi->submit(-value=>'Build Problem Set(s)'), "\n", 145 hiddens('user', 'key', 'course'), 146 $cgi->hidden(-name=>'page', -value=>'build'), "\n", 147 $cgi->hidden(-name=>'download', -value=>0), "\n", 148 $cgi->hidden(-name=>'fileName', -value=>'blah'), "\n", 149 $cgi->endform(), "\n", 150 $cgi->p; 151 152 #edit set definition files 153 print heading('editSetDef', "2. Simple editing of $Course Set Definition files"), 154 $cgi->startform(-action=>"${cgiURL}profEditCourseFiles.pl"), 155 $cgi->submit(-value=>'Edit Set Definition File'), "\n", #join (",<BR>", @sortedNames), %labels, 156 $cgi->popup_menu(-name=>'filename', -values=>\@sortedNames, -labels=>\%labels, -default=>$sortedNames[0]), "\n", 157 hiddens('user', 'key', 'course'), 158 $cgi->hidden(-name=>'ext', -value=>'def'), "\n", 159 $cgi->endform(), "\n", 160 $cgi->p, "This lets you edit set definition files which are used to build problem sets (by detailing due dates, problem filenames, etc)."; 161 162 #edit set header files 163 164 ## find the available set header files 165 ## reuses most of the variable from the above set definition file search 166 opendir SETHEADDIR, $templateDirectory or wweror($0,"Can't open directory $templateDirectory","",""); 167 @allFiles = grep !/^\./, readdir SETHEADDIR; 168 closedir SETHEADDIR; 169 170 ## sort the files 171 172 my @setHeadFiles = grep /header.*\.pg$/i, @allFiles; #get all files containing 'set' that end in .pg 173 @sortedNames = sort @setHeadFiles; 174 175 ## print list of files 176 $fileName = ''; 177 178 ($ind,$label,$date,@stat) = ('', '', '', ()); 179 %labels = (); 180 for $ind (@sortedNames) { 181 $fileName = "${templateDirectory}$ind"; 182 if (-e $fileName) { 183 @stat = stat($fileName); 184 $date = $stat[9]; 185 $date = formatDateAndTime($date); 186 $date =~ s|\s*at.*||; 187 $label = " Last Changed $date"; 188 } 189 $labels{$ind} = "$ind $label"; 190 } 191 192 print heading('editSetHead', "3. Simple editing of $Course Set Header files"), 193 $cgi->startform(-action=>"${cgiURL}profEditCourseFiles.pl"), 194 $cgi->submit(-value=>'Edit Set Header File'), "\n", 195 $cgi->popup_menu(-name=>'filename', -values=>\@sortedNames, -labels=>\%labels, -default=>$sortedNames[0]), " (Must contain the word header in the name)\n", 196 hiddens('user', 'key', 'course'), 197 $cgi->hidden(-name=>'ext', -value=>'pg'), "\n", 198 $cgi->endform(), "\n", 199 $cgi->p, "This lets you edit set header files which tend to come in two forms: screen set headers which are used for the opening page before viewing problems and paper set headers which are printed right before the problems in a paper copy of a problem set."; 200 201 202 if ( -e "${databaseDirectory}$Global::database" ) { 203 print heading('DestroyRebuild', "4. Destroy and Rebuild Problem Sets for $Course."), 204 $cgi->p, "Select the set(s) to destroy and rebuild. Note that 205 by selecting multiple sets, you can destroy and rebuild multiple sets at one time. Note that 206 destroying sets removes all associated data (and .sco files) from the database. 207 The reconstructed sets will have problem with different psvn's and seeds and all scoring 208 information will be removed from the webwork-database and .sco files.<b> Be very careful.</b> 209 if you want to save the current scoring information for a set to be 210 destroyed and rebuilt, score the set before deleting it (go to the scoring page) and/or move 211 the .sco files out of the DATA directory. <b> Be very careful and think before you click.</b>", 212 $cgi->p, $cgi->p, "Select the set(s) to destroy and rebuild:", 213 $cgi->startform(-action=>"${cgiURL}profBuildProblemSet.pl"); 214 215 my %availableSets = &getAllProbSetNumbersHash; 216 my @sortedSetNames = &sortSetNamesByDueDate(\%availableSets); 217 218 # enter the available set names 219 for $ind (@sortedSetNames) { 220 $labels{$ind} = "Set $ind"; 221 } 222 223 print $cgi->popup_menu(-name=>'setNo', -size=>4, -multiple=>undef, -values=>\@sortedSetNames, -labels=>\%labels), "\n", 224 $cgi->br, $cgi->radio_group(-name=>'outputFormat', -values=>['no_students','all_students'], -default=>'no_students', -linebreak=>'true', -labels=>\%formatLabels), 225 $cgi->p, $cgi->submit(-value=>'Destroy and Rebuild'), "\n", 226 $cgi->radio_group(-name=>'confirm', -values=>['0', '1'], -default=>'0', -labels=>{'0'=>'Off', '1'=>'Destroy and Rebuild enabled'}), "\n", 227 hiddens('user', 'key', 'course'), 228 $cgi->hidden(-name=>'page', -value=>'destroy'), "\n", 229 $cgi->hidden(-name=>'download', -value=>0), "\n", 230 $cgi->hidden(-name=>'fileName', -value=>''), "\n", 231 $cgi->endform(), "\n", 232 $cgi->p; 233 234 } ## end of long if which began on line 202. Clean up this code next time. 235 236 # print &sessionKeyInputs(\%inputs); Don't use this. It's duplicating the course, user and key which have already been put in. 237 238 print &htmlBOTTOM("profBuildProblemSetPage.pl", \%inputs, 'profBuildProblemSetPageHelp.html'); 239 240 # begin Timing code 241 my $endTime = new Benchmark; 242 &Global::logTimingInfo($beginTime,$endTime,"profBuildProblemSetPage.pl",$inputs{'course'},$inputs{'user'}); 243 # end Timing code 244 exit; 245 246 ################################################################################ 247 # 248 # HELPFUL METHODS 249 # 250 ################################################################################ 251 252 #returns the horizontal line, blue square, and heading for each option 253 #in the list, eliminating the need to repeat this code each time it is needed 254 #this does NOT PRINT the info, so that it can be incorporated into other text 255 sub heading { 256 my $link = shift; #name for internal link (used for shortcuts on some pages) 257 my $text = shift; #text used as the main heading 258 259 return "\n", 260 $cgi->p, "\n", 261 $cgi->a({-name=>$link},''), "\n", 262 $cgi->hr({ -noshade=>undef }), "\n", 263 $cgi->h4({ -align=>'LEFT' }, 264 "\n" . $cgi->img({-src=>"$Global::bluesquareImgUrl", -border=>1, -alt=>'' }) . "\n" . 265 $text ), "\n"; 266 } 267 268 #prints hidden form fields for each of given cgi parameters 269 #if a given parameter does not exist, a note is placed in the html to that affect 270 #this does NOT PRINT the info, so that it can be incorporated into other text 271 sub hiddens { 272 my @params = @_; 273 my $out; 274 275 foreach my $param (@params) { 276 if (exists $inputs{$param}) { 277 $out .= $cgi->hidden(-name=>"$param", -value=>"$inputs{$param}") . "\n"; 278 } else { 279 $out .= $cgi->p . "\nExpected cgi parameter $param does not exist or is empty"; 280 } 281 } 282 $out; 283 }
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |