Annotation of loncom/homework/outputtags.pm, revision 1.3
1.1 albertel 1: package Apache::outputtags;
2:
3: use strict;
4: use Apache::lonnet;
5: use POSIX qw(strftime);
6:
7: sub BEGIN {
1.2 albertel 8: &Apache::lonxml::register('Apache::outputtags',('displayduedate','displaytitle'));
1.1 albertel 9: }
10:
1.2 albertel 11: sub start_displayduedate {
1.1 albertel 12: my ($target,$token,$parstack,$parser,$safeeval)=@_;
13: my $result;
14: my $status=$Apache::inputtags::status['-1'];
15: &Apache::lonxml::debug("got a $status in duedatebox");
1.3 ! www 16: if (($status =~ /CAN.*_ANSWER/) && ($target eq 'web')) {
1.1 albertel 17: my $args ='';
18: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
19: my $format = &Apache::run::run("{$args;".'return $format}',$safeeval);
20: if ($format eq '') {
21: &Apache::lonxml::debug("using default format");
22: $format="%c";
23: }
24: my $id = $Apache::inputtags::part;
25: my $date = &Apache::lonnet::EXT("resource.$id.duedate");
26: &Apache::lonxml::debug("duedatebox found $date for $id");
27: $result ='<table border="on"><tr><td>Due at '.
28: POSIX::strftime($format,localtime($date)).
29: '</td></tr></table>';
30: }
31: return $result;
32: }
33:
1.2 albertel 34: sub end_displayduedate {
35: }
36:
37: sub start_displaytitle {
38: my ($target,$token,$parstack,$parser,$safeeval)=@_;
1.3 ! www 39: if ($target eq 'web') {
! 40: return "<h1>$Apache::lonhomework::name</h1>";
! 41: }
1.2 albertel 42: }
43:
44: sub end_displaytitle {
1.1 albertel 45: }
46:
47: 1;
48: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>