--- loncom/homework/structuretags.pm 2004/02/12 19:07:12 1.234
+++ loncom/homework/structuretags.pm 2004/02/13 23:59:24 1.235
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.234 2004/02/12 19:07:12 albertel Exp $
+# $Id: structuretags.pm,v 1.235 2004/02/13 23:59:24 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -200,6 +200,16 @@ sub problem_edit_footer {
';
}
+sub option {
+ my ($value,$name) = @_;
+ my $result ="
+ ".&option('CAN_ANSWER' ,'problemstate').&mt("Answerable")."
+ ".&option('CANNOT_ANSWER_tries' ,'problemstate').&mt("Open with full tries")."
+ ".&option('CANNOT_ANSWER_correct','problemstate').&mt("Open and correct")."
+ ".&option('SHOW_ANSWER' ,'problemstate').&mt("Show Answer")."
+
+
+