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

Diff for /loncom/interface/lonsupportreq.pm between versions 1.29 and 1.30

version 1.29, 2005/10/13 17:18:14 version 1.30, 2006/03/15 19:41:26
Line 195  function initialize_codes() { Line 195  function initialize_codes() {
             }              }
         }          }
     }      }
   
     my $html=&Apache::lonxml::xmlbegin();      my $html=&Apache::lonxml::xmlbegin();
       my $head = &Apache::loncommon::headtag('LON-CAPA support request');
       my $end_head = &Apache::loncommon::endheadtag();
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 $html  $html
 <head>  $head
  <title>LON-CAPA support request</title>  
 <script type"text/javascript">  <script type"text/javascript">
 $scripttag  $scripttag
 $jscript  $jscript
 </script>  </script>
 </head>  $end_head
 $bodytag  $bodytag
 ENDHEAD  ENDHEAD
     if ($r->uri eq '/adm/helpdesk') {      if ($r->uri eq '/adm/helpdesk') {
Line 595  END Line 597  END
            </tr>             </tr>
 END  END
     }      }
   
     $r->print(<<END);      $r->print(<<END);
            <tr>             <tr>
             <td width="140" bgcolor="$tablecolor">              <td width="140" bgcolor="$tablecolor">
Line 631  END Line 634  END
   </tr>    </tr>
  </table>   </table>
 </form>  </form>
 </body>  
 </html>  
 END  END
       $r->print(&Apache::loncommon::end_page());
     return;      return;
 }  }
   
Line 696  Date/Time: $reporttime Line 698  Date/Time: $reporttime
 <font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br />  <font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br />
     |;      |;
     my $html=&Apache::lonxml::xmlbegin();      my $html=&Apache::lonxml::xmlbegin();
       my $head = &Apache::loncommon::head('LON-CAPA support request recorded');
     $r->print(<<"END");      $r->print(<<"END");
 $html  $html
 <head>  $head
  <title>LON-CAPA support request recorded</title>  
 </head>  
 $bodytag  $bodytag
 <form name="logproblem">  <form name="logproblem">
 <input type="hidden" name="action" value="result" />  <input type="hidden" name="action" value="result" />
Line 891  END Line 892  END
    </td>     </td>
   </tr>    </tr>
  </table>   </table>
 </body>  
 </html>  
     ");      ");
       $r->print(&Apache::loncommon::end_page());
 }  }
   
 sub print_header {  sub print_header {
Removed from v.1.29  
changed lines
  Added in v.1.30

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