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

Diff for /loncom/interface/lonannounce.pm between versions 1.5 and 1.7

version 1.5, 2002/08/09 20:39:13 version 1.7, 2002/09/11 15:01:43
Line 175  sub handler { Line 175  sub handler {
     }      }
 </script>  </script>
 </head>  </head>
 <body bgcolor="#FFFFFF">  
 <h1>Announcements</h1>  
 ENDDOCUMENT  ENDDOCUMENT
       $r->print(&Apache::loncommon::bodytag("Announcements and Calendar"));
 # does this user have privileges to post, etc?  # does this user have privileges to post, etc?
     my $allowed=0;      my $allowed=0;
     if ($ENV{'request.course.id'}) {      if ($ENV{'request.course.id'}) {
Line 245  ENDFORM Line 243  ENDFORM
  '<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '.   '<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '.
  '<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a><p>'.   '<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a><p>'.
         '<table border="2" cols="7" rows="5"><tr><th>Sun</th><th>Mon</th>'.          '<table border="2" cols="7" rows="5"><tr><th>Sun</th><th>Mon</th>'.
         '<th>Tue</th><th>Wed</th><th>Thu</th><th>Fri</th><th>Sat</th>');          '<th>Tue</th><th>Wed</th><th>Thu</th><th>Fri</th><th>Sat</th></tr>');
   
     my $tk=&Apache::loncommon::maketime(%firstday);      my $tk=&Apache::loncommon::maketime(%firstday);
     my $outp;      my $outp;
Line 270  ENDFORM Line 268  ENDFORM
         $r->print('</tr>');          $r->print('</tr>');
     }      }
 # ------------------------------------------------------------------- End table  # ------------------------------------------------------------------- End table
       $r->print('</table>');
     if ($allowed) { $r->print('</form>'); }      if ($allowed) { $r->print('</form>'); }
     $r->print('</table><p>'.      $r->print('<p>'.
  '<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '.   '<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '.
  '<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a><p>'.   '<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a><p>'.
  '</body></html>');   '</body></html>');
Removed from v.1.5  
changed lines
  Added in v.1.7

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