[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

[albertel]

albertel		Thu Jan  4 15:35:16 2007 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - prevent waring on startup
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.238 loncom/interface/lonfeedback.pm:1.239
--- loncom/interface/lonfeedback.pm:1.238	Tue Dec 26 21:45:41 2006
+++ loncom/interface/lonfeedback.pm	Thu Jan  4 15:35:15 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.238 2006/12/27 02:45:41 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.239 2007/01/04 20:35:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1468,7 +1468,7 @@
 }
 
 sub mail_screen {
-  my ($r,$feedurl,$options,$symb) = @_;
+  my ($r,$feedurl,$options,$caller_symb) = @_;
   if (exists($env{'form.origpage'})) {
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['subject','comment','currnewattach','addnewattach','deloldattach','delnewattach','timestamp','idx','anondiscuss','discuss','blog','group','ref']);
   }
@@ -1480,7 +1480,7 @@
             'reta' => 'Retained attachments',
             'atta' => 'Attachment (128 KB max size)',
            );
-  my $restitle = &get_resource_title($symb,$feedurl);
+  my $restitle = &get_resource_title($caller_symb,$feedurl);
   my $quote='';
   my $subject = '';
   my $comment = '';