[BACK]Return to structuretags.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.100 and 1.101

version 1.100, 2002/06/27 18:47:23 version 1.101, 2002/07/03 15:36:40
Line 33  package Apache::structuretags; Line 33  package Apache::structuretags;
   
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::File();
   
 BEGIN {  BEGIN {
   &Apache::lonxml::register('Apache::structuretags',('block','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext'));    &Apache::lonxml::register('Apache::structuretags',('block','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext'));
Line 287  sub start_problem { Line 288  sub start_problem {
  my $id = $Apache::inputtags::part;   my $id = $Apache::inputtags::part;
  my $duedate = &Apache::lonnet::EXT("resource.$id.duedate");    my $duedate = &Apache::lonnet::EXT("resource.$id.duedate"); 
  $duedate = POSIX::strftime("%c",localtime($duedate));   $duedate = POSIX::strftime("%c",localtime($duedate));
  if (not $ENV{'request.symb'} =~ m/\.page_/) {   my $temp_file;
     $result .= '\begin{document} \noindent\fbox{Due date: '.$duedate.'} \vskip 1 mm';     my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.due";
           if (-e $filename) {
       $temp_file = Apache::File->new($filename); 
  } else {   } else {
     $result .= '\parbox{\minipagewidth}{\vskip 1mm\fbox{Due date: '.$duedate.'} \\\\\\\\';      $temp_file = Apache::File->new('>>'.$filename); 
    }
    my @due_file_content = <$temp_file>;
    my $due_file_content = $due_file_content[$#due_file_content];
           chomp $due_file_content;
           if ($due_file_content ne $duedate) {    
    $temp_file = Apache::File->new('>'.$filename); 
       print $temp_file "$duedate\n";    
       if (not $ENV{'request.symb'} =~ m/\.page_/) {
    $result .= '\begin{document} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm';
       } else {
    $result .= '\parbox{\minipagewidth}{\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
       } 
    } else {
       if (not $ENV{'request.symb'} =~ m/\.page_/) {
    $result .= '\begin{document} \noindent \vskip 1 mm';
       } else {
    $result .= '\parbox{\minipagewidth}{\vskip 1mm \\\\\\\\';
       } 
  }   }
     }      }
   } elsif ($target eq 'edit') {    } elsif ($target eq 'edit') {
Line 356  sub end_problem { Line 377  sub end_problem {
     $result ='<br /><input type="submit" name="submit" value="Submit Changes and Edit" />';      $result ='<br /><input type="submit" name="submit" value="Submit Changes and Edit" />';
     $result.='<input type="submit" name="submit" value="Submit Changes and View" />';      $result.='<input type="submit" name="submit" value="Submit Changes and View" />';
   } elsif ($target eq 'tex') {    } elsif ($target eq 'tex') {
       $result .= '\vskip 0.5mm\noindent\makebox[9.0cm][b]{\hrulefill}';        $result .= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
       if (not $ENV{'request.symb'} =~ m/\.page_/) {        if (not $ENV{'request.symb'} =~ m/\.page_/) {
   $result .= '\end{document} ';    $result .= '\end{document} ';
       } else {        } else {
Removed from v.1.100  
changed lines
  Added in v.1.101

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>