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

Diff for /loncom/interface/lonfeedback.pm between versions 1.152 and 1.153

version 1.152, 2005/02/17 04:39:58 version 1.153, 2005/02/17 08:29:42
Line 1437  END Line 1437  END
   my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders();    my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders();
   my $send=&mt('Send');    my $send=&mt('Send');
   my $html=&Apache::lonxml::xmlbegin();    my $html=&Apache::lonxml::xmlbegin();
   my $encoding=&Apache::lonxml::fontsettings();  
   $r->print(<<END);    $r->print(<<END);
 $html  $html
 <head>  <head>
 $encoding  
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
 <meta http-equiv="pragma" content="no-cache"></meta>  <meta http-equiv="pragma" content="no-cache"></meta>
 $htmlheader  $htmlheader
Line 1665  sub print_display_options { Line 1663  sub print_display_options {
         $disctogg = 'toggon';          $disctogg = 'toggon';
     }      }
     my $html=&Apache::lonxml::xmlbegin();      my $html=&Apache::lonxml::xmlbegin();
     my $encoding=&Apache::lonxml::fontsettings();  
     $r->print(<<END);      $r->print(<<END);
 $html  $html
 <head>  <head>
 $encoding  
 <title>$lt{'dido'}</title>  <title>$lt{'dido'}</title>
 <meta http-equiv="pragma" content="no-cache" />  <meta http-equiv="pragma" content="no-cache" />
 <script>  <script>
Line 1850  sub print_sortfilter_options { Line 1846  sub print_sortfilter_options {
     my %status_types = ();      my %status_types = ();
     &sort_filter_names(\%sort_types,\%role_types,\%status_types);      &sort_filter_names(\%sort_types,\%role_types,\%status_types);
     my $html=&Apache::lonxml::xmlbegin();      my $html=&Apache::lonxml::xmlbegin();
     my $encoding=&Apache::lonxml::fontsettings();  
     $r->print(<<END);      $r->print(<<END);
 $html  $html
 <head>  <head>
 $encoding  
 <title>$lt{'diso'}</title>  <title>$lt{'diso'}</title>
 <meta http-equiv="pragma" content="no-cache" />  <meta http-equiv="pragma" content="no-cache" />
 <script type="text/javascript">  <script type="text/javascript">
Line 2005  sub print_showposters { Line 1999  sub print_showposters {
         }          }
     }      }
     my $html=&Apache::lonxml::xmlbegin();      my $html=&Apache::lonxml::xmlbegin();
     my $encoding=&Apache::lonxml::fontsettings();  
     $r->print(<<END);      $r->print(<<END);
 $html  $html
 <head>  <head>
 $encoding  
 <title>$lt{'diso'}</title>  <title>$lt{'diso'}</title>
 <meta http-equiv="pragma" content="no-cache" />  <meta http-equiv="pragma" content="no-cache" />
 </head>  </head>
Line 2121  sub fail_redirect { Line 2113  sub fail_redirect {
   if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };    if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');    my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
   my $html=&Apache::lonxml::xmlbegin();    my $html=&Apache::lonxml::xmlbegin();
   my $encoding=&Apache::lonxml::fontsettings();  
   $r->print (<<ENDFAILREDIR);    $r->print (<<ENDFAILREDIR);
 $html  $html
 <head>  <head>
 $encoding  
 <title>Feedback not sent</title>  <title>Feedback not sent</title>
 <meta http-equiv="pragma" content="no-cache" />  <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />  <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
Line 2211  sub redirect_back { Line 2201  sub redirect_back {
   $feedurl=&Apache::lonenc::check_encrypt($feedurl);    $feedurl=&Apache::lonenc::check_encrypt($feedurl);
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');    my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
   my $html=&Apache::lonxml::xmlbegin();    my $html=&Apache::lonxml::xmlbegin();
   my $encoding=&Apache::lonxml::fontsettings();  
   $r->print (<<ENDREDIR);    $r->print (<<ENDREDIR);
 $html  $html
 <head>  <head>
 $encoding  
 <title>Feedback sent</title>  <title>Feedback sent</title>
 <meta http-equiv="pragma" content="no-cache" />  <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />  <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
Line 2244  sub no_redirect_back { Line 2232  sub no_redirect_back {
   my $nofeed=&mt('Sorry, no feedback possible on this resource  ...');    my $nofeed=&mt('Sorry, no feedback possible on this resource  ...');
   my $continue=&mt('Continue');    my $continue=&mt('Continue');
   my $html=&Apache::lonxml::xmlbegin();    my $html=&Apache::lonxml::xmlbegin();
   my $encoding=&Apache::lonxml::fontsettings();  
   $r->print (<<ENDNOREDIR);    $r->print (<<ENDNOREDIR);
 $html  $html
 <head>  <head>
 $encoding  
 <title>Feedback not sent</title>  <title>Feedback not sent</title>
 <meta http-equiv="pragma" content="no-cache" />  <meta http-equiv="pragma" content="no-cache" />
 ENDNOREDIR  ENDNOREDIR
Line 2594  sub show_preview { Line 2580  sub show_preview {
     my $subject=&clear_out_html($ENV{'form.subject'});      my $subject=&clear_out_html($ENV{'form.subject'});
     $subject=~s/\n/\<br \/\>/g;      $subject=~s/\n/\<br \/\>/g;
     $subject=&Apache::lontexconvert::msgtexconverted($subject);      $subject=&Apache::lontexconvert::msgtexconverted($subject);
     $r->print('<table border="2"><tr><td>'.      my $html=&Apache::lonxml::xmlbegin();
        '<b>Subject:</b> '.$subject.'<br /><br />'.      $r->print($html.'<head>'.
        $message.'</td></tr></table>');        '</head><body><table border="2"><tr><td>'.
         '<b>Subject:</b> '.$subject.'<br /><br />'.
         $message.'</td></tr></table></body></html>');
 }  }
   
 sub generate_preview_button {  sub generate_preview_button {
Line 2629  sub modify_attachments { Line 2617  sub modify_attachments {
     }      }
     &Apache::lonenc::check_encrypt(\$symb);      &Apache::lonenc::check_encrypt(\$symb);
     my $html=&Apache::lonxml::xmlbegin();      my $html=&Apache::lonxml::xmlbegin();
     my $encoding=&Apache::lonxml::fontsettings();  
     $r->print(<<END);      $r->print(<<END);
 $html  $html
 <head>  <head>
 $encoding  
 <title>Managing Attachments</title>  <title>Managing Attachments</title>
 <script>  <script>
  function setAction () {   function setAction () {
Line 2983  sub handler { Line 2969  sub handler {
       &Apache::loncommon::content_type($r,'text/html');        &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;        $r->send_http_header;
       my $html=&Apache::lonxml::xmlbegin();        my $html=&Apache::lonxml::xmlbegin();
       my $encoding=&Apache::lonxml::fontsettings();  
       my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions');        my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions');
       $r->print(<<END);        $r->print(<<END);
 $html  $html
 <head>  <head>
 $encoding  
 <title>Post Versions</title>  <title>Post Versions</title>
 <meta http-equiv="pragma" content="no-cache" />  <meta http-equiv="pragma" content="no-cache" />
 </head>  </head>
Line 3089  END Line 3073  END
       $r->send_http_header;        $r->send_http_header;
       my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');        my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
       my $html=&Apache::lonxml::xmlbegin();        my $html=&Apache::lonxml::xmlbegin();
       my $encoding=&Apache::lonxml::fontsettings();  
       $r->print (<<ENDREDIR);        $r->print (<<ENDREDIR);
 $html  $html
 <head>  <head>
 $encoding  
 <title>New posts marked as read</title>  <title>New posts marked as read</title>
 <meta http-equiv="pragma" content="no-cache" />  <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />  <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
Removed from v.1.152  
changed lines
  Added in v.1.153

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