version 1.60, 2007/07/25 23:10:23
|
version 1.61, 2007/11/02 21:08:45
|
Line 37 use GDBM_File;
|
Line 37 use GDBM_File;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
use LONCAPA(); |
use LONCAPA; |
|
|
my $iconpath; # variable to be accessible to multiple subroutines |
my $iconpath; # variable to be accessible to multiple subroutines |
my %hash; # variable to tie to user specific database |
my %hash; # variable to tie to user specific database |
Line 229 function finish_import() {
|
Line 229 function finish_import() {
|
for (var num=0; num<document.forms.groupsort.fnum.value; num++) { |
for (var num=0; num<document.forms.groupsort.fnum.value; num++) { |
$begincondition |
$begincondition |
opener.document.forms.simpleedit.importdetail.value+='&'+ |
opener.document.forms.simpleedit.importdetail.value+='&'+ |
escape(eval("document.forms.groupsort.title"+num+".value"))+'='+ |
eval("document.forms.groupsort.title"+num+".value")+'='+ |
escape(eval("document.forms.groupsort.filelink"+num+".value"))+'='+ |
eval("document.forms.groupsort.filelink"+num+".value")+'='+ |
escape(eval("document.forms.groupsort.id"+num+".value")); |
eval("document.forms.groupsort.id"+num+".value"); |
$endcondition |
$endcondition |
} |
} |
opener.document.forms.simpleedit.submit(); |
opener.document.forms.simpleedit.submit(); |
Line 431 END
|
Line 431 END
|
# --------------------------------------- Hidden values (returns scalar string) |
# --------------------------------------- Hidden values (returns scalar string) |
sub hidden { |
sub hidden { |
my ($sel,$title,$filelink,$id) = @_; |
my ($sel,$title,$filelink,$id) = @_; |
my $string = '<input type="hidden" name="title'.$sel.'" value="'.$title. |
my $string = '<input type="hidden" name="title'.$sel.'" value="'. |
'" />'; |
&escape($title).'" />'; |
$filelink=~s|^/ext/|http://|; |
$filelink=~s|^/ext/|http://|; |
$string .= '<input type="hidden" name="filelink'.$sel.'" value="'. |
$string .= '<input type="hidden" name="filelink'.$sel.'" value="'. |
$filelink.'" />'; |
&escape($filelink).'" />'; |
$string .= '<input type="hidden" name="id'.$sel.'" value="'.$id.'" />'; |
$string .= '<input type="hidden" name="id'.$sel.'" value="'.&escape($id).'" />'; |
return $string; |
return $string; |
} |
} |
|
|