|
version 1.725, 2008/12/19 00:13:51
|
version 1.727, 2008/12/21 22:02:39
|
|
Line 3168 sub relative_to_absolute {
|
Line 3168 sub relative_to_absolute {
|
| } |
} |
| $thisdir=~s-/[^/]*$--; |
$thisdir=~s-/[^/]*$--; |
| foreach my $link (@rlinks) { |
foreach my $link (@rlinks) { |
| unless (($link=~/^http:\/\//i) || |
unless (($link=~/^https?\:\/\//i) || |
| ($link=~/^\//) || |
($link=~/^\//) || |
| ($link=~/^javascript:/i) || |
($link=~/^javascript:/i) || |
| ($link=~/^mailto:/i) || |
($link=~/^mailto:/i) || |
|
Line 7943 sub upfile_select_html {
|
Line 7943 sub upfile_select_html {
|
| # xml => &mt('HTML/XML'), |
# xml => &mt('HTML/XML'), |
| ); |
); |
| my $Str = '<input type="file" name="upfile" size="50" />'. |
my $Str = '<input type="file" name="upfile" size="50" />'. |
| '<br />Type: <select name="upfiletype">'; |
'<br />'.&mt('Type').': <select name="upfiletype">'; |
| foreach my $type (sort(keys(%Types))) { |
foreach my $type (sort(keys(%Types))) { |
| $Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n"; |
$Str .= '<option value="'.$type.'" >'.$Types{$type}."</option>\n"; |
| } |
} |
|
Line 9870 sub _add_to_env {
|
Line 9870 sub _add_to_env {
|
| # --- Get the symbolic name of a problem and the url |
# --- Get the symbolic name of a problem and the url |
| sub get_symb { |
sub get_symb { |
| my ($request,$silent) = @_; |
my ($request,$silent) = @_; |
| (my $url=$env{'form.url'}) =~ s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
(my $url=$env{'form.url'}) =~ s-^https?\://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
| my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url))); |
my $symb=($env{'form.symb'} ne '' ? $env{'form.symb'} : (&Apache::lonnet::symbread($url))); |
| if ($symb eq '') { |
if ($symb eq '') { |
| if (!$silent) { |
if (!$silent) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface