|
version 1.38, 2001/08/06 20:33:23
|
version 1.40, 2001/08/07 12:24:53
|
|
Line 3
|
Line 3
|
| |
|
| # 11/23,11/24,11/28 Gerd Kortemeyer |
# 11/23,11/24,11/28 Gerd Kortemeyer |
| # Guy Albertelli |
# Guy Albertelli |
| # 08/04 Gerd Kortemeyer |
# 08/04,08/07 Gerd Kortemeyer |
| |
|
| package Apache::response; |
package Apache::response; |
| use strict; |
use strict; |
|
Line 49 sub meta_parameter_write {
|
Line 49 sub meta_parameter_write {
|
| my ($name,$type,$default,$display)=@_; |
my ($name,$type,$default,$display)=@_; |
| return '<parameter part="'.$Apache::inputtags::part. |
return '<parameter part="'.$Apache::inputtags::part. |
| '" name="'.$name. |
'" name="'.$name. |
| '" type="'.$type. |
'" type="'.$type.'"'. |
| '" default="'.$default. |
($default?' default="'.$default.'"':''). |
| '" display="'.$display. |
($display?' display="'.$display.' [Part: '.$Apache::inputtags::part.']"':'') |
| ' [Part: '.$Apache::inputtags::part.']"></parameter>' |
.'></parameter>' |
| ."\n"; |
."\n"; |
| } |
} |
| |
|
|
Line 91 sub mandatory_part_meta {
|
Line 91 sub mandatory_part_meta {
|
| # 'Available Points'). |
# 'Available Points'). |
| # &meta_parameter_write('maxtries','int_pos','', |
# &meta_parameter_write('maxtries','int_pos','', |
| # 'Maximum Number of Tries'). |
# 'Maximum Number of Tries'). |
| &meta_package_write('part'); |
&meta_package_write('part'). |
| &meta_stores_write('solved','string', |
&meta_stores_write('solved','string', |
| 'Problem Status'). |
'Problem Status'). |
| &meta_stores_write('tries','int_zeropos', |
&meta_stores_write('tries','int_zeropos', |
![[BACK]](/icons/back.gif){kind=icon}
Return to response.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework