version 1.9, 2000/11/28 19:15:48
|
version 1.10, 2000/11/28 20:11:25
|
Line 11 sub BEGIN {
|
Line 11 sub BEGIN {
|
} |
} |
|
|
sub meta_parameter_write { |
sub meta_parameter_write { |
my ($partid,$name,$type,$default,$display)=@_; |
my ($name,$type,$default,$display)=@_; |
return '<parameter part="'.$partid. |
return '<parameter part="'.$Apache::inputtags::part. |
'" name="'.$name. |
'" name="'.$name. |
'" type="'.$type. |
'" type="'.$type. |
'" default="'.$default. |
'" default="'.$default. |
'" display="'.$display.' [Part: '.$partid.']"></parameter>' |
'" display="'.$display. |
|
' [Part: '.$Apache::inputtags::part.']"></parameter>' |
."\n"; |
."\n"; |
} |
} |
|
|
sub meta_stores_write { |
sub meta_stores_write { |
my ($partid,$name,$type,$display)=@_; |
my ($name,$type,$display)=@_; |
return '<stores part="'.$partid. |
return '<stores part="'.$Apache::inputtags::part. |
'" name="'.$name. |
'" name="'.$name. |
'" type="'.$type. |
'" type="'.$type. |
'" display="'.$display.' [Part: '.$partid.']"></stores>' |
'" display="'.$display. |
|
' [Part: '.$Apache::inputtags::part.']"></stores>' |
."\n"; |
."\n"; |
} |
} |
|
|
sub mandatory_part_meta { |
sub mandatory_part_meta { |
my $partid=shift; |
|
# |
# |
# Autogenerate metadata for mandatory |
# Autogenerate metadata for mandatory |
# input (from RAT or lonparmset) and |
# input (from RAT or lonparmset) and |
Line 38 sub mandatory_part_meta {
|
Line 39 sub mandatory_part_meta {
|
# of each part |
# of each part |
# |
# |
return |
return |
&meta_parameter_write($partid,'opendate','date_start','', |
&meta_parameter_write('opendate','date_start','', |
'Opening Date'). |
'Opening Date'). |
&meta_parameter_write($partid,'duedate','date_end','', |
&meta_parameter_write('duedate','date_end','', |
'Due Date'). |
'Due Date'). |
&meta_parameter_write($partid,'answerdate','date_start','', |
&meta_parameter_write('answerdate','date_start','', |
'Show Answer Date'). |
'Show Answer Date'). |
&meta_parameter_write($partid,'weight','int_zeropos','', |
&meta_parameter_write('weight','int_zeropos','', |
'Available Points'). |
'Available Points'). |
&meta_parameter_write($partid,'maxtries','int_pos','', |
&meta_parameter_write('maxtries','int_pos','', |
'Maximum Number of Tries'). |
'Maximum Number of Tries'). |
|
|
&meta_stores_write($partid,'solved','string', |
&meta_stores_write('solved','string', |
'Problem Status'). |
'Problem Status'). |
&meta_stores_write($partid,'tries','int_zeropos', |
&meta_stores_write('tries','int_zeropos', |
'Number of Unsuccessful Tries'). |
'Number of Unsuccessful Tries'). |
&meta_stores_write($partid,'awarded','float', |
&meta_stores_write('awarded','float', |
'Partial Credit Factor'); |
'Partial Credit Factor'); |
# |
# |
# Note: responseid-specific data 'submission' and 'awarddetail' |
# Note: responseid-specific data 'submission' and 'awarddetail' |
Line 87 sub start_responseparam {
|
Line 88 sub start_responseparam {
|
} |
} |
return ''; |
return ''; |
} else { |
} else { |
return &meta_parameter_write( |
return &meta_parameter_write($token->[2]->{'name'}, |
$Apache::inputtags::part, |
|
$token->[2]->{'name'}, |
|
$token->[2]->{'type'}, |
$token->[2]->{'type'}, |
$token->[2]->{'default'}, |
$token->[2]->{'default'}, |
$token->[2]->{'description'}); |
$token->[2]->{'description'}); |