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

Diff for /loncom/interface/loncommon.pm between versions 1.451 and 1.458

version 1.451, 2006/09/06 19:22:43 version 1.458, 2006/09/21 21:23:15
Line 257  of the element the selection from the se Line 257  of the element the selection from the se
 sub browser_and_searcher_javascript {  sub browser_and_searcher_javascript {
     my ($mode)=@_;      my ($mode)=@_;
     if (!defined($mode)) { $mode='edit'; }      if (!defined($mode)) { $mode='edit'; }
     my $resurl=&lastresurl();      my $resurl=&escape_single(&lastresurl());
     return <<END;      return <<END;
 // <!-- BEGIN LON-CAPA Internal  // <!-- BEGIN LON-CAPA Internal
     var editbrowser = null;      var editbrowser = null;
Line 2111  sub aboutmewrapper { Line 2111  sub aboutmewrapper {
         return;          return;
     }      }
     return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.      return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.
  ($target?' target="$target"':'').' title="'.&mt('View this users personal page').'">'.$link.'</a>';   ($target?' target="$target"':'').' title="'.&mt("View this user's personal page").'">'.$link.'</a>';
 }  }
   
 # ------------------------------------------------------------ Syllabus Wrapper  # ------------------------------------------------------------ Syllabus Wrapper
Line 3199  form, .inline { display: inline; } Line 3199  form, .inline { display: inline; }
   color: red;    color: red;
   font-size: larger;    font-size: larger;
 }  }
 .LC_warning {  .LC_warning,
   .LC_diff_removed {
   color: red;    color: red;
 }  }
 .LC_success {  .LC_success,
   .LC_diff_added {
   color: green;    color: green;
 }  }
 .LC_icon {  .LC_icon {
   border: 0px;    border: 0px;
 }  }
   
   table.LC_pastsubmission {
     border: 1px solid black;
     margin: 2px;
   }
   
 table#LC_top_nav, table#LC_menubuttons {  table#LC_top_nav, table#LC_menubuttons {
   width: 100%;    width: 100%;
   background: $pgbg;    background: $pgbg;
Line 3370  table.LC_data_table tr.LC_data_table_hig Line 3377  table.LC_data_table tr.LC_data_table_hig
   background-color: $data_table_darker;    background-color: $data_table_darker;
 }  }
 table.LC_data_table tr.LC_empty_row td,  table.LC_data_table tr.LC_empty_row td,
 table.LC_whatsnew tr.LC_empty_row td, {  table.LC_whatsnew tr.LC_empty_row td {
   background-color: #FFFFFF;    background-color: #FFFFFF;
   font-weight: bold;    font-weight: bold;
   font-style: italic;    font-style: italic;
Line 3499  table#LC_browser tr.LC_browser_file_unpu Line 3506  table#LC_browser tr.LC_browser_file_unpu
 table#LC_browser tr.LC_browser_file_obsolete {  table#LC_browser tr.LC_browser_file_obsolete {
   background: #AAAAAA;    background: #AAAAAA;
 }  }
 table#LC_browser tr.LC_browser_file_modified {  table#LC_browser tr.LC_browser_file_modified,
   table#LC_browser tr.LC_browser_file_metamodified {
   background: #FFFF77;    background: #FFFF77;
 }  }
 table#LC_browser tr.LC_browser_folder {  table#LC_browser tr.LC_browser_folder {
Line 3726  sub headtag { Line 3734  sub headtag {
     my $domain   = $args->{'domain'}   || &determinedomain();      my $domain   = $args->{'domain'}   || &determinedomain();
     my $bgcolor  = $args->{'bgcolor'}  || &designparm($function.'.pgbg',$domain);      my $bgcolor  = $args->{'bgcolor'}  || &designparm($function.'.pgbg',$domain);
     my $url = join(':',$env{'user.name'},$env{'user.domain'},      my $url = join(':',$env{'user.name'},$env{'user.domain'},
    #time(),  
    $Apache::lonnet::perlvar{'lonVersion'},     $Apache::lonnet::perlvar{'lonVersion'},
      #time(),
    $env{'environment.color.timestamp'},     $env{'environment.color.timestamp'},
    $function,$domain,$bgcolor);     $function,$domain,$bgcolor);
   
Line 5950  sub lonhttpdurl { Line 5958  sub lonhttpdurl {
     return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;      return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;
 }  }
   
 sub absolute_url {  
     my ($host_name) = @_;  
     my $protocol = ($ENV{'SERVER_PORT'} == 443?'https://':'http://');  
     if ($host_name eq '') {  
  $host_name = $ENV{'SERVER_NAME'};  
     }  
     return $protocol.$host_name;  
 }  
   
 sub connection_aborted {  sub connection_aborted {
     my ($r)=@_;      my ($r)=@_;
     $r->print(" ");$r->rflush();      $r->print(" ");$r->rflush();
Removed from v.1.451  
changed lines
  Added in v.1.458

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