version 1.169, 2004/01/02 19:23:47
|
version 1.171, 2004/01/13 15:48:25
|
Line 235 of the element the selection from the se
|
Line 235 of the element the selection from the se
|
=cut |
=cut |
|
|
sub browser_and_searcher_javascript { |
sub browser_and_searcher_javascript { |
|
my $resurl=&lastresurl(); |
return <<END; |
return <<END; |
var editbrowser = null; |
var editbrowser = null; |
function openbrowser(formname,elementname,only,omit,titleelement) { |
function openbrowser(formname,elementname,only,omit,titleelement) { |
var url = '/res/?'; |
var url = '$resurl/?'; |
if (editbrowser == null) { |
if (editbrowser == null) { |
url += 'launch=1&'; |
url += 'launch=1&'; |
} |
} |
Line 283 sub browser_and_searcher_javascript {
|
Line 284 sub browser_and_searcher_javascript {
|
END |
END |
} |
} |
|
|
|
sub lastresurl { |
|
if ($ENV{'environment.lastresurl'}) { |
|
return $ENV{'environment.lastresurl'} |
|
} else { |
|
return '/res'; |
|
} |
|
} |
|
|
|
sub storeresurl { |
|
my $resurl=&Apache::lonnet::clutter(shift); |
|
unless ($resurl=~/^\/res/) { return 0; } |
|
$resurl=~s/\/$//; |
|
&Apache::lonnet::put('environment',{'lastresurl' => $resurl}); |
|
&Apache::lonnet::appenv('environment.lastresurl' => $resurl); |
|
return 1; |
|
} |
|
|
sub studentbrowser_javascript { |
sub studentbrowser_javascript { |
unless ( |
unless ( |
(($ENV{'request.course.id'}) && |
(($ENV{'request.course.id'}) && |
Line 2582 sub record_sep {
|
Line 2600 sub record_sep {
|
} |
} |
} elsif ($ENV{'form.upfiletype'} eq 'tab') { |
} elsif ($ENV{'form.upfiletype'} eq 'tab') { |
my $i=0; |
my $i=0; |
foreach (split(/\t+/,$record)) { |
foreach (split(/\t/,$record)) { |
my $field=$_; |
my $field=$_; |
$field=~s/^(\"|\')//; |
$field=~s/^(\"|\')//; |
$field=~s/(\"|\')$//; |
$field=~s/(\"|\')$//; |