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

Diff for /loncom/homework/lonhomework.pm between versions 1.65 and 1.68

version 1.65, 2001/12/06 16:19:05 version 1.68, 2002/01/03 22:16:53
Line 34  use strict; Line 34  use strict;
 use Apache::style;  use Apache::style;
 use Apache::lonxml;  use Apache::lonxml;
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::lonplot;
 use Apache::inputtags;  use Apache::inputtags;
 use Apache::structuretags;  use Apache::structuretags;
 use Apache::randomlabel;  use Apache::randomlabel;
Line 49  sub BEGIN { Line 50  sub BEGIN {
   
 sub get_target {  sub get_target {
   if ( $ENV{'request.state'} eq "published") {    if ( $ENV{'request.state'} eq "published") {
       if ( defined($ENV{'form.grade_target'}) 
    && ($Apache::lonhomework::viewgrades == 'F' )) {
         return ($ENV{'form.grade_target'});
       }
     if ( defined($ENV{'form.submitted'})) {      if ( defined($ENV{'form.submitted'})) {
       return ('grade', 'web');        return ('grade', 'web');
     } else {      } else {
Line 203  sub setupheader { Line 208  sub setupheader {
   } else {    } else {
     $request->content_type('text/html');      $request->content_type('text/html');
   }    }
   if (!$Apache::lonxml::debug) { &Apache::loncommon::no_cache($request); }    if (!$Apache::lonxml::debug && ($ENV{'REQUEST_METHOD'} eq 'GET')) {
       &Apache::loncommon::no_cache($request);
     }
   $request->send_http_header;    $request->send_http_header;
   return OK if $request->header_only;    return OK if $request->header_only;
   return ''    return ''
Line 359  sub newproblem { Line 366  sub newproblem {
  # I don't like hard-coded filenames but for now, this will work.   # I don't like hard-coded filenames but for now, this will work.
  use File::Copy;   use File::Copy;
  my $templatefilename =    my $templatefilename = 
     "/home/httpd/html/res/adm/includes/templates/blank.problem";      $request->dir_config('lonIncludes').'/templates/blank.problem';
    &Apache::lonxml::debug("$templatefilename");
  my $dest = &Apache::lonnet::filelocation("",$request->uri);   my $dest = &Apache::lonnet::filelocation("",$request->uri);
  copy($templatefilename,$dest);   copy($templatefilename,$dest);
  &renderpage($request,$dest);   &renderpage($request,$dest);
Removed from v.1.65  
changed lines
  Added in v.1.68

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