version 1.13, 2010/09/19 14:48:53
|
version 1.15, 2010/11/16 02:28:10
|
Line 115 sub setdefaults {
|
Line 115 sub setdefaults {
|
$revreqs{$prereqs{$item}} = $item; |
$revreqs{$prereqs{$item}} = $item; |
} |
} |
@defchosen=('01','02','03','07','12','18','26','32','37','38','47','54','63','66','2004_73'); |
@defchosen=('01','02','03','07','12','18','26','32','37','38','47','54','63','66','2004_73'); |
@development = ('001','002','003','004','005','006','007','008','009','010','011','012','013','014','015','016','017','018','019','020','021','022'); |
@development = ('001','002','003','004','005','006','007','008','009','010','011','012','013','014','015','016','017','018','019','020','021','022','023','024','025','026','027'); |
} |
} |
|
|
sub checkvalid { |
sub checkvalid { |
Line 282 sub editor {
|
Line 282 sub editor {
|
$r->print(&display_questions(\@devitems,'development',$devleg,\%chosenitems)); |
$r->print(&display_questions(\@devitems,'development',$devleg,\%chosenitems)); |
$r->print('<input type="hidden" name="phase" value="storemap" />'. |
$r->print('<input type="hidden" name="phase" value="storemap" />'. |
'<input type="hidden" name="context" value="'.$context.'" />'. |
'<input type="hidden" name="context" value="'.$context.'" />'. |
|
'<input type="hidden" name="concepttest" value="'.$env{'form.concepttest'}.'" />'. |
'<input type="submit" value="'.&mt('Store Problem Selection').'" />'. |
'<input type="submit" value="'.&mt('Store Problem Selection').'" />'. |
'</form>'); |
'</form>'); |
&Apache::lonnet::delenv('request.gcicontext'); |
&Apache::lonnet::delenv('request.gcicontext'); |