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

Wed, 03 Sep 2003 18:09:50 -0000

albertel		Wed Sep  3 14:09:50 2003 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - BUG#2118, use title if available when doing feed back
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.50 loncom/interface/lonfeedback.pm:1.51

--- loncom/interface/lonfeedback.pm:1.50	Wed Aug  6 13:00:30 2003
+++ loncom/interface/lonfeedback.pm	Wed Sep  3 14:09:50 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.50 2003/08/06 17:00:30 albertel Exp $
+# $Id: lonfeedback.pm,v 1.51 2003/09/03 18:09:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,6 +56,8 @@
   my ($r,$feedurl,$options) = @_;
   my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',
                                           '','onLoad="window.focus();"');
+  my $title=&Apache::lonnet::gettitle($feedurl);
+  if (!$title) { $title = $feedurl; }
   my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
   $r->print(<<ENDDOCUMENT);
 <html>
@@ -105,7 +107,7 @@
 </script>
 </head>
 $bodytag
-<h2><tt>$feedurl</tt></h2>
+<h2><tt>$title</tt></h2>
 <form action="/adm/feedback" method="post" name="mailform"
 enctype="multipart/form-data">
 <input type=hidden name=postdata value="$feedurl">



