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

Diff for /loncom/interface/lonfeedback.pm between versions 1.18 and 1.21

version 1.18, 2001/11/06 11:55:11 version 1.21, 2002/01/01 15:02:31
Line 1 Line 1
 # The LearningOnline Network  # The LearningOnline Network
 # Feedback  # Feedback
 #  #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
 # (Internal Server Error Handler  # (Internal Server Error Handler
 #  #
 # (Login Screen  # (Login Screen
Line 15 Line 39
 # 2/13 Guy Albertelli  # 2/13 Guy Albertelli
 # 7/25 Gerd Kortemeyer  # 7/25 Gerd Kortemeyer
 # 7/26 Guy Albertelli  # 7/26 Guy Albertelli
 # 7/26,8/10,10/1,11/5,11/6 Gerd Kortemeyer  # 7/26,8/10,10/1,11/5,11/6,12/27,12/29 Gerd Kortemeyer
   
   
 package Apache::lonfeedback;  package Apache::lonfeedback;
Line 171  sub screen_header { Line 195  sub screen_header {
       '<br><input type=checkbox name=policy> '.        '<br><input type=checkbox name=policy> '.
  'Question/Comment/Feedback about course policy';   'Question/Comment/Feedback about course policy';
   }    }
   
   if ($ENV{'request.course.id'}) {    if ($ENV{'request.course.id'}) {
         if (&Apache::lonnet::allowed('pch',$ENV{'request.course.id'})) {
     $options.='<br><input type=checkbox name=discuss> '.      $options.='<br><input type=checkbox name=discuss> '.
  '<b>Contribution to course discussion of resource</b>';   '<b>Contribution to course discussion of resource</b>';
   }  
   if ($ENV{'request.course.id'}) {  
     $options.='<br><input type=checkbox name=anondiscuss> '.      $options.='<br><input type=checkbox name=anondiscuss> '.
  '<b>Anonymous contribution to course discussion of resource</b>'.   '<b>Anonymous contribution to course discussion of resource</b>'.
         ' (name only visible to course faculty)';          ' (name only visible to course faculty)';
         }
   }    }
   return $options;    return $options;
 }  }
Line 285  sub send_msg { Line 310  sub send_msg {
 sub adddiscuss {  sub adddiscuss {
     my ($symb,$email,$anon)=@_;      my ($symb,$email,$anon)=@_;
     my $status='';      my $status='';
       if (&Apache::lonnet::allowed('pch',$ENV{'request.course.id'})) {
   
     my %contrib=('message'      => $email,      my %contrib=('message'      => $email,
                  'sendername'   => $ENV{'user.name'},                   'sendername'   => $ENV{'user.name'},
                  'senderdomain' => $ENV{'user.domain'});                   'senderdomain' => $ENV{'user.domain'});
Line 296  sub adddiscuss { Line 323  sub adddiscuss {
         &Apache::lonnet::store(\%contrib,$symb,$ENV{'request.course.id'},          &Apache::lonnet::store(\%contrib,$symb,$ENV{'request.course.id'},
                      $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},                       $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
      $ENV{'course.'.$ENV{'request.course.id'}.'.num'});       $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
           my %storenewentry=($symb => time);
           $status.='<br>Updating discussion time: '.
           &Apache::lonnet::put('discussiontimes',\%storenewentry,
                        $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
        $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
     }      }
     my %record=&Apache::lonnet::restore('_discussion');      my %record=&Apache::lonnet::restore('_discussion');
     my ($temp)=keys %record;      my ($temp)=keys %record;
Line 303  sub adddiscuss { Line 335  sub adddiscuss {
        my %newrecord=();         my %newrecord=();
        $newrecord{'resource'}=$symb;         $newrecord{'resource'}=$symb;
        $newrecord{'subnumber'}=$record{'subnumber'}+1;         $newrecord{'subnumber'}=$record{'subnumber'}+1;
        $status.=' '.&Apache::lonnet::cstore(\%newrecord,'_discussion');         $status.='<br>Registering: '.
                  &Apache::lonnet::cstore(\%newrecord,'_discussion');
       }
       } else {
    $status.='Failed.';
     }      }
     return $status.'<br>';         return $status.'<br>';   
 }  }
Removed from v.1.18  
changed lines
  Added in v.1.21

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