--- loncom/interface/londocs.pm 2009/09/19 11:01:44 1.386 +++ loncom/interface/londocs.pm 2009/10/04 09:41:12 1.387 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.386 2009/09/19 11:01:44 tempelho Exp $ +# $Id: londocs.pm,v 1.387 2009/10/04 09:41:12 tempelho Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2900,7 +2900,7 @@ FIUP CHBO my @fileuploada = ( - { pic01 => " $help{'Uploading_From_Harddrive'}" }, + { 'pic01' => " $help{'Uploading_From_Harddrive'}" }, ); my $fileuploadform=(< @@ -2926,9 +2926,9 @@ FUFORM SEDFFORM my @simpleeditdefaultforma = ( - { pic03 => "$uploadtag$lt{'srch'}" }, - { pic04 => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" }, - { pic05 => "$lt{'book'}" }, + { 'pic03' => "$uploadtag$lt{'srch'}" }, + { 'pic04' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" }, + { 'pic05' => "$lt{'book'}" }, ); $simpleeditdefaultform .= create_form_ul(create_list_elements(@simpleeditdefaultforma)); $simpleeditdefaultform .=(< NFFORM my @newfolderforma= ( - { pic02 => "$newfolderform" } + { 'pic02' => "$newfolderform" } ); @@ -3211,37 +3211,37 @@ NSYLFORM NGFFORM @specialdocumentsforma=( - {pic06=>$newpageform}, - {pic07=>$newsylform}, - {pic08=>$newgroupfileform}, + {'pic06'=>$newpageform}, + {'pic07'=>$newsylform}, + {'pic08'=>$newgroupfileform}, ); } - push @specialdocumentsforma, ({pic09=>$newnavform}, - {pic10=>$newsmppageform}, - {pic11=>$newsmpproblemform}, - {pic12=>$newdropboxform}, - {pic13=>$newexuploadform}, - {pic14=>$newbulform}, - {pic15=>$newaboutmeform}, - {pic16=>$newaboutsomeoneform}, - {pic17=>$newrosterform},); + push @specialdocumentsforma, ({'pic09'=>$newnavform}, + {'pic10'=>$newsmppageform}, + {'pic11'=>$newsmpproblemform}, + {'pic12'=>$newdropboxform}, + {'pic13'=>$newexuploadform}, + {'pic14'=>$newbulform}, + {'pic15'=>$newaboutmeform}, + {'pic16'=>$newaboutsomeoneform}, + {'pic17'=>$newrosterform},); $specialdocumentsform = create_form_ul(create_list_elements(@specialdocumentsforma)); if($env{'form.pagepath'}) { @specialdocumentsforma=( - {pic32=>$newsmpproblemform}, - {pic33=>$newexuploadform} + {'pic32'=>$newsmpproblemform}, + {'pic33'=>$newexuploadform} ); $specialdocumentsform= create_form_ul(create_list_elements(@specialdocumentsforma)); } my @tools = ( - {pic18=>$extresourcesform}, - {pic19=>$imspform}, - {pic20=>$recoverform}, + {'pic18'=>$extresourcesform}, + {'pic19'=>$imspform}, + {'pic20'=>$recoverform}, ); my %orderhash = ( @@ -3294,7 +3294,7 @@ $r->print(''); my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); my @supupdocform = ( - {pic27=>"$lt{'upld'}$help{'Uploading_From_Harddrive'}"}, + {'pic27'=>"$lt{'upld'}$help{'Uploading_From_Harddrive'}"}, ); my $supupdocform=(< @@ -3324,7 +3324,7 @@ SUPDOCFORM SNFFORM - my @supnewfolderforma = ({pic28=>$supnewfolderform}); + my @supnewfolderforma = ({'pic28'=>$supnewfolderform}); $supnewfolderform = create_form_ul(create_list_elements(@supnewfolderforma)); @@ -3361,9 +3361,9 @@ SNAMFORM my @specialdocs = ( - {pic29=>$supnewextform}, - {pic30=>$supnewsylform}, - {pic31=>$supnewaboutmeform}, + {'pic29'=>$supnewextform}, + {'pic30'=>$supnewsylform}, + {'pic31'=>$supnewaboutmeform}, ); my %suporderhash = ( 'ee' => ['Upload Document',$supupdocform.' '.$supnewfolderform], @@ -3421,15 +3421,15 @@ sub generate_admin_options { my $dumpbut=&dumpbutton(); my $exportbut=&exportbutton(); my @list = ( - {pic21=>"$lt{'vc'}$help{'Verify_Content'}"}, - {pic22=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, + {'pic21'=>"$lt{'vc'}$help{'Verify_Content'}"}, + {'pic22'=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, ); if($dumpbut ne ''){ - push @list, {pic23=>$dumpbut}; + push @list, {'pic23'=>$dumpbut}; } - push @list, ({pic24=>$exportbut}, - {pic25=>"$lt{'ls'}"}, - {pic26=>"$lt{'sl'}"}, + push @list, ({'pic24'=>$exportbut}, + {'pic25'=>"$lt{'ls'}"}, + {'pic26'=>"$lt{'sl'}"}, ); return '
'.create_form_ul(create_list_elements(@list)).'
';