Annotation of loncom/interface/lonannounce.pm, revision 1.30

1.1       www         1: # The LearningOnline Network
1.2       www         2: # Announce
1.1       www         3: #
1.30    ! www         4: # $Id: lonannounce.pm,v 1.29 2004/07/03 20:45:23 albertel Exp $
1.1       www         5: #
1.3       www         6: # Copyright Michigan State University Board of Trustees
1.1       www         7: #
1.3       www         8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
1.1       www         9: #
1.3       www        10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
1.1       www        14: #
1.3       www        15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
                     28: 
1.2       www        29: package Apache::lonannounce;
1.1       www        30: 
                     31: use strict;
                     32: use Apache::Constants qw(:common);
1.3       www        33: use Apache::loncommon;
1.8       matthew    34: use Apache::lonhtmlcommon();
1.20      www        35: use Apache::lonlocal;
1.15      www        36: use HTML::Entities();
1.3       www        37: 
1.12      www        38: my %todayhash;
1.16      www        39: my %showedcheck;
1.12      www        40: 
1.10      www        41: sub editfield {
                     42:     my ($r,$start,$end,$text)=@_;
                     43:     # Deal with date forms
                     44:     my $startdateform = &Apache::lonhtmlcommon::date_setter('anno',
                     45:                                                             'startdate',
                     46:                                                             $start);
                     47:     my $enddateform = &Apache::lonhtmlcommon::date_setter('anno',
                     48:                                                           'enddate',
                     49:                                                           $end);
1.29      albertel   50:     my $help=&Apache::loncommon::help_open_menu('','Calendar Add Announcement','Calendar_Add_Announcement','',274,'Communication Tools');
1.10      www        51:     $r->print(<<ENDFORM);
1.25      www        52: $help
1.10      www        53: <form name="anno" method="post">
                     54: <input type="hidden" value=''          name="action"      >
                     55: <table><tr><td>Starting date:</td><td>$startdateform</td></tr>
                     56: <tr><td>Ending date:</td><td>$enddateform</td></tr></table>
                     57: <textarea name="msg" rows="4" cols="60">$text</textarea>
1.25      www        58: <input type="button" onClick="trysubmit()" value="Post Announcement"><hr />
1.10      www        59: ENDFORM
                     60: }
                     61: 
1.3       www        62: sub readcalendar {
                     63:     my $courseid=shift;
                     64:     my $coursenum=$ENV{'course.'.$courseid.'.num'};
                     65:     my $coursedom=$ENV{'course.'.$courseid.'.domain'};
                     66:     my %thiscal=&Apache::lonnet::dump('calendar',$coursedom,$coursenum);
                     67:     my %returnhash=();
                     68:     foreach (keys %thiscal) {
                     69:         unless (($_=~/^error\:/) || ($thiscal{$_}=~/^error\:/)) {
                     70: 	   $returnhash{$courseid.'@'.$_}=$thiscal{$_};
                     71:         }
                     72:     }
1.26      www        73:     if ($courseid eq $ENV{'request.course.id'}) {
                     74: 	my %resourcedata=
                     75: 	    &Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);
                     76: 	foreach my $thiskey (sort keys %resourcedata) {
                     77: 	    if ($resourcedata{$thiskey.'.type'}=~/^date/) {
                     78: 		my ($course,$middle,$part,$name)=
                     79: 		    ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
                     80: 		my $section=&mt('All Students');
                     81: 		if ($middle=~/^\[(.*)\]\./) {
                     82: 		    $section=&mt('Group/Section').': '.$1;
                     83: 		    $middle=~s/^\[(.*)\]\.//;
                     84: 		}
                     85: 		$middle=~s/\.$//;
                     86: 		my $realm=&mt('All Resources');
                     87: 		if ($middle=~/^(.+)\_\_\_\(all\)$/) {
                     88: 		    $realm=&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1);
                     89: 		} elsif ($middle) {
                     90: 		    $realm=&mt('Resource').': '.&Apache::lonnet::gettitle($middle);
                     91: 		}
                     92: 		my $datetype='';
1.28      www        93: 		if ($name eq 'duedate') { 
                     94: 		    $datetype=&mt('Due'); 
                     95: # see if accidentally answerdate is before duedate
                     96: 		    my $answerkey=$thiskey;
                     97: 		    $answerkey=~s/duedate$/answerdate/;
                     98: 		    if ($resourcedata{$thiskey}>$resourcedata{$answerkey}) {
                     99: 			$datetype='Due and Answer Available';
                    100: 		    }
                    101: 		}
1.26      www       102: 		if ($name eq 'opendate') { $datetype=&mt('Opening'); }
1.28      www       103: 		if ($name eq 'answerdate') {
                    104: # see if accidentally answerdate is before duedate
                    105: 		    my $duekey=$thiskey;
                    106: 		    $duekey=~s/answerdate$/duedate/;
                    107: 		    if ($resourcedata{$duekey}>$resourcedata{$thiskey}) {
                    108: # forget it
                    109: 			next;
                    110: 		    } 
                    111: 		    $datetype=&mt('Answer Available'); 
                    112: 		}
1.26      www       113: 		$returnhash{$courseid.'@'.$resourcedata{$thiskey}.'_'.
                    114: 			    $resourcedata{$thiskey}}=
                    115: 			    'INTERNAL:'.$datetype.': '.$realm.' ('.$section.')';
                    116: 	    }
                    117: 	}
                    118:     }
1.3       www       119:     return %returnhash;
                    120: }
                    121: 
                    122: sub emptycell {
                    123:     return '<td bgcolor="#AAAAAA">&nbsp;</td>';
                    124: }
                    125: 
                    126: sub normalcell {
1.12      www       127:     my ($day,$month,$year,$text)=@_;
1.4       www       128:     my $output='';
                    129:     foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {
                    130:         if ($_) {
1.26      www       131: 	    my $internalflag=0;
1.5       www       132: 	    my ($courseid,$start,$end,@msg)=split(/\@/,$_);
                    133:             my $msg=join('@',@msg);
1.26      www       134: 	    if ($msg=~/INTERNAL\:/) {
                    135: 		$msg=~s/INTERNAL\://gs;
                    136: 		$internalflag=1;
                    137: 	    }
1.11      www       138:             my $fullmsg=$ENV{'course.'.$courseid.'.description'}.
1.26      www       139: 		', '.&Apache::lonlocal::locallocaltime($start);
                    140: 	    if ($start!=$end) {
                    141: 		$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end);
                    142: 	    }
                    143: 	    $fullmsg.=': '.$msg;
1.5       www       144:             if ($courseid eq $ENV{'request.course.id'}) {
1.16      www       145:               if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))
1.19      www       146:                && (!$showedcheck{$start.'_'.$end})
1.26      www       147: 	       && ($ENV{'form.pickdate'} ne 'yes')
                    148: 	       && (!$internalflag)) {
1.5       www       149:                $output.='<input type="checkbox" name="remove_'.$start.'_'.
                    150: 		   $end.'">';
1.16      www       151:                $showedcheck{$start.'_'.$end}=1;
1.5       www       152: 	      }
                    153: 	    }
1.15      www       154:             $fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
                    155:             $fullmsg=~s/&/\\&/g;
1.5       www       156:             $output.='<a href="javascript:alert('."'$fullmsg'".')">'.
1.11      www       157: 	       substr($msg,0,20).'...</a><br />';
1.4       www       158:        }
                    159:     }
1.30    ! www       160:     return '<td valign="top"'.
1.12      www       161: 	((($day eq $todayhash{'day'}) &&
                    162:           ($month eq $todayhash{'month'}) &&
                    163:           ($year eq $todayhash{'year'}))?' bgcolor="#FFFF00"':'').
1.30    ! www       164:            '>'.&tfont('<b>'.&picklink($day,$day,$month,$year).'</b><br />'.$output).'</td>';
1.3       www       165: }
                    166: 
1.11      www       167: sub plaincell {
                    168:     my ($text)=@_;
                    169:     my $output='';
                    170:     foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {
                    171:         if ($_) {
                    172: 	    my ($courseid,$start,$end,@msg)=split(/\@/,$_);
                    173:             my $msg=join('@',@msg);
                    174:             my $fullmsg=$ENV{'course.'.$courseid.'.description'}.
1.26      www       175: 		', '.&Apache::lonlocal::locallocaltime($start);
                    176: 	    if ($start!=$end) {
                    177: 		$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end);
                    178: 	    }
1.27      www       179: 	    $msg=~s/INTERNAL\://gs;
1.26      www       180: 	    $fullmsg.=': '.$msg;
1.15      www       181:             $fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
                    182:             $fullmsg=~s/&/\\&/g;
1.11      www       183:             $output.='<a href="javascript:alert('."'$fullmsg'".')">'.
                    184: 	       substr($msg,0,40).'...</a><br />';
                    185:        }
                    186:     }
                    187:     return $output;
                    188: }
                    189: 
                    190: sub listcell {
                    191:     my ($text)=@_;
                    192:     my $output='';
                    193:     foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {
                    194:         if ($_) {
                    195: 	    my ($courseid,$start,$end,@msg)=split(/\@/,$_);
                    196:             my $msg=join('@',@msg);
1.27      www       197: 	    $msg=~s/INTERNAL\://gs;
1.26      www       198:             my $fullmsg=&Apache::lonlocal::locallocaltime($start);
                    199: 	    if ($start!=$end) {
                    200: 		$fullmsg.=&mt(' to ').
                    201: 		    &Apache::lonlocal::locallocaltime($end);
                    202: 	    }
                    203:             $fullmsg.=':<br /><b>'.
1.11      www       204:                $msg.'</b>';
                    205:             $output.='<li>'.$fullmsg.'</li>';
                    206:        }
                    207:     }
                    208:     return $output;
                    209: }
                    210: 
1.3       www       211: sub nextday {
                    212:     my %th=@_;
                    213:     $th{'day'}++;
                    214:     return (&Apache::loncommon::maketime(%th),$th{'month'});
                    215: }
                    216: 
                    217: sub showday {
1.11      www       218:     my ($tk,$mode,%allcal)=@_;
1.3       www       219:     my %th=&Apache::loncommon::timehash($tk);
                    220:     my ($nextday,$nextmonth)=&nextday(%th);
                    221:     my $outp='';
1.27      www       222:     if ($mode) {
                    223: 	my $oneday=24*3600;
                    224: 	$tk-=$oneday;
                    225: 	$nextday+=$oneday;
                    226:     }
1.3       www       227:     foreach (keys %allcal) {
                    228: 	my ($course,$startdate,$enddate)=($_=~/^(\w+)\@(\d+)\_(\d+)$/);
1.4       www       229:         if (($startdate<$nextday) && ($enddate>$tk))  {
1.5       www       230: 	    $outp.='___&&&___'.$course.'@'.$startdate.'@'.$enddate.'@'.
                    231:             $allcal{$_};
1.3       www       232:         }
                    233:     }
1.11      www       234:     unless ($mode) {
1.12      www       235:        return ($nextday,$nextmonth,&normalcell(
                    236:                $th{'day'},$th{'month'},$th{'year'},$outp));
1.11      www       237:    } elsif ($outp) {
                    238:        if ($mode==1) {
                    239:           return '<br />'.&plaincell($outp);
                    240:       } else {
                    241:           return '<ul>'.&listcell($outp).'</ul>';
                    242:       }
                    243:    } else {
                    244:        return '';
                    245:    }
1.3       www       246: }
1.1       www       247: 
1.19      www       248: sub tfont {
                    249:     my $text=shift;
                    250:     if ($ENV{'form.pickdate'} eq 'yes') {
                    251: 	return '<font size="1">'.$text.'</font>';
                    252:     } else {
                    253: 	return $text;
                    254:     }
                    255: }
                    256: 
                    257: sub picklink {
                    258:     my ($text,$day,$month,$year)=@_;
                    259:     if ($ENV{'form.pickdate'} eq 'yes') {
                    260: 	return '<a href="javascript:dialin('.$day.','.$month.','.$year.')">'.
                    261: 	    $text.'</a>';
                    262:     } else {
                    263: 	return $text;
                    264:     }
                    265: }
                    266: 
                    267: sub dialscript {
                    268:     return (<<ENDDIA);
                    269: <script language="Javascript">
                    270: function dialin(day,month,year) {
                    271: 	opener.document.$ENV{'form.formname'}.$ENV{'form.element'}\_year.value=year;
                    272:     var slct=opener.document.$ENV{'form.formname'}.$ENV{'form.element'}\_month;
                    273:     var i;
                    274:     for (i=0;i<slct.length;i++) {
                    275:         if (slct.options[i].value==month) { slct.selectedIndex=i; }
                    276:     }
                    277:     opener.document.$ENV{'form.formname'}.$ENV{'form.element'}\_day.value=day;
                    278:     opener.$ENV{'form.element'}\_checkday();
                    279:     self.close();
                    280: }
                    281: </script>
                    282: ENDDIA
                    283: }
                    284: 
1.1       www       285: sub handler {
                    286:     my $r = shift;
1.21      www       287:     &Apache::loncommon::content_type($r,'text/html');
1.1       www       288:     $r->send_http_header;
                    289:     return OK if $r->header_only;
                    290: 
1.3       www       291: # ---------------------------------------------------------- Get time right now
                    292:     my $today=time;
1.12      www       293:     %todayhash=&Apache::loncommon::timehash($today);
1.16      www       294: # ----------------------------------------------------------------- Check marks
                    295:     %showedcheck=();
                    296:     undef %showedcheck;
1.3       www       297: # ---------------------------------------------------------- Get month and year
                    298:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.19      www       299:                              ['month','year','pickdate','formname','element']);
1.3       www       300: # --------------------------------------------------- Decide what month to show
                    301:     my $year=$todayhash{'year'};
                    302:     if ($ENV{'form.year'}) { $year=$ENV{'form.year'}; }
                    303:     my $month=$todayhash{'month'};
                    304:     if ($ENV{'form.month'}) { $month=$ENV{'form.month'}; }
1.18      www       305: 
                    306: # ---------------------------------------------- See if we are in pickdate mode
                    307:     my $pickdatemode=($ENV{'form.pickdate'} eq 'yes');
1.19      www       308:     my $pickinfo='&pickdate=yes&formname='.$ENV{'form.formname'}.
                    309: 	'&element='.$ENV{'form.element'};
1.3       www       310: # --------------------------------------------- Find out first day of the month
                    311: 
                    312:     my %firstday=&Apache::loncommon::timehash(
                    313:        &Apache::loncommon::maketime( 'day' => 1, 'month'=> $month,
                    314:                                      'year' => $year, 'hours' => 0,
                    315: 				     'minutes' => 0, 'seconds' => 0,
1.30    ! www       316:                                      'dlsav' => -1 ));
1.3       www       317:     my $weekday=$firstday{'weekday'};
                    318: # ------------------------------------------------------------ Print the screen
1.9       www       319: 
1.1       www       320:     $r->print(<<ENDDOCUMENT);
                    321: <html>
                    322: <head>
                    323: <title>The LearningOnline Network with CAPA</title>
1.3       www       324: <script>
                    325: 
                    326:     function trysubmit() {
                    327:         document.anno.action.value="new";
                    328: 	document.anno.submit();
                    329:     }
                    330: 
                    331:     function removesub() {
                    332:         document.anno.action.value="del";
                    333: 	document.anno.submit();
                    334:     }
                    335: </script>
1.1       www       336: </head>
                    337: ENDDOCUMENT
1.18      www       338:     if ($pickdatemode) {
                    339: # no big header in pickdate mode
                    340: 	$r->print(&Apache::loncommon::bodytag("Pick a Date",'','',1).
1.19      www       341: 		  &dialscript().
1.18      www       342: 		  '<font size="1">');
                    343:     } else {
                    344:        $r->print(&Apache::loncommon::bodytag("Announcements and Calendar"));
                    345:     }
1.3       www       346: # does this user have privileges to post, etc?
                    347:     my $allowed=0;
                    348:     if ($ENV{'request.course.id'}) {
                    349:        $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});
                    350:     }
1.17      www       351: # does this user have privileges to post to servers?
                    352:     my $serverpost=0;
                    353:     if ($ENV{'request.role.domain'}) {
                    354: 	$serverpost=&Apache::lonnet::allowed('psa',
                    355: 					     $ENV{'request.role.domain'});
                    356:     } else {
                    357: 	$serverpost=&Apache::lonnet::allowed('psa','/');
                    358:     }
1.18      www       359: # -------------------------------- BUT: do no fancy stuff when in pickdate mode
                    360:     if ($pickdatemode) { 
                    361: 	$serverpost=0; 
                    362: 	$allowed=0;
                    363:     }
1.17      www       364: # ------------------------------------------------------------ Process commands
                    365:     if ($serverpost) {
                    366: 	if ($ENV{'form.serveraction'}) {
                    367: 	    foreach (keys %ENV) {
                    368: 		if ($_=~/^form\.postto\_(\w+)/) {
                    369: 		    $r->print( 
                    370: 			'<br />Posting '.$1.': '.&Apache::lonnet::postannounce
                    371: 			($1,$ENV{'form.serverannnounce'}));
                    372: 		}
                    373: 	    }
                    374: 	}
                    375: 	$r->print(<<SERVERANNOUNCE);
                    376: <form name="serveranno" method="post">
                    377: <h3>Post Server Announcements</h3>
                    378: Post announcements to the system login and roles screen<br />
                    379: <i>(leave blank to delete announcement)</i><br />
                    380: <textarea name="serverannnounce" cols="60" rows="5"></textarea><br />
                    381: Check machines:<br />
                    382: SERVERANNOUNCE
                    383: # list servers
                    384:     foreach (sort keys %Apache::lonnet::hostname) {
                    385: 	if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$_})) {
                    386: 	    $r->print ('<br /><input type="checkbox" name="postto_'.$_.'" /> '.
                    387: 		       $_.' <tt>'.$Apache::lonnet::hostname{$_}.'</tt> '.
                    388: 		       '<a href="http://'.$Apache::lonnet::hostname{$_}.
                    389: 		       '/announcement.txt" target="annowin">current</a>');
                    390: 	}
                    391:     }
                    392:     $r->print(
                    393:   '<br /><input type="submit" name="serveraction" value="Post"></form><hr />');
                    394:     }
1.3       www       395:     if ($allowed) {
                    396:         my $coursenum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
                    397:         my $coursedom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
                    398: # ----------------------------------------------------- Store new submitted one
                    399:         if ($ENV{'form.action'} eq 'new') {
1.9       www       400: 	    my $startdate = 
                    401: 		&Apache::lonhtmlcommon::get_date_from_form('startdate');
                    402: 	    my $enddate   = 
                    403: 		&Apache::lonhtmlcommon::get_date_from_form('enddate');
                    404: 	    unless ($startdate=~/^\d+$/) { $startdate=time; }
                    405:             unless ($enddate=~/^\d+$/) { $enddate=$startdate+1; }
                    406:             if ($startdate>$enddate) {
                    407: 		my $buffer=$startdate;
                    408: 		$startdate=$enddate;
                    409: 		$enddate=$buffer;
                    410:             }
1.3       www       411: 	    &Apache::lonnet::put('calendar',{ 
1.9       www       412: 		$startdate.'_'.$enddate => 
1.3       www       413: 		    $ENV{'form.msg'} },$coursedom,$coursenum);
                    414:         }
                    415: # ---------------------------------------------------------------- Remove items
                    416:         if ($ENV{'form.action'} eq 'del') {
                    417: 	    my @delwhich=();
                    418:             foreach (keys %ENV) {
                    419: 		if ($_=~/^form\.remove\_(.+)$/) {
                    420: 		    push(@delwhich,$1);
                    421:                 }
                    422:             }
                    423:             &Apache::lonnet::del('calendar',\@delwhich,$coursedom,$coursenum);
                    424:         }
                    425: # -------------------------------------------------------- Form to post new one
                    426:         my %tomorrowhash=%todayhash;
                    427:         $tomorrowhash{'day'}++;
                    428:         my $tomorrow=&Apache::loncommon::maketime(%tomorrowhash);
                    429:         
1.10      www       430:         &editfield($r,$today,$tomorrow,'');
1.3       www       431:     }
1.5       www       432: # ----------------------------------------------------- Summarize all calendars
                    433:     my %allcal=();
                    434:     foreach (&Apache::loncommon::findallcourses()) {
                    435: 	%allcal=(%allcal,&readcalendar($_));
                    436:     }
                    437: 
                    438: # ------------------------------- Initialize table and forward backward buttons
1.3       www       439:     my ($pm,$py,$fm,$fy)=($month-1,$year,$month+1,$year);
                    440:     if ($pm<1) { ($pm,$py)=(12,$year-1); }
                    441:     if ($fm>12){ ($fm,$fy)=(1,$year+1); }
1.14      www       442: 
1.20      www       443:     $r->print('<h1>'.('',&mt('January'),&mt('February'),&mt('March'),
                    444: 		      &mt('April'),&mt('May'),
                    445: 		      &mt('June'),&mt('July'),&mt('August'),
                    446:                       &mt('September'),&mt('October'),
                    447:                       &mt('November'),&mt('December'))[$month].' '.
                    448: 	              $year.'</h1>');
1.13      www       449: # Reached the end of times, give up
                    450:     if (($year<1970) || ($year>2037)) {
                    451: 	$r->print('<h3>No calendar available for this date.</h3>'.
                    452:  '<a href="/adm/announcements?month='.$todayhash{'month'}.
                    453:  '&year='.$todayhash{'year'}.'">Current Month</a></body></html>');
                    454: 	return OK;
                    455:     }
                    456:     $r->print(
1.18      www       457:  '<a href="/adm/announcements?month='.$pm.'&year='.$py.
1.20      www       458:  ($pickdatemode?$pickinfo:'').'">'.&mt('Previous Month').'</a> '.
1.18      www       459:  '<a href="/adm/announcements?month='.$fm.'&year='.$fy.
1.20      www       460:  ($pickdatemode?$pickinfo:'').'">'.&mt('Next Month').'</a>'.
1.12      www       461:  '&nbsp;&nbsp;&nbsp;<a href="/adm/announcements?month='.$todayhash{'month'}.
1.18      www       462:  '&year='.$todayhash{'year'}.
1.20      www       463:  ($pickdatemode?$pickinfo:'').'">'.&mt('Current Month').'</a><p>'.
1.19      www       464:         '<table border="2" cols="7" rows="5"><tr><th>'.
1.20      www       465: &tfont(&mt('Sun'))
1.19      www       466: .'</th><th>'.
1.20      www       467: &tfont(&mt('Mon'))
1.19      www       468: .'</th><th>'.
1.20      www       469: &tfont(&mt('Tue'))
1.19      www       470: .'</th><th>'.
1.20      www       471: &tfont(&mt('Wed'))
1.19      www       472: .'</th><th>'.
1.20      www       473: &tfont(&mt('Thu'))
1.19      www       474: .'</th><th>'.
1.20      www       475: &tfont(&mt('Fri'))
1.19      www       476: .'</th><th>'.
1.20      www       477: &tfont(&mt('Sat'))
1.19      www       478: .'</th></tr>');
1.3       www       479: 
                    480:     my $tk=&Apache::loncommon::maketime(%firstday);
                    481:     my $outp;
                    482:     my $nm;
                    483: 
                    484: # ---------------------------------------------------------------- Actual table
                    485:     $r->print('<tr>');
                    486:     for (my $i=0;$i<$weekday;$i++) { $r->print(&emptycell); }
                    487:     for (my $i=$weekday;$i<=6;$i++) { 
1.11      www       488:         ($tk,$nm,$outp)=&showday($tk,0,%allcal);
1.3       www       489:         $r->print($outp);
                    490:     }
                    491:     $r->print('</tr>');
                    492: 
1.23      www       493:     for (my $k=0;$k<=4;$k++) {
1.3       www       494:         $r->print('<tr>');
                    495:         for (my $i=0;$i<=6;$i++) {
1.11      www       496:             ($tk,$nm,$outp)=&showday($tk,0,%allcal);
1.3       www       497:             if ($month!=$nm) { $outp=&emptycell; }
                    498:             $r->print($outp);
                    499:         }
                    500:         $r->print('</tr>');
                    501:     }
                    502: # ------------------------------------------------------------------- End table
1.7       matthew   503:     $r->print('</table>');
1.16      www       504: # ----------------------------------------------------------------- Check marks
                    505:     %showedcheck=();
                    506:     undef %showedcheck;
                    507: # --------------------------------------------------------------- Remove button
1.24      www       508:     if ($allowed) { $r->print('<input type="button" onClick="removesub()" value="Remove Checked Entries">'.
                    509: 			      &Apache::loncommon::help_open_topic('Calendar_Remove_Announcement').'</form>'); }
1.7       matthew   510:     $r->print('<p>'.
1.18      www       511:  '<a href="/adm/announcements?month='.$pm.'&year='.$py.
1.20      www       512:  ($pickdatemode?$pickinfo:'').'">'.&mt('Previous Month').'</a> '.
1.18      www       513:  '<a href="/adm/announcements?month='.$fm.'&year='.$fy.
1.20      www       514:  ($pickdatemode?$pickinfo:'').'">'.&mt('Next Month').'</a>'.
1.12      www       515:  '&nbsp;&nbsp;&nbsp;<a href="/adm/announcements?month='.$todayhash{'month'}.
1.18      www       516:  '&year='.$todayhash{'year'}.
1.20      www       517:  ($pickdatemode?$pickinfo:'').'">'.&mt('Current Month').'</a></p>'.
1.18      www       518:  ($pickdatemode?'</font>':'').
1.3       www       519:  '</body></html>');
1.1       www       520:     return OK;
                    521: } 
                    522: 
                    523: 1;
                    524: __END__

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