| … | |
… | |
| 161 | |
161 | |
| 162 | #edit set header files |
162 | #edit set header files |
| 163 | |
163 | |
| 164 | ## find the available set header files |
164 | ## find the available set header files |
| 165 | ## reuses most of the variable from the above set definition file search |
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","",""); |
166 | #opendir SETHEADDIR, $templateDirectory or wweror($0,"Can't open directory $templateDirectory","",""); |
| 167 | @allFiles = grep !/^\./, readdir SETHEADDIR; |
167 | # @allFiles = grep !/^\./, readdir SETHEADDIR; |
| 168 | closedir 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 |
169 | #my @setHeadFiles = grep /header.*\.pg$/i, @allFiles; #get all files containing 'header' that end in .pg |
|
|
170 | |
|
|
171 | # i should fix this so that it doesn't use find! |
|
|
172 | my @setHeadFiles = `find $templateDirectory -name '*Header*.pg'`; |
|
|
173 | for (my $i = 0; $i < @setHeadFiles; $i++) { |
|
|
174 | $setHeadFiles[$i] =~ s/$templateDirectory//; |
|
|
175 | chomp $setHeadFiles[$i]; |
|
|
176 | } |
| 173 | @sortedNames = sort @setHeadFiles; |
177 | @sortedNames = sort @setHeadFiles; |
| 174 | |
178 | |
| 175 | ## print list of files |
179 | ## print list of files |
| 176 | $fileName = ''; |
180 | $fileName = ''; |
| 177 | |
181 | |
| … | |
… | |
| 190 | } |
194 | } |
| 191 | |
195 | |
| 192 | print heading('editSetHead', "3. Simple editing of $Course Set Header files"), |
196 | print heading('editSetHead', "3. Simple editing of $Course Set Header files"), |
| 193 | $cgi->startform(-action=>"${cgiURL}profEditCourseFiles.pl"), |
197 | $cgi->startform(-action=>"${cgiURL}profEditCourseFiles.pl"), |
| 194 | $cgi->submit(-value=>'Edit Set Header File'), "\n", |
198 | $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", |
199 | $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'), |
200 | hiddens('user', 'key', 'course'), |
| 197 | $cgi->hidden(-name=>'ext', -value=>'pg'), "\n", |
201 | $cgi->hidden(-name=>'ext', -value=>'pg'), "\n", |
| 198 | $cgi->endform(), "\n", |
202 | $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."; |
203 | $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 | |
204 | |
Parent Directory
| 
Revision Log
| 
Patch