--- loncom/homework/default_homework.lcpm	2008/06/10 16:20:29	1.135
+++ loncom/homework/default_homework.lcpm	2008/06/12 00:46:52	1.136
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()
 #
-# $Id: default_homework.lcpm,v 1.135 2008/06/10 16:20:29 www Exp $
+# $Id: default_homework.lcpm,v 1.136 2008/06/12 00:46:52 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1024,6 +1024,17 @@ sub sec {
     return $sec;
 }
 
+sub submission {
+   my ($partid,$responseid,$subnumber)=@_;
+   my $sub='';
+   if ($subnumber) { $sub=$subnumber.':'; }
+   return &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission');
+}
+
+sub currentpart {
+   return $external::part;
+}
+
 sub eval_time {
    my ($timestamp)=@_;
    unless ($timestamp) { return ''; }
@@ -1048,6 +1059,24 @@ sub answer_date {
     return &eval_time(&EXT('resource.'.$partid.'.answerdate'));
 }
 
+sub open_date_epoch {
+    my ($partid)=@_;
+    unless ($partid) { $partid=0; }
+    return &EXT('resource.'.$partid.'.opendate');
+}
+
+sub due_date_epoch {
+    my ($partid)=@_;
+    unless ($partid) { $partid=0; }
+    return &EXT('resource.'.$partid.'.duedate');
+}
+
+sub answer_date_epoch {
+    my ($partid)=@_;
+    unless ($partid) { $partid=0; }
+    return &EXT('resource.'.$partid.'.answerdate');
+}
+
 sub array_moments {
     my @input=@_;
     my (@output,$N);