Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Annotation of loncom/homework/outputtags.pm, revision 1.1

1.1     ! albertel    1: package Apache::outputtags; 
        !             2: 
        !             3: use strict;
        !             4: use Apache::lonnet;
        !             5: use POSIX qw(strftime);
        !             6: 
        !             7: sub BEGIN {
        !             8:   &Apache::lonxml::register('Apache::outputtags',('duedatebox'));
        !             9: }
        !            10: 
        !            11: 
        !            12: sub start_duedatebox {
        !            13:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
        !            14:   my $result;
        !            15:   my $status=$Apache::inputtags::status['-1'];
        !            16:   &Apache::lonxml::debug("got a $status in duedatebox");
        !            17:   if ($status =~ /CAN.*_ANSWER/) {
        !            18:     my $args ='';
        !            19:     if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
        !            20:     my $format = &Apache::run::run("{$args;".'return $format}',$safeeval);
        !            21:     if ($format eq '') {
        !            22:       &Apache::lonxml::debug("using default format");
        !            23:       $format="%c";
        !            24:     }
        !            25:     my $id = $Apache::inputtags::part;
        !            26:     my $date = &Apache::lonnet::EXT("resource.$id.duedate");
        !            27:     &Apache::lonxml::debug("duedatebox found $date for $id");
        !            28:     $result ='<table border="on"><tr><td>Due at '.
        !            29:       POSIX::strftime($format,localtime($date)).
        !            30: 	'</td></tr></table>';
        !            31:   }
        !            32:   return $result;
        !            33: }
        !            34: 
        !            35: sub end_duedatebox {
        !            36: }
        !            37: 
        !            38: 1;
        !            39: __END__