- Timestamp:
- 01/29/09 13:35:57 (3 years ago)
- Location:
- trunk/ActionTrackerPlugin/lib/Foswiki
- Files:
-
- 1 edited
- 1 moved
-
. (moved) (moved from trunk/ActionTrackerPlugin/lib/TWiki)
-
Plugins/ActionTrackerPlugin/Action.pm (modified) (16 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ActionTrackerPlugin/lib/Foswiki/Plugins/ActionTrackerPlugin/Action.pm
r1340 r2226 3 3 =begin TML 4 4 5 ---+ package TWiki::Plugins::ActionTrackerPlugin::Action5 ---+ package Foswiki::Plugins::ActionTrackerPlugin::Action 6 6 7 7 Object that represents a single action … … 35 35 =cut 36 36 37 package TWiki::Plugins::ActionTrackerPlugin::Action;37 package Foswiki::Plugins::ActionTrackerPlugin::Action; 38 38 39 39 use strict; … … 44 44 require Time::ParseDate; 45 45 46 require TWiki::Func; 47 require TWiki::Attrs; 48 49 require TWiki::Plugins::ActionTrackerPlugin::AttrDef; 50 require TWiki::Plugins::ActionTrackerPlugin::Format; 51 52 use vars qw( $now ); 53 54 $now = time(); 46 require Foswiki::Func; 47 require Foswiki::Attrs; 48 49 require Foswiki::Plugins::ActionTrackerPlugin::AttrDef; 50 require Foswiki::Plugins::ActionTrackerPlugin::Format; 51 52 our $now = time(); 55 53 56 54 # Options for parsedate … … 71 69 ( 72 70 changedsince => 73 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(71 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 74 72 'noload', 0, 0, 0, undef ), 75 73 closed => 76 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(74 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 77 75 'date', $dw, 1, 0, undef ), 78 76 closer => 79 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(77 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 80 78 'names', $nw, 1, 0, undef ), 81 79 created => 82 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(80 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 83 81 'date', $dw, 1, 0, undef ), 84 82 creator => 85 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(83 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 86 84 'names', $nw, 1, 0, undef ), 87 85 dollar => 88 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(86 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 89 87 'noload', 0, 0, 0, undef ), 90 88 due => 91 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(89 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 92 90 'date', $dw, 1, 0, undef ), 93 91 edit => 94 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(92 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 95 93 'noload', 0, 0, 0, undef ), 96 94 format => 97 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(95 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 98 96 'noload', 0, 0, 0, undef ), 99 97 header => 100 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(98 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 101 99 'noload', 0, 0, 0, undef ), 102 100 late => 103 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(101 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 104 102 'noload', 0, 0, 0, undef ), 105 103 n => 106 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(104 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 107 105 'noload', 0, 0, 0, undef ), 108 106 nop => 109 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(107 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 110 108 'noload', 0, 0, 0, undef ), 111 109 notify => 112 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(110 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 113 111 'names', $nw, 1, 0, undef ), 114 112 percnt => 115 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(113 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 116 114 'noload', 0, 0, 0, undef ), 117 115 quot => 118 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(116 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 119 117 'noload', 0, 0, 0, undef ), 120 118 sort => 121 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(119 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 122 120 'noload', 0, 0, 0, undef ), 123 121 state => 124 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(122 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 125 123 'select', 1, 1, 1, [ 'open','closed' ] ), 126 124 text => 127 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(125 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 128 126 'noload', 0, 1, 0, undef ), 129 127 topic => 130 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(128 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 131 129 'noload', 0, 1, 0, undef ), 132 130 uid => 133 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(131 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 134 132 'text', $nw, 1, 0, undef ), 135 133 web => 136 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(134 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 137 135 'noload', 0, 1, 0, undef ), 138 136 who => 139 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(137 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 140 138 'names', $nw, 1, 0, undef ), 141 139 within => 142 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(140 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 143 141 'noload', 0, 1, 0, undef ), 144 142 ACTION_NUMBER=> 145 new TWiki::Plugins::ActionTrackerPlugin::AttrDef(143 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( 146 144 'noload', 0, 0, 0, undef ), 147 145 ); … … 154 152 my $this = {}; 155 153 156 my $attr = new TWiki::Attrs( $attrs, 1 );154 my $attr = new Foswiki::Attrs( $attrs, 1 ); 157 155 158 156 # We always have a state, and if it's not defined in the … … 242 240 } 243 241 $types{$name} = 244 new TWiki::Plugins::ActionTrackerPlugin::AttrDef( $type, $size, 1, 1, \@values );242 new Foswiki::Plugins::ActionTrackerPlugin::AttrDef( $type, $size, 1, 1, \@values ); 245 243 } else { 246 244 return 'Bad EXTRAS definition \''.$def.'\' in EXTRAS'; … … 277 275 my $this = shift; 278 276 279 my $workArea = TWiki::Func::getWorkArea('ActionTrackerPlugin');277 my $workArea = Foswiki::Func::getWorkArea('ActionTrackerPlugin'); 280 278 my $uidRegister = $workArea . '/UIDRegister'; 281 279 282 280 # Compatibility code. Upgrade existing atUidReg to plugin work area. 283 if (!-e $uidRegister && -e TWiki::Func::getDataDir() . '/atUidReg') {284 my $oldReg = TWiki::Func::getDataDir() . '/atUidReg';281 if (!-e $uidRegister && -e Foswiki::Func::getDataDir() . '/atUidReg') { 282 my $oldReg = Foswiki::Func::getDataDir() . '/atUidReg'; 285 283 open( FH, "<$oldReg" ) or die "Reading $oldReg: $!"; 286 284 my $uid = <FH>; … … 303 301 my @s = stat( $lockFile ); 304 302 if( time() - $s[9] > 10 * 60 ) { 305 TWiki::Func::writeWarning("Action Tracker Plugin: Warning: broke $lockFile");303 Foswiki::Func::writeWarning("Action Tracker Plugin: Warning: broke $lockFile"); 306 304 last; 307 305 } … … 400 398 if ( $who !~ /([A-Za-z0-9\.\+\-\_]+\@[A-Za-z0-9\.\-]+)/ ) { 401 399 if ( $who eq 'me' ) { 402 $who = TWiki::Func::getWikiName();400 $who = Foswiki::Func::getWikiName(); 403 401 } 404 402 if ( $who !~ /\./o ) { 405 $who = TWiki::Func::getMainWebname().'.'.$who;403 $who = Foswiki::Func::getMainWebname().'.'.$who; 406 404 } 407 405 } … … 439 437 $stime = ''; 440 438 } elsif ( $format eq 'attr' ) { 441 $stime = TWiki::Func::formatTime( $time, '$year-$mo-$day', 'servertime' );439 $stime = Foswiki::Func::formatTime( $time, '$year-$mo-$day', 'servertime' ); 442 440 } else { 443 $stime = TWiki::Func::formatTime( $time, '$wday, $day $month $year', 'servertime');441 $stime = Foswiki::Func::formatTime( $time, $Foswiki::cfg{DefaultDateFormat}, $Foswiki::cfg{DisplayTimeValues} ); 444 442 } 445 443 return $stime; … … 457 455 } 458 456 # No due date, use default 459 require TWiki::Plugins::ActionTrackerPlugin::Options;457 require Foswiki::Plugins::ActionTrackerPlugin::Options; 460 458 return 461 $ TWiki::Plugins::ActionTrackerPlugin::Options::options{DEFAULTDUE};459 $Foswiki::Plugins::ActionTrackerPlugin::Options::options{DEFAULTDUE}; 462 460 } 463 461 … … 629 627 my ( $this, $args, $asHTML ) = @_; 630 628 631 my ($meta, $text) = TWiki::Func::readTopic($this->{web}, $this->{topic});629 my ($meta, $text) = Foswiki::Func::readTopic($this->{web}, $this->{topic}); 632 630 633 631 if (!$meta->can('renderFormFieldForDisplay')) { 634 632 # 4.1 compatibility 635 return TWiki::Render::renderFormFieldArg($meta, $args);633 return Foswiki::Render::renderFormFieldArg($meta, $args); 636 634 } else { 637 635 my $name = $args; … … 682 680 return $this->{state} unless $this->{uid}; 683 681 # SMELL: assumes a prior call has loaded the options 684 require TWiki::Plugins::ActionTrackerPlugin::Options;682 require Foswiki::Plugins::ActionTrackerPlugin::Options; 685 683 return $this->{state} unless 686 $ TWiki::Plugins::ActionTrackerPlugin::Options::options{ENABLESTATESHORTCUT};684 $Foswiki::Plugins::ActionTrackerPlugin::Options::options{ENABLESTATESHORTCUT}; 687 685 688 686 my $input = ''; … … 744 742 my $jump = ' '. 745 743 CGI::a( { href=> 746 TWiki::Func::getViewUrl( $this->{web},744 Foswiki::Func::getViewUrl( $this->{web}, 747 745 $this->{topic} ) . 748 746 '#' . $this->getAnchor() }, … … 764 762 } 765 763 766 my $skin = join( ',', ( 'action', TWiki::Func::getSkin()));767 768 my $url = TWiki::Func::getScriptUrl(764 my $skin = join( ',', ( 'action', Foswiki::Func::getSkin())); 765 766 my $url = Foswiki::Func::getScriptUrl( 769 767 $this->{web}, $this->{topic}, 'edit', 770 768 skin => $skin, … … 915 913 } 916 914 } 917 return new TWiki::Plugins::ActionTrackerPlugin::Action( $web, $topic, $an, $attrs, $desc );915 return new Foswiki::Plugins::ActionTrackerPlugin::Action( $web, $topic, $an, $attrs, $desc ); 918 916 } 919 917
Note: See TracChangeset
for help on using the changeset viewer.
