");
&Apache::lontemplate::print_textarea_template($r, $data{$field},
@@ -423,7 +711,8 @@ ENDSCRIPT
};
my %custom_hash = ( 'lll_includeurl' => $url_include_handler );
&Apache::lontemplate::print_template_fields($r, \%syllabus, \%syllabusfields,
- $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_hash);
+ $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_hash,
+ undef,\%displayfields);
if ($allowed) {
$r->print(''.
&Apache::lonhtmlcommon::htmlareaselectactive());
@@ -447,5 +736,229 @@ ENDSCRIPT
return OK;
}
+sub chooser {
+ my ($external,$uploaded,$lonhost,$fields,$values) = @_;
+ my %lt = &Apache::lonlocal::texthash(
+ 'type' => 'Syllabus Type',
+ 'url' => 'External URL',
+ 'file' => 'Uploaded File',
+ 'template' => 'Syllabus Template',
+ 'templateboxes' => 'Choose template items ... ',
+ 'curr' => 'Current:',
+ 'rep' => 'Replace:',
+ 'upl' => 'Upload:',
+ 'pr' => 'Preview',
+ 'save' => 'Save',
+ 'chourl' => 'Choose external URL',
+ 'chofile' => 'Uploaded syllabus file',
+ 'parse' => 'Upload embedded images/multimedia files if HTML file',
+ );
+ my %checked = (
+ file => '',
+ url => '',
+ template => '',
+ );
+ my %display = (
+ file => 'none',
+ url => 'none',
+ templatebox => 'none',
+ );
+ my $check = ' checked="checked" ';
+ if ($uploaded) {
+ $checked{'file'} = $check;
+ $display{'file'} = 'block';
+ } elsif ($external) {
+ $checked{'url'} = $check;
+ $display{'url'} = 'block';
+ } else {
+ $checked{'template'} = $check;
+ $checked{'templatebox'} = $check;
+ $display{'templatebox'} = 'block';
+ }
+
+ my $output =
+ '
';
+ return $output;
+}
+
+sub fields_check_uncheck {
+ my ($fields,$values) = @_;
+ return unless ((ref($fields) eq 'HASH') && (ref($values) eq 'HASH'));
+ my $numinrow = 4;
+ my $table;
+ my @fieldnames = sort(keys(%{$fields}));
+ unshift(@fieldnames,'000_showrssfeeds');
+ my $numfields = scalar(@fieldnames);
+ for (my $i=0; $i<$numfields; $i++) {
+ my $checked;
+ my $name = $fields->{$fieldnames[$i]};
+ if ($fieldnames[$i] eq '000_showrssfeeds') {
+ $name = &mt('RSS Feeds and Blogs');
+ unless ($values->{$fieldnames[$i]} eq 'on') {
+ $checked = ' checked="checked"';
+ }
+ } elsif ($values->{$fieldnames[$i]} ne '') {
+ $checked = ' checked="checked"';
+ }
+ my $rem = $i%($numinrow);
+ if ($rem == 0) {
+ if (($i > 0) && ($i < $numfields-1)) {
+ $table .= '';
+ }
+ if ($i < $numfields-1) {
+ $table .= '
';
+ }
+ }
+ $table .=
+ ' | '."\n";
+ }
+ if ($table ne '') {
+ my $rem = $numfields%($numinrow);
+ my $colsleft = $numinrow - $rem;
+ if ($colsleft > 1 ) {
+ $table .= ' | ';
+ } elsif ($colsleft == 1) {
+ $table .= ' | ';
+ }
+ $table = '';
+ }
+ return $table;
+}
+
+sub process_upload {
+ my ($upload_output,$cnum,$cdom,$allfiles,$codebase) = @_;
+ my ($parseaction,$showupload,$mimetype);
+ my $dest = 'portfolio/syllabus';
+ if ($env{'form.parserflag'}) {
+ $parseaction = 'parse';
+ }
+ my $url=&Apache::lonnet::userfileupload('syllabusfile','syllabus',$dest,
+ $parseaction,$allfiles,
+ $codebase,undef,undef,undef,undef,
+ undef,undef,\$mimetype);
+ if ($url =~ m{^/uploaded/\Q$cdom\E/\Q$cnum\E.*/([^/]+)$}) {
+ my $stored = $1;
+ $showupload = ''.&mt('Uploaded [_1]',
+ ''.$stored.'').
+ '
';
+ } else {
+ my ($filename) = ($env{'form.syllabusfile.filename'} =~ m{([^/]+)$});
+ $$upload_output = ''.
+ &mt('Unable to save file [_1].',
+ ''.$filename.'').
+ '
';
+ return ();
+ }
+ my $needlink;
+ if (($parseaction eq 'parse') && ($mimetype eq 'text/html')) {
+ $$upload_output = $showupload;
+ my $total_embedded = scalar(keys(%{$allfiles}));
+ if ($total_embedded > 0) {
+ my $uploadphase = 'upload_embedded';
+ my $primaryurl = &HTML::Entities::encode($url,'<>&"');
+ my $state = &embedded_form_elems($uploadphase,$primaryurl);
+ my $actionurl = "/public/$cdom/$cnum/syllabus";
+ my ($embedded,$num,$numpathchanges,$existing);
+ ($embedded,$num,$numpathchanges,$existing) =
+ &Apache::loncommon::ask_for_embedded_content($actionurl,$state,
+ $allfiles,$codebase,
+ {'error_on_invalid_names' => 1,
+ 'ignore_remote_references' => 1,});
+ if ($embedded) {
+ $needlink = 1;
+ if ($num) {
+ $$upload_output .=
+ ''.&mt('This file contains embedded multimedia objects, which need to be uploaded.').'
'.$embedded;
+ } elsif ($numpathchanges) {
+ $$upload_output .= $embedded;
+ } else {
+ $$upload_output .= $embedded;
+ &Apache::loncommon::modify_html_refs('syllabus','portfolio/syllabus',
+ $cnum,$cdom,'/userfiles',$url);
+ }
+ } else {
+ $$upload_output .= &mt('Embedded item(s) already present, so no additional upload(s) required').'
';
+ &Apache::loncommon::modify_html_refs('syllabus','portfolio/syllabus',
+ $cnum,$cdom,'/userfiles',$url);
+
+ }
+ } else {
+ $$upload_output .= &mt('No embedded items identified').'
';
+ }
+ $$upload_output = ''.$$upload_output.'
';
+ }
+ return ($url,$needlink);
+}
+
+sub embedded_form_elems {
+ my ($phase,$primaryurl) = @_;
+ return <
+
+
+
+STATE
+}
+
+sub return_to_editor {
+ my ($cdom,$cnum) = @_;
+ my $actionurl = "/public/$cdom/$cnum/syllabus";
+ return ''.
+ ''."\n".
+ ''.&mt('Return to Editor').
+ '';
+}
+
1;
__END__