openinteract-commits Mailing List for OpenInteract (Page 45)

Brought to you by: a_v, lachoy, mjbaker

openinteract-commits — CVS updates for OpenInteract/SPOPS

You can subscribe to this list here.

2001	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (381)	Nov (176)	Dec (310)
2002	Jan (334)	Feb (96)	Mar (149)	Apr (214)	May (120)	Jun (56)	Jul (10)	Aug (273)	Sep (182)	Oct (56)	Nov (125)	Dec (22)
2003	Jan (63)	Feb (181)	Mar (498)	Apr (433)	May (39)	Jun (512)	Jul (276)	Aug (156)	Sep (101)	Oct (66)	Nov (24)	Dec (161)
2004	Jan (1)	Feb (377)	Mar (68)	Apr (26)	May (107)	Jun (333)	Jul (13)	Aug	Sep (76)	Oct (88)	Nov (170)	Dec (91)
2005	Jan (52)	Feb (239)	Mar (402)	Apr (15)	May (2)	Jun (1)	Jul (13)	Aug	Sep (71)	Oct (34)	Nov	Dec
2006	Jan (5)	Feb (5)	Mar (2)	Apr	May	Jun	Jul	Aug (3)	Sep (7)	Oct (2)	Nov	Dec
2007	Jan	Feb	Mar (1)	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

Flat | Threaded

<< < 1 .. 43 44 45 46 47 .. 289 > >> (Page 45 of 289)

[Openinteract-commits] CVS: OpenInteract2/lib/Apache OpenInteract2.pm,1.15,1.16

From: Salve J. N. <sj...@us...> - 2004-11-09 13:28:31

Update of /cvsroot/openinteract/OpenInteract2/lib/Apache
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2095/lib/Apache

Modified Files:
	OpenInteract2.pm 
Log Message:
Remove "uninitialized" warning


Index: OpenInteract2.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/Apache/OpenInteract2.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** OpenInteract2.pm	13 Jun 2004 05:10:18 -0000	1.15
--- OpenInteract2.pm	9 Nov 2004 13:28:08 -0000	1.16
***************
*** 21,25 ****
          $log->info( scalar( localtime ), ": request from ",
                      "'", $r->connection->remote_ip, "' for URL ",
!                     "'", $r->uri, '?', scalar( $r->args ), "'" );
  
      my $response = OpenInteract2::Response->new({ apache => $r });
--- 21,26 ----
          $log->info( scalar( localtime ), ": request from ",
                      "'", $r->connection->remote_ip, "' for URL ",
!                     "'", $r->uri, ( defined scalar( $r->args ) && "?" . scalar( $r->args ) ),
!                     "'" );
  
      my $response = OpenInteract2::Response->new({ apache => $r });

[Openinteract-commits] CVS: OpenInteract2/pkg/base_group/msg base_group-messages-no.msg,NONE,1.1

From: Salve J. N. <sj...@us...> - 2004-11-09 12:29:31

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_group/msg
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23096/pkg/base_group/msg

Added Files:
	base_group-messages-no.msg 
Log Message:
Add Norwegian messages


--- NEW FILE: base_group-messages-no.msg ---
base_group.detail.page_title = Detaljer for gruppe [_1]
base_group.detail.edit_record = <a href="[_1]">Endre</a> denne oppf&oslash;rigen
base_group.detail.title = Detaljer om gruppe
base_group.info.label.name = Navn
base_group.info.label.notes  = Beskrivelse
base_group.info.label.members = Medlemmer
base_group.detail.no_members = Denne gruppen har ingen medlemmer
base_group.form.title.new = Opprett en ny gruppe
base_group.form.title.update = Redig&eacute;r gruppen [_1]
base_group.form.remove_record = <a href="[_1]"><b>Fjern</b></a> denne gruppen
base_group.form.label.assign_users = Finn medlemmer
base_group.form.label.pop_select = &quot;[_1]&quot; medlemmer
base_group.form.label.member_select = Medlemmer
base_group.list.title = Liste over grupper
base_group.list.summary = Følgende grupper er for tiden registrert.
base_group.list.no_groups = For tiden er det ingen grupper registrert, som du \
    har rettigheter til &sring; se p&aring;.

[Openinteract-commits] CVS: OpenInteract2/pkg/base_group MANIFEST,1.3,1.4

From: Salve J. N. <sj...@us...> - 2004-11-09 12:29:31

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_group
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23096/pkg/base_group

Modified Files:
	MANIFEST 
Log Message:
Add Norwegian messages


Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_group/MANIFEST,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MANIFEST	13 Feb 2004 02:33:15 -0000	1.3
--- MANIFEST	9 Nov 2004 12:29:21 -0000	1.4
***************
*** 9,12 ****
--- 9,13 ----
  doc/base_group.pod
  msg/base_group-messages-en.msg
+ msg/base_group-messages-no.msg
  OpenInteract2/Action/Group.pm
  OpenInteract2/SQLInstall/Group.pm

[Openinteract-commits] CVS: OpenInteract2/pkg/base_user/msg base_user-messages-no.msg,NONE,1.1

From: Salve J. N. <sj...@us...> - 2004-11-09 12:28:56

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_user/msg
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22914/pkg/base_user/msg

Added Files:
	base_user-messages-no.msg 
Log Message:
Add Norwegian messages


--- NEW FILE: base_user-messages-no.msg ---
base_user.new_complete.page_title = Konto opprettet!
base_user.new_complete.title = Epost Sendt
base_user.new_complete.summary = Kontoinformasjonen din er blitt sendt til \
    <tt>[_1]</tt>. F&oslash;lg instruksjonene der for &aring; logge deg inn \
    og aktivisere kontoen din.
base_user.new_form.page_title = Opprett brukerkonto
base_user.new_form.howto_intro = Oppretting av en ny konto er enkelt! Vi \
    trenger kun to ting:
base_user.new_form.howto_login = brukernavnet du ønsker å ha
base_user.new_form.howto_email = en fungerende epostadresse
base_user.new_form.instructions = Etter du har fylt ut informasjonen \
    nedenfor og vi har sjekket at brukernavnet ditt ikke allerede er \
    i bruk, s&aring; sender vi deg et ebrev med innloggingsinformasjon og \
    et systemgenerert passord. Du kan s&aring; logge deg inn med dette \
    passordet og eventuelt endre dette til noe du selv kan huske.
base_user.new_form.label.login = &Oslash;nsket brukernavn
base_user.new_form.label.email = Fungerende epostadresse
base_user.detail.page_title = Brukerinformasjon
base_user.detail.edit_link = <a href="[_1]">Endre</a> denne siden
base_user.detail.title = Brukerdetaljer
base_user.detail.label.member = Medlem i grupper
base_user.info.name = Fullt navn
base_user.info.first_name = Fornavn
base_user.info.last_name = Etternavn
base_user.info.email = Epost
base_user.info.login = Brukernavn
base_user.info.password = Passord
base_user.info.language = Spr&aring;k
base_user.info.title =  Tittel
base_user.info.notes = Notater
base_user.info.image = Bilde
base_user.info.location = Tilholdssted
base_user.info.description = Jobb-beskrivelse
base_user.info.phone = Telefonnummer
base_user.form.title_new = Opprett ny brukerkonto
base_user.form.title_update = Endre brukerkonto for [_1]
base_user.form.remove_link = <a href="[_1]">Fjern</a> denne kontoen
base_user.form.password_change = Hvis du ikke skriver noe vil passordet \
    ikke endres.
base_user.search_form.title = S&osalsh;k etter folk
base_user.search_results.title = S&oslash;keresultat
base_user.search_results.no_match = Ingen treff med gitte s&oslash;kekriterier

base_user.password_info.title = F&aring; tildelt nytt passord
base_user.password_info.summary = Skriv ditt brukernavn eller din \
    epostadresse, s&aring; skal jeg sende deg et nytt passord.
base_user.password_info.login = Brukernavn
base_user.password_info.email = Epostadresse
base_user.password_info.send = Send Passord

base_user.password_sent.title = Nytt password er sendt
base_user.password_sent.summary = Et nytt passord er blitt sendt til '[_1]'; \
	Vennligst sjekk epostboksen din og benytt det nye passordet for &aring; \
    logge deg inn igjen. N&aring;r du er inne b&oslash;r du ogs&aring; \
    bytte ditt passord.
base_user.password_mail.subject = Passordbytte for [_1]

base_user.new_mail.subject = Kontoinformasjon for [_1]
base_user.new.mail_failure = Kunne ikke sende epost til deg med nytt passord: [_1]

base_user.new.name_in_use = Brukernavnet du ba om er allerede i bruk; Vennligst pr&oslash;v et annet.
base_user.new.duplicate_email = Epostadressen du oppga er allerede i bruk.
base_user.new.no_login = Din konto kan ikke opprettes uten at du oppgir et \
    brukernavn!
base_user.new.invalid_email = Epostadressen du oppga er ikke gyldig!
base_user.new.no_mailcheck_module = Kan ikke sjekke epostadressens gyldighet.
base_user.new.create_failure = Kan ikke opprette ny bruker: [_1]
base_user.new.security_failure = Kan ikke sette sikkerhetsnivå for ny bruker: [_1]

base_user.user.search_error = Feil i s&oslash;keoperasjon: [_1]
base_user.user.group_fetch_fail = Kunne ikke finne grupper brukeren er medlem i: [_1]
base_user.user.lang_fetch_fail = Kunne ikke finne spr&aring;oppsett: [_1]
base_user.user.password_mismatch = Passordene stemte ikke overens; Vennligst skriv de p&aring; nytt.
base_user.user.password_changed = Passord er endret.
#base_user.user.group_add_fail = Record created but group membership wrong.
base_user.user.group_add_fail = FIXME er opprettet, men gruppemedlemskap er feil.
base_user.user.group_add_ok = Brukeren er lagt til 'public' gruppen

base_user.password.enter_one = Vennligst oppgi enten brukernavn eller epostadresse.
#base_user.password.fetch_fail = Error fetching user objects with your information: [_1]
base_user.password.fetch_fail = FIXME Kunne ikke finne brukere med med &oslash;nskede kriterier: [_1]
base_user.password.no_user = Ingen brukere finnes med disse kriteriene. Pr&oslash;v igjen.
base_user.password.save_fail = Kunne ikke lagre nytt passord: [_1]
base_user.password.mail_fail = Kunne ikke sende epost med nytt passord: [_1]
base_user.password.save_existing_fail = Kunne ikke sette tilbake passord til \
    opprinnelig verdi etter &aring; ha feilet &aring; sende epost \
    (Error: [_1]). Kontakt din administrator ([_2]) for &aring; f&aring; \
    satt ditt passord p&aring; ny.
base_user.password.mail_ok = Epost ble sendt til adressen '[_1]'.

[Openinteract-commits] CVS: OpenInteract2/pkg/base_user MANIFEST,1.6,1.7

From: Salve J. N. <sj...@us...> - 2004-11-09 12:28:55

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_user
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22914/pkg/base_user

Modified Files:
	MANIFEST 
Log Message:
Add Norwegian messages


Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_user/MANIFEST,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** MANIFEST	22 Feb 2004 04:47:16 -0000	1.6
--- MANIFEST	9 Nov 2004 12:28:47 -0000	1.7
***************
*** 11,14 ****
--- 11,15 ----
  doc/base_user.pod
  msg/base_user-messages-en.msg
+ msg/base_user-messages-no.msg
  OpenInteract2/User.pm
  OpenInteract2/Action/ForgotPassword.pm

[Openinteract-commits] CVS: OpenInteract2/pkg/base_box MANIFEST,1.2,1.3

From: Salve J. N. <sj...@us...> - 2004-11-09 12:26:51

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_box
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22549/pkg/base_box

Modified Files:
	MANIFEST 
Log Message:
Add I18N messages in Norwegian


Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_box/MANIFEST,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** MANIFEST	11 Feb 2004 06:12:46 -0000	1.2
--- MANIFEST	9 Nov 2004 12:26:41 -0000	1.3
***************
*** 6,9 ****
--- 6,10 ----
  doc/base_box.pod
  msg/base_box-messages-en.msg
+ msg/base_box-messages-no.msg
  OpenInteract2/Action/Box.pm
  OpenInteract2/Action/SystemBoxes.pm

[Openinteract-commits] CVS: OpenInteract2/pkg/base_box/msg base_box-messages-no.msg,NONE,1.1

From: Salve J. N. <sj...@us...> - 2004-11-09 12:26:50

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_box/msg
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22549/pkg/base_box/msg

Added Files:
	base_box-messages-no.msg 
Log Message:
Add I18N messages in Norwegian


--- NEW FILE: base_box-messages-no.msg ---
# Messages for the 'base_box' package: Norwegian
admin_tools_box.label.error_browser =  <a href="[_1]">Feil-logg</a>
admin_tools_box.label.group = Grupper (<a href="[_1]">Vis alle</a> |  <a href="[_2]">Lag ny</a>)
admin_tools_box.label.lookup = <a href="[_1]">Liste over tabeller</a>
admin_tools_box.label.activity = <a href="[_1]">Aktivitetslogg </a>
admin_tools_box.label.page = <a href="[_1]">Publisering</a>
admin_tools_box.label.security = <a href="[_1]">Tilgangskontroll</a>
admin_tools_box.label.template = Side-maler (<a href="[_1]">Vis alle</a> | <a href="[_2]">Lag ny</a>)
admin_tools_box.label.doc = <a href="[_1]">Systemdokumentasjon</a>
admin_tools_box.label.theme = Side-utseende (<a href="[_1]">Vis alle</a> | <a href="[_2]">Lag ny</a>)
admin_tools_box.label.user = Brukere (<a href="[_1]">S&oslash;k</a> | <a href="[_2]">Lag ny</a>)
admin_tools_box.title = Admin verkt&oslash;y
login_box.no_account = Ingen konto? <a href="[_1]">Opprett en!</a>
login_box.label.name = Navn
login_box.label.password = Passord
login_box.label.remember = Langtidsp&aring;logging
login_box.label.forgot = Glemt passord?
login_box.button.login = Logg inn
login_box.title = Logg inn
object_modify_box.label.edit_security = Endre sikkerhetsniv&aring;er
object_modify_box.label.edit_topics = Endre titler
object_modify_box.summary = Ingen operasjoner tillatt.
object_modify_box.not_entered = Siden dette objektet ikke enda er lagt til i systemet, \
     kan du ikke endre p&aring; dets egenskaper.
object_modify_box.cannot_view = Visning av operasjoner er ikke tillatt.
object_modify_box.title = Objektinformasjon
powered_by_box.summary = Dette nettstedet benytter seg av f&oslash;lgende teknologier:
powered_by_box.title = Teknologiplattform
user_info_box.label.customize = Endre info
user_info_box.label.signout = Logg ut
user_info_box.label.no_login = Du er ikke logget inn
user_info_box.title = Info om meg

[Openinteract-commits] CVS: OpenInteract2/pkg/base_box/OpenInteract2/Action SystemBoxes.pm,1.7,1.8

From: Salve J. N. <sj...@us...> - 2004-11-09 12:23:16

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_box/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21582/pkg/base_box/OpenInteract2/Action

Modified Files:
	SystemBoxes.pm 
Log Message:
Let site admins see the templates_used_box by default, in addition to the
admin_tools_box.


Index: SystemBoxes.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_box/OpenInteract2/Action/SystemBoxes.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** SystemBoxes.pm	18 Feb 2004 05:25:22 -0000	1.7
--- SystemBoxes.pm	9 Nov 2004 12:23:07 -0000	1.8
***************
*** 18,21 ****
--- 18,22 ----
  
      my @boxes = ();
+     my @admin_boxes = qw(templates_used_box admin_tools_box);
      my $request = CTX->request;
  
***************
*** 31,39 ****
          }
          if ( $request->auth_is_admin ) {
!             $log->is_debug &&
!                 $log->debug( "Adding box [admin_tools]" );
!             eval { push @boxes, CTX->lookup_action( 'admin_tools_box' ) };
!             if ( $@ ) {
!                 $log->warn( "Error looking up 'admin_tools_box': $@" );
              }
          }
--- 32,42 ----
          }
          if ( $request->auth_is_admin ) {
!             foreach ( @admin_boxes ) {
!                 $log->is_debug &&
!                     $log->debug( "Adding box '$_'" );
!                 eval { push @boxes, CTX->lookup_action( $_ ) };
!                 if ( $@ ) {
!                     $log->warn( "Error looking up '$_': $@" );
!                 }
              }
          }
***************
*** 116,118 ****
  =head1 AUTHORS
  
! Chris Winters E<lt>ch...@cw...E<gt>
\ No newline at end of file
--- 119,121 ----
  =head1 AUTHORS
  
! Chris Winters E<lt>ch...@cw...E<gt>

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Response.pm,1.26,1.27

From: Salve J. N. <sj...@us...> - 2004-11-09 12:15:41

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19973/lib/OpenInteract2

Modified Files:
	Response.pm 
Log Message:
OIN-56: Set the charset correctly


Index: Response.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Response.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** Response.pm	5 Oct 2004 03:06:02 -0000	1.26
--- Response.pm	9 Nov 2004 12:15:32 -0000	1.27
***************
*** 74,78 ****
      my $content_type = $self->content_type;
      if ( $self->charset ) {
!         $content_type += "; " . $self->charset;
      }
      return $content_type;
--- 74,78 ----
      my $content_type = $self->content_type;
      if ( $self->charset ) {
!         $content_type .= "; charset=" . $self->charset;
      }
      return $content_type;

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Config Initializer.pm,1.18,1.19

From: Chris W. <la...@us...> - 2004-11-09 11:37:16

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12740

Modified Files:
	Initializer.pm 
Log Message:
ensure the config watcher class is included before we add it as an observer

Index: Initializer.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config/Initializer.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Initializer.pm	27 Sep 2004 03:35:14 -0000	1.18
--- Initializer.pm	9 Nov 2004 11:37:08 -0000	1.19
***************
*** 9,12 ****
--- 9,13 ----
  use OpenInteract2::Constants qw( :log );
  use OpenInteract2::Context   qw( CTX );
+ use OpenInteract2::Exception qw( oi_error );
  use OpenInteract2::URL;
  
***************
*** 41,50 ****
          my $config_watcher = $config->config_watcher;
          next unless ( $config_watcher );
!         push @conf_watchers, @{ $config_watcher };
      }
  
      foreach my $watcher_class ( @conf_watchers ) {
          __PACKAGE__->add_observer( $watcher_class );
!         $log->info( "Adding custom config observer [$watcher_class]" );
      }
  
--- 42,59 ----
          my $config_watcher = $config->config_watcher;
          next unless ( $config_watcher );
!         foreach my $watcher_class ( @{ $config_watcher } ) {
!             eval "require $watcher_class";
!             if ( $@ ) {
!                 oi_error "Cannot find configured watcher '$watcher_class' ",
!                          "from package '", $package->name, "': $@";
!             }
!             $log->info( "Required watcher '$watcher_class' ok" );
!             push @conf_watchers, $watcher_class;
!         }
      }
  
      foreach my $watcher_class ( @conf_watchers ) {
          __PACKAGE__->add_observer( $watcher_class );
!         $log->info( "Added custom config observer '$watcher_class'" );
      }

[Openinteract-commits] CVS: OpenInteract2/pkg/base_page/OpenInteract2/Action Page.pm,1.22,1.23

From: Salve J. N. <sj...@us...> - 2004-11-08 14:48:49

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_page/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26312/pkg/base_page/OpenInteract2/Action

Modified Files:
	Page.pm 
Log Message:
Let also text/css and text/plain documents be displayable with the
default setup


Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_page/OpenInteract2/Action/Page.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Page.pm	5 Oct 2004 01:18:51 -0000	1.22
--- Page.pm	8 Nov 2004 14:48:41 -0000	1.23
***************
*** 30,34 ****
  # etc.) get sent to the user directly
  
! my %DISPLAY_TYPES = map { $_ => 1 } ( 'text/html' );
  
  # Use this to separate your single document into multiple pages
--- 30,34 ----
  # etc.) get sent to the user directly
  
! my %DISPLAY_TYPES = map { $_ => 1 } ( 'text/html', 'text/css', 'text/plain' );
  
  # Use this to separate your single document into multiple pages

[Openinteract-commits] CVS: OpenInteract2/pkg/base_page/data page.dat,1.1,1.2

From: Salve J. N. <sj...@us...> - 2004-11-08 14:47:32

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_page/data
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25796/pkg/base_page/data

Modified Files:
	page.dat 
Log Message:
Describe all the other pages (other than index.html) that are installed
with the standard demo site.


Index: page.dat
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_page/data/page.dat,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** page.dat	25 Mar 2003 02:40:21 -0000	1.1
--- page.dat	8 Nov 2004 14:47:23 -0000	1.2
***************
*** 5,8 ****
     [ '/index.html', 'Welcome to OpenInteract!', 'OpenInteract Authors <in...@op...>',
       'powered_by_box', 'text/html', 'yes', 'file',
!      'This record and file were created when you installed OI' ]
  ];
--- 5,20 ----
     [ '/index.html', 'Welcome to OpenInteract!', 'OpenInteract Authors <in...@op...>',
       'powered_by_box', 'text/html', 'yes', 'file',
!      'This record and file were created when you installed OI' ],
!    [ '/main.css', 'Main OI2 site CSS file', 'OpenInteract Authors <in...@op...>',
!      '', 'text/css', 'yes', 'file',
!      'This record and file were created when you installed OI' ],
!    [ '/no_overwrite', 'Files not to be updated automatically when packages are upgraded',
!      'OpenInteract Authors <in...@op...>', '', 'text/plain', 'yes', 'file',
!      'This record and file were created when you installed OI' ],
!    [ '/favicon.ico', 'OI2 site shortcut icon', 'OpenInteract Authors <in...@op...>',
!      '', 'image/ico', 'yes', 'file',
!      'This record and file were created when you installed OI' ],
!    [ '/login.html', 'OI2 login page', 'OpenInteract Authors <in...@op...>',
!      '-login_box', 'text/html', 'yes', 'file',
!      'This record and file were created when you installed OI' ],
  ];

[Openinteract-commits] CVS: OpenInteract2/pkg/base_page/template page_form.tmpl,1.6,1.7

From: Salve J. N. <sj...@us...> - 2004-11-08 14:45:52

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_page/template
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25587/pkg/base_page/template

Modified Files:
	page_form.tmpl 
Log Message:
Add a "Display" link


Index: page_form.tmpl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_page/template/page_form.tmpl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** page_form.tmpl	11 May 2004 03:25:26 -0000	1.6
--- page_form.tmpl	8 Nov 2004 14:45:42 -0000	1.7
***************
*** 27,33 ****
    [%- remove_url = OI.make_url( ACTION  = 'page',
                                  TASK    = 'remove',
!                                 page_id = page.id ) -%]
    <tr align="right"><td colspan="2">
!      <a href="[% remove_url %]">Remove</a> this location
    </td></tr>
  [% END -%]
--- 27,37 ----
    [%- remove_url = OI.make_url( ACTION  = 'page',
                                  TASK    = 'remove',
!                                  page_id  = page.id );

!       display_url = OI.make_url( ACTION   = 'page',

!                                  TASK     = 'display',

!                                  location = page.location ); -%]

    <tr align="right"><td colspan="2">
!      <a href="[% remove_url %]">Remove</a> or

!      <a href="[% display_url %]">Display</a> this location

    </td></tr>
  [% END -%]

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Action.pm,1.58,1.59

From: Salve J. N. <sj...@us...> - 2004-11-08 14:40:26

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24028/lib/OpenInteract2

Modified Files:
	Action.pm 
Log Message:
OIN-95: fixed missing $self->param() lookup in message_from_key_or_param()
Fix docs typos


Index: Action.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -C2 -d -r1.58 -r1.59
*** Action.pm	31 Oct 2004 00:18:18 -0000	1.58
--- Action.pm	8 Nov 2004 14:40:17 -0000	1.59
***************
*** 899,905 ****
  sub message_from_key_or_param {
      my ( $self, $param_name, $message_key, @key_args ) = @_;
!     if ( $message_key ) {
          my $language_handle = CTX->request->language_handle;
!         my $msg = $language_handle->maketext( $message_key, @key_args );
          return $msg if ( $msg );
      }
--- 899,909 ----
  sub message_from_key_or_param {
      my ( $self, $param_name, $message_key, @key_args ) = @_;
!     $log ||= get_logger( LOG_ACTION );
!     if ( $message_key and $self->param($message_key) ) {
          my $language_handle = CTX->request->language_handle;
!         $log->is_debug
!           && $log->debug( "Creating message from '$message_key' field '".
!                           $self->param($message_key) ."' with args '@key_args'\n" );
!         my $msg = $language_handle->maketext( $self->param($message_key), @key_args );
          return $msg if ( $msg );
      }
***************
*** 2493,2497 ****
  Returns: nothing
  
! B<message_from_param_or_key( $param_name, $message_key, @key_arguments )>
  
  Shortcut for returning a message from either the localized message
--- 2497,2501 ----
  Returns: nothing
  
! B<message_from_key_or_param( $param_name, $message_key, @key_arguments )>
  
  Shortcut for returning a message from either the localized message
***************
*** 2505,2509 ****
  If you call:
  
!  my $msg = $myaction->message_from_param_or_key( 'title', 'title_key' );
  
  The C<$msg> variable should have whatever is in the localization table
--- 2509,2513 ----
  If you call:
  
!  my $msg = $myaction->message_from_key_or_param( 'title', 'title_key' );
  
  The C<$msg> variable should have whatever is in the localization table

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Action CommonDisplay.pm,1.12,1.13

From: Salve J. N. <sj...@us...> - 2004-11-08 14:33:37

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22795/lib/OpenInteract2/Action

Modified Files:
	CommonDisplay.pm 
Log Message:
cosmetic


Index: CommonDisplay.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action/CommonDisplay.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** CommonDisplay.pm	15 Jun 2004 00:02:21 -0000	1.12
--- CommonDisplay.pm	8 Nov 2004 14:33:28 -0000	1.13
***************
*** 24,28 ****
      unless ( $object->is_saved ) {
          my $id = $self->param( 'c_id' );
!         $self->param_add( error_msg => "Object with ID $id not found" );
          return $self->execute({ task => $fail_task });
      }
--- 24,28 ----
      unless ( $object->is_saved ) {
          my $id = $self->param( 'c_id' );
!         $self->param_add( error_msg => "Object with ID '$id' not found" );
          return $self->execute({ task => $fail_task });
      }

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Cache File.pm,1.10,1.11

From: Chris W. <la...@us...> - 2004-10-31 00:28:42

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Cache
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6230/Cache

Modified Files:
	File.pm 
Log Message:
add debugging

Index: File.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Cache/File.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** File.pm	18 Oct 2004 07:45:05 -0000	1.10
--- File.pm	31 Oct 2004 00:28:29 -0000	1.11
***************
*** 24,27 ****
--- 24,28 ----
      # set in the config object
  
+     $cache_conf->{directory} ||= '';
      unless ( -d $cache_conf->{directory} ) {
          $log->error( "Cannot create a filesystem cache without a valid ",
***************
*** 45,57 ****
                      "[Dir $cache_dir] [Size $max_size] ",
                      "[Expire $default_expire] [Depth $cache_depth]" );
!     return Cache::FileCache->new({ default_expires_in => $default_expire,
!                                    max_size           => $max_size,
!                                    cache_root         => $cache_dir,
!                                    cache_depth        => $cache_depth });
  }
  
  
  sub get_data {
      my ( $self, $cache, $key ) = @_;
      return $cache->get( $key );
  }
--- 46,64 ----
                      "[Dir $cache_dir] [Size $max_size] ",
                      "[Expire $default_expire] [Depth $cache_depth]" );
!     return Cache::FileCache->new({
!         default_expires_in => $default_expire,
!         max_size           => $max_size,
!         cache_root         => $cache_dir,
!         cache_depth        => $cache_depth,
!     });
  }
  
+ sub purge_all {
+     # no-op for now...
+ }
  
  sub get_data {
      my ( $self, $cache, $key ) = @_;
+     $log->is_debug && $log->debug( "Retrieving from '$key'" );
      return $cache->get( $key );
  }
***************
*** 60,63 ****
--- 67,72 ----
  sub set_data {
      my ( $self, $cache, $key, $data, $expires ) = @_;
+     $log->is_debug && 
+         $log->debug( "Assigning to '$key' to expire in '$expires'" );
      $cache->set( $key, $data, $expires );
      return 1;
***************
*** 67,70 ****
--- 76,80 ----
  sub clear_data {
      my ( $self, $cache, $key ) = @_;
+     $log->is_debug && $log->debug( "Removing cache item '$key'" );
      $cache->remove( $key );
      return 1;

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Cache.pm,1.10,1.11

From: Chris W. <la...@us...> - 2004-10-31 00:26:34

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5273

Modified Files:
	Cache.pm 
Log Message:
debugging/doc updates

Index: Cache.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Cache.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Cache.pm	18 Feb 2004 05:25:26 -0000	1.10
--- Cache.pm	31 Oct 2004 00:26:25 -0000	1.11
***************
*** 15,18 ****
--- 15,26 ----
      my ( $pkg, $conf ) = @_;
      my $class = ref $pkg || $pkg;
+     $conf ||= {};
+     $log ||= get_logger( LOG_CACHE );
+     if ( $log->is_info ) {
+         $log->info( "Instantiating new cache of class '$class'" );
+         foreach my $key ( keys %{ $conf } ) {
+             $log->info( "...with key '$key' => '$conf->{ $key }'" );
+         }
+     }
      my $self = bless( {}, $class );
      $self->{_cache_object} = $self->initialize( $conf );
***************
*** 176,179 ****
--- 184,188 ----
   use_spops      = 0
   class          = OpenInteract2::Cache::File
+  directory      = /path/to/cache
   max_size       = 2000000
   
***************
*** 286,292 ****
  object passed in:
  
!  cache_info->default_expire - Default expiration time for items
!  cache_info->max_size       - Maximum size (in bytes) of cache
!  dir->cache_content         - Root directory for content cache
  
  B<get_data( $cache_object, $key )>
--- 295,300 ----
  object passed in:
  
!  cache_info.default_expire - Default expiration time for items
!  cache_info.max_size       - Maximum size (in bytes) of cache
  
  B<get_data( $cache_object, $key )>
***************
*** 310,321 ****
  Clears the cache of all items.
  
- =head1 TODO
- 
- Nothing known.
- 
- =head1 BUGS
- 
- None known.
- 
  =head1 COPYRIGHT
  
--- 318,321 ----
***************
*** 327,329 ****
  =head1 AUTHORS
  
! Chris Winters E<lt>ch...@cw...E<gt>
\ No newline at end of file
--- 327,329 ----
  =head1 AUTHORS
  
! Chris Winters E<lt>ch...@cw...E<gt>

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Setup.pm,1.52,1.53

From: Chris W. <la...@us...> - 2004-10-31 00:25:09

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5002

Modified Files:
	Setup.pm 
Log Message:
cosmetic

Index: Setup.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Setup.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** Setup.pm	26 Sep 2004 19:26:18 -0000	1.52
--- Setup.pm	31 Oct 2004 00:24:59 -0000	1.53
***************
*** 584,589 ****
      my $cache_config = CTX->lookup_cache_config;
      unless ( lc $cache_config->{use} eq 'yes' ) {
!         $log->is_debug &&
!             $log->debug( "Cache not configured for usage" );
          return undef;
      }
--- 584,588 ----
      my $cache_config = CTX->lookup_cache_config;
      unless ( lc $cache_config->{use} eq 'yes' ) {
!         $log->is_debug && $log->debug( "Cache not configured for usage" );
          return undef;
      }
***************
*** 599,606 ****
      }
      my $cache = $cache_class->new( $cache_config );
!     $log->is_debug &&
!         $log->debug( "Cache setup ok" );
  
      if ( $cache_config->{cleanup} eq 'yes' ) {
          $cache->purge;
      }
--- 598,606 ----
      }
      my $cache = $cache_class->new( $cache_config );
!     $log->is_debug && $log->debug( "Cache setup with '$cache_class' ok" );
  
      if ( $cache_config->{cleanup} eq 'yes' ) {
+     $log->is_debug &&
+         $log->debug( "Cache configured for cleanup at startup, purging..." );
          $cache->purge;
      }

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Action.pm,1.57,1.58

From: Chris W. <la...@us...> - 2004-10-31 00:18:30

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3744

Modified Files:
	Action.pm 
Log Message:
update some cache handling code...

Index: Action.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -d -r1.57 -r1.58
*** Action.pm	24 Oct 2004 15:50:14 -0000	1.57
--- Action.pm	31 Oct 2004 00:18:18 -0000	1.58
***************
*** 18,21 ****
--- 18,22 ----
  
  use constant CACHE_CLASS_KEY => 'class_cache_track';
+ use constant CACHE_ALL_KEY   => '__ALL__';
  
  # TODO: Set default action security from server configuration?
***************
*** 252,256 ****
  
      my $cached_content = $self->_check_cache;
!     if ( $cached_content ) { return $cached_content }
      $log->is_debug &&
          $log->debug( "Cached data not found, continuing" );
--- 253,259 ----
  
      my $cached_content = $self->_check_cache;
!     if ( $cached_content ) {
!         return $cached_content;
!     }
      $log->is_debug &&
          $log->debug( "Cached data not found, continuing" );
***************
*** 558,570 ****
      my ( $self, $cache_info ) = @_;
      if ( ref $cache_info eq 'HASH' ) {
          foreach my $task ( keys %{ $cache_info } ) {
              my $time_spec = $cache_info->{ $task };
!             $cache_info->{ $task } = $self->_translate_cache_time( $time_spec );
          }
!         $self->{cache_expire} = $cache_info;
      }
      elsif ( $cache_info ) {
          my $cache_time = $self->_translate_cache_time( $cache_info );
!         $self->{cache_expire} = { '_ALL_' => $cache_time };
      }
      return $self->{cache_expire};
--- 561,579 ----
      my ( $self, $cache_info ) = @_;
      if ( ref $cache_info eq 'HASH' ) {
+         my %new_info = ();
          foreach my $task ( keys %{ $cache_info } ) {
              my $time_spec = $cache_info->{ $task };
!             $new_info{ $task } = $self->_translate_cache_time( $time_spec );
          }
!         $self->{cache_expire} = \%new_info;
      }
      elsif ( $cache_info ) {
          my $cache_time = $self->_translate_cache_time( $cache_info );
!         $self->{cache_expire} = { CACHE_ALL_KEY() => $cache_time };
!     }
!     if ( $cache_info ) {
!         $log->info( "Assigned cache expiration: ",
!                     join( '; ', map { "$_ = $self->{cache_expire}{ $_ }" }
!                                     keys %{ $self->{cache_expire} } ) );
      }
      return $self->{cache_expire};
***************
*** 626,631 ****
      my ( $self ) = @_;
      my $expire = $self->cache_expire;
!     return unless ( $expire );
!     return $expire->{ $self->task } || $expire->{'_ALL_'};
  }
  
--- 635,644 ----
      my ( $self ) = @_;
      my $expire = $self->cache_expire;
!     return unless ( ref $expire eq 'HASH' );
!     my $time = $expire->{ $self->task } || $expire->{ CACHE_ALL_KEY() };
!     $log->is_debug &&
!         $log->debug( "Action/task ", $self->name, "/", $self->task, " ",
!                      "cached at time ", $time );
!     return $time;
  }
  
***************
*** 768,787 ****
  sub property_assign {
      my ( $self, $props ) = @_;
      while ( my ( $field, $value ) = each %{ $props } ) {
  
!         # This isn't defined in $PROPS
!         if ( $field eq 'is_secure' ) {
!             $self->is_secure( $value );
!         }
! 
!         # ...neither are these
! 
!        elsif ( $field =~ /^(name|cache_expire)$/ ) {
              $self->$field( $value );
          }
  
!         # ...everything else with a defined value (use property_clear
!         # to set to undef)
! 
          elsif ( $PROPS{ $field } and defined $value ) {
              $self->$field( $value );
--- 781,794 ----
  sub property_assign {
      my ( $self, $props ) = @_;
+     return unless ( ref $props eq 'HASH' );
      while ( my ( $field, $value ) = each %{ $props } ) {
  
!         # These aren't defined in %PROPS
!         if ( $field =~ /^(cache_expire|is_secure|name)$/ ) {
              $self->$field( $value );
          }
  
!         # ...everything else in %PROPS with a defined value (use
!         # property_clear to set to undef)
          elsif ( $PROPS{ $field } and defined $value ) {
              $self->$field( $value );

[Openinteract-commits] CVS: OpenInteract2/extra_packages/delicious_tags package.conf,1.2,1.3 MANIFEST,1.2,1.3 Changes,1.2,1.3

From: Chris W. <la...@us...> - 2004-10-26 03:29:11

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16198

Modified Files:
	package.conf MANIFEST Changes 
Log Message:
add config watcher


Index: package.conf
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/package.conf,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** package.conf	25 Oct 2004 02:29:31 -0000	1.2
--- package.conf	26 Oct 2004 03:29:03 -0000	1.3
***************
*** 1,7 ****
  name             delicious_tags
! version          0.02
  author           Chris Winters <ch...@cw...>
  url              http://www.openinteract.org/
  sql_installer    OpenInteract2::SQLInstall::DeliciousTags
  description
  Lightweight tags to related any objects.
--- 1,8 ----
  name             delicious_tags
! version          0.03
  author           Chris Winters <ch...@cw...>
  url              http://www.openinteract.org/
  sql_installer    OpenInteract2::SQLInstall::DeliciousTags
+ config_watcher   OpenInteract2::DeliciousTagWatcher
  description
  Lightweight tags to related any objects.

Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/MANIFEST,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** MANIFEST	25 Oct 2004 02:29:31 -0000	1.2
--- MANIFEST	26 Oct 2004 03:29:03 -0000	1.3
***************
*** 11,14 ****
--- 11,15 ----
  OpenInteract2/DeliciousTag.pm
  OpenInteract2/DeliciousTaggableObject.pm
+ OpenInteract2/DeliciousTagWatcher.pm
  OpenInteract2/Action/DeliciousTags.pm
  OpenInteract2/Observer/AddDeliciousTags.pm

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/Changes,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Changes	25 Oct 2004 02:29:31 -0000	1.2
--- Changes	26 Oct 2004 03:29:03 -0000	1.3
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract2 package delicious_tags.
  
+ 0.03  Mon Oct 25 23:27:09 EDT 2004
+ 
+       - Add OI2::DeliciousTagWatcher and configure in package.conf
+ 
  0.02  Sun Oct 24 22:18:30 EDT 2004

[Openinteract-commits] CVS: OpenInteract2/extra_packages/delicious_tags/OpenInteract2 DeliciousTagWatcher.pm,NONE,1.1

From: Chris W. <la...@us...> - 2004-10-26 03:29:11

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16198/OpenInteract2

Added Files:
	DeliciousTagWatcher.pm 
Log Message:
add config watcher


--- NEW FILE: DeliciousTagWatcher.pm ---
package OpenInteract2::DeliciousTagWatcher;

# $Id: DeliciousTagWatcher.pm,v 1.1 2004/10/26 03:29:02 lachoy Exp $

use strict;

$OpenInteract2::DeliciousTagWatcher::VERSION  = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);

sub update {
    my ( $class, $type, $config ) = @_;
    return unless ( $type eq 'spops' and ref $config eq 'HASH' );
    if ( $config->{is_taggable} eq 'yes' ) {
        $config->{isa} ||= [];
        push @{ $config->{isa} }, 'OpenInteract2::DeliciousTaggableObject';
    }
}

1;

__END__

=head1 NAME

OpenInteract2::DeliciousTagWatcher - Configuration watcher to look for 'is_taggable'

=head1 SYNOPSIS

 [myspops]
 class = OpenInteract2::Foo
 ...
 is_taggable = yes
 
 # At startup OpenInteract2::Foo will have 
 # OpenInteract2::DeliciousTaggableObject in its 'isa'

=head1 DESCRIPTION

Configuration initializer to add a shortcut to SPOPS configuration --
a 'is_taggable = yes' will result in the SPOPS class getting
L<OpenInteract2::DeliciousTaggableObject> in its 'isa'.

=head1 SEE ALSO

L<OpenInteract2::Config::Initializer>

=head1 COPYRIGHT

Copyright (c) 2004 Chris Winters. All rights reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHORS

Chris Winters E<lt>ch...@cw...E<gt>

[Openinteract-commits] CVS: OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Observer AddDeliciousTags.pm,NONE,1.1

From: Chris W. <la...@us...> - 2004-10-25 02:29:41

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/Observer
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7857/OpenInteract2/Observer

Added Files:
	AddDeliciousTags.pm 
Log Message:
updates for 0.02


--- NEW FILE: AddDeliciousTags.pm ---
package OpenInteract2::Observer::AddDeliciousTags;

# $Id: AddDeliciousTags.pm,v 1.1 2004/10/25 02:29:30 lachoy Exp $

use strict;
use Log::Log4perl            qw( get_logger );
use OpenInteract2::Constants qw( :log );
use OpenInteract2::Context   qw( CTX );
use OpenInteract2::DeliciousTaggableObject;

$OpenInteract2::Observer::AddDeliciousTags::VERSION  = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);

my ( $log );

sub update {
    my ( $class, $action, $observation ) = @_;
    return unless ( $observation eq 'post save' );

    my $action_desc = join( '', '(from action/task: ',
                                 $action->name, '/', $action->task, ')' );
    $log ||= get_logger( LOG_APP );
    my $object = $action->param( 'object' ) || $action->param( 'c_object' );
    unless ( $object ) {
        $log->warn( "Cannot find an object to which I should attach ",
                    "the delicious tags $action_desc" );
        return;
    }
    my $tag_listing = $action->param( 'tags' )
                      || CTX->request->param( 'tags' );
    unless ( $tag_listing ) {
        $log->warn( "No delicious tags found $action_desc" );
        return;
    }
    my @all_tags = split /\s+/, $tag_listing;
    OpenInteract2::DeliciousTaggableObject::add_tags( $object, @all_tags );
}

1;

__END__

=head1 NAME

OpenInteract2::Observer::AddDeliciousTags - Add tags to an object from any action

=head1 SYNOPSIS

 # Add the observation as available
 # in $WEBSITE_DIR/conf/observer.ini
 
 [observer]
 delicious = OpenInteract2::Observer::AddDeliciousTags
 
 # Mark your action 'myaction' to be observed and have the tags from
 # 'tags' mapped to your object
 
 [map]
 delicious = myaction

=head1 DESCRIPTION

=over 4

=item *

Only reacts to 'post save' observations; all others are ignored.

=item *

Finds the object to which it should attach the tags in the action
parameter 'object' or 'c_object'. If an object is not found there the
observer does nothing.

=item *

Finds the tags to attach in the action parameter 'tags' or the
L<OpenInteract2::Request> parameter 'tags'. If no tags are found the
observer does nothing.

=item *

On finding everything we pass the data to the C<add_tags> method of
L<OpenInteract2::DeliciousTaggableObject>.

=back

=head1 SEE ALSO

L<Class::Observable>

L<OpenInteract2::Action>

L<OpenInteract2::DeliciousTag>

=head1 COPYRIGHT

Copyright (c) 2004 Chris Winters. All rights reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHORS

Chris Winters E<lt>ch...@cw...E<gt>

[Openinteract-commits] CVS: OpenInteract2/extra_packages/delicious_tags/doc delicious_tags.pod,1.1,1.2

From: Chris W. <la...@us...> - 2004-10-25 02:29:41

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/doc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7857/doc

Modified Files:
	delicious_tags.pod 
Log Message:
updates for 0.02


Index: delicious_tags.pod
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/doc/delicious_tags.pod,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** delicious_tags.pod	24 Oct 2004 16:40:08 -0000	1.1
--- delicious_tags.pod	25 Oct 2004 02:29:30 -0000	1.2
***************
*** 14,18 ****
   
   [observer]
!  delicious = OpenInteract2::Observer::DeliciousTag
   
   [map]
--- 14,18 ----
   
   [observer]
!  delicious = OpenInteract2::Observer::AddDeliciousTags
   
   [map]

[Openinteract-commits] CVS: OpenInteract2/extra_packages/delicious_tags/OpenInteract2 DeliciousTaggableObject.pm,1.1,1.2 DeliciousTag.pm,1.1,1.2

From: Chris W. <la...@us...> - 2004-10-25 02:29:41

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7857/OpenInteract2

Modified Files:
	DeliciousTaggableObject.pm DeliciousTag.pm 
Log Message:
updates for 0.02


Index: DeliciousTaggableObject.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/DeliciousTaggableObject.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DeliciousTaggableObject.pm	24 Oct 2004 16:40:08 -0000	1.1
--- DeliciousTaggableObject.pm	25 Oct 2004 02:29:31 -0000	1.2
***************
*** 6,9 ****
--- 6,15 ----
  use OpenInteract2::DeliciousTag;
  
+ sub c_add_tags {
+     my ( $class, $object_type, $object_id, $url, $name, @tags ) = @_;
+     return OpenInteract2::DeliciousTag
+                ->add_tags( $object_type, $object_id, $url, $name, @tags );
+ }
+ 
  sub c_fetch_my_tags {
      my ( $class, $object_type, $id ) = @_;
***************
*** 27,30 ****
--- 33,43 ----
  
  
+ sub add_tags {
+     my ( $object, @tags ) = @_;
+     my $info = $object->object_description;
+     return __PACKAGE__->c_add_tags( $info->{name}, $info->{object_id},
+                                     $info->{url}, $info->{title}, @tags );
+ }
+ 
  sub fetch_my_tags {
      my ( $object ) = @_;

Index: DeliciousTag.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/OpenInteract2/DeliciousTag.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DeliciousTag.pm	24 Oct 2004 16:40:08 -0000	1.1
--- DeliciousTag.pm	25 Oct 2004 02:29:31 -0000	1.2
***************
*** 4,10 ****
--- 4,32 ----
  
  use strict;
+ use DateTime;
  
  @OpenInteract2::DeliciousTag::ISA = qw( OpenInteract2::DeliciousTagPersist );
  
+ # this should be wrapped in a transaction...
+ 
+ sub add_tags {
+     my ( $class, $object_type, $object_id, $url, $name, @tags ) = @_;
+     $class->db_delete({
+         table => $class->table_name,
+         where => 'object_type = ? AND object_id = ?',
+         value => [ $object_type, $object_id ],
+     });
+     foreach my $tag ( @tags ) {
+         $class->new({
+             tag         => $tag,
+             object_type => $object_type,
+             object_id   => $object_id,
+             url         => $url,
+             name        => $name,
+             created_on  => DateTime->now(),
+         })->save();
+     }
+ }
+ 
  sub fetch_all_tags {
      my ( $class ) = @_;

[Openinteract-commits] CVS: OpenInteract2/extra_packages/delicious_tags/conf spops.ini,1.1,1.2

From: Chris W. <la...@us...> - 2004-10-25 02:29:40

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/conf
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7857/conf

Modified Files:
	spops.ini 
Log Message:
updates for 0.02


Index: spops.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/delicious_tags/conf/spops.ini,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** spops.ini	24 Oct 2004 16:40:08 -0000	1.1
--- spops.ini	25 Oct 2004 02:29:30 -0000	1.2
***************
*** 1,17 ****
  [delicious_tag]
! class           = OpenInteract2::DeliciousTagsPersist
! field           = 
! field_discover  = yes
! id_field        = tag_id
! increment_field = yes
! sequence_name   = delicious_tags_seq
! is_secure       = no
! no_insert       = tag_id
! no_update       = tag_id
! skip_undef      = tag_id
! sql_defaults    =
! base_table      = delicious_tags
! name            = tag
! object_name     = Tags
  
  
--- 1,18 ----
  [delicious_tag]
! class              = OpenInteract2::DeliciousTagsPersist
! field              = 
! field_discover     = yes
! id_field           = tag_id
! increment_field    = yes
! sequence_name      = delicious_tags_seq
! is_secure          = no
! no_insert          = tag_id
! no_update          = tag_id
! skip_undef         = tag_id
! convert_date_field = created_on
! sql_defaults       =
! base_table         = delicious_tags
! name               = tag
! object_name        = Tags

4 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 43 44 45 46 47 .. 289 > >> (Page 45 of 289)