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

Diff for /loncom/interface/loncommon.pm between versions 1.679.2.6 and 1.686

version 1.679.2.6, 2008/09/29 22:58:41 version 1.686, 2008/09/13 02:37:26
Line 61  use POSIX qw(strftime mktime); Line 61  use POSIX qw(strftime mktime);
 use Apache::lonmenu();  use Apache::lonmenu();
 use Apache::lonenc();  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonnet();
 use HTML::Entities;  use HTML::Entities;
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::loncoursedata();  use Apache::loncoursedata();
Line 3353  sub pprmlink { Line 3354  sub pprmlink {
   
   
 sub timehash {  sub timehash {
     my ($thistime) = @_;      my @ltime=localtime(shift);
     my $timezone = &Apache::lonlocal::gettimezone();      return ( 'seconds' => $ltime[0],
     my $dt = DateTime->from_epoch(epoch => $thistime)               'minutes' => $ltime[1],
                      ->set_time_zone($timezone);               'hours'   => $ltime[2],
     my $wday = $dt->day_of_week();               'day'     => $ltime[3],
     if ($wday == 7) { $wday = 0; }               'month'   => $ltime[4]+1,
     return ( 'second' => $dt->second(),               'year'    => $ltime[5]+1900,
              'minute' => $dt->minute(),               'weekday' => $ltime[6],
              'hour'   => $dt->hour(),               'dayyear' => $ltime[7]+1,
              'day'     => $dt->day_of_month(),               'dlsav'   => $ltime[8] );
              'month'   => $dt->month(),  
              'year'    => $dt->year(),  
              'weekday' => $wday,  
              'dayyear' => $dt->day_of_year(),  
              'dlsav'   => $dt->is_dst() );  
 }  }
   
 sub utc_string {  sub utc_string {
Line 3377  sub utc_string { Line 3373  sub utc_string {
   
 sub maketime {  sub maketime {
     my %th=@_;      my %th=@_;
     my ($epoch_time,$timezone,$dt);  
     $timezone = &Apache::lonlocal::gettimezone();  
     eval {  
         $dt = DateTime->new( year   => $th{'year'},  
                              month  => $th{'month'},  
                              day    => $th{'day'},  
                              hour   => $th{'hour'},  
                              minute => $th{'minute'},  
                              second => $th{'second'},  
                              time_zone => $timezone,  
                          );  
     };  
     if (!$@) {  
         $epoch_time = $dt->epoch;  
         if ($epoch_time) {  
             return $epoch_time;  
         }  
     }  
     return POSIX::mktime(      return POSIX::mktime(
         ($th{'seconds'},$th{'minutes'},$th{'hours'},          ($th{'seconds'},$th{'minutes'},$th{'hours'},
          $th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,-1));           $th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,-1));
Line 4575  table.LC_docs_path td.LC_docs_path_compo Line 4553  table.LC_docs_path td.LC_docs_path_compo
 td.LC_table_cell_checkbox {  td.LC_table_cell_checkbox {
   text-align: center;    text-align: center;
 }  }
   
 table#LC_mainmenu td.LC_mainmenu_column {  table#LC_mainmenu td.LC_mainmenu_column {
     vertical-align: top;      vertical-align: top;
 }  }
Line 4589  table#LC_mainmenu td.LC_mainmenu_column Line 4566  table#LC_mainmenu td.LC_mainmenu_column
 .LC_menubuttons_link {  .LC_menubuttons_link {
   text-decoration: none;    text-decoration: none;
 }  }
   #2008--9-5: new menu style sheet.Changed category
 .LC_menubuttons_category {  .LC_menubuttons_category {
   color: $font;    color: $font;
   background: $pgbg;    background: $pgbg;
Line 5446  img.stift{ Line 5423  img.stift{
   border-width:0;    border-width:0;
   vertical-align:middle;    vertical-align:middle;
 }  }
   
   table#LC_mainmenu{
    margin-top:10px;
    width:80%;
   
   }
   
   table#LC_mainmenu td.LC_mainmenu_col_fieldset{
     vertical-align: top;
     width: 45%;
   }
   .LC_mainmenu_fieldset_category {
     color: $font;
     background: $pgbg;
     font-family: $sans;
     font-size: small;
     font-weight: bold;
   }
   fieldset#LC_mainmenu_fieldset {
     margin:0px 10px 10px 0px;
   
   }
 END  END
 }  }
   
Line 8330  sub build_recipient_list { Line 8329  sub build_recipient_list {
     } elsif ($origmail ne '') {      } elsif ($origmail ne '') {
         push(@recipients,$origmail);          push(@recipients,$origmail);
     }      }
     if (defined($defmail)) {      if ($defmail ne '') {
         if ($defmail ne '') {          push(@recipients,$defmail);
             push(@recipients,$defmail);  
         }  
     }      }
     if ($otheremails) {      if ($otheremails) {
         my @others;          my @others;
Line 9476  sub _add_to_env { Line 9473  sub _add_to_env {
     }      }
 }  }
   
   # --- Get the symbolic name of a problem and the url
   sub get_symb {
       my ($request,$silent) = @_;
       (my $url=$env{'form.url'}) =~ s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
       my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url)));
       if ($symb eq '') {
           if (!$silent) {
               $request->print("Unable to handle ambiguous references:$url:.");
               return ();
           }
       }
       &Apache::lonenc::check_decrypt(\$symb);
       return ($symb);
   }
   
   # --------------------------------------------------------------Get annotation
   
   sub get_annotation {
       my ($symb,$enc) = @_;
   
       my $key = $symb;
       if (!$enc) {
           $key =
               &Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);
       }
       my %annotation=&Apache::lonnet::get('nohist_annotations',[$key]);
       return $annotation{$key};
   }
   
   sub clean_symb {
       my ($symb) = @_;
   
       &Apache::lonenc::check_decrypt(\$symb);
       my $enc = $env{'request.enc'};
       delete($env{'request.enc'});
   
       return ($symb,$enc);
   }
   
 =pod  =pod
   
Removed from v.1.679.2.6  
changed lines
  Added in v.1.686

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