';
+ return $output;
+}
+
+#
+# End tabs
+#
+
+sub endContentScreen {
+ return '
'.&mt('Currently using [_1] of the [_2] available.', + $percent.'%',$quota.' MB').'
'; + + my $fileupload=(<
' => $pathitem."$lt{'srch'}$help{'Search_LON-CAPA_Resource'}" },
+ { '
' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" },
+ { '
' => ''.$lt{'lnks'}.''.$help{'Import_Stored_Links'} },
+ { '
' => $importpubform },
+ );
+ if ($importcrsresform) {
+ push(@importpubforma,{ '
' => $importcrsresform});
+ }
+ $importpubform = &create_form_ul(&create_list_elements(@importpubforma));
+ my $extresourcesform =
+ &Apache::lonextresedit::extedit_form(0,0,undef,undef,$pathitem,
+ $help{'Adding_External_Resource'},
+ undef,undef,undef,undef,undef,undef,$disabled);
+ my $exttoolform =
+ &Apache::lonextresedit::extedit_form(0,0,undef,undef,$pathitem,
+ $help{'Adding_External_Tool'},undef,
+ undef,'tool',$coursedom,$coursenum,
+ \%ltitools,$disabled);
+ if ($allowed) {
+ my $folder = $env{'form.folder'};
+ if ($folder eq '') {
+ $folder='default';
+ }
+ if ($canedit) {
+ my $output = &update_paste_buffer($coursenum,$coursedom,$folder);
+ if ($output) {
+ $r->print($output);
+ }
+ }
+ $r->print(<'."\n". + $lt{'dire'}. + '
'."\n"; + my %seltemplate_menus; + my @files = &Apache::lonhomework::get_template_list('problem'); + my @noexamplelink = ('blank.problem','blank.library','script.library'); + my $currentcategory = ''; + my @ordered = (''); + my %templatehelp; + my $defcategory = ''; + my @catorder = ($defcategory); + $seltemplate_menus{$defcategory}->{'order'} = ['']; + $seltemplate_menus{$defcategory}->{'text'} = ''; + foreach my $file (@files) { + if (ref($file) eq 'ARRAY') { + my ($path,$title,$category,$help) = @{$file}; + next if ($title !~ /\S/); + if (&js_escape($category) ne $currentcategory) { + $currentcategory = &js_escape($category); + push(@catorder,&js_escape($currentcategory)); + $seltemplate_menus{$currentcategory}->{'text'} = $category; + $seltemplate_menus{$currentcategory}->{'default'} = ''; + $seltemplate_menus{$currentcategory}->{'select2'}->{''} = ''; + push(@{$seltemplate_menus{$currentcategory}->{'order'}},''); + } + if ($path) { + $seltemplate_menus{$currentcategory}->{'select2'}->{&js_escape($path)} = $title; + push(@{$seltemplate_menus{$currentcategory}->{'order'}},&js_escape($path)); + if ($help) { + $templatehelp{$path} = $help; + } + } + } + } + + my $templates = $lt{'cate'}.' '. + &Apache::loncommon::linked_select_forms('courseresform','
'.$lt{'tmpl'}.' ', + $defcategory,'tempcategory','template', + \%seltemplate_menus,\@catorder, + "resize_scrollbox('contentscroll','1','0');", + "toggleExampleText();",'template').'
'; + my $templatepreview = ''. + ''.&mt('Example').''; + my $crsresform; + if (($env{'user.author'}) || ($checkcrsres)) { + $crsresform=(<
'=>$newwebpageform},
+ );
+ } else {
+ @specialdocumentsforma=(
+ {'
'=>$newpageform},
+ {'
'=>$newsylform},
+ {'
'=>$newnavform},
+ {'
'=>$newsmppageform},
+ {''=>$newwebpageform},
+ );
+ }
+ $specialdocumentsform = &create_form_ul(&create_list_elements(@specialdocumentsforma));
+
+ my @external = (
+ {'
'=>$extresourcesform}
+ );
+ if ($posslti) {
+ push(@external,
+ {'
'=>$exttoolform},
+ );
+ }
+ my $externalform = &create_form_ul(&create_list_elements(@external));
+
+ my @importdoc = ();
+ unless ($container eq 'page') {
+ push(@importdoc,
+ {'
'=>$imspform}
+ );
+ }
+ push(@importdoc,
+ {'
'=>$fileuploadform}
+ );
+ $fileuploadform = &create_form_ul(&create_list_elements(@importdoc));
+
+ @gradingforma=(
+ {'
'=>$newsmpproblemform},
+ {'
'=>$newdropboxform},
+ {'
'=>$newexuploadform}
+ );
+ if ($crsresform) {
+ push(@gradingforma,
+ {''=>$crsresform}
+ );
+ }
+ $gradingform = &create_form_ul(&create_list_elements(@gradingforma));
+
+ @communityforma=(
+ {'
'=>$newbulform},
+ {'
'=>$newaboutmeform},
+ {'
'=>$newaboutsomeoneform},
+ {'
'=>$newrosterform},
+ {'
'=>$newgroupfileform},
+ );
+ $communityform = &create_form_ul(&create_list_elements(@communityforma));
+
+my %orderhash = (
+ 'aa' => ['Upload',$fileuploadform],
+ 'bb' => ['External',$externalform],
+ 'cc' => ['Import',$importpubform],
+ 'dd' => ['Assessment',$gradingform],
+ 'ff' => ['Other',$specialdocumentsform],
+ );
+unless ($container eq 'page') {
+ $orderhash{'00'} = ['Newfolder',$newfolderform];
+ $orderhash{'ee'} = ['Collaboration',$communityform];
+}
+
+ $hadchanges=0;
+ unless (($supplementalflag || $toolsflag)) {
+ my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
+ $supplementalflag,\%orderhash,$iconpath,$pathitem,
+ \%ltitools,$canedit,$hostname,\$navmap,$hiddentop);
+ undef($navmap);
+ if ($error) {
+ $r->print(''.$error.'
'); + } + if ($hadchanges) { + unless (&is_hash_old()) { + &mark_hash_old(); + } + } + + &changewarning($r,''); + } + } + +# Supplemental documents start here + + my $folder=$env{'form.folder'}; + unless ($supplementalflag) { + $folder='supplemental'; + } + if (($folder eq 'supplemental') && + (($env{'form.folderpath'} =~ /^default\&/) || ($env{'form.folderpath'} eq ''))) { + $env{'form.folderpath'} = &supplemental_base(); + } elsif ($allowed) { + $env{'form.folderpath'} = $savefolderpath; + } + $pathitem = ''; + if ($allowed) { + my $folderseq= + '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_new.sequence'; + + my $supupdocform=(<'
+ =>$supnewsylform},
+ {''
+ =>$supnewaboutmeform},
+ {''=>$supwebpageform},
+
+ );
+ my @supexternal = (
+ {''
+ =>$supextform});
+ if ($posslti) {
+ push(@supexternal,
+ {''
+ =>$supexttoolform});
+ }
+ my @supimportdoc = (
+ {''
+ =>$supupdocform},
+ );
+
+$supupdocform = &create_form_ul(&create_list_elements(@supimportdoc));
+my %suporderhash = (
+ '00' => ['Supnewfolder', $supnewfolderform],
+ 'dd' => ['Upload',$supupdocform],
+ 'ee' => ['External',&create_form_ul(&create_list_elements(@supexternal))],
+ 'ff' => ['Other',&create_form_ul(&create_list_elements(@specialdocs))]
+ );
+ if ($supplementalflag) {
+ $suppchanges = 0;
+ my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
+ $supplementalflag,\%suporderhash,$iconpath,$pathitem,
+ \%ltitools,$canedit,$hostname);
+ if ($error) {
+ $r->print(''.$error.'
'); + } + if ($suppchanges) { + &Apache::lonnet::update_supp_caches($coursedom,$coursenum); + undef($suppchanges); + } + } + } elsif ($supplementalflag) { + my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype, + $supplementalflag,'',$iconpath,$pathitem,'',$canedit, + $hostname); + if ($error) { + $r->print(''.$error.'
'); + } + } + + if ($needs_end) { + $r->print(&endContentScreen()); + } + + if ($allowed) { + $r->print(' +'); + } + } elsif ($showdoc) { +# -------------------------------------------------------- This is showdoc mode + $r->print("".&mt('Uploaded Document').' - '. + &Apache::lonnet::gettitle($r->uri).'
'. +&mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."
'.&mt('Not extracted.').'
'.
+ $error.'
'.$warning.'
'."\n"; + } + return $output; +} + +sub decompression_phase_two { + my ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,$hiddenelem)= + &decompression_info(); + my $output; + if ($env{'form.archivedelete'}) { + $output = &remove_archive($docudom,$docuname,$container); + } + $output .= + &Apache::loncommon::process_extracted_files('coursedocs',$docudom,$docuname, + $destination,$dir_root,$hiddenelem); + return $output; +} + +sub remove_archive { + my ($docudom,$docuname,$container) = @_; + my $map = $env{'form.folder'}.'.'.$container; + my ($output,$delwarning,$delresult,$url); + my ($errtext,$fatal) = &mapread($docuname,$docudom,$map); + if ($fatal) { + if ($container eq 'page') { + $delwarning = &mt('An error occurred retrieving the contents of the current page.'); + } else { + $delwarning = &mt('An error occurred retrieving the contents of the current folder.'); + } + $delwarning .= ' '.&mt('As a result the archive file has not been removed.'); + } else { + my $currcmd = $env{'form.cmd'}; + my $position = $env{'form.position'}; + my $archiveidx = $position; + if ($position > 0) { + if (($env{'form.autoextract_camtasia'}) && (scalar(@LONCAPA::map::order) == 2)) { + $archiveidx = $position-1; + } + $env{'form.cmd'} = 'remove_'.$archiveidx; + my ($title,$url,@rrest) = + split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$archiveidx]]); + if ($url eq $env{'form.archiveurl'}) { + if (&handle_edit_cmd($docuname,$docudom)) { + ($errtext,$fatal) = &storemap($docuname,$docudom,$map,1); + if ($suppchanges) { + &Apache::lonnet::update_supp_caches($docudom,$docuname); + undef($suppchanges); + } + if ($fatal) { + if ($container eq 'page') { + $delwarning = &mt('An error occurred updating the contents of the current page.'); + } else { + $delwarning = &mt('An error occurred updating the contents of the current folder.'); + } + } else { + $delresult = &mt('Archive file removed.'); + } + } + } else { + $delwarning .= &mt('Archive file had unexpected item number in folder.'). + ' '.&mt('As a result the archive file has not been removed.'); + } + } + $env{'form.cmd'} = $currcmd; + } + if ($delwarning) { + $output = ''. + $delwarning. + '
'; + } + if ($delresult) { + $output .= ''. + $delresult. + '
'; + } + return $output; +} + +sub generate_admin_menu { + my ($crstype,$canedit,$coursenum,$coursedom) = @_; + my $lc_crstype = lc($crstype); + my ($home,$other,%outhash)=&authorhosts(); + my %lt= ( # do not translate here + 'vc' => 'Verify Content', + 'cv' => 'Check/Set Resource Versions', + 'ls' => 'List Resource Identifiers', + 'ct' => 'Display/Set Shortened URLs for Deep-linking', + 'ca' => "Enter $crstype Authoring Space", + 'imse' => 'Export contents to IMS Archive', + 'dcd' => 'Copy uploaded content to Authoring Space', + 'cpc' => 'Copy from Course Authoring to User Authoring', + ); + my ($candump,$dumpurl,$exportcrsurl); + if ($home + $other > 0) { + $candump = 'F'; + if ($home) { + $dumpurl = "javascript:injectData(document.courseverify,'dummy','dumpcourse','$lt{'dcd'}')"; + $exportcrsurl = "javascript:injectData(document.courseverify,'dummy','copyauthored','$lt{'cpc'}')"; + } else { + my @hosts; + foreach my $aurole (keys(%outhash)) { + unless(grep(/^\Q$outhash{$aurole}\E/,@hosts)) { + push(@hosts,$outhash{$aurole}); + } + } + if (@hosts == 1) { + my $switchto = '/adm/switchserver?otherserver='.$hosts[0]. + '&role='. + &HTML::Entities::encode($env{'request.role'},'"<>&').'&origurl='. + &HTML::Entities::encode('/adm/coursedocs?dumpcourse=1','"<>&'); + $dumpurl = "javascript:dump_needs_switchserver('$switchto')"; + $exportcrsurl = $dumpurl; + } else { + $dumpurl = "javascript:choose_switchserver_window()"; + $exportcrsurl = $dumpurl; + } + } + } + my @menu= + ({ categorytitle=>'Administration', + items =>[ + { linktext => $lt{'vc'}, + url => "javascript:injectData(document.courseverify,'dummy','verify','$lt{'vc'}')", + permission => 'F', + help => 'Docs_Verify_Content', + icon => 'verify.png', + linktitle => 'Verify contents can be retrieved/rendered', + }, + { linktext => $lt{'cv'}, + url => "javascript:injectData(document.courseverify,'dummy','versions','$lt{'cv'}')", + permission => 'F', + help => 'Docs_Check_Resource_Versions', + icon => 'resversion.png', + linktitle => "View version information for resources in your $lc_crstype, and fix/unfix use of specific versions", + }, + { linktext => $lt{'ls'}, + url => "javascript:injectData(document.courseverify,'dummy','listsymbs','$lt{'ls'}')", + permission => 'F', + #help => '', + icon => 'symbs.png', + linktitle => "List the unique identifier used for each resource instance in your $lc_crstype" + }, + { linktext => $lt{'ct'}, + url => "javascript:injectData(document.courseverify,'dummy','shorturls','$lt{'ct'}')", + permission => 'F', + help => 'Docs_Short_URLs', + icon => 'shorturls.png', + linktitle => "Set shortened URLs for a resource or folder in your $lc_crstype for use in deep-linking" + }, + ] + }); + if ($canedit) { + my ($crsauname,$crsaudom,$crshome); + if (($coursenum ne '') && ($coursedom ne '')) { + my $crsauthorurl = "/priv/$coursedom/$coursenum/"; + ($crsauname,$crsaudom,$crshome) = &Apache::lonnet::constructaccess($crsauthorurl); + if (($crsauname eq $coursenum) && ($crsaudom eq $coursedom)) { + my @ids=&Apache::lonnet::current_machine_ids(); + my $linkurl; + if (grep(/^\Q$crshome\E$/,@ids)) { + $linkurl = $crsauthorurl; + } else { + my $jscall = &Apache::lonhtmlcommon::jump_to_editres($crsauthorurl,$crshome,1); + if ($jscall) { + $linkurl = 'javascript:'.$jscall; + } + } + if ((ref($menu[0]) eq 'HASH') && (ref($menu[0]->{'items'}) eq 'ARRAY') && ($linkurl)) { + push(@{$menu[0]->{items}}, + { linktext => $lt{'ca'}, + url => $linkurl, + permission => 'F', + help => 'Docs_Course_Authorspace', + icon => 'impcrsau.png', + linktitle => $lt{'ca'}, + }); + } + } + } + push(@menu, + { categorytitle=>'Export', + items =>[ + { linktext => $lt{'imse'}, + url => "javascript:injectData(document.courseverify,'dummy','exportcourse','$lt{'imse'}')", + permission => 'F', + help => 'Docs_Export_Course_Docs', + icon => 'imsexport.png', + linktitle => $lt{'imse'}, + }, + { linktext => $lt{'dcd'}, + url => $dumpurl, + permission => $candump, + help => 'Docs_Dump_Course_Docs', + icon => 'dump.png', + linktitle => $lt{'dcd'}, + }, + ] + }); + if (($crsauname eq $coursenum) && ($crsaudom eq $coursedom)) { + if ((ref($menu[1]) eq 'HASH') && (ref($menu[1]->{'items'}) eq 'ARRAY')) { + push(@{$menu[1]->{items}}, + { linktext => $lt{'cpc'}, + url => $exportcrsurl, + permission => 'F', + help => 'Docs_Export_Course_Author', + icon => 'res.png', + linktitle => $lt{'cpc'}, + }); + } + } + } + return ''; +} + +sub generate_edit_table { + my ($tid,$orderhash_ref,$to_show,$iconpath,$jumpto,$readfile, + $need_save,$copyfolder,$canedit) = @_; + return unless(ref($orderhash_ref) eq 'HASH'); + my %orderhash = %{$orderhash_ref}; + my ($form, $activetab, $active, $disabled); + if (($env{'form.active'} ne '') && ($env{'form.active'} ne '00')) { + $activetab = $env{'form.active'}; + } + unless ($canedit) { + $disabled = ' disabled="disabled"'; + } + my $backicon = $iconpath.'clickhere.gif'; + my $backtext = &mt('Exit Editor'); + $form = ''.
+ '
'."\n";
+ }
+ return $form;
+}
+
+sub editing_js {
+ my ($udom,$uname,$supplementalflag,$coursedom,$coursenum,$posslti,
+ $londocroot,$canedit,$hostname,$navmapref) = @_;
+ my %js_lt = &Apache::lonlocal::texthash(
+ p_mnf => 'Name of New Folder',
+ t_mnf => 'New Folder',
+ p_mnp => 'Name of New Page',
+ t_mnp => 'New Page',
+ p_mxu => 'Title for the External Score',
+ p_msp => 'Name of Simple Course Page',
+ p_msb => 'Title for the Problem',
+ p_mdb => 'Title for the Drop Box',
+ p_mbb => 'Title for the Discussion Board',
+ p_mwp => 'Title for Web Page',
+ p_mnr => 'Title for the Resource',
+ p_mab => "Enter user:domain for User's Personal Information Page",
+ p_mab2 => 'Personal Information Page of ',
+ p_mab_alrt1 => 'Not a valid user:domain',
+ p_mab_alrt2 => 'Please enter both user and domain in the format user:domain',
+ p_chn => 'New Title',
+ p_rmr1 => 'WARNING: Removing a resource makes associated grades and scores inaccessible!',
+ p_rmr2a => 'Remove',
+ p_rmr2b => '?',
+ p_rmr3a => 'Remove those',
+ p_rmr3b => 'items?',
+ p_rmr4 => 'WARNING: Removing a resource uploaded to a course cannot be undone via "Undo Delete".',
+ p_rmr5 => 'Push "Cancel" and then use "Cut" instead if you might need to undo this change.',
+ p_ctr1a => 'WARNING: Cutting a resource makes associated grades and scores inaccessible!',
+ p_ctr1b => 'Grades remain inaccessible if resource is pasted into another folder.',
+ p_ctr2a => 'Cut',
+ p_ctr2b => '?',
+ p_ctr3a => 'Cut those',
+ p_ctr3b => 'items?',
+ setal => 'Enter a (unique) alias',
+ delal => 'Are you sure you want to eliminate the alias?',
+ rpck => 'Enter number to pick (e.g., 3)',
+ imsfile => 'You must choose an IMS package for import',
+ imscms => 'You must select which Course Management System was the source of the IMS package',
+ invurl => 'Invalid URL',
+ titbl => 'Title is blank',
+ more => '(More ...)',
+ less => '(Less ...)',
+ noor => 'No actions selected or changes to settings specified.',
+ noch => 'No changes to settings specified.',
+ noac => 'No actions selected.',
+ nofi => 'No file selected',
+ tinc => 'Title in course',
+ sunm => 'Sub-directory name',
+ edri => 'Editing rights unavailable for your current role.',
+ sele => 'Select',
+ swit => 'Switch server required',
+ );
+ &js_escape(\%js_lt);
+ my $crstype = &Apache::loncommon::course_type();
+ my $docs_folderpath = &HTML::Entities::encode($env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.folderpath'},'<>&"');
+ my $main_container_page;
+ if (&HTML::Entities::decode($env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.folderpath'}) =~ /\:1$/) {
+ $main_container_page = 1;
+ }
+ my $backtourl;
+ my $toplevelmain = &escape(&default_folderpath($coursenum,$coursedom,$navmapref));
+ my $toplevelsupp = &supplemental_base();
+ my $showfile_js = &Apache::loncommon::show_crsfiles_js();
+ my @ids=&Apache::lonnet::current_machine_ids();
+ my $machines_str = "'".join("','",@ids)."'";
+ if ($env{'docs.exit.'.$env{'request.course.id'}} =~ /^direct_(.+)$/) {
+ my $caller = $1;
+ if ($caller =~ /^supplemental/) {
+ $backtourl = '/adm/supplemental?folderpath='.&escape($caller);
+ } else {
+ my ($map,$id,$res)=&Apache::lonnet::decode_symb($caller);
+ $res = &Apache::lonnet::clutter($res);
+ if (&Apache::lonnet::is_on_map($res)) {
+ my ($url,$anchor);
+ if ($res =~ /^([^#]+)#([^#]+)$/) {
+ $url = $1;
+ $anchor = $2;
+ if (($caller =~ m{^([^#]+)\Q#$anchor\E$})) {
+ $caller = $1.&escape('#').$anchor;
+ }
+ } else {
+ $url = $res;
+ }
+ $backtourl = &HTML::Entities::encode(&Apache::lonnet::clutter($url),'<>&"');
+ if ($backtourl =~ m{^\Q/uploaded/$coursedom/$coursenum/\Edefault_\d+\.sequence$}) {
+ $backtourl .= '?navmap=1';
+ } else {
+ $backtourl .= '?symb='.
+ &HTML::Entities::encode($caller,'<>&"');
+ }
+ if ($backtourl =~ m{^\Q/public/$coursedom/$coursenum/syllabus\E}) {
+ if (($ENV{'SERVER_PORT'} == 443) &&
+ ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) {
+ unless ((&Apache::lonnet::uses_sts()) || (&Apache::lonnet::waf_allssl($hostname))) {
+ if ($hostname ne '') {
+ $backtourl = 'http://'.$hostname.$backtourl;
+ }
+ $backtourl .= (($backtourl =~ /\?/) ? '&':'?').'usehttp=1';
+ }
+ }
+ } elsif ($backtourl =~ m{^/adm/wrapper/ext/(?!https:)}) {
+ if (($ENV{'SERVER_PORT'} == 443) && ($hostname ne '')) {
+ unless ((&Apache::lonnet::uses_sts()) || (&Apache::lonnet::waf_allssl($hostname))) {
+ if ($hostname ne '') {
+ $backtourl = 'http://'.$hostname.$backtourl;
+ }
+ $backtourl .= (($backtourl =~ /\?/) ? '&':'?').'usehttp=1';
+ }
+ }
+ }
+ if ($anchor ne '') {
+ $backtourl .= '#'.&HTML::Entities::encode($anchor,'<>&"');
+ }
+ $backtourl = &Apache::loncommon::escape_single($backtourl);
+ } else {
+ $backtourl = '/adm/navmaps';
+ }
+ }
+ } elsif ($env{'docs.exit.'.$env{'request.course.id'}} eq '/adm/menu') {
+ $backtourl = '/adm/menu';
+ } elsif ($supplementalflag) {
+ if (($env{'request.role.adv'}) ||
+ (&Apache::lonnet::has_unhidden_suppfiles($coursenum,$coursedom))) {
+ $backtourl = '/adm/supplemental';
+ } else {
+ $backtourl = '/adm/navmaps';
+ }
+ } else {
+ $backtourl = '/adm/navmaps';
+ }
+
+ my $fieldsets = "'doc'";
+ unless ($main_container_page) {
+ $fieldsets .=",'ims'";
+ }
+ my $extfieldsets = "'ext'";
+ if ($posslti) {
+ $extfieldsets .= ",'tool'";
+ }
+ if ($supplementalflag) {
+ $fieldsets = "'suppdoc'";
+ $extfieldsets = "'suppext'";
+ if ($posslti) {
+ $extfieldsets .= ",'supptool'";
+ }
+ }
+
+ my $jsmakefunctions;
+ if ($canedit) {
+ $jsmakefunctions = <- '."\n".
+ '
- '.
+ ''.
+ '
'.$backtext.'
'."\n".
+ ' - '. + ''. + &mt('Undo Delete').' '."\n"; + if ($env{'form.docslog'}) { + $form .= '
- '; + } else { + $form .= '
- '; + } + $form .= ''. + &mt('History').' '."\n"; + if ($env{'form.docslog'}) { + $form .= '
- '. + &mt('Edit').' '."\n"; + } + foreach my $name (reverse(sort(keys(%orderhash)))) { + if($name ne '00'){ + if($activetab eq '' || $activetab ne $name){ + $active = ''; + }elsif($activetab eq $name){ + $active = 'class="active"'; + } + $form .= '
- '.&mt(${$orderhash{$name}}[0]).' '."\n"; + } else { + $form .= '
- '.${$orderhash{$name}}[1].' '."\n"; + + } + } + $form .= '
'."\n";
+
+ if ($to_show ne '') {
+ my $saveform;
+ if ($need_save) {
+ my $button = &mt('Make changes');
+ my $path;
+ if ($env{'form.folderpath'}) {
+ $path =
+ &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
+ }
+ $saveform = <<"END";
+
+END
+ }
+ $form .= '
'.$to_show.'
'.$saveform."\n";
+ }
+ foreach my $field (keys(%orderhash)){
+ if($field ne '00'){
+ if($activetab eq '' || $activetab ne $field){
+ $active = 'style="display: none;float:left"';
+ }elsif($activetab eq $field){
+ $active = 'style="display:block;float:left"';
+ }
+ $form .= ''.${$orderhash{$field}}[1]
+ .'
'."\n";
+ }
+ }
+ unless ($env{'form.docslog'}) {
+ $form .= ''.&mt('Main Course Documents'). - ($allowed?' '.$help{'Main_Course_Documents'}:'').''); - my $folder=$ENV{'form.folder'}; - unless ($folder=~/^default/) { $folder='default'; } - my $postexec=''; - if ($folder eq 'default') { - $r->print(''); - } else { - $postexec='self.close();'; - } - $hadchanges=0; - &editor($r,$coursenum,$coursedom,$folder,$allowed); - if ($hadchanges) { - $r->print( -''. -''); - } - my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. - '.sequence'; - $r->print(<$lt{'uplm'} |
-$lt{'impp'} |
-$lt{'spec'} |
-
-File: |
-- -
-
- |
-
-
-
-
-
-
-
-
-
- | |
'.&mt('Supplemental Course Documents'). - ($allowed?' '.$help{'Supplemental'}:'').'
'); - my $folder=$ENV{'form.folder'}; - unless ($folder=~/supplemental/) { $folder='supplemental'; } - &editor($r,$coursenum,$coursedom,$folder,$allowed); - if ($allowed) { - my $folderseq= - '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_'.time. - '.sequence'; - - $r->print(<".&mt('Uploaded Document').'
'. -&mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."
$html_js_lt{'duco'}<\\/h3>\\n'+ + '
$html_js_lt{'yone'}<\\/p>\\n'+ + '