--- loncom/interface/lonhtmlcommon.pm	2003/07/25 19:56:37	1.28
+++ loncom/interface/lonhtmlcommon.pm	2003/09/29 13:49:31	1.30
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.28 2003/07/25 19:56:37 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.30 2003/09/29 13:49:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,6 +56,7 @@ html.
 package Apache::lonhtmlcommon;
 
 use Time::Local;
+use Apache::lonlocal;
 use strict;
 
 
@@ -181,6 +182,16 @@ sub date_setter {
             document.$formname.$dname\_day.value = 30;
         }
     }
+
+    function $dname\_opencalendar() {
+       var calwin=window.open(
+"/adm/announcements?pickdate=yes&formname=$formname&element=$dname&month="+
+document.$formname.$dname\_month.value+"&year="+
+document.$formname.$dname\_year.value,
+             "LONCAPAcal",
+              "height=350,width=350,scrollbars=yes,resizable=yes,menubar=no");
+
+    }
 </script>
 ENDJS
     $result .= "  <nobr><select name=\"$dname\_month\" ".$special.' '.
@@ -192,7 +203,7 @@ ENDJS
     for(my $m = 1;$m <=$#Months;$m++) {
         $result .= "      <option value=\"$m\" ";
         $result .= "selected " if ($m-1 == $month);
-        $result .= "> $Months[$m] </option>\n";
+        $result .= "> ".&mt($Months[$m])." </option>\n";
     }
     $result .= "  </select>\n";
     $result .= "  <input type=\"text\" name=\"$dname\_day\" ".
@@ -207,23 +218,26 @@ ENDJS
         $result .= "      <option value=\"$h\" ";
         $result .= "selected " if ($hour == $h);
         $result .= "> ";
+	my $timest='';
         if ($h == 0) {
-            $result .= "12 am";
+            $timest .= "12 am";
         } elsif($h == 12) {
-            $result .= "12 noon";
+            $timest .= "12 noon";
         } elsif($h < 12) {
-            $result .= "$h am";
+            $timest .= "$h am";
         } else {
-            $result .= $h-12 ." pm";
+            $timest .= $h-12 ." pm";
         }
-        $result .= " </option>\n";
+	$timest=&mt($timest);
+        $result .= $timest." </option>\n";
     } 
     $result .= "  </select>\n";
     $result .= "  <input type=\"text\" name=\"$dname\_minute\" ".$special.' '.
         "value=\"$min\" size=\"3\" /> m\n";
     $result .= "  <input type=\"text\" name=\"$dname\_second\" ".$special.' '.
         "value=\"$sec\" size=\"3\" /> s\n";
-    $result .= "</nobr>\n<!-- end $dname date setting form -->\n";
+    $result .= "<a href=\"javascript:$dname\_opencalendar()\">".
+    &mt('Select Date')."</a></nobr>\n<!-- end $dname date setting form -->\n";
     return $result;
 }