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

Diff for /loncom/interface/loncommon.pm between versions 1.222 and 1.224

version 1.222, 2004/10/21 11:17:00 version 1.224, 2004/10/29 18:40:40
Line 2518  other decorations will be returned. Line 2518  other decorations will be returned.
 =cut  =cut
   
 sub bodytag {  sub bodytag {
     my ($title,$function,$addentries,$bodyonly,$domain,$forcereg)=@_;      my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle)=@_;
     $title=&mt($title);      $title=&mt($title);
     $function = &get_users_function() if (!$function);      $function = &get_users_function() if (!$function);
     my $img=&designparm($function.'.img',$domain);      my $img=&designparm($function.'.img',$domain);
Line 2564  END Line 2564  END
         return $bodytag;          return $bodytag;
     } elsif ($ENV{'browser.interface'} eq 'textual') {      } elsif ($ENV{'browser.interface'} eq 'textual') {
 # Accessibility  # Accessibility
             
         return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',          return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
                                                       $forcereg).                                                        $forcereg).
                '<h1>LON-CAPA: '.$title.'</h1>';                 '<h1>LON-CAPA: '.$title.'</h1>';
Line 2585  END Line 2586  END
 </p>  </p>
 </td>  </td>
 ENDROLE  ENDROLE
           my $titleinfo = '<font face="Arial, Helvetica, sans-serif" size="+3" color="'.
                           $font.'"><b>'.$title.'</b></font>';
           if ($customtitle) {
               $titleinfo = $customtitle;
           } 
         return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',          return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web',
                                                       $forcereg).                                                        $forcereg).
       '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td rowspan="3" bgcolor="'.$tabbg.'"><font face="Arial, Helvetica, sans-serif" size="+3" color="'.$font.'"><b>'.$title.        '<table bgcolor="'.$pgbg.'" width="100%" border="0" cellspacing="3" cellpadding="3"><tr><td rowspan="3" bgcolor="'.$tabbg.'">'.$titleinfo.'</td>'.$roleinfo.'</tr></table>';
 '</b></font></td>'.$roleinfo.'</tr></table>';  
     }      }
   
 #  #
 # Top frame rendering, Remote is up  # Top frame rendering, Remote is up
 #  #
       my $titleinfo = '&nbsp;<font size="5" face="Arial, Helvetica, sans-serif"><b>'.$title.'</b></font>';
       if ($customtitle) {
           $titleinfo = $customtitle;
       }
     return(<<ENDBODY);      return(<<ENDBODY);
 $bodytag  $bodytag
 <table width="100%" cellspacing="0" border="0" cellpadding="0">  <table width="100%" cellspacing="0" border="0" cellpadding="0">
Line 2603  $upperleft</td> Line 2612  $upperleft</td>
 </tr>  </tr>
 <tr>  <tr>
 <td rowspan="3" bgcolor="$tabbg">  <td rowspan="3" bgcolor="$tabbg">
 &nbsp;<font size="5" face="Arial, Helvetica, sans-serif"><b>$title</b></font>  $titleinfo
 <td bgcolor="$tabbg" align="right">  <td bgcolor="$tabbg" align="right">
 <font size="2" face="Arial, Helvetica, sans-serif">  <font size="2" face="Arial, Helvetica, sans-serif">
     $ENV{'environment.firstname'}      $ENV{'environment.firstname'}
Line 3732  sub connection_aborted { Line 3741  sub connection_aborted {
     return $c->aborted();      return $c->aborted();
 }  }
   
 #  
 #    Escapes strings that may have embedded 's that will be put into  #    Escapes strings that may have embedded 's that will be put into
 #    strings as 'strings'.  #    strings as 'strings'.
 #    The assumptions are:  
 #       There has been no effort to escape ' with \'  
 #       Any \'s in the string are intended to be there as part of the URL  
 #        and must also be escaped.  
 # Parameters:  
 #     input     - The string to escape.  
 # Returns:  
 #     The escaped string (' replaced by \' and \ replaced by \\).  
 #  
 sub escape_single {  sub escape_single {
     my ($input) = @_;      my ($input) = @_;
       $input =~ s/\\/\\\\/g; # Escape the \'s..(must be first)>
     #  I imagine a regexp wizard could combine the two expressions below.  
     #  If you do you might want to comment the result.  
   
     $input =~ s/\\/\\\\/g; # Escape the /'s..(must be first)>  
     $input =~ s/\'/\\\'/g; # Esacpe the 's....      $input =~ s/\'/\\\'/g; # Esacpe the 's....
   
     return $input;      return $input;
 }  }
   
 #  Same as escape_single, but escape's "'s  This   #  Same as escape_single, but escape's "'s  This 
 #  can be used for  "strings"  #  can be used for  "strings"
 #  
 # Parameters:  
 #     input     - The string to escape.  
 # Returns:  
 #     The escaped string (" replaced by \" and \ replaced by \\).  
 #  
 sub escape_double {  sub escape_double {
     my ($input) = @_;      my ($input) = @_;
   
     #  I imagine a regexp wizard could combine the two expressions below.  
     #  If you do you might want to comment the result.  
   
     $input =~ s/\\/\\\\/g; # Escape the /'s..(must be first)>      $input =~ s/\\/\\\\/g; # Escape the /'s..(must be first)>
     $input =~ s/\"/\\\"/g; # Esacpe the "s....      $input =~ s/\"/\\\"/g; # Esacpe the "s....
   
     return $input;      return $input;
 }  }
 #   
 #   Escapes the last element of a full URL.  #   Escapes the last element of a full URL.
 #  
 # Parameters:  
 #    url    - The url to escape.  
 # Returns:  
 #    The url with the last element escaped via lonnet::escape.  
 #  
 sub escape_url {  sub escape_url {
     my ($url)   = @_;      my ($url)   = @_;
     my @urlslices = split(/\//, $url);      my @urlslices = split(/\//, $url);
       my $lastitem = &Apache::lonnet::escape(pop(@urlslices));
     my $lastitem  = $urlslices[scalar(@urlslices) -1];      return join('/',@urlslices).'/'.$lastitem;
     $lastitem     = &Apache::lonnet::escape($lastitem);  
       
     my $escaped_url;  
     for (my $i = 0; $i < scalar(@urlslices) -1; $i++) {  
  $escaped_url .= $urlslices[$i] .'/';  
     }  
     $escaped_url     .= $lastitem ;  
   
     return $escaped_url;  
 }  }
 =pod  =pod
   
Removed from v.1.222  
changed lines
  Added in v.1.224

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