version 1.25, 2009/11/30 16:53:54
|
version 1.26, 2010/11/27 22:43:32
|
Line 88 function createWin() {
|
Line 88 function createWin() {
|
newWindow.document.write("<input type='hidden' name='filename' value='$webpath' />") |
newWindow.document.write("<input type='hidden' name='filename' value='$webpath' />") |
newWindow.document.write("<input type='hidden' name='action' value='newdir' />") |
newWindow.document.write("<input type='hidden' name='action' value='newdir' />") |
newWindow.document.write("<input type='hidden' name='callingmode' value='testbank' />") |
newWindow.document.write("<input type='hidden' name='callingmode' value='testbank' />") |
|
newWindow.document.write("<input type='hidden' name='inhibitmenu' value='yes' />") |
newWindow.document.write("$webpath<input type='text' name='newfilename' value='' />") |
newWindow.document.write("$webpath<input type='text' name='newfilename' value='' />") |
newWindow.document.write("<input type='button' value='$lt{'go'}' onClick='document.fileaction.submit();' /></form>") |
newWindow.document.write("<input type='button' value='$lt{'go'}' onClick='document.fileaction.submit();' /></form>") |
newWindow.document.write('$end_page') |
newWindow.document.write('$end_page') |
Line 1769 sub build_image_url {
|
Line 1770 sub build_image_url {
|
} |
} |
|
|
sub print_header { |
sub print_header { |
my ($uname,$udom,$javascript,$loadentries,$title) = @_; |
my ($uname,$udom,$javascript,$loadentries,$title,$current_page,$pagesref, |
|
$namesref) = @_; |
|
my $brcrum = [{'href' => &Apache::loncommon::authorspace(), |
|
'text' => 'Construction Space'}]; |
|
if ($env{'form.phase'} eq 'three') { |
|
if (ref($pagesref) eq 'ARRAY') { |
|
for (my $i=0; $i<$current_page; $i++) { |
|
my $goback = 1 + $i - $current_page; |
|
if (ref($namesref) eq 'HASH') { |
|
if ($namesref->{$pagesref->[$i]} ne '') { |
|
if (ref($brcrum) eq 'ARRAY') { |
|
my $text = $namesref->{$pagesref->[$i]}; |
|
my $href; |
|
if ($goback == -1) { |
|
$href = 'javascript:backPage();'; |
|
} else { |
|
$href = 'javascript:history.go('.$goback.')'; |
|
} |
|
push(@{$brcrum}, {'href' => $href, |
|
'text' => $text}); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
my $output = &Apache::loncommon::start_page($title,$javascript, |
my $output = &Apache::loncommon::start_page($title,$javascript, |
{'add_entries' => $loadentries}); |
{'bread_crumbs' => $brcrum, |
|
'add_entries' => $loadentries}); |
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
$output .= '<p class="LC_warning">' |
$output .= '<p class="LC_warning">' |
.&mt('Co-Author [_1]',$uname.':'.$udom) |
.&mt('Co-Author [_1]',$uname.':'.$udom) |
Line 1825 sub handler {
|
Line 1852 sub handler {
|
my $webpath = '/priv/'.$uname.$pathname; |
my $webpath = '/priv/'.$uname.$pathname; |
my $urlpath = '/~'.$uname.$pathname; |
my $urlpath = '/~'.$uname.$pathname; |
my $dirpath = '/home/'.$uname.'/public_html'.$pathname; |
my $dirpath = '/home/'.$uname.'/public_html'.$pathname; |
my ($res,$subdir,$badfile,$textref,$header,$css,$js,%loadentries); |
my ($res,$subdir,$badfile,$textref,$header,$css,$js,%loadentries,@pages,%names); |
|
|
if ($env{'form.phase'} eq 'three') { |
if ($env{'form.phase'} eq 'three') { |
$current_page = &display_control(); |
$current_page = &display_control(); |
my @pages = ('Welcome','Blocks','Format','Target','Confirmation'); |
@pages = ('Welcome','Blocks','Format','Target','Confirmation'); |
|
%names = ( |
|
Welcome => 'Testbank Format', |
|
Blocks => 'Classification', |
|
Format => 'Selection', |
|
Target => 'Result' |
|
); |
$page_name = $pages[$current_page]; |
$page_name = $pages[$current_page]; |
if ($env{'form.timestamp'} eq '') { |
if ($env{'form.timestamp'} eq '') { |
$env{'form.timestamp'} = time; |
$env{'form.timestamp'} = time; |
Line 1872 sub handler {
|
Line 1905 sub handler {
|
} |
} |
} |
} |
|
|
$r->print(&print_header($uname,$udom,$javascript,\%loadentries,$title)); |
$r->print(&print_header($uname,$udom,$javascript,\%loadentries,$title, |
|
$current_page,\@pages,\%names)); |
|
|
if ($env{'form.phase'} eq 'three') { |
if ($env{'form.phase'} eq 'three') { |
if ($env{'form.action'} eq 'upload_embedded') { |
if ($env{'form.action'} eq 'upload_embedded') { |